Func Rot13($input)
 
Local $c, $roted, $char, $asciiN
 
$roted = ""
For $c = 1 to StringLen($input)
   $char = String(StringMid($input,$c,1))
   $asciiN = Asc($char)
   Select
      Case (65 <= $asciiN AND $asciiN <= 90)
         If $asciiN <= 77 Then
            $asciiN = $asciiN + 13
         Else
            $asciiN = $asciiN - 13
         EndIf         
      Case (97 <= $asciiN AND $asciiN <= 122)
         If $asciiN <= 109 Then
            $asciiN = $asciiN + 13
         Else
            $asciiN = $asciiN - 13
         EndIf
      Case (48 <= $asciiN AND $asciiN <= 57)
         If $asciiN <= 52 Then
            $asciiN = $asciiN + 5
         Else
            $asciiN = $asciiN - 5
         EndIf
   EndSelect
   $roted = $roted & Chr($asciiN)
Next
 
Return $roted
EndFunc