arisunz
/
eliana
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

changed default seed to something sensible

This commit is contained in:
Ariela Wenner 2020-04-10 19:39:14 -03:00
parent b8f3d9e534
commit fa1a4ed9a1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
eliana.scm
View File

@ -1,6 +1,6 @@
(import (prefix eliana-module eli:)
(prefix eliana-argparse argp:)
(chicken time))
(chicken random))
(define DEFAULT-DATA-SET
"abcdefghijkmnopqrstuvwxyzABCDEFGHIJKMNOPQRSTUVWXYZ1234567890")
@ -55,7 +55,7 @@
(key-container (eli:make-key-container key-length))
(prefix (argp:get-argument-value-or-default "-b" #f))
(postfix (argp:get-argument-value-or-default "-a" #f))
(seed (argp:get-argument-value-or-default "-s" (number->string (current-milliseconds))))
(seed (argp:get-argument-value-or-default "-s" (random-bytes)))
(max-count (argp:get-argument-value-or-default "-c" #f)))
(eli:eliana-initialize! seed)
(let loop ((count 1)