2017-10-22 19:45:15 +02:00
|
|
|
ROT13 ("rotate by 13 places", sometimes hyphenated ROT-13) is a simple
|
|
|
|
|
letter substitution cipher that replaces a letter with the letter 13
|
|
|
|
|
letters after it in the alphabet. ROT13 is a special case of the Caesar
|
|
|
|
|
cipher, developed in ancient Rome.
|
|
|
|
|
|
|
|
|
|
Because there are 26 letters (21^3) in the basic Latin alphabet, ROT13
|
|
|
|
|
is its own inverse; that is, to undo ROT13, the same algorithm is
|
|
|
|
|
applied, so the same action can be used for encoding and decoding. The
|
|
|
|
|
algorithm provides virtually no cryptographic security, and is often
|
|
|
|
|
cited as a canonical example of weak encryption.
|
|
|
|
|
|
|
|
|
|
(Taken from https://en.m.wikipedia.org/wiki/ROT13)
|
|
|
|
|
|
|
|
|
|
This is an implementation of ROT13 in RETRO.
|
|
|
|
|
|
2017-10-20 05:41:10 +02:00
|
|
|
~~~
|
2017-10-22 19:45:15 +02:00
|
|
|
'nopqrstuvwxyzabcdefghijklm 'MAP s:const
|
2017-10-20 05:41:10 +02:00
|
|
|
:encode (c-c) $a - MAP + fetch ;
|
|
|
|
|
:rot13 (s-s) s:to-lower [ dup c:letter? [ encode ] if ] s:map ;
|
|
|
|
|
~~~
|
