16 lines
737 B
Haskell
16 lines
737 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
module KAT_CAST5 (tests) where
|
|
|
|
import BlockCipher
|
|
import qualified Crypto.Cipher.CAST5 as CAST5
|
|
|
|
vectors_ecb = -- key plaintext ciphertext
|
|
[ KAT_ECB "\x01\x23\x45\x67\x12\x34\x56\x78\x23\x45\x67\x89\x34\x56\x78\x9A" "\x01\x23\x45\x67\x89\xAB\xCD\xEF" "\x23\x8B\x4F\xE5\x84\x7E\x44\xB2"
|
|
, KAT_ECB "\x01\x23\x45\x67\x12\x34\x56\x78\x23\x45" "\x01\x23\x45\x67\x89\xAB\xCD\xEF" "\xEB\x6A\x71\x1A\x2C\x02\x27\x1B"
|
|
, KAT_ECB "\x01\x23\x45\x67\x12" "\x01\x23\x45\x67\x89\xAB\xCD\xEF" "\x7A\xC8\x16\xD1\x6E\x9B\x30\x2E"
|
|
]
|
|
|
|
kats = defaultKATs { kat_ECB = vectors_ecb }
|
|
|
|
tests = testBlockCipher kats (undefined :: CAST5.CAST5)
|