.
This commit is contained in:
parent
4e4ca41326
commit
e697d8f1f7
2 changed files with 14 additions and 0 deletions
|
@ -8,6 +8,10 @@
|
|||
(make
|
||||
(while (cut 2 'Lst)
|
||||
(link (hex (pack @))) ) ) )
|
||||
(de L2hex (Lst)
|
||||
(lowc
|
||||
(pack
|
||||
(mapcar '((B) (pad 2 (hex B))) Lst) ) ) )
|
||||
(de steps (E)
|
||||
(flip
|
||||
(make
|
||||
|
|
10
generate.l
Normal file
10
generate.l
Normal file
|
@ -0,0 +1,10 @@
|
|||
(load "ed25519.l")
|
||||
|
||||
(setq SK (range 0 63))
|
||||
(do 1
|
||||
(setq PK (publickey (head 32 SK)))
|
||||
(setq SK (signature SK (head 32 SK) PK)) )
|
||||
(println (L2hex SK))
|
||||
(msg 'ok)
|
||||
(bye)
|
||||
|
Loading…
Reference in a new issue