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

Merge pull request #42 from Rufflewind/master

Browse Source 
Document the arguments for DH.generateParams
This commit is contained in:
Vincent Hanquez 2015-11-18 21:51:53 +00:00
commit 2785a50228
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Crypto/Number/Serialize.hs
View File

@ -33,8 +33,8 @@ i2osp m = B.allocAndFreeze sz (\p -> Internal.i2osp m p sz >> return ())
!sz = numBytes m !sz = numBytes m
-- | just like i2osp, but take an extra parameter for size. -- | just like i2osp, but take an extra parameter for size.
-- if the number is too big to fit in @len bytes, nothing is returned -- if the number is too big to fit in @len@ bytes, 'Nothing' is returned
-- otherwise the number is padded with 0 to fit the @len required. -- otherwise the number is padded with 0 to fit the @len@ required.
i2ospOf :: B.ByteArray ba => Int -> Integer -> Maybe ba i2ospOf :: B.ByteArray ba => Int -> Integer -> Maybe ba
i2ospOf len m i2ospOf len m
| len <= 0 = Nothing | len <= 0 = Nothing

5
Crypto/PubKey/DH.hs
View File

@ -46,7 +46,10 @@ newtype SharedKey = SharedKey Integer
-- | generate params from a specific generator (2 or 5 are common values) -- | generate params from a specific generator (2 or 5 are common values)
-- we generate a safe prime (a prime number of the form 2p+1 where p is also prime) -- we generate a safe prime (a prime number of the form 2p+1 where p is also prime)
generateParams :: MonadRandom m => Int -> Integer -> m Params generateParams :: MonadRandom m =>
Int -- ^ number of bits
-> Integer -- ^ generator
-> m Params
generateParams bits generator = generateParams bits generator =
(\p -> Params p generator) <$> generateSafePrime bits (\p -> Params p generator) <$> generateSafePrime bits