Blowfishinator_PP.pm - a (hopefully) simple to use blowfish/cfb wrapper slightly modified to use the pure perl version of Blowfish
Steve McNabb steve@justsomeguy.com
use Blowfishinator_PP;
my $bf = new Blowfishinator_PP;
or
my $bf = new Blowfishinator_PP(50); #wipe the
file with 50 over writes - super paranoia. #defaults to 3 passes
# encrypt/decrypt strings
$ciphertext = $bf->encrypt_string( ``Here is my secret
passphrase'', ``My secret message is : the monkey pees at dawn!'');
$plaintext = $bf->decrypt_string( ``Here is my secret
passphrase'', $ciphertext);
# encrypt/decrypt files
$encrypted_filename = $bf->encrypt_file( ``Here is my
secret passphrase'', $filename);
$decrypted_filename =
$bf->decrypt_file( ``Here is my secret passphrase'', $filename);
# encrypt and obliterate / decrypt and obliterate - USE WITH CAUTION!!
$encrypted_filename = $bf->encrypt_and_destroy_file( ``Here
is my secret passphrase'', $filename);
$decrypted_filename =
$bf->decrypt_and_destroy_file( ``Here is my secret passphrase'',
$filename);