From the crytolab page Note: The block ciphers implemented for CryptoLab use ECB mode instead of the more common CBC mode used for encryption. It is known that ECB mode is much less secure than other modes of operation.

So, using Crypt::CBC is not an option as the generated cipher is always going to be different. I tried using Crypt::ECB module but that did not yield the desired results. Maybe, setting a different keysize might help

Their developer page might have some information as to how random keys are generated from given passwords (read cipher keys).

use Crypt::ECB;
use Crypt::Blowfish;

my $key = shift or die "Usage crypt_ecb_bf <keytoencrypt>\n"; 
my $crypt = Crypt::ECB->new;
$crypt->padding(PADDING_AUTO);
$crypt->cipher('Blowfish') || die $crypt->errstring;
$crypt->key("$key"); 

my $ciphertext = $crypt->encrypt_hex("Hello World!"); #since cryptolab
+s is outputting hex
my $plaintext = $crypt->decrypt_hex($ciphertext); 

print "$key\n";
print "$ciphertext\n";
print "$plaintext\n";
[download]