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