6 lines
158 B
Scheme
6 lines
158 B
Scheme
(module md5 mzscheme
|
|
(require (prefix mz: (lib "md5.ss")))
|
|
(define (md5 s)
|
|
(bytes->string/latin-1 (mz:md5 (string->bytes/utf-8 s))))
|
|
(provide md5))
|