Skip to content

Instantly share code, notes, and snippets.

@prasincs
Created February 15, 2011 08:36
Show Gist options
  • Save prasincs/827272 to your computer and use it in GitHub Desktop.
Save prasincs/827272 to your computer and use it in GitHub Desktop.
clojure sha1 hash
(defn get-hash [type data]
(.digest (java.security.MessageDigest/getInstance type) (.getBytes data) ))
(defn sha1-hash [data]
(get-hash "sha1" data))
(defn get-hash-str [data-bytes]
(apply str
(map
#(.substring
(Integer/toString
(+ (bit-and % 0xff) 0x100) 16) 1)
data-bytes)
))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment