Public Scratchpad | Download, Select Code To D/L |
And to decrypt#! /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(<>);
#! /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(<>);