tjhintz/cl-password
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Change fortuna seed from :random to :urandom.

Browse Source 
:random was taking too long to seed.
This commit is contained in:
Thomas Hintz
2014-02-01 09:08:37 -08:00
parent aec0e2a7c1
commit d62bce3299
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
cl-password.lisp
View File

@@ -1,6 +1,6 @@
(in-package :cl-password) (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)) (defun make-random-salt (&optional (size 16))
(random-data size *prng*)) (random-data size *prng*))