14 lines
362 B
Clojure
14 lines
362 B
Clojure
(ns beherbergung.auth.password.hash
|
|
(:require [cryptohash-clj.api :refer [hash-with verify-with]]))
|
|
|
|
(defn hash-password [password]
|
|
(let [algo :argon2
|
|
args {}]
|
|
(hash-with algo password args)))
|
|
|
|
(defn verify-password [password pwhash]
|
|
(if (empty? pwhash)
|
|
false
|
|
(let [algo :argon2]
|
|
(verify-with algo password pwhash))))
|