.

2024-01-29 12:42:22 +02:00 · 2024-01-29 12:42:22 +02:00 · e697d8f1f7
commit e697d8f1f7
parent 4e4ca41326
2 changed files with 14 additions and 0 deletions
--- a/ed25519.l
+++ b/ed25519.l
@ -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
--- a/generate.l
+++ b/generate.l
@ -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)
+