Revision as of 23:42, 1 November 2011 (view source) 208.80.119.67 (talk) (→‎{{header\|Common Lisp}}) ← Older edit		Revision as of 09:53, 2 November 2011 (view source) 76.21.41.59 (talk) (→‎{{header\|Common Lisp}}) Newer edit →
Line 326: <lang lisp>(require #+sbcl 'sb-md5 #-sbcl 'md5) ~~(defvar +letters+ "0123456789abcdef")~~ (defun octets->letters (octet-vector) (with-output-to-string (stream) (loop for i across octet-vector do (flet ((foo (x) (~~aref +letters+~~digit-char (ldb (byte x (- x 4)) i) 16))) (princ (foo 8) stream) (princ (foo 4) stream)))))

MD5 (view source)