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

.

Browse source
This commit is contained in:
Mike 2024-01-29 14:59:50 +02:00
parent 903a1baaf5
commit 780eed607b
2 changed files with 8 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
monocypher-ed25519.l
View file

@ -4,7 +4,7 @@
(pack
(mapcar '((B) (pad 2 (hex B))) Lst) ) ) )
(let (SK (range 0 63) Pair)
(do 1
(do 1000000
(setq Pair (crypto_ed25519_key_pair (head 32 SK)))
(setq SK (crypto_ed25519_sign (car Pair) SK)) )
(println (L2hex SK)) )

24
sodium-ed25519.l
View file

@ -2,7 +2,7 @@
(lowc
(pack
(mapcar '((B) (pad 2 (hex B))) Lst) ) ) )
(de soda_detached (D Size Prv)
(de soda_detached (Data Pair)
(let Sign NIL
(native
"libsodium.so"
@ -10,9 +10,9 @@
NIL
'(Sign (64 B . 64))
0
D
Size
(cons NIL (64) Prv) )
(cons NIL (64) Data)
64
(cons NIL (64) Pair) )
Sign ) )
(de soda_seed_keypair (Seed)
(let (SK NIL PK NIL)
@ -29,20 +29,10 @@
(soda_start)
(let (SK (range 0 63) Pair)
(do 1
(do 1000000
(setq Pair (soda_seed_keypair (head 32 SK)))
(println Pair)
(msg "next")
(setq SK (soda_detached (range 1 64) 64 (list (range 1 64) (range 1 64))))
(msg "ok?")
)
(println (L2hex SK))
)
(setq SK (soda_detached SK (cadr Pair))) )
(println (L2hex SK)) )
(msg 'ok)
(bye)