http://qs1969.pair.com?node_id=360422

Public Scratchpad

Download, Select Code To D/L

---

#! /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]

And to decrypt

#! /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]