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

[P256] define pointMul

Browse Source
This commit is contained in:
Vincent Hanquez 2015-05-03 19:52:00 +01:00
parent 25c303602d
commit ea875e5c88
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/PubKey/ECC/P256.hs
View File

@ -64,6 +64,11 @@ toPoint :: Scalar -> Point
toPoint s = withNewPoint $ \px py -> withScalar s $ \p -> toPoint s = withNewPoint $ \px py -> withScalar s $ \p ->
ccryptonite_p256_basepoint_mul p px py ccryptonite_p256_basepoint_mul p px py
pointMul :: Scalar -> Point -> Point
pointMul scalar p = withNewPoint $ \dx dy ->
withScalar scalar $ \n -> withPoint p $ \px py ->
ccryptonite_p256_point_mul n dx dy px py
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- Scalar methods -- Scalar methods
------------------------------------------------------------------------ ------------------------------------------------------------------------