zuse: boundary assertions for schnorr

Just assert on mis-sized values.
This commit is contained in:
Jōshin 2022-01-09 05:31:36 +00:00
parent 4591fa272e
commit 71c59737d8
No known key found for this signature in database
GPG Key ID: A8BE5A9A521639D0

View File

@ -2264,6 +2264,9 @@
~/ %sosi
|= [sk=@I m=@I a=@I]
^- @J
?> (gte 32 (met 3 sk))
?> (gte 32 (met 3 m))
?> (gte 32 (met 3 a))
=/ c curve
?< |(=(0 sk) (gte sk n.domain.c))
=/ pp
@ -2302,6 +2305,9 @@
~/ %sove
|= [pk=@I m=@I sig=@J]
^- ?
?> (gte 32 (met 3 pk))
?> (gte 32 (met 3 m))
?> (gte 64 (met 3 sig))
=/ c curve
=/ pup (lift-x pk)
?~ pup