7 lines
180 B
Common Lisp
7 lines
180 B
Common Lisp
(require 'md4)
|
|
(require 'hex-util)
|
|
(let* ((s "Rosetta Code")
|
|
(m (md4 s (length s)))) ;; m = 16 binary bytes
|
|
(encode-hex-string m))
|
|
=>
|
|
"a52bcfc6a0d0d300cdc5ddbfbefe478b"
|