Question

With PHP, I’m trying to emulate the Perl functionality of:

#!/usr/bin/perl
use DBI;
use Crypt::ECB qw(encrypt decrypt encrypt_hex decrypt_hex);
$code = encrypt_hex($key, "Blowfish", $secret);

My results haven’t generated anything close, such as:

$code = crypt($key, '$2a$07$'."$secret$");

Any suggestions?

Answer 1

Took me some time to figure it out. @daxim’s use of mcrypt put me down the path of trying the mcrypt libraries.

$td = mcrypt_module_open('blowfish', '', 'ecb', '');
$iv = mcrypt_create_iv(mcrypt_enc_get_iv_size($td), MCRYPT_RAND);
mcrypt_generic_init($td, $key, $iv);
$encrypted_data = mcrypt_generic($td, $secret);
mcrypt_generic_deinit($td);
mcrypt_module_close($td);

$unpacked = unpack("H*", $encrypted_data);
$hexed = implode($unpacked);