$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","123")
$sString = _StringReplace($sString, "b", "y")
$sString = _StringReplace($sString, "c", "x")
$sString = _StringReplace($sString, "d", "w")
$sString = _StringReplace($sString, "e", "v")
$sString = _StringReplace($sString, "f", "u")
$sString = _StringReplace($sString, "g", "t")
$sString = _StringReplace($sString, "h", "s")
$sString = _StringReplace($sString, "i", "r")
$sString = _StringReplace($sString, "j", "q")
$sString = _StringReplace($sString, "k", "p")
$sString = _StringReplace($sString, "l", "o")
$sString = _StringReplace($sString, "m", "n")
$sString = _StringReplace($sString, "n", "m")
$sString = _StringReplace($sString, "o", "l")
$sString = _StringReplace($sString, "p", "k")
$sString = _StringReplace($sString, "q", "j")
$sString = _StringReplace($sString, "r", "i")
$sString = _StringReplace($sString, "s", "h")
$sString = _StringReplace($sString, "t", "g")
$sString = _StringReplace($sString, "u", "f")
$sString = _StringReplace($sString, "v", "e")
$sString = _StringReplace($sString, "w", "d")
$sString = _StringReplace($sString, "x", "c")
$sString = _StringReplace($sString, "y", "b")
$sString = _StringReplace($sString, "z", "a")
$sString = _StringReplace($sString, "&", "&")
Return _CleanUp($sString)
EndFunc ;==>_Crypt
Func _StringReplace($sString, $sSearch, $sReplace)
Return StringRegExpReplace($sString, "(?<!\[)" & $sSearch & "(?!\])", "[" & $sReplace & "]")
EndFunc ;==>_StringReplace
Func _CleanUp($sString)
Return StringRegExpReplace($sString, "\[(\w+?)\]", "\1")
EndFunc ;==>_CleanUp
Warum wird & in etwa so dargestellt:
[&], wie behebe ich das?