Clojureのパスワード問い合わせシステムを高速化する

Feb 11, 2014 パスワード問合せシステムを作る (clojureのreducers) こんな記事が話題になって、その後、徳丸先生がこんな記事を書きました。 数字6桁パスワードのハッシュ値の総当たり、PHPなら約0.25秒で終わるよ さすがに遅いだろうと僕も思ったので高速化しました。 まず、もとのclojureのコードを再掲。 (ns six-length.core (:require [clojure.core.reducers :as r]) (:import [java.security MessageDigest])) (defn hexdigest [s] (let [digester (MessageDigest/getInstance "MD5")] (. digester update (.getBytes s)) (apply str (map #(format

[gnety]

(defn find-password [salt pw] (let [pw (DatatypeConverter/parseHexBinary pw) digester (MessageDigest/getInstance "MD5")] (->> (range 1000000) (map #(pad 6 %)) (filter #(Arrays/equals pw (. digester digest (.getBytes (str salt "$" %) "ASCII")))))))