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

Merge pull request #12 from ibotty/master

Browse Source 
copy withRandomBytes from crypto-random
This commit is contained in:
Vincent Hanquez 2015-06-14 19:39:52 +01:00
commit 268f059470
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Crypto/Random.hs
View File

@ -13,6 +13,7 @@ module Crypto.Random
, drgNew , drgNew
, drgNewTest , drgNewTest
, withDRG , withDRG
, withRandomBytes
, DRG(..) , DRG(..)
-- * Random abstraction -- * Random abstraction
, MonadRandom(..) , MonadRandom(..)
@ -22,7 +23,7 @@ module Crypto.Random
import Crypto.Random.Types import Crypto.Random.Types
import Crypto.Random.ChaChaDRG import Crypto.Random.ChaChaDRG
import Crypto.Random.Entropy import Crypto.Random.Entropy
import Data.ByteArray (ScrubbedBytes) import Data.ByteArray (ByteArray, ScrubbedBytes)
import Crypto.Internal.Imports import Crypto.Internal.Imports
-- | Create a new DRG from system entropy -- | Create a new DRG from system entropy
@ -38,3 +39,10 @@ drgNew = initialize <$> (getEntropy 40 :: IO ScrubbedBytes)
-- has been properly randomly generated. -- has been properly randomly generated.
drgNewTest :: (Word64, Word64, Word64, Word64, Word64) -> ChaChaDRG drgNewTest :: (Word64, Word64, Word64, Word64, Word64) -> ChaChaDRG
drgNewTest = initializeWords drgNewTest = initializeWords
-- | Generate @len random bytes and mapped the bytes to the function @f.
--
-- This is equivalent to use Control.Arrow 'first' with 'randomBytesGenerate'
withRandomBytes :: (ByteArray ba, DRG g) => g -> Int -> (ba -> a) -> (a, g)
withRandomBytes rng len f = (f bs, rng')
where (bs, rng') = randomBytesGenerate len rng