Change fortuna seed from :random to :urandom.

:random was taking too long to seed.
11 years ago · d62bce3299
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*))