changed default seed to something sensible
This commit is contained in:
parent
b8f3d9e534
commit
fa1a4ed9a1
|
@ -1,6 +1,6 @@
|
||||||
(import (prefix eliana-module eli:)
|
(import (prefix eliana-module eli:)
|
||||||
(prefix eliana-argparse argp:)
|
(prefix eliana-argparse argp:)
|
||||||
(chicken time))
|
(chicken random))
|
||||||
|
|
||||||
(define DEFAULT-DATA-SET
|
(define DEFAULT-DATA-SET
|
||||||
"abcdefghijkmnopqrstuvwxyzABCDEFGHIJKMNOPQRSTUVWXYZ1234567890")
|
"abcdefghijkmnopqrstuvwxyzABCDEFGHIJKMNOPQRSTUVWXYZ1234567890")
|
||||||
|
@ -55,7 +55,7 @@
|
||||||
(key-container (eli:make-key-container key-length))
|
(key-container (eli:make-key-container key-length))
|
||||||
(prefix (argp:get-argument-value-or-default "-b" #f))
|
(prefix (argp:get-argument-value-or-default "-b" #f))
|
||||||
(postfix (argp:get-argument-value-or-default "-a" #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)))
|
(max-count (argp:get-argument-value-or-default "-c" #f)))
|
||||||
(eli:eliana-initialize! seed)
|
(eli:eliana-initialize! seed)
|
||||||
(let loop ((count 1)
|
(let loop ((count 1)
|
||||||
|
|
Loading…
Reference in New Issue