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)
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
Viel Spaß damit
lg, Blume