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

Specify each chunk type.

Browse Source
This commit is contained in:
Kei Hibino 2016-04-07 14:43:44 +09:00
parent a3255c7ab5
commit 285d9fb433
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Crypto/ConstructHash/MiyaguchiPreneel.hs
View File

@ -14,7 +14,7 @@ import Data.List (foldl')
import Crypto.Cipher.Types
import Crypto.Error (eitherCryptoError)
import Crypto.Internal.ByteArray (ByteArrayAccess, ByteArray)
import Crypto.Internal.ByteArray (ByteArrayAccess, ByteArray, Bytes)
import qualified Crypto.Internal.ByteArray as B
@ -24,11 +24,11 @@ mp :: (ByteArrayAccess bin, ByteArray bout, ByteArray ba, BlockCipher cipher)
=> (ba -> cipher) -- ^ key build function to compute Miyaguchi-Preneel
-> bin -- ^ input message
-> bout -- ^ output tag
mp g = B.convert . foldl' (step g) (B.replicate bsz 0) . chunks . B.convert
mp g = B.convert . foldl' (step $ g . B.convert) (B.replicate bsz 0) . chunks . B.convert
where
bsz = blockSize ( g B.empty {- dummy to get block size -} )
chunks msg
| B.null tl = [hd]
| B.null tl = [hd :: Bytes]
| otherwise = hd : chunks tl
where
(hd, tl) = B.splitAt bsz msg