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

faster one-pass auth call.

Browse Source
This commit is contained in:
Vincent Hanquez 2014-07-07 04:41:35 +01:00
parent c4c0802f80
commit 7c03f3314b
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Crypto/MAC/Poly1305.hs
View File

@ -22,7 +22,7 @@ module Crypto.MAC.Poly1305
, auth , auth
) where ) where
import Prelude hiding (init) import Control.Monad (void)
import Foreign.Ptr import Foreign.Ptr
import Foreign.C.Types import Foreign.C.Types
import qualified Data.ByteString as B import qualified Data.ByteString as B
@ -96,4 +96,13 @@ finalize (Ctx prevCtx) = Auth $ B.unsafeCreate 16 $ \dst -> do
-- | One-pass authorization creation -- | One-pass authorization creation
auth :: Byteable key => key -> ByteString -> Auth auth :: Byteable key => key -> ByteString -> Auth
auth key = finalize . update (initialize key) auth key d
| byteableLength key /= 32 = error "Poly1305: key length expected 32 bytes"
| otherwise = Auth $ B.unsafeCreate 16 $ \dst -> do
-- initialize the context
void $ createSecureMem 84 $ \ctxPtr -> withBytePtr key $ \keyPtr -> do
c_poly1305_init (castPtr ctxPtr) keyPtr
withBytePtr d $ \dataPtr ->
c_poly1305_update (castPtr ctxPtr) dataPtr (fromIntegral $ B.length d)
-- finalize
c_poly1305_finalize dst (castPtr ctxPtr)