MD5: Difference between revisions

Content added Content deleted
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)))))
Retrieved from "https://rosettacode.org/wiki/MD5"