Rosetta Code

Substitution cipher: Difference between revisions

Page Discussion

Substitution cipher (view source)

Revision as of 23:28, 18 September 2021

18 bytes removed ,  2 years ago
→‎{{header|Quackery}}: bug fix
Line 1,579:
=={{header|Quackery}}==
 
<lang Quackery> [ stack ] is encryption ( --> s )
[ stack ] is decryption ( --> s )
 
[ [] 95 times [ i^ join ]
Line 1,588:
witheach
[ i^ unrot poke ]
decryption put ] is makekeys ( --> )
 
[ witheach [char space! + emit ] ] is echokey ( s --> )
[ encryption release
decryption release ] is releasekeys ( --> )
 
[ [] swap witheach
[ dup char ! char ~ 1+
within if
[ spacechar ! -
encryption share
swap peek spacechar ! + ]
join ] ] is encrypt ( $ --> $ )
 
[ [] swap witheach
[ dup char ! char ~ 1+
within if
[ spacechar ! -
decryption share
swap peek spacechar ! + ]
join ] ] is decrypt ( $ --> $ )
 
randomise
Line 1,624:
{{out}}
 
<pre>Encryption key is: Y.t7D0Q> ^K[;s]_O*cn+E<Cb}FmypB&\5Ro:/Xzi9gau6qrdV@-.0EI|8K(6k,lo8SOgjiN_yhewrlZwjh31=BV'#p/{v2+,P$?e{f&MRI'#"P-;sq5x)9d3G@\JU!XTm%[:NTGx?kCb~zavuZWLA<Mt%cHY}UJ7>W`2|1H4]FSA)D^n4?LQ
Decryption key is: ^]\Wk-[Ix'TUAB3CPSO|/;rG72"hQsc@w,eyD(amEqH~i_&V?0v`p?t4nK!.$z%u9fl>XZ8N6MdJ){1+<=#j:RLb*5YFog}
Decryption key is: (gVKOkRJ4^+.7X!M%zxa|\5#:_mY0G'PcvH1$/~b{Ue*uS@<W&T;ifIth sld})Awp2,`DQ=C?>68j-9L[FZ"rqE]BoNy3n
 
Plaintext: Encryption matters, and it is not just for spies and philanderers.
Encrypted: w~@u|aWTz~IY?7DUWM}Y :3WWJuZcHGWWC7>B 3~\GYk TWMW TZM> ~zWY}W mLZWt`>W Uzub}7 ZaTJZ>UMC> 3~\GYk aXT[3~U<McGYkC7C7>\JuJuZ+
Decrypted: Encryption matters, and it is not just for spies and philanderers.</pre>
</pre>
 
=={{header|Racket}}==
GordonCharlton
1,462

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/262190"