12 lines
310 B
Text
12 lines
310 B
Text
(load "monocypher-pil.l")
|
|
(de L2hex (Lst)
|
|
(lowc
|
|
(pack
|
|
(mapcar '((B) (pad 2 (hex B))) Lst) ) ) )
|
|
(let (SK (need 64 0) Pair)
|
|
(do 1000000
|
|
(setq Pair (crypto_ed25519_key_pair (head 32 SK)))
|
|
(setq SK (crypto_ed25519_sign (car Pair) SK)) )
|
|
(println (L2hex SK)) )
|
|
(msg 'ok)
|
|
(bye)
|