Vigenère cipher: Difference between revisions
m
→Variant
Cyril Nocton (talk | contribs) m (→Main solution) |
Cyril Nocton (talk | contribs) m (→Variant) |
||
Line 947:
dec: BEWARETHEJABBERWOCKTHEJAWSTHATTHECLAWSTHATCATCH</pre>
====
No string to circular list conversion.
Line 957:
(string-upcase (remove-if-not 'alpha-char-p s)))
(defun vigenere (
(let ((
(map 'string
(lambda (c)
(setf i (mod (1+ i) (length key)))
(char +a+ (mod (+ (position c +a+) (* d (position (elt key i) +a+))) 26)))
2. Execution
|