Hallo, mir war gerade langweilig und so schrieb ich kurz einen Password-Crypter, man kann ich natürlich auch für andere Passwort-gesicherte Daten benutzen. Einfach starten ein Password angeben und dann in die Edit-Box das zu sichernde eintragen. Wenn man in nach dem Beenden wieder startet und dass Passwort wieder eingibt, erscheint der Text entschlüsselt wieder. Es wird auch jedes mal eine neue Sicherheitsstufe ausgewählt.
Spoiler anzeigen
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#Include <String.au3>
#NoTrayIcon
;File open:
$aPassword = InputBox("Password","Write the Password into the Input-Box")
If @error then exit
$aCrypt = FileRead(@scriptdir & "\password.key")
$hWnd = GUICreate("Password-Crypter")
$hEdit = GUICtrlCreateEdit(_StringEncrypt(0,StringTrimLeft($aCrypt,1),$aPassword,StringLeft ( $aCrypt, 1)), 0, 0, 400, 400)
GUISetState()
Do
Sleep(20)
until GUIGetMsg() = $GUI_EVENT_CLOSE
;Crypt:
$aLevel = Random(0,9,1)
$aFile = FileOpen(@scriptdir & "\password.key",2)
FileWrite($aFile,$aLevel & _StringEncrypt(1,GUICtrlRead($hEdit),$aPassword,$aLevel))
FileClose($aFile)