Fix ECDH when scalar and coordinate bit sizes differ

2016-08-28 16:38:04 +02:00 · 2016-08-28 16:38:04 +02:00 · 5854b092a8
commit 5854b092a8
parent 8908af3216
1 changed files with 2 additions and 1 deletions
--- a/Crypto/PubKey/ECC/Types.hs
+++ b/Crypto/PubKey/ECC/Types.hs
@ -164,7 +164,8 @@ curvesOIDs =

 -- | get the size of the curve in bits
 curveSizeBits :: Curve -> Int
-curveSizeBits = numBits . ecc_n . common_curve
+curveSizeBits (CurveFP  c) = numBits (ecc_p  c)
+curveSizeBits (CurveF2m c) = numBits (ecc_fx c) - 1

 -- | Get the curve definition associated with a recommended known curve name.
 getCurveByName :: CurveName -> Curve