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

fixing P256 endian.

Browse Source
This commit is contained in:
Kazu Yamamoto 2016-12-05 13:34:54 +09:00
parent 1ba4871032
commit 9845734b2b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Crypto/PubKey/ECC/P256.hs
View File

@ -49,7 +49,7 @@ import Crypto.Internal.Compat
import Crypto.Internal.Imports import Crypto.Internal.Imports
import Crypto.Internal.ByteArray import Crypto.Internal.ByteArray
import qualified Crypto.Internal.ByteArray as B import qualified Crypto.Internal.ByteArray as B
import Data.Memory.PtrMethods (memSet, memCopy) import Data.Memory.PtrMethods (memSet)
import Crypto.Error import Crypto.Error
import Crypto.Random import Crypto.Random
import Crypto.Number.Serialize.Internal (os2ip, i2ospOf) import Crypto.Number.Serialize.Internal (os2ip, i2ospOf)
@ -119,7 +119,7 @@ pointDh scalar p =
B.unsafeCreate scalarSize $ \dst -> withTempPoint $ \dx dy -> do B.unsafeCreate scalarSize $ \dst -> withTempPoint $ \dx dy -> do
withScalar scalar $ \n -> withPoint p $ \px py -> withScalarZero $ \nzero -> withScalar scalar $ \n -> withPoint p $ \px py -> withScalarZero $ \nzero ->
ccryptonite_p256_points_mul_vartime nzero n px py dx dy ccryptonite_p256_points_mul_vartime nzero n px py dx dy
memCopy dst (castPtr dx) scalarSize ccryptonite_p256_to_bin (castPtr dx) dst
-- | multiply the point @p with @n2 and add a lifted to curve value @n1 -- | multiply the point @p with @n2 and add a lifted to curve value @n1
-- --