ROT13 Encoding

[Paulie]

This basically just transposes all alphabetic characters in a string up 13 places, as implied by the name ROTation-13.

Its really simple, but still fun.

Enjoy.

MsgBox(0, "HELLO:", ROT13("HELLO:"));Returns "URYYB:"

Func ROT13($String)
    $Letters = StringSplit($String, "")
    Local $Result = ""
    For $a = 1 to $Letters[0]
        $Char = TransChr($Letters[$a])
        $Result&=$Char
    Next
    Return $Result
EndFunc

Func TransChr($Chr)
    If StringRegExp($Chr, "[a-z]") Then
        $Lower = StringSplit("abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz","")
        For $i = 1 to 26
            If $Chr = $Lower[$i] Then 
                Return $Lower[$i+13]
            EndIf
        Next
    ElseIf StringRegExp($Chr, "[A-Z]") Then
        $Upper = StringSplit("ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ","")
        For $i = 1 to 26
            If $Chr = $Upper[$i] Then 
                Return $Upper[$i+13]
            EndIf
        Next
    Else
        SetError(1)
        Return $Chr
    EndIf
EndFunc

Edited August 15, 2007 by Paulie

[WeMartiansAreFriendly]

Good job.

[Bomi]

Goodie I've been looking for something like this

Edited August 16, 2007 by Bomi

[Joke758]

Nice, I made one a while ago.

Func _Rot13( $sWord )
    Local $sOriginal = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
    Local $sNew = "NOPQRSTUVWXYZABCDEFGHIJKLMnopqrstuvwxyzabcdefghijklm"
    Local $sRet
    
    For $i = 1 to StringLen ( $sWord )
        $iPos = StringInStr ( $sOriginal, StringMid ( $sWord, $i, 1 ), 1 )
        If $iPos <> 0 Then
            $sRet = $sRet & StringMid ( $sNew, $iPos, 1 )
        Else
            $sRet = $sRet & StringMid ( $sWord, $i, 1 )
        EndIf
    Next
    
    Return $sRet
EndFunc

A little faster than yours.