zuse: signatures were backwards

This commit is contained in:
Jōshin 2021-12-29 23:58:31 +00:00
parent 09294d79bc
commit 57ef17fc91
No known key found for this signature in database
GPG Key ID: A8BE5A9A521639D0

View File

@ -2304,8 +2304,9 @@
[1 (flip 32 m)]
==
=/ sig
%^ cat 8 x.rr
(mod (add k (mul e d)) n.domain.c)
%^ cat 8
(mod (add k (mul e d)) n.domain.c)
x.rr
?> (verify x.pp m sig)
sig
::
@ -2318,10 +2319,10 @@
?~ ppx
%.n
=/ pp u.ppx
=/ r (cut 8 [0 1] sig)
=/ r (cut 8 [1 1] sig)
?: (gte r p.domain.c)
%.n
=/ s (cut 8 [1 1] sig)
=/ s (cut 8 [0 1] sig)
?: (gte s n.domain.c)
%.n
=/ e