diff --git a/monocypher-ed25519.l b/monocypher-ed25519.l index f04f4a3..8fcb08b 100644 --- a/monocypher-ed25519.l +++ b/monocypher-ed25519.l @@ -4,7 +4,7 @@ (pack (mapcar '((B) (pad 2 (hex B))) Lst) ) ) ) (let (SK (range 0 63) Pair) - (do 1000 + (do 1000000 (setq Pair (crypto_ed25519_key_pair (head 32 SK))) (setq SK (crypto_ed25519_sign (car Pair) SK)) ) (println (L2hex SK)) )