haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use mod after add/sub

Browse Source
This commit is contained in:
Vincent Hanquez 2015-05-03 20:15:26 +01:00
parent 1f30911e1c
commit ad34f0e1e8
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Crypto/PubKey/ECC/P256.hs
View File

@ -78,13 +78,15 @@ scalarZero = withNewScalarFreeze $ \d -> ccryptonite_p256_init d
scalarAdd :: Scalar -> Scalar -> Scalar scalarAdd :: Scalar -> Scalar -> Scalar
scalarAdd a b = scalarAdd a b =
withNewScalarFreeze $ \d -> withScalar a $ \pa -> withScalar b $ \pb -> withNewScalarFreeze $ \d -> withScalar a $ \pa -> withScalar b $ \pb -> do
void $ ccryptonite_p256_add pa pb d void $ ccryptonite_p256_add pa pb d
ccryptonite_p256_mod ccryptonite_SECP256r1_n d d
scalarSub :: Scalar -> Scalar -> Scalar scalarSub :: Scalar -> Scalar -> Scalar
scalarSub a b = scalarSub a b =
withNewScalarFreeze $ \d -> withScalar a $ \pa -> withScalar b $ \pb -> withNewScalarFreeze $ \d -> withScalar a $ \pa -> withScalar b $ \pb -> do
void $ ccryptonite_p256_sub pa pb d void $ ccryptonite_p256_sub pa pb d
ccryptonite_p256_mod ccryptonite_SECP256r1_n d d
scalarCmp :: Scalar -> Scalar -> Ordering scalarCmp :: Scalar -> Scalar -> Ordering
scalarCmp a b = unsafeDoIO $ scalarCmp a b = unsafeDoIO $