Spoiler anzeigen
$Form1_1 = GUICreate("Cryption", 319, 63, 256, 163)
$Button1 = GUICtrlCreateButton("Verschlüsseln", 0, 0, 155, 33)
$Button2 = GUICtrlCreateButton("Entschlüsseln", 160, 0, 155, 33)
$Password = GUICtrlCreateInput("Passsword", 8, 40, 145, 21)
$Label1 = GUICtrlCreateLabel("Ausgabe: ", 160, 40, 52, 17)
$Checkbox1 = GUICtrlCreateCheckbox("Privat? Info: F1", 16, 64, 97, 17)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$pass = GUICtrlRead ($Password)
$komm = FileSaveDialog ("Datei auswählen", "", "Text files (*.txt)")
$read = FileRead ($komm)
MsgBox (1,"",$read)
#Verschlüsselung
#cs
If GUICtrlRead ($Checkbox1) = 1 Then
$pass = DriveGetSerial (@HomeDrive & "")
EndIf
_Crypt_Startup() ; To optimize performance start the crypt library.
[/autoit] [autoit][/autoit] [autoit]Local $bAlgorithm = $CALG_RC4
$password = _Crypt_DeriveKey($pass, $bAlgorithm)
$AES = _Crypt_EncryptData ($read, $pass, $bAlgorithm)
$File = FileWrite ("CryptionVer.txt", $AES)
MsgBox (1,"",$AES)
#ja der code ist eigentlich länger aber das Problem liegt bereits hier...
Das Skript soll die Daten aus einer txt verschlüsseln. In der Msgbox werden auch vernünftige Werte ausgegeben aber im Filewrite kommen nur seltsame Zeichen...
Weiß jemand warum und wie sich das so ändern lässt, dass auch in der neuen .txt file die wirklich verschlüsselten Werte stehen.
Danke!