From 6cf8506bc7bdcb6b61ef38eee70c2f2e6378cd9e Mon Sep 17 00:00:00 2001 From: BernardoDeLaPlaz Date: Fri, 3 Aug 2018 10:38:38 -0400 Subject: [PATCH] hint secp --- sys/zuse.hoon | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/sys/zuse.hoon b/sys/zuse.hoon index d6e43d4758..35787b3076 100644 --- a/sys/zuse.hoon +++ b/sys/zuse.hoon @@ -4162,21 +4162,26 @@ == :: ++ secp - |= [w=@ p=@ a=@ b=@ g=pont n=@] + ~/ %secp + |= [w=@ p=@ a=@ b=@ g=pont n=@] :: being passed in from above =/ p ~(. fo p) =/ n ~(. fo n) + ~% %helper ..$ ~ |% ++ compress-point - |= pont + ~/ %compress-point + |= pont ^- @ (can 3 ~[w^x 1^(add 0x2 (cut 0 [0 1] y))]) :: ++ serialize-point + ~/ %serialize-point |= pont ^- @ (can 3 ~[w^y w^x 1^0x4]) :: ++ decompress-point + ~/ %decompress-point |= dat=@ ^- pont =+ x=(end 3 w a) @@ -4189,11 +4194,13 @@ !! :: ++ priv-to-pub :: get pub from priv + ~/ %priv-to-pub |= prv=@ ^- pont (jc-mul g prv) :: ++ make-k :: deterministic nonce + ~/ %make-k =, mimes:html |= [has=@uvI prv=@] ^- @ @@ -4207,6 +4214,7 @@ (hmc w^k w^v) :: ++ ecdsa-raw-sign :: generate signature + ~/ %ecdsa-raw-sign |= [has=@uvI prv=@] ^- [v=@ r=@ s=@] =/ z has @@ -4220,6 +4228,7 @@ == :: ++ ecdsa-raw-recover :: get pubkey from sig + ~/ %ecdsa-raw-recover |= [has=@uvI sig=[v=@ r=@ s=@]] ^- pont ?> (lte v.sig 7)