Make ++ecdsa-raw-recover accept unmodified signature

Continuation of b2365dbd4
This commit is contained in:
Fang 2018-09-04 18:08:00 +02:00
parent 96e5dd4600
commit b7681cf73c

View File

@ -4209,7 +4209,7 @@
++ ecdsa-raw-recover :: get pubkey from sig
|= [has=@uvI sig=[v=@ r=@ s=@]]
^- pont
?> ?&((lte 27 v.sig) (lte v.sig 34))
?> (lte v.sig 7)
=/ x r.sig
=/ ysq (sum.p b (exp.p 3 x)) :: omits A=0
=/ bet (exp.p (div +(^p) 4) ysq)