分享：用四十种语言分别写一个MD5算法之4 Common Lisp语言MD5算法

最新推荐文章于 2026-06-28 22:17:23 发布

原创最新推荐文章于 2026-06-28 22:17:23 发布 · 856 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#算法 #语言 #lisp #stream #string

#byte

收录于

本文介绍如何在Common Lisp中实现MD5算法，通过`sb-md5`库或`md5`库进行MD5消息摘要，将字符串转化为16进制表示。

分享：用四十种语言分别写一个MD5算法之4 Common Lisp语言MD5算法

(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+ (ldb (byte x (- x 4)) i))))
               (princ (foo 8) stream)
               (princ (foo 4) stream)))))

(defun md5 (string)
(octets->letters #+sbcl (sb-md5:md5sum-string string)
                   #-sbcl (with-input-from-string (stream string)
                            (md5:md5sum-stream stream))))</pre>

CL-USER> (md5 "foo")