cryptonite-0.30: tests/KAT_CAST5.hs

{-# 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)