hm... nuts
Allerdings funzt das nich mit dem hier:
[autoit]
$sString = StringReplace($sString,"Y","$115352&")
Also, das es zu $asheu z.B. gemacht wird
hm... nuts
Allerdings funzt das nich mit dem hier:
[autoit]
$sString = StringReplace($sString,"Y","$115352&")
Also, das es zu $asheu z.B. gemacht wird
RegExp ist nicht unbedingt von Vorteil wenn man das so machen will wie Matthias. Ich empfehle das deswegen so:
$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)
Local $sRet, $aSplit = StringSplit($sString, "", 3)
Local $aSnR[1000][2] = [ _
["a", "$50765&"],["b", "$147447&"],["c", "$472868&"],["d", "$311020&"],["e", "$450806&"], _
["f", "$254710&"],["g", "$279031&"],["h", "$65555&"],["i", "$65939&"],["j", "$459710&"], _
["k", "$485879&"],["l", "$54162&"],["m", "$404054&"],["n", "$175431&"],["o", "$124132&"], _
["p", "$482736&"],["q", "$295972&"],["r", "$71975&"],["s", "$128644&"],["t", "$224984&"], _
["u", "$448694&"],["v", "$267864&"],["w", "$174224&"],["x", "$293531&"],["y", "$55901&"], _
["z", "$50028&"],[" ", "$176767&"],["A", "$112235&"],["B", "$222317&"],["C", "$467908&"], _
["D", "$208577&"],["E", "$320536&"],["F", "$314906&"],["G", "$429374&"],["H", "$313276&"], _
["I", "$417985&"],["J", "$469185&"],["K", "$314778&"],["L", "$89812&"],["M", "$497053&"], _
["N", "$326433&"],["O", "$15248&"],["P", "$256020&"],["Q", "$12367&"],["R", "$497765&"], _
["S", "$6625&"],["T", "$93807&"],["U", "$246036&"],["V", "$47442&"],["W", "$237122&"], _
["X", "$263641&"],["Y", "$115352&"],["Z", "$47249&"],["0", "$4435&"],["1", "$346552&"], _
["2", "$444489&"],["3", "$182044&"],["4", "$211491&"],["5", "$73835&"],["6", "$222954&"], _
["7", "$127472&"],["8", "$219928&"],["9", "$221144&"],[",", "$152487&"],[".", "$4967&"], _
["/", "$408694&"],["\", "$291959&"],[":", "$390063&"],["-", "$426713&"],["_", "$332383&"], _
["?", "$238865&"],["!", "$344814&"],["#", "$420542&"],["&", "$401614&"],["=", "$37433&"] _
]
For $sElement In $aSplit
For $i = 0 To UBound($aSnR) - 1
If $aSnR[$i][0] == $sElement Then $sRet &= $aSnR[$i][1]
Next
Next
Return $sRet
EndFunc ;==>_Crypt