Change fortuna seed from :random to :urandom.

:random was taking too long to seed.
2014-02-01 09:08:37 -08:00
parent aec0e2a7c1
commit d62bce3299
1 changed files with 1 additions and 1 deletions
--- 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*))