Warum wird & in [] dargestelle?

    hm... nuts

    Allerdings funzt das nich mit dem hier:

    [autoit]


    $sString = StringReplace($sString,"Y","$115352&")

    [/autoit]

    Also, das es zu $asheu z.B. gemacht wird ;(

    Es gibt sehr viele Leute, die glauben. Aber aus Aberglauben.
    - Blaise Pascal

    RegExp ist nicht unbedingt von Vorteil wenn man das so machen will wie Matthias. Ich empfehle das deswegen so:

    Spoiler anzeigen
    [autoit]

    $hGUI = GUICreate("", 120, 60)
    $hInput = GUICtrlCreateInput("", 10, 10, 100, 20)
    $hButton = GUICtrlCreateButton("OK", 10, 35, 100, 20)
    GUISetState()

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case -3
    Exit
    Case $hButton
    GUICtrlSetData($hInput, _Crypt(GUICtrlRead($hInput)))
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    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

    [/autoit]