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

Normalize result of ECC.pointNegate

Browse Source
This commit is contained in:
Olivier Chéron 2017-11-10 13:11:06 +01:00
parent 4f7d742461
commit b8b59be5a5
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Crypto/ECC/Simple/Prim.hs
View File

@ -49,7 +49,7 @@ pointNegate :: Curve curve => Point curve -> Point curve
pointNegate PointO = PointO pointNegate PointO = PointO
pointNegate point@(Point x y) = pointNegate point@(Point x y) =
case curveType point of case curveType point of
CurvePrime {} -> Point x (-y) CurvePrime (CurvePrimeParam p) -> Point x (p - y)
CurveBinary {} -> Point x (x `addF2m` y) CurveBinary {} -> Point x (x `addF2m` y)
-- | Elliptic Curve point addition. -- | Elliptic Curve point addition.

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

@ -31,9 +31,9 @@ scalarGenerate curve = generateBetween 1 (n - 1)
-- | Elliptic Curve point negation: -- | Elliptic Curve point negation:
-- @pointNegate c p@ returns point @q@ such that @pointAdd c p q == PointO@. -- @pointNegate c p@ returns point @q@ such that @pointAdd c p q == PointO@.
pointNegate :: Curve -> Point -> Point pointNegate :: Curve -> Point -> Point
pointNegate _ PointO = PointO pointNegate _ PointO = PointO
pointNegate CurveFP{} (Point x y) = Point x (-y) pointNegate (CurveFP c) (Point x y) = Point x (ecc_p c - y)
pointNegate CurveF2m{} (Point x y) = Point x (x `addF2m` y) pointNegate CurveF2m{} (Point x y) = Point x (x `addF2m` y)
-- | Elliptic Curve point addition. -- | Elliptic Curve point addition.
-- --