1
0
Fork 0
monocypher-ed25519-1M/generate.l

12 lines
198 B
Plaintext

(load "ed25519.l")
(setq SK (range 0 63))
(for N 1000
(println 'N N)
(setq PK (publickey (head 32 SK)))
(setq SK (signature SK (head 32 SK) PK)) )
(println (L2hex SK))
(msg 'ok)
(bye)