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

apply convertFromBase.

Browse Source
This commit is contained in:
Kei Hibino 2016-06-08 01:05:08 +09:00
parent f9c1aa713f
commit 5e76b8af5f
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/KAT_MiyaguchiPreneel.hs
View File

@ -7,25 +7,22 @@ import Crypto.ConstructHash.MiyaguchiPreneel
import Imports import Imports
import Data.Char (digitToInt) import Data.Char (digitToInt)
import qualified Data.ByteString as BS import qualified Data.ByteString.Char8 as B8
import qualified Data.ByteArray as B import qualified Data.ByteArray as B
import Data.ByteArray.Encoding (Base (Base16), convertFromBase)
runMP128 :: ByteString -> ByteString runMP128 :: ByteString -> ByteString
runMP128 s = B.convert (mp s :: MiyaguchiPreneel AES128) runMP128 s = B.convert (mp s :: MiyaguchiPreneel AES128)
hxs :: String -> ByteString hxs :: String -> ByteString
hxs = BS.pack . rec' where hxs = either (error . ("hxs:" ++)) id . convertFromBase Base16
dtoW8 = fromIntegral . digitToInt . B8.pack . filter (/= ' ')
rec' (' ':xs) = rec' xs
rec' (x:y:xs) = dtoW8 x * 16 + dtoW8 y : rec' xs
rec' [_] = error "hxs: invalid hex pattern."
rec' [] = []
gAES128 :: TestTree gAES128 :: TestTree
gAES128 = gAES128 =
igroup "aes128" igroup "aes128"
[ runMP128 BS.empty [ runMP128 B8.empty
@?= hxs "66e94bd4 ef8a2c3b 884cfa59 ca342b2e" @?= hxs "66e94bd4 ef8a2c3b 884cfa59 ca342b2e"
, runMP128 (hxs "01000000 00000000 00000000 00000000") , runMP128 (hxs "01000000 00000000 00000000 00000000")
@?= hxs "46711816 e91d6ff0 59bbbf2b f58e0fd3" @?= hxs "46711816 e91d6ff0 59bbbf2b f58e0fd3"