Aah stimmt
[autoit]#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#Region ### START Koda GUI section ### Form=
$Enigma = GUICreate("Enigma", 442, 413, 344, 193)
$head = GUICtrlCreateLabel("Enigma", 161, 20, 119, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$title_eingabe = GUICtrlCreateLabel("Eingabe:", 32, 70)
$eingabe = GUICtrlCreateInput("", 32, 88, 385, 89)
GUICtrlSetData(-1, "")
$title_ausgabe = GUICtrlCreateLabel("Ausgabe:", 32, 206)
$ausgabe = GUICtrlCreateEdit("", 32, 224, 385, 89)
GUICtrlSetData(-1, "")
$information1 = GUICtrlCreateLabel("Text to Hex -> codieren", 32, 318)
$information2 = GUICtrlCreateLabel("Hex to Text -> decodieren", 32, 333)
$code = GUICtrlCreateButton("codieren", 36, 356, 121, 25, $WS_GROUP)
$copyright = GUICtrlCreateLabel("Scripted by UWC | Schrubber @ 2009", 8, 392, 184, 17)
$decode = GUICtrlCreateButton("decodieren", 165, 356, 121, 25, $WS_GROUP)
$quit = GUICtrlCreateButton("Quit", 295, 356, 121, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$byte = 1
[/autoit][autoit][/autoit][autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $code
GUICtrlSetData($ausgabe, '')
Dim $arstring = StringSplit(GUICtrlRead($eingabe), ''), $str = ''
For $i = 1 To UBound($arstring) -1
$str &= StringUpper(Hex(Asc($arstring[$i]), 2)) & ' '
Next
GUICtrlSetData($ausgabe, $str)
Case $decode
GUICtrlSetData($ausgabe, '')
Dim $chstring = StringSplit(GUICtrlRead($eingabe), ''), $str2 = ''
For $ii = 2 To UBound($chstring) -1
$str2 &= StringUpper(ASC(HEX($chstring[$ii], 2))) & ' '
Next
GUICtrlSetData($ausgabe, $str2)
Case $quit
Exit
EndSwitch
WEnd
Das codieren funktioniert perfekt, aber nicht das decodieren.