....mache ich hier mal ein wenig Werbung =)
Erstmal Hi zusammen,
vor nen Jahr oder so hatte ich ja bereits erwähnt das ich musik mache, um das ganze auch hier vllt. den ein oder anderen der gefallen dran haben könnte näher zu bringen wollte ich hier auf meine Hompage aufmerksam machen, würde mich freuen wenn sich die seite und vor allem die musik anhören/angucken und ein feedback da lassen!!
Hoffe das es den ein oder anderen gefällt.
Nightmarerecords Homepage
Greetz
AltairKD
Habe vor uff...paar monaten oder jahre mal dieses kleine script gebastelt woran ich nun weiter machen werde.
Könnt es euch ja mal anschauen und tipps etc. geben =)
Danke.
PS: Es verschlüsselt und entschlüsselt bisher nur .txt dateien.
#include <File.au3>
#include <GuiListView.au3>
$File = ""
$GUI = GUICreate("FreeCrypt", 500, 420)
$Menu = GUICtrlCreateMenu("Data")
$Open = GUICtrlCreateMenuItem("Open", $Menu)
$HelpMenu = GUICtrlCreateMenu("?")
$Info = GUICtrlCreateMenuItem("Info", $HelpMenu)
$Help = GUICtrlCreateMenuItem("Help", $HelpMenu)
$Start = GUICtrlCreateButton("Start", 440, 370, 50)
$CFile = GUICtrlCreateButton("Choose Files", 350, 70, 70)
$Group1 = GUICtrlCreateGroup("Mode", 4, 4, 90, 45)
$Group1 = GUICtrlCreateGroup("Info", 230, 4, 200, 45)
GUICtrlCreateLabel("Momentan nur .TXT Formate möglich", 240, 20)
$CMode = GUICtrlCreateCombo("", 10, 20, 70)
GUICtrlSetData($CMode, "Encrypt")
GUICtrlSetData($CMode, "Decrypt")
$Group2 = GUICtrlCreateGroup("Files", 4, 60, 430, 300)
$ListView = GUICtrlCreateListView("", 10, 100, 410, 250)
_GUICtrlListView_AddColumn($ListView, "File", 400)
GUISetState(@SW_SHOW, $GUI)
$Key = Random()
While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[0]
Case -3
If $nMsg[1] = $GUI Then
Exit
Else
GUISetState(@SW_HIDE, $nMsg[1])
EndIf
Case $Start
If $File = "" Then
MsgBox(16, "Error", "No File choosen!")
Else
$Mode = GUICtrlRead($CMode)
ConsoleWrite($Mode & @CRLF)
If $Mode = "Encrypt" Then
_Secure_Encrypt($File, $Key)
Else
If $Mode = "Decrypt" Then
_Secure_Decrypt($File, $Key)
Else
MsgBox(16, "Error", "No Mode choosen!")
EndIf
EndIf
EndIf
Case $CFile
$File = FileOpenDialog("Öffnen", @ScriptDir, "(*.*)")
GUICtrlCreateListViewItem($File, $ListView)
case $Info
MsgBox(0, "Info", "With this Tool you can Encrypt and Decrypt Files." & @CR & " Written by: Timo.R" & @CRLF & " With: AutoIT v3")
case $Open
$File = FileOpenDialog("Öffnen", @ScriptDir, "(*.*)")
GUICtrlCreateListViewItem($File, $ListView)
Case $Help
MsgBox(0, "Help", "Comming Soon..")
EndSwitch
WEnd
Func _Secure_Encrypt($File, $Key)
$i = 0
While $i < 3
$Encrypt = _EncryptFile($File, $Key, 1)
ConsoleWrite($i & @CRLF)
$i += 1
WEnd
If $Encrypt = True Then
_GUICtrlListView_DeleteItem($ListView, 0)
MsgBox(0, "Ready", "Encrypt File: " & $File & " was Successful")
Else
MsgBox(16, "Error", "Encrypt File: " & $File & " wasn't Successful")
EndIf
EndFunc ;==>_Secure_Encrypt
Func _Secure_Decrypt($File, $Key)
$i = 0
While $i < 3
$Decrypt = _EncryptFile($File, $Key, 0)
ConsoleWrite($i & @CRLF)
$i += 1
WEnd
If $Decrypt = True Then
_GUICtrlListView_DeleteItem($ListView, 0)
MsgBox(0, "Ready", "Decrypt File: " & $File & " was Successful")
Else
MsgBox(16, "Error", "Decrypt File: " & $File & " wasn't Successful")
EndIf
EndFunc ;==>_Secure_Decrypt
;===============================================================================
;
; Function Name: _Encrypt( $aString, $aPW ,$aMode = 1 )
; Description:: Function to en- decrypt strings
; Parameter(s): $aString = String to encrypt
; $aPW = Password
; $aMode = 1 for encrypt, 0 for decrypt
; Requirement(s): None
; Return Value(s): en- decrypted string
; Author(s): Daniel Wahlmann
;
;===============================================================================
Func _Encrypt($aString, $aPW, $aMode = 1)
Local $lReturn = "", $lBuffer = "", $lPW = "", $lStrLen = StringLen($aString), $lPwLen = StringLen($aPW)
If Not IsString($aString) Or $lStrLen < 1 or ($aMode <> 0 And $aMode <> 1) or ($aMode = 0 And Mod($aString, 2) <> 0) Or StringLen($aPW) < 1 Then Return 0
For $lNum = 1 To $lPwLen
$lPW &= Asc(StringMid($aPW, $lNum, 1))
Next
Switch $aMode
Case 1
For $lNum = 1 To $lStrLen
$lReturn &= Hex(BitXOR(BitNOT(Asc(StringMid($aString, $lNum, 1)) + 1), $lPW, 255), 2)
Next
Case 0
For $lNum = 1 To $lStrLen
$lBuffer &= Chr(BitXOR(BitNOT(Asc(Chr(Dec(StringMid($aString, $lNum, 1) & StringMid($aString, $lNum + 1, 1))))), $lPW, 255))
$lNum += 1
Next
For $lNum = 1 To $lStrLen / 2
$lReturn &= Chr(Asc(StringMid($lBuffer, $lNum, 1)) - 1)
Next
EndSwitch
Return $lReturn
EndFunc ;==>_Encrypt
;===============================================================================
;
; Function Name: _EncryptFile( $aFile, $aPW ,$aMode = 1 )
; Description:: Function to en- decrypt files
; Parameter(s): $aFile = file to encrypt/decrypt
; $aPW = Password
; $aMode = 1 for encrypt, 0 for decrypt
; Requirement(s): File.au3
; Return Value(s): Success 1
; Failure 0
; Author(s): Daniel Wahlmann
;
;===============================================================================
Func _EncryptFile($aFile, $aPW, $aMode = 1)
Dim $lRead, $lReturn = False
If FileExists($aFile) Then
_FileReadToArray($aFile, $lRead)
FileDelete($aFile)
For $lNum = 1 To $lRead[0]
FileWriteLine($aFile, _Encrypt($lRead[$lNum], $aPW, $aMode))
Next
$lReturn = True
EndIf
Return $lReturn
EndFunc ;==>_EncryptFile
Audio wäre auch ganz praktisch!
Dann mal schönen Urlaub, sonne dich für mich mit 
Cooles Script. Funktioniert echt Super!
Und ist gleichzeitig noch gut zu gebrauchen.
Alles kla, läuft soweit, das mit den schlüssel zwa noch nicht, aber klappt ja acuh so ohne probleme. Danke!!!
PS: ist mir echt was peinlich xD
Gibt es keine Möglichkeit das er sich die datei merkt?? Weil muss Sie jetzt immerwieder angeben.
und es kommt folgender Fehler:
!No udf path found : RegRead("HKCU\Software\AutoIt v3\Autoit", "Include")
Funktionieren tut es jedoch trotzdem.
]ganz Peinliche sache die mir passiert.
habe nach 2 Jahren mal wieder autoIT auf meinen Rechner gepackt und habe OI genau nach anleitung isntalliert jedoch kommt wenn ich es nutzen will folgendes Fenster:
[attach]13626[/attach
Woran liegt das? Habe ich was falsch eingestellt oder ist es ein allgemeiner Fehler?
Also wenn man Ahnung hat kann man Bushido sowieso nicht ausstehen.
Sido ist meiner meinung cool, hat seinen style zwa gut geändert aber man wird ja auch irgendwann erwachsen(sollte man zumindestens meinen).
Frauenarzt ist so ne sache für sich, wobei ich weniger finde das er Gangstarap macht ehen einfach nur Assi.
Schön, dass du den Thread auch gefunden hast
Wegen dem Umzug... wär ja nicht so, dass ich das extra mache, oder gemacht habe. Gegen diese übermächtliche Fügung (*hust*) konnte man leider nix machen.Vielleicht ergibt sich da ja noch was. Lass mich hier nur erstmal wieder richtig auf die Beine kommen
Ja kla datt weiss ich, mal keine Hektik. Die dunkle Macht ist leider zu stark gewesen.
//Edit: Bei den Titeln 12 und 15 könnt ihr auch AltairKD hören, der damals noch den Rappernamen Lil Sandman hatte.
Och nee das musstest du aber net unbedingt sagen ;). Ist das Scheisse gewesen, hahaha. =)
Edit: Da SEuBo es ja schon erwähnt hat dacht ich mir habt ihr hier mal den link zu meiner myspace, da könnt ihr dann auch was von mir hören falls Interesse besteht. Daishi MySpace
Ja guut biste, musstest ja nur leider aufhören, und jetzt wo ich dich fast soweit hatte das du mit mir zusammen ein Album aufnimmst(und wir sogar schon ein raum für studio geklärt hatten)biste wiedermal weggezogen, echt mies, aber man kann ja nicht alles drehen und wenden wie man will. *leider*
müssen nicht, kann man allerdings auch machen. Bei mir funktionieren beide varianten. Also Im und nicht im Systemverzeichniss.
Original von Pinguin94:
Den Sourcecode gibt es hier schon zu sehen, jedoch muss man das .zip Archiv downloaden, da dort 3 .dlls und die .au3, welche benötigt wird, enthalten sind.
@Pinguin94: saubere Arbeit, habe selber ja auch schon ein wenig mit OpenGL gemacht, aber noch nicht die Zeit gehabt mich wirklich mit zu beschäftigen xD.
Hi,
da ich momentan dabei bin ein Backupprogramm zu schreiben und eben die Funktion für Fullbackup fertig gestellt habe, dachte ich mir ich stelle diese mal hier rein. Evtl. kann die jemand anders ja auch mal gebrauchen und/oder es hat jemand Verbesserungsvorschläge. Soweit wünsch ich erstmal viel Spaß damit
#include <Date.au3>
;==========================================================================================================================================
; Function: _Full_Backup(ByRef $srcDir, ByRef $destDir, ByRef $sIntervall)
;
; Beschreibung: Macht ein Full-Backup von einen Medium
;
; Parameter(s): $srcDir - Quelle des Mediums wovon ein Backup gemacht werden soll
; $destDir - Ziel wo das Backup gesichert werden soll
; $sIntervallDay - Intervall mit den das Backup arbeitet
;
; Anforderung(en): Keine
;
; Rückgabewert(e): Bei Erfolg - Returns 1
; Bei Fehler - Returns 0
;
; Notizen: Es müssen folgende Variablen wie folgt deklariert werden:
;~ $sDay = @MDAY
;~ $sMonth = @MON
;~ $sTimeOf = @HOUR & ":" & @MIN
;
; Autor(s): AltairKD
;==========================================================================================================================================
Func _Full_Backup(ByRef $srcDir, ByRef $destDir, ByRef $sIntervall)
If @HOUR & ":" & @MIN = $sTimeOf And @MDAY = $sDay And @MON = $sMonth Then
Local $tsBeginn = _NowCalc(), $tsDiff = -1, $tsRest
If StringRight($srcDir, 1) = "\" Then $srcDir = StringLeft($srcDir, StringLen($srcDir) - 1)
If StringRight($destDir, 1) <> "\" Then $destDir = $destDir & "\"
If Not FileExists($destDir) Then DirCreate($destDir)
$srcSize = DirGetSize($srcDir, 1)
$1_percent = $srcSize[0] / 100
Run('XCOPY "' & $srcDir & '" "' & $destDir & '" /D /S /E /V /C /H /R /O /Y /F /G', @ScriptDir, @SW_HIDE)
ProgressOn("Advanced status of file copying", "", "", 10, 10)
Do
If $tsDiff < 0 Then Sleep(5000)
$destSize = DirGetSize($destDir, 1)
$tsDiff = _DateDiff("s", $tsBeginn, _NowCalc())
$tsRest = Round($tsDiff / ($destSize[0] / $1_percent) * 100, 0) - $tsDiff
ConsoleWrite($tsDiff & " " & $1_percent & " " & $tsRest & @CRLF)
ProgressSet(Round($destSize[0] / $1_percent, 2), Round($destSize[0] / (1024 * 1024), 2) & " MB of " & Round($srcSize[0] / (1024 * 1024), 2) & " MB copied" & @CRLF _
& $destSize[1] & " of " & $srcSize[1] & " Files copied." & @CRLF _
& $destSize[2] & " of " & $srcSize[2] & " Folders copied.", Round($destSize[0] / $1_percent, 2) & "% - Done! " & $tsRest & " sec. Rest")
Sleep($tsDiff)
Until $destSize[0] >= $srcSize[0]
MsgBox(0, "Fertig in " & $tsDiff & " sec.", Round($destSize[0] / (1024 * 1024), 2) & " MB of " & Round($srcSize[0] / (1024 * 1024), 2) & " MB copied" & @CRLF _
& $destSize[1] & " of " & $srcSize[1] & " Files copied." & @CRLF _
& $destSize[2] & " of " & $srcSize[2] & " Folders copied." & @CRLF & Round($destSize[0] / $1_percent, 2) & "% - Done! ")
ProgressOff()
If Not @error Then
$sDay += $sIntervall
Else
MsgBox(16, "Error", "Error 001: errors during the copy")
Return 0
Exit
EndIf
Else
Return 0
EndIf
Return 1
EndFunc ;==>_Full_Backup
Cool, hätte ich quasi bischen gewartet hätte ich faule sau deine nehmen können und nicht meinen code abändern. 
ahhh ist ja doch ganz einfach =).
Wird zwa viel Arbeit sein aber es klappt, Danke dir.
Hi,
ich habe ein Script bei dem ich in den Optionen eine andere Sprache auswählen kann (Also English oder Deutsch usw.). Zur zeit muss das Script allerdings neugestartet werden damit die andere Sprache greift. Jetzt meine Frage: ist es möglich die Sprache ohne neustart zu ändern oder zumindestens das sich das Script automatisch neustartet?
Danke für die Hilfe!
Und ich sage viel viel viel zu Spät: Danke an alle
Für anfang echt gut, aber bei den includes kannste wirklich einige weglassen.
[autoit]
#include <GuiEdit.au3>
#include <IE.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Mit diesen funktioniert es auch einwandfrei
Werde es morgen mal testen ob mir das hilft, weil jetzt mach ich erstmal feierabend für heute
