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

[HMAC] use SecureBytes instead of ByteString for between context

Browse Source
This commit is contained in:
Vincent Hanquez 2015-05-03 14:51:13 +01:00
parent cc15b91c07
commit cd42b2765b
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Crypto/MAC/HMAC.hs
View File

@ -21,11 +21,10 @@ module Crypto.MAC.HMAC
, finalize , finalize
) where ) where
import Data.ByteString (ByteString)
import Crypto.Hash hiding (Context) import Crypto.Hash hiding (Context)
import qualified Crypto.Hash as Hash (Context) import qualified Crypto.Hash as Hash (Context)
import Crypto.Hash.IO import Crypto.Hash.IO
import Crypto.Internal.ByteArray (SecureBytes, Bytes, ByteArray, ByteArrayAccess) import Crypto.Internal.ByteArray (SecureBytes, ByteArray, ByteArrayAccess)
import qualified Crypto.Internal.ByteArray as B import qualified Crypto.Internal.ByteArray as B
import Crypto.Internal.Bytes import Crypto.Internal.Bytes
import Crypto.Internal.Compat import Crypto.Internal.Compat
@ -83,8 +82,8 @@ initialize secret = unsafeDoIO (doHashAlg undefined)
(inner, outer) <- withKey $ \keyPtr -> (inner, outer) <- withKey $ \keyPtr ->
(,) <$> B.alloc blockSize (\p -> bufXorWith p 0x36 keyPtr blockSize) (,) <$> B.alloc blockSize (\p -> bufXorWith p 0x36 keyPtr blockSize)
<*> B.alloc blockSize (\p -> bufXorWith p 0x5c keyPtr blockSize) <*> B.alloc blockSize (\p -> bufXorWith p 0x5c keyPtr blockSize)
return $ Context (hashUpdates initCtx [outer :: ByteString]) return $ Context (hashUpdates initCtx [outer :: SecureBytes])
(hashUpdates initCtx [inner :: ByteString]) (hashUpdates initCtx [inner :: SecureBytes])
where where
blockSize = hashBlockSize alg blockSize = hashBlockSize alg
digestSize = hashDigestSize alg digestSize = hashDigestSize alg