bug62102_rfc2144.phpt

--TEST--
RFC 2144 test vectors for CAST-128 in ECB mode (bug #62102)
--SKIPIF--
<?php extension_loaded('mcrypt') OR print 'skip'; ?>
--FILE--
<?php
$plaintext = "\x01\x23\x45\x67\x89\xAB\xCD\xEF";

echo

"128-bit: ",
bin2hex(mcrypt_encrypt('cast-128', "\x01\x23\x45\x67\x12\x34\x56\x78\x23\x45\x67\x89\x34\x56\x78\x9A", $plaintext, 'ecb')),
"\n",
"80-bit: ",
bin2hex(mcrypt_encrypt('cast-128', "\x01\x23\x45\x67\x12\x34\x56\x78\x23\x45", $plaintext, 'ecb')),
"\n",
"40-bit: ",
bin2hex(mcrypt_encrypt('cast-128', "\x01\x23\x45\x67\x12", $plaintext, 'ecb')),
"\n";

?>
--EXPECT--
128-bit: 238b4fe5847e44b2
80-bit: eb6a711a2c02271b
40-bit: 7ac816d16e9b302e