Substitution cipher: Difference between revisions

(Added Wren)
Line 1,009:
-> Encoded: 2bu]E,KHm].Tdc|]4d\]),8M>]dQuT]<bu]U31C]Idf_]cbd].3Tm>]+ZzL]Ud,IUCk
-> Decoded: The quick brown fox jumps over the lazy dog, who barks VERY loudly!</pre>
 
=={{header|Klingphix}}==
<lang>include ..\Utilitys.tlhy
 
" ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
" VsciBjedgrzyHalvXZKtUPumGfIwJxqOCFRApnDhQWobLkESYMTN"
"A simple example"
 
:Encode %mode >mode
%i %t
<mode not [rot rot swap rot] if
len [
>i
<i get swap >t
rot swap find
rot swap get
<t swap <i set
] for
<mode not [rot rot swap rot] if
;
 
dup ?
true Encode dup ?
false Encode ?
 
" " input</lang>
 
=={{header|Kotlin}}==
672

edits