Commit 5b777d43 authored by amirouche's avatar amirouche


parent 57b30c27
......@@ -124,10 +124,10 @@
(define-public (verify encoded password pepper)
"Verify that ENCODED is really associated with PASSWORD and PEPPER"
(let ((password* (string->utf8 (string-append password pepper)))
(let ((password* (string->utf8 (string-append password pepper))))
(let ((out (argon2i-verify (bytevector->pointer (string->utf8 encoded))
(bytevector->pointer password*)
(bytevector-length password*))))
(if (zero? out)
(throw 'argon2 (error-message out)))))))
(throw 'argon2 (error-message out))))))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment