Skip to content

Instantly share code, notes, and snippets.

@ngsw-taro

ngsw-taro/gist:6365287

Created August 28, 2013 12:07
Show Gist options
  • Save ngsw-taro/6365287 to your computer and use it in GitHub Desktop.
Save ngsw-taro/6365287 to your computer and use it in GitHub Desktop.
Download ZIP
ClojureでSlideshareのAPIを叩く。まずはSHA-1求める関数を作る
Raw
gistfile1.clj
(import 'java.security.MessageDigest)
(defn sha1 [s]
(let [md (MessageDigest/getInstance "SHA-1")]
(do
(. md update (. s getBytes))
(apply str (map #(format "%02x" %) (. md digest))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment