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

Add API to generate a random nonce

Browse Source 
This AEAD scheme is compatible with choosing the nonce randomly.
This commit is contained in:
Olivier Chéron 2019-08-25 16:38:08 +02:00
parent 29f0fd1b7a
commit 3ae08ed509
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Crypto/Cipher/AESGCMSIV.hs
View File

@ -21,6 +21,7 @@
module Crypto.Cipher.AESGCMSIV module Crypto.Cipher.AESGCMSIV
( Nonce ( Nonce
, nonce , nonce
, generateNonce
, encrypt , encrypt
, decrypt , decrypt
) where ) where
@ -42,6 +43,7 @@ import Crypto.Cipher.AES.Primitive
import Crypto.Cipher.Types import Crypto.Cipher.Types
import Crypto.Error import Crypto.Error
import Crypto.Internal.Compat (unsafeDoIO) import Crypto.Internal.Compat (unsafeDoIO)
import Crypto.Random
-- 12-byte nonces -- 12-byte nonces
@ -55,6 +57,10 @@ nonce iv
| B.length iv == 12 = CryptoPassed (Nonce $ B.convert iv) | B.length iv == 12 = CryptoPassed (Nonce $ B.convert iv)
| otherwise = CryptoFailed CryptoError_IvSizeInvalid | otherwise = CryptoFailed CryptoError_IvSizeInvalid
-- | Generate a random nonce for use with AES-GCM-SIV.
generateNonce :: MonadRandom m => m Nonce
generateNonce = Nonce <$> getRandomBytes 12
-- POLYVAL (mutable context) -- POLYVAL (mutable context)