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

Add pointNegate to class EllipticCurveArith

Browse Source
This commit is contained in:
Olivier Chéron 2017-11-10 15:00:09 +01:00
parent 8d7e0d236c
commit 8567bacc2e
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Crypto/ECC.hs
View File

@ -103,6 +103,9 @@ class EllipticCurve curve => EllipticCurveArith curve where
-- | Add points on a curve -- | Add points on a curve
pointAdd :: proxy curve -> Point curve -> Point curve -> Point curve pointAdd :: proxy curve -> Point curve -> Point curve -> Point curve
-- | Negate a curve point
pointNegate :: proxy curve -> Point curve -> Point curve
-- | Scalar Multiplication on a curve -- | Scalar Multiplication on a curve
pointSmul :: proxy curve -> Scalar curve -> Point curve -> Point curve pointSmul :: proxy curve -> Scalar curve -> Point curve -> Point curve
@ -139,6 +142,7 @@ instance EllipticCurve Curve_P256R1 where
instance EllipticCurveArith Curve_P256R1 where instance EllipticCurveArith Curve_P256R1 where
pointAdd _ a b = P256.pointAdd a b pointAdd _ a b = P256.pointAdd a b
pointNegate _ p = P256.pointNegate p
pointSmul _ s p = P256.pointMul s p pointSmul _ s p = P256.pointMul s p
instance EllipticCurveDH Curve_P256R1 where instance EllipticCurveDH Curve_P256R1 where
@ -160,6 +164,7 @@ instance EllipticCurve Curve_P384R1 where
instance EllipticCurveArith Curve_P384R1 where instance EllipticCurveArith Curve_P384R1 where
pointAdd _ a b = Simple.pointAdd a b pointAdd _ a b = Simple.pointAdd a b
pointNegate _ p = Simple.pointNegate p
pointSmul _ s p = Simple.pointMul s p pointSmul _ s p = Simple.pointMul s p
instance EllipticCurveDH Curve_P384R1 where instance EllipticCurveDH Curve_P384R1 where
@ -182,6 +187,7 @@ instance EllipticCurve Curve_P521R1 where
instance EllipticCurveArith Curve_P521R1 where instance EllipticCurveArith Curve_P521R1 where
pointAdd _ a b = Simple.pointAdd a b pointAdd _ a b = Simple.pointAdd a b
pointNegate _ p = Simple.pointNegate p
pointSmul _ s p = Simple.pointMul s p pointSmul _ s p = Simple.pointMul s p
instance EllipticCurveDH Curve_P521R1 where instance EllipticCurveDH Curve_P521R1 where
@ -242,6 +248,7 @@ instance EllipticCurve Curve_Ed25519 where
instance EllipticCurveArith Curve_Ed25519 where instance EllipticCurveArith Curve_Ed25519 where
pointAdd _ a b = Ed25519.pointAdd a b pointAdd _ a b = Ed25519.pointAdd a b
pointNegate _ p = Ed25519.pointNegate p
pointSmul _ s p = Ed25519.pointMul s p pointSmul _ s p = Ed25519.pointMul s p
checkNonZeroDH :: SharedSecret -> CryptoFailable SharedSecret checkNonZeroDH :: SharedSecret -> CryptoFailable SharedSecret

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

@ -6,6 +6,7 @@ module Crypto.ECC.Simple.Prim
( scalarGenerate ( scalarGenerate
, scalarFromInteger , scalarFromInteger
, pointAdd , pointAdd
, pointNegate
, pointDouble , pointDouble
, pointBaseMul , pointBaseMul
, pointMul , pointMul