From d62bce329928cba7f246ceb012ebcfdfa6917e59 Mon Sep 17 00:00:00 2001 From: Thomas Hintz Date: Sat, 1 Feb 2014 09:08:37 -0800 Subject: [PATCH] Change fortuna seed from :random to :urandom. :random was taking too long to seed. --- cl-password.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/cl-password.lisp b/cl-password.lisp index 9b4ddc2..6550383 100644 --- a/cl-password.lisp +++ b/cl-password.lisp @@ -1,6 +1,6 @@ (in-package :cl-password) -(defparameter *prng* (make-prng :fortuna :seed :random)) +(defparameter *prng* (make-prng :fortuna :seed :urandom)) (defun make-random-salt (&optional (size 16)) (random-data size *prng*))