Autoit ROT13 Instant Translation

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.14.2
 Author:         Christoph

 Script Function:
    Instant encrytion of typed text with ROT13 chiffre.

#ce ----------------------------------------------------------------------------

install("keyPressed")
OnAutoItExitRegister("onExit")

While True
    Sleep(1000)
WEnd

Func keyPressed()
    $c = Asc(StringLower(@HotKeyPressed)) + 13
    If $c > (Asc("z")) Then $c -= (Asc("z") - Asc("a") + 1)
    $c = Chr($c)
    If (Asc(@HotKeyPressed) <= Asc("Z")) Then $c = StringUpper($c)
    HotKeySet($c)
    Send($c)
    HotKeySet($c, "keyPressed")
EndFunc   ;==>keyPressed

Func install($sFunction = "")
    For $i = Asc("a") To Asc("z")
        HotKeySet(Chr($i), $sFunction)
    Next
    For $i = Asc("A") To Asc("Z")
        HotKeySet(Chr($i), $sFunction)
    Next
EndFunc   ;==>install

Func onExit()
    install()
EndFunc   ;==>onExit