20 lines
774 B
Haskell
20 lines
774 B
Haskell
module KAT_Twofish (tests) where
|
|
|
|
import Imports
|
|
import BlockCipher
|
|
|
|
import qualified Data.ByteString as B
|
|
import Crypto.Cipher.Twofish
|
|
|
|
|
|
vectors_twofish128 =
|
|
[ KAT_ECB (B.replicate 16 0x00) (B.replicate 16 0x00) (B.pack [0x9F,0x58,0x9F,0x5C,0xF6,0x12,0x2C,0x32,0xB6,0xBF,0xEC,0x2F,0x2A,0xE8,0xC3,0x5A])
|
|
, KAT_ECB (B.pack [0x9F,0x58,0x9F,0x5C,0xF6,0x12,0x2C,0x32,0xB6,0xBF,0xEC,0x2F,0x2A,0xE8,0xC3,0x5A])
|
|
(B.pack [0xD4, 0x91, 0xDB, 0x16, 0xE7, 0xB1, 0xC3, 0x9E, 0x86, 0xCB, 0x08, 0x6B, 0x78, 0x9F, 0x54, 0x19])
|
|
(B.pack [0x01, 0x9F, 0x98, 0x09, 0xDE, 0x17, 0x11, 0x85, 0x8F, 0xAA, 0xC3, 0xA3, 0xBA, 0x20, 0xFB, 0xC3])
|
|
]
|
|
|
|
kats128 = defaultKATs { kat_ECB = vectors_twofish128 }
|
|
|
|
tests = testBlockCipher kats128 (undefined :: Twofish128)
|