#! /usr/bin/perl

# Usage: encrypt.pl inputfile > outputfile

use strict;
use Crypt::CBC;
my $cipher = Crypt::CBC->new('Blowfish', 'secret key');

undef $/;
print $cipher->encrypt(<>);
[download]

#! /usr/bin/perl

# Usage: decrypt.pl inputfile > outputfile

use strict;
use Crypt::CBC;
my $cipher = Crypt::CBC->new('Blowfish', 'secret key');

undef $/;
print $cipher->decrypt(<>);
[download]