racket/collects/handin-server/private/md5.ss
2006-11-12 10:38:59 +00:00

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))