hallo community, ich habe mal etwas gecodet (etwas umgestellt, von jemandem hier ausm Forum)
[autoit]
$hGUI = GUICreate("", 120, 60)
$hInput = GUICtrlCreateInput("", 10, 10, 100, 20)
$hButton = GUICtrlCreateButton("OK", 10, 35, 100, 20)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $hButton
GUICtrlSetData($hInput, _Crypt(GUICtrlRead($hInput)))
EndSwitch
WEnd
Func _Crypt($sString)
; Ja ich weiß, mit einem 2D-Array und einer For-Next Schleife wäre es 200 mal kürzer. Aber ich wollte es nicht unnötig kompliziert machen.
$sString = StringReplace($sString,"a","$50765&")
$sString = StringReplace($sString,"b","$147447&")
$sString = StringReplace($sString,"c","$472868&")
$sString = StringReplace($sString,"d","$311020&")
$sString = StringReplace($sString,"e","$450806&")
$sString = StringReplace($sString,"f","$254710&")
$sString = StringReplace($sString,"g","$279031&")
$sString = StringReplace($sString,"h","$65555&")
$sString = StringReplace($sString,"i","$65939&")
$sString = StringReplace($sString,"j","$459710&")
$sString = StringReplace($sString,"k","$485879&")
$sString = StringReplace($sString,"l","$54162&")
$sString = StringReplace($sString,"m","$404054&")
$sString = StringReplace($sString,"n","$175431&")
$sString = StringReplace($sString,"o","$124132&")
$sString = StringReplace($sString,"p","$482736&")
$sString = StringReplace($sString,"q","$295972&")
$sString = StringReplace($sString,"r","$71975&")
$sString = StringReplace($sString,"s","$128644&")
$sString = StringReplace($sString,"t","$224984&")
$sString = StringReplace($sString,"u","$448694&")
$sString = StringReplace($sString,"v","$267864&")
$sString = StringReplace($sString,"w","$174224&")
$sString = StringReplace($sString,"x","$293531&")
$sString = StringReplace($sString,"y","$55901&")
$sString = StringReplace($sString,"z","$50028&")
$sString = StringReplace($sString," ","$176767&")
$sString = StringReplace($sString,"A","$112235&")
$sString = StringReplace($sString,"B","$222317&")
$sString = StringReplace($sString,"C","$467908&")
$sString = StringReplace($sString,"D","$208577&")
$sString = StringReplace($sString,"E","$320536&")
$sString = StringReplace($sString,"F","$314906&")
$sString = StringReplace($sString,"G","$429374&")
$sString = StringReplace($sString,"H","$313276&")
$sString = StringReplace($sString,"I","$417985&")
$sString = StringReplace($sString,"J","$469185&")
$sString = StringReplace($sString,"K","$314778&")
$sString = StringReplace($sString,"L","$89812&")
$sString = StringReplace($sString,"M","$497053&")
$sString = StringReplace($sString,"N","$326433&")
$sString = StringReplace($sString,"O","$15248&")
$sString = StringReplace($sString,"P","$256020&")
$sString = StringReplace($sString,"Q","$12367&")
$sString = StringReplace($sString,"R","$497765&")
$sString = StringReplace($sString,"S","$6625&")
$sString = StringReplace($sString,"T","$93807&")
$sString = StringReplace($sString,"U","$246036&")
$sString = StringReplace($sString,"V","$47442&")
$sString = StringReplace($sString,"W","$237122&")
$sString = StringReplace($sString,"X","$263641&")
$sString = StringReplace($sString,"Y","$115352&")
$sString = StringReplace($sString,"Z","$47249&")
$sString = StringReplace($sString,"0","$4435&")
$sString = StringReplace($sString,"1","$346552&")
$sString = StringReplace($sString,"2","$444489&")
$sString = StringReplace($sString,"3","$182044&")
$sString = StringReplace($sString,"4","$211491&")
$sString = StringReplace($sString,"5","$73835&")
$sString = StringReplace($sString,"6","$222954&")
$sString = StringReplace($sString,"7","$127472&")
$sString = StringReplace($sString,"8","$219928&")
$sString = StringReplace($sString,"9","$221144&")
$sString = StringReplace($sString,",","$152487&")
$sString = StringReplace($sString,".","$4967&")
$sString = StringReplace($sString,"/","$408694&")
$sString = StringReplace($sString,"\","$291959&")
$sString = StringReplace($sString,":","$390063&")
$sString = StringReplace($sString,"-","$426713&")
$sString = StringReplace($sString,"_","$332383&")
$sString = StringReplace($sString,"?","$238865&")
$sString = StringReplace($sString,"!","$344814&")
$sString = StringReplace($sString,"#","$420542&")
$sString = StringReplace($sString,"&","$401614&")
$sString = StringReplace($sString,"=","$37433&")
Return _CleanUp($sString)
EndFunc ;==>_Crypt
Func _CleanUp($sString)
Return StringRegExpReplace($sString, "\[(\w+?)\]", "\1")
EndFunc ;==>_CleanUp
...
Jetzt hat das folgenden Fehler:
Ich schreibe 1 in die input, und es wird nicht so wieder zurück gegeben, wie es da steht...
kann mir das mal jemand verraten ?!?