22 lines
543 B
OpenEdge ABL
22 lines
543 B
OpenEdge ABL
/* Simple encryption, using ROT13 */
|
|
|
|
main()
|
|
{
|
|
printf "Please type the string to mangle: "
|
|
|
|
new str[100]
|
|
getstring str, sizeof str
|
|
rot13 str
|
|
|
|
printf "After mangling, the string is: \"%s\"\n", str
|
|
}
|
|
|
|
rot13(string[])
|
|
{
|
|
for (new index = 0; string[index]; index++)
|
|
if ('a' <= string[index] <= 'z')
|
|
string[index] = (string[index] - 'a' + 13) % 26 + 'a'
|
|
else if ('A' <= string[index] <= 'Z')
|
|
string[index] = (string[index] - 'A' + 13) % 26 + 'A'
|
|
}
|