Problem beim verschlüsseln und entschlüsseln

$open = FileOpen ("test.au3",16)
$file = FileRead ($open)
$file = StringReplace ($file,"0x","")
$string = StringSplit ($file,"")
Local $test
For $a = 1 To $string[0]
$test &= Hex ($string[$a],2) & " "
Next
MsgBox (0,"",$test)
$string = StringSplit ($test," ")
Local $test2
For $a = 1 To $string[0]
$test2 &= Dec($string[$a])
Next
MsgBox (0,"",BinaryToString ($test2) & @CRLF & $file)

MsgBox (0,"","test")

habe da jetzt so ein problem.
das macht nicht das was es soll

$file = Binary ("a")

#Region verschlüsseln
$string = StringSplit ($file,"")
Local $text
For $a = 1 To $string[0]
$text &= Asc ($string[$a])
Next
MsgBox (0,"",$text)
#EndRegion

#Region entschlüsseln
$string = StringSplit ($text," ")
Local $text
For $a = 1 To $string[0]
$text &= Chr ($string[$a])
Next
MsgBox (0,"",BinaryToString ($text))
#EndRegion

es kommt bei beiden msg der gleiche text raus

ok das geht doch

Ich habe jetzt was gemacht. Nur das entschlüsseln klapt nicht richtig

#include <string.au3>

$file = FileOpenDialog("Obfuscator", @ScriptDir & "", "Script (*.au3)", 1)
$string = StringSplit(Binary($file), "")
Local $text
$r = Random(2, 8, 1)
For $a = 1 To $string[0]
$text &= _StringEncrypt(1, Binary(Hex(Asc($string[$a]), $r)), "test") & " "
Next
FileWrite(@ScriptDir & "\test.dll", $text)
MsgBox(0, "", "fertig")

$text = FileRead(@ScriptDir & "\test.dll")
$string = StringSplit($text, " ")
Local $text2
For $a = 1 To $string[0]
$text2 &= Chr(Dec(BinaryToString(_StringEncrypt(0, ($string[$a]), "test"))))
Next
$r = Random(100000, 9999999999, 1)
FileDelete(@TempDir & "\" & $r & ".ini")
MsgBox(0, "", $text2)
FileWrite(@TempDir & "\" & $r & ".ini", $text2)
Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & @TempDir & "\" & $r & '.ini"')
FileDelete(@TempDir & "\" & $r & ".ini")