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

Benchmark showing pointAddTwoMuls speed increase

Browse Source
This commit is contained in:
Olivier Chéron 2016-08-27 08:55:08 +02:00
parent 43233cb911
commit 114116f087
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
benchs/Bench.hs
View File

@ -16,6 +16,9 @@ import qualified "cryptonite" Crypto.Cipher.ChaChaPoly1305 as CP
import "cryptonite" Crypto.Hash (SHA512(..)) import "cryptonite" Crypto.Hash (SHA512(..))
import qualified "cryptonite" Crypto.KDF.PBKDF2 as PBKDF2 import qualified "cryptonite" Crypto.KDF.PBKDF2 as PBKDF2
import qualified "cryptonite" Crypto.PubKey.ECC.Types as ECC
import qualified "cryptonite" Crypto.PubKey.ECC.Prim as ECC
import Data.ByteArray (ByteArray, Bytes) import Data.ByteArray (ByteArray, Bytes)
import qualified Data.ByteString as B import qualified Data.ByteString as B
@ -103,9 +106,27 @@ benchAE =
key32 = B.replicate 32 0 key32 = B.replicate 32 0
benchECC =
[ bench "pointAddTwoMuls-baseline" $ nf run_b (n1, p1, n2, p2)
, bench "pointAddTwoMuls-optimized" $ nf run_o (n1, p1, n2, p2)
]
where run_b (n, p, k, q) = ECC.pointAdd c (ECC.pointMul c n p)
(ECC.pointMul c k q)
run_o (n, p, k, q) = ECC.pointAddTwoMuls c n p k q
c = ECC.getCurveByName ECC.SEC_p256r1
r1 = 7
r2 = 11
p1 = ECC.pointBaseMul c r1
p2 = ECC.pointBaseMul c r2
n1 = 0x2ba9daf2363b2819e69b34a39cf496c2458a9b2a21505ea9e7b7cbca42dc7435
n2 = 0xf054a7f60d10b8c2cf847ee90e9e029f8b0e971b09ca5f55c4d49921a11fadc1
main = defaultMain main = defaultMain
[ bgroup "hash" benchHash [ bgroup "hash" benchHash
, bgroup "block-cipher" benchBlockCipher , bgroup "block-cipher" benchBlockCipher
, bgroup "AE" benchAE , bgroup "AE" benchAE
, bgroup "pbkdf2" benchPBKDF2 , bgroup "pbkdf2" benchPBKDF2
, bgroup "ECC" benchECC
] ]