11 lines
198 B
Text
11 lines
198 B
Text
(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)
|
|
|