Encryption in Blowfish

				
=**************************************
= Name: Encryption in Blowfish
= Description:Encrypt Private Data
= By: Damian myerscough
=
= Returns:Encrypted Data
=
= Side Effects:If you lose the key which is needed your data will be lost
=
=This code is copyrighted and has= limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=449&lngWId=6=for details.=**************************************

#!/usr/bin/perl -w
#
# Blowfish Encryption By; Damian Myerscough
#
use Crypt::CBC;
use Crypt::Blowfish;
# The Cipher Settings
$cipher = Crypt::CBC->new({'key'=> '007xDamox700',
'cipher' => 'Blowfish',
'iv' => '![$`2}%q',
'regenerate_key' => 0,
'padding'=> 'space',
'prepend_iv' => 0
 });
$ciphertext = $cipher->encrypt("I program in perl");
print"Encrypted Data: $ciphertext \n";
$text = $cipher->decrypt($ciphertext);
print"Decrypted Data: $text \n";