scrypt password hashing

gistfile1.clj

(ns foo.user
  (:require [clojurewerkz.scrypt.core :as sc]))

(defn calculate-hash [password salt]
  (sc/encrypt (str password salt) 16384 8 1))

(defn verify-hash [hash password salt]
  (sc/verify (str password salt) hash))

(defn verify-user-password [user password]
  (verify-hash (:hashed-password user) password (:salt user)))