acw/cryptonum
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add some property testing, and fix a bug it found.

Browse Source
This commit is contained in:
Adam Wick
2018-11-06 21:53:47 -08:00
parent ccde640f99
commit de5ff87f9e
6 changed files with 75 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
generate.hs
View File

@@ -135,7 +135,7 @@ needs = [ Need RSA (\ size -> [Req (size `div` 2) Sub,
Req (size + 64) SignedAdd,
Req (size + 64) SignedSub,
Req (size + 64) SignedCmp
])
])
, Need ModInv (\ size -> [Req size BaseOps,
Req (size + 64) SignedBase,
Req (size + 64) BaseOps,
@@ -143,7 +143,7 @@ needs = [ Need RSA (\ size -> [Req (size `div` 2) Sub,
Req size EGCD,
Req (size + 64) SignedAdd,
Req size Barretts
])
])
]
-- needs = [ Need ModExp (\ size -> [Req size ModMul
-- ,Req size ModSq
@@ -219,6 +219,9 @@ rsaSizes = [512,1024,2048,3072,4096,8192,15360]
baseRequirements :: [Requirement]
baseRequirements = concatMap (\ x -> [Req x RSA]) rsaSizes
++ [Req 192 Add, Req 256 Add, Req 384 Add] -- used for testing
++ [Req 192 Mul, Req 384 Mul] -- used for testing
++ [Req 448 (Convert 512)] -- used for testing
requirements :: [Requirement]
requirements = go baseRequirements