12 lines
326 B
Clojure
12 lines
326 B
Clojure
|
(ns buchdesmonats.hash
|
||
|
|
(:import [java.security MessageDigest]
|
||
|
|
[java.math BigInteger]))
|
||
|
|
|
||
|
|
;;; Stolen from: https://gist.github.com/jizhang/4325757#gistcomment-2633984
|
||
|
|
(defn md5 [^String s]
|
||
|
|
(->> s
|
||
|
|
.getBytes
|
||
|
|
(.digest (MessageDigest/getInstance "MD5"))
|
||
|
|
(BigInteger. 1)
|
||
|
|
(format "%032x")))
|