php mcrypt_generic_init,PHP: mcrypt_generic - Manual

I was able get php and perl to play together with blowfish using cipher block chaining.  The blowfish key needs to be atleast 8 chars (even though blowfish min is 8 bits, perl didn't like keys smaller than 8 chars) and max 56.  The iv must be exactly 8 chars and padding needs to be null because php pads with nulls.  Also, php needs libmcrypt >= 2.4.9 to be compatible with perl.

PERL

----

use Crypt::CBC;

$cipher = Crypt::CBC->new( {'key' => 'my secret key',

'cipher'=> 'Blowfish',

'iv' => '12345678',

'regenerate_key' => 0,

'padding' => 'null',

'prepend_iv' => 0

});

$cc = 'my secret text';

$encrypted = $cipher->encrypt($cc);

$decrypted = $cipher->decrypt($encrypted);

print "encrypted : ".$encrypted;

print "
";

print "decrypted : ".$decrypted;

PHP

---

$cc = 'my secret text';

$key = 'my secret key';

$iv = '12345678';

$cipher = mcrypt_module_open(MCRYPT_BLOWFISH,'','cbc','');

mcrypt_generic_init($cipher, $key, $iv);

$encrypted = mcrypt_generic($cipher,$cc);

mcrypt_generic_deinit($cipher);

mcrypt_generic_init($cipher, $key, $iv);

$decrypted = mdecrypt_generic($cipher,$encrypted);

mcrypt_generic_deinit($cipher);

echo "encrypted : ".$encrypted;

echo "
";

echo "decrypted : ".$decrypted;