Vigenère cipher: Difference between revisions
→Alternate version
Cyril Nocton (talk | contribs) m (→Variant) |
Cyril Nocton (talk | contribs) |
||
Line 957:
(string-upcase (remove-if-not 'alpha-char-p s)))
(defun vigenere (txt key &key
(let ((txt (strip txt)) (key (strip key)) (i -1))
(map 'string
(lambda (c)
(setf i (mod (1+ i) (length key)))
(char +a+ (mod (+ (position c +a+) (*
txt)))</lang>
Line 968:
<pre>(vigenere "« Through the Looking-Glass »" "Lewis Carroll")
(vigenere "ELNWMIHKYSWZZOEVYILRJG" "Lewis Carroll" :
{{out}}
<pre>
| |||