12 lines
366 B
Plaintext
12 lines
366 B
Plaintext
#import std
|
|
#import nat
|
|
|
|
enc "n" = * -:~&@T ^p(rep"n" ~&zyC,~&)~~K30K31X letters # encryption function
|
|
dec "n" = * -:~&@T ^p(~&,rep"n" ~&zyC)~~K30K31X letters # decryption function
|
|
|
|
plaintext = 'the five boxing wizards jump quickly THE FIVE BOXING WIZARDS JUMP QUICKLY'
|
|
|
|
#show+ # exhaustive test
|
|
|
|
test = ("n". <.enc"n",dec"n"+ enc"n"> plaintext)*= nrange/1 25
|