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

[ChaCha] only need ByteArrayAccess for initialization

Browse Source
This commit is contained in:
Vincent Hanquez 2017-07-07 17:31:30 +01:00
parent cb293eb6db
commit f559c7bd9d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Crypto/Cipher/ChaCha.hs
View File

@ -54,11 +54,13 @@ initialize nbRounds key nonce
nonceLen = B.length nonce nonceLen = B.length nonce
-- | Initialize simple ChaCha State -- | Initialize simple ChaCha State
initializeSimple :: ByteArray seed --
-- The seed need to be at least 40 bytes long
initializeSimple :: ByteArrayAccess seed
=> seed -- ^ a 40 bytes long seed => seed -- ^ a 40 bytes long seed
-> StateSimple -> StateSimple
initializeSimple seed initializeSimple seed
| sLen /= 40 = error "ChaCha Random: seed length should be 40 bytes" | sLen < 40 = error "ChaCha Random: seed length should be 40 bytes"
| otherwise = unsafeDoIO $ do | otherwise = unsafeDoIO $ do
stPtr <- B.alloc 64 $ \stPtr -> stPtr <- B.alloc 64 $ \stPtr ->
B.withByteArray seed $ \seedPtr -> B.withByteArray seed $ \seedPtr ->