RosettaCodeData/Task/Caesar-cipher/AutoHotkey/caesar-cipher-2.ahk

14 lines
429 B
AutoHotkey
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
Caesar(string, n){
2026-02-01 16:33:20 -08:00
Loop Parse, string
{
If (Asc(A_LoopField) >= Asc("A") and Asc(A_LoopField) <= Asc("Z"))
out .= Chr(Mod(Asc(A_LoopField)-Asc("A")+n,26)+Asc("A"))
Else If (Asc(A_LoopField) >= Asc("a") and Asc(A_LoopField) <= Asc("z"))
out .= Chr(Mod(Asc(A_LoopField)-Asc("a")+n,26)+Asc("a"))
Else out .= A_LoopField
}
return out
2023-07-01 11:58:00 -04:00
}
MsgBox % Caesar("h i", 2) "`n" Caesar("Hi", 20)