tankf33der/monocypher-ed25519-1M
1
0
Fork 0
Code Activity

.

Browse source
This commit is contained in:
Mike 2024-01-29 12:58:11 +02:00
parent 96b0d4edf7
commit de079efad5
2 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
generate.l
View file

@ -1,9 +1,11 @@
(load "ed25519.l")
(setq SK (range 0 63))
(do 10
(do 1
(setq PK (publickey (head 32 SK)))
(println 'PK PK)
(setq SK (signature SK (head 32 SK) PK)) )
(println (L2hex SK))
(msg 'ok)
(bye)

12
monocypher-ed25519.l Normal file
View file

@ -0,0 +1,12 @@
(load "monocypher-pil.l")
(de L2hex (Lst)
(lowc
(pack
(mapcar '((B) (pad 2 (hex B))) Lst) ) ) )
(let (SK (range 0 63) Pair)
(do 1000
(setq Pair (crypto_ed25519_key_pair (head 32 SK)))
(setq SK (crypto_ed25519_sign (car Pair) SK)) )
(println (L2hex SK)) )
(msg 'ok)
(bye)