12 lines
516 B
Plaintext
12 lines
516 B
Plaintext
SeedRandom[1234];
|
|
a=Characters@"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 ";
|
|
map=Thread[a->RandomSample[a]];
|
|
ClearAll[SubstitutionCipherEncode,SubstitutionCipherDecode]
|
|
SubstitutionCipherEncode[input_String,map_]:=StringReplace[input,map]
|
|
SubstitutionCipherDecode[input_String,map_]:=StringReplace[input,Reverse/@map]
|
|
|
|
str="The quick brown fox jumps over the lazy dog,who barks VERY loudly!";
|
|
encoded=SubstitutionCipherEncode[str,map]
|
|
decoded=SubstitutionCipherDecode[encoded,map]
|
|
str===decoded
|