Irgendwie habe ich doch da einen Gedankenfehler bei dem Testscript.
Er speicher nicht das in die Textdatei, was er bei der ersten MsgBox anzeigt
Zeilen: 13-16 scheinen fehlerhaft zu sein.
Spoiler anzeigen
#include <Crypt.au3>
; Passwort & zu codierender Text
Local Const $sUserKey = "CryptPassword" ; Deklariert eine Passwort-Zeichenfolge um die Daten zu ver- und entschlüsseln.
Local $sData = "0123456789" ; Dieser Text wird verschlüsselt werden.
; codieren
Local $bEncrypted = _Crypt_EncryptData($sData, $sUserKey, $CALG_RC4) ; Verschlüsselt den Text mit Hilfe der generischen Passwort-Zeichenfolge.
MsgBox(0,"Verschlüsselter Text", $bEncrypted)
; hier macht er was falsch !!! Oder?
; Daten in Textdatei schreiben und in MsgBox ausgeben
Local $file = FileOpen("binaere.txt",1)
FileWrite($file,$bEncrypted)
FileClose($file)
MsgBox(0,"Verschlüsselter Text aus Textdatei.",FileRead("binaere.txt"))
; decodieren
$bEncrypted = _Crypt_DecryptData($bEncrypted, $sUserKey, $CALG_RC4) ; Entschlüsselt den Text mit Hilfe der generischen Passwort-Zeichenfolge. Der Rückgabewert ist ein Binärstring.
;MsgBox(0, "Entschlüsselter Text", BinaryToString($bEncrypted)) ; Konvertiert den Binärstring mit Hilfe BinaryToString um den Ausgangstext anzuzeigen, den wir verschlüsselten.
Local $file = FileRead("binaerer.txt")
MsgBox(0,"decodieren", BinaryToString($bEncrypted))