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

add the binding to get the size by bytes

Browse Source
This commit is contained in:
Vincent Hanquez 2016-12-02 14:59:46 +00:00
parent 422c5fdb09
commit 11e42a256d
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Crypto/ECC/Simple/Types.hs
View File

@ -18,6 +18,7 @@ module Crypto.ECC.Simple.Types
, CurveBinaryParam(..) , CurveBinaryParam(..)
, CurvePrimeParam(..) , CurvePrimeParam(..)
, curveSizeBits , curveSizeBits
, curveSizeBytes
, CurveParameters(..) , CurveParameters(..)
-- * specific curves definition -- * specific curves definition
, SEC_p112r1(..) , SEC_p112r1(..)
@ -70,6 +71,10 @@ curveSizeBits proxy =
CurvePrime (CurvePrimeParam p) -> numBits p CurvePrime (CurvePrimeParam p) -> numBits p
CurveBinary (CurveBinaryParam c) -> numBits c - 1 CurveBinary (CurveBinaryParam c) -> numBits c - 1
-- | get the size of the curve in bytes
curveSizeBytes :: Curve curve => proxy curve -> Int
curveSizeBytes proxy = (curveSizeBits proxy + 7) `div` 8
-- | Define common parameters in a curve definition -- | Define common parameters in a curve definition
-- of the form: y^2 = x^3 + ax + b. -- of the form: y^2 = x^3 + ax + b.
data CurveParameters curve = CurveParameters data CurveParameters curve = CurveParameters