blowfish

blowfish.pl

#!/usr/bin/env perl

use strict;
use warnings;
use Crypt::CBC;
use Crypt::Blowfish;

my $key = shift;
my $val = shift;

$key = substr( $key, 0, 56 );

warn $key;
warn length($key);

my $cipher = Crypt::CBC->new(
    {
        key            => $key,
        cipher         => 'Blowfish',
        keysize        => length($key),
        regenerate_key => 0,
        header         => 'randomiv',
    }
);

use Data::Dumper;
warn Dumper($cipher);

warn $cipher->encrypt_hex($val);