Description:
------------
Please verify that the 80-bit and 40-bit test vectors in RFC2144 Section B.1 do 
not agree with the output from mcrypt when using CAST 128 encryption.  I provided 
a test program with functions that print and parse the hexadecimal.

I am using mcrypt 2.5.8 on php 5.3.13.

The 128-bit test vector does work though. The problem is probably related to the 
fact that CAST-128 changes the number of rounds from 16 to 12 when a key is 80 
bits or smaller.

I have verified that the test vectors in RFC2144 work with a different piece of 
code written in C.

Please let me know if there is a work around.

Test script:
---------------
function str2hex($string)
{
    $hex='';
    for ($i=0; $i < strlen($string); $i++)
    {
        $hex .= sprintf("%02x",ord($string[$i])) . ' ';
    }
    return $hex;
}

function hex2str($x) { 
  $s=''; 
  foreach(explode("\n",trim(chunk_split($x,2))) as $h) $s.=chr(hexdec($h)); 
  return($s); 
} 

//RFC-2144
$text = hex2str("0123456789ABCDEF");

//Section B.1 128-bit example
$key  = hex2str("0123456712345678234567893456789A");
echo "RFC-2144 Section B.1 128-bit<BR>";
$enc = mcrypt_encrypt(MCRYPT_CAST_128,$key,$text,MCRYPT_MODE_ECB);
echo "ciphertext: " . str2hex($enc);
echo "<BR>";

//RFC-2144
//Section B.1 80-bit example
$key  = hex2str("01234567123456782345");
echo "RFC-2144 Section B.1 80-bit<BR>";
$enc = mcrypt_encrypt(MCRYPT_CAST_128,$key,$text,MCRYPT_MODE_ECB);
echo "ciphertext: " . str2hex($enc);
echo "<BR>";

//RFC-2144
//Section B.1 40-bit example
$key  = hex2str("0123456712");
echo "RFC-2144 Section B.1 40-bit<BR>";
$enc = mcrypt_encrypt(MCRYPT_CAST_128,$key,$text,MCRYPT_MODE_ECB);
echo "ciphertext: " . str2hex($enc);
echo "<BR>";

Expected result:
----------------
see RFC2144 Section B.1

Actual result:
--------------
see result of provided code.