Rot-13 Funktion

    Hey Community,

    Aus Langeweile ist diese kleiner Rot13-Funktion entstanden,
    mit der mann es unerwünschten Lesern etwas schwerer machen kann,
    da die Rotation um 13 Zeichen vorgenommen wird.

    Nicht für Private Daten nutzen! ;)

    [autoit]


    $sEncoded = Rot13("Hallo Welt")
    ConsoleWrite($sEncoded & @CRLF)
    $sDecoded = Rot13($sEncoded)
    ConsoleWrite($sDecoded & @CRLF)

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

    Func Rot13($sData = "")
    Local $aSplit = StringSplit($sData, ""), $iJ = 0, $sReturn = ""
    For $iX = 1 To StringLen($sData) Step 1
    $iJ = Asc($aSplit[$iX])
    If ($iJ >= Asc("n") And $iJ <= Asc("z")) Or ($iJ >= Asc("N") And $iJ <= Asc("Z")) Then
    $iJ -= 13
    ElseIf ($iJ >= Asc("a") And $iJ <= Asc("m")) Or ($iJ >= Asc("A") And $iJ <= Asc("M")) Then
    $iJ += 13
    EndIf
    $sReturn &= Chr($iJ)
    Next
    Return $sReturn
    EndFunc

    [/autoit]

    Viel Spaß damit :)
    lg, Blume

    Gut gemacht und sehr inspirierent "Caesars Scheibe" auch genannt.

    Mal ne schön GUI für bau'n. Aber natürlich geht nichts über Enigma Code :)

    Das hast du aus dem Buch C++mit Eclipse programmieren oder? Da kam die Funktion nämlich als Aufgabe vor