hecc-0.3.3: src/bench.hs

-----------------------------------------------------------------------------
-- |
-- Module      :  
-- Copyright   :  (c) Marcel Fourné 2009
-- License     :  BSD3
-- Maintainer  :  Marcel Fourné (hecc@bitrot.dyndns.org
--
-- benchmarking playground, not production quality
--
-----------------------------------------------------------------------------
import Codec.Crypto.ECC.Base
-- import Data.Array.Repa
-- import Examples
-- import Codec.Crypto.ECC.StandardCurves
-- import Control.Monad.Random
-- import Char

testfkt:: (ECP a) => a -> Integer -> Int -> a
testfkt b k' n  = pmul b ((toInteger (n-n)) + k')

main = do
{-
    let p = p256point::EPp
--        k' = 78260987815077071890976764339238653408132491773166348437934213365482899760747
--        k' = 2^254+2^253+2^252+2^251+2^250+2^249
--        k' = 2^254+2^200+2^150+2^100+2^50+1
    k' <- evalRandIO $ getRandomR (1,stdc_p p256)
    defaultMain [
            bench "NIST P-256" $ whnf (testfkt p k') 10
           ]
---}
{-
    let c = EC (stdc_a p521, stdc_b p521,stdc_p p521)
        k' = 1093849038073734274511112390766805569936207598951683748994586394495953116150735016013708737573759623248592132296706313309438452531591012912142327488478985984
    in defaultMain [
            bench "NIST P-521" $ whnf (testfkt (EPp (stdc_xp p521,stdc_yp p521,1)) k' c) 10
           ]
---}
-- {-
    let p = b283point::EPaF2
--        k' = 115792089210356248762697446949407573529996955224135760342422259061068512044368
--        k' = 2
--        k' = 3
        k' = 2^20
--    print p
--    print (pdoubleF2 p)
--    print $ modinvF2 (f2eFromInteger 4) (f2eFromInteger 7)
    print $ pmulF2 p k'
--    print $ isonF2 p
---}
{-
    let p = 6277101735386680763835789423207666416083908700390324961279
        a = 6277101735386680763835789423207666416083908700390324961276
        b = 2455155546008943817740293915197451784769108058161191238065
        c = EC (a,b,p)
        x = 602046282375688656758213480587526111916698976636884684818
        y = 174050332293622031404857552280219410364023488927386650641
        alpha = EPa (x,y)
        kprivA = 5114103500503308041454439524093827019673558354999860770782
        kprivB = 1748161650263518407976227277807126651450677841379957675747
    in defaultMain [
            bench "ecdh" $ print [ (x,y)|x <-[1], y <- [(ecdh c alpha kprivA kprivB)]]
           ]
---}