use Blowfish;

$blowfishkey=pack("H*",'5b3b272e5d39342d33313d3d2d252640215e2b5d00'); 
$packet = pack("H*",'071bdba4419a1e4e');

$cipher = new Crypt::Blowfish $blowfishkey;

print "Key: $blowfishkey\n";
print "Crypted packet: $packet\n";
$packet = $cipher->decrypt($packet);
print "Decrypted packet: $packet\n";
$packet = "\x00WildMaN";
print "Initial known packet: $packet\n";
$packet = $cipher->encrypt($packet);
print "Should be encrypted as: $packet\n";