Re: Cypto CBC and Blowfish

[Khen1950fx]

Does this help?

#!/usr/bin/perl -l

BEGIN {
    eval {
        require Crypt::Blowfish;
    };
}

use strict;
use warnings;
use Crypt::CBC;

my ( $line, $outf, $filen );
my $cipher = Crypt::CBC->new(
    -key    => 'fjeislqp12345678',
    -cipher => 'Blowfish'
);
$cipher->start('encrypting');

$filen = $ARGV[0];
$outf = "test.txt";
my $ciphertext = $cipher->encrypt($filen);
my $plaintext  = $cipher->decrypt($ciphertext);
if ($@) {
    print "No data directory specified";
}

open INFILE, '<', $filen 
  or die "Can't open $filen for reading $!\n";
binmode INFILE, ":encoding(UTF-8)";

open OUTFILE, '>', $outf
  or die "Can't open $outf to write: $!";
binmode OUTFILE, ":encoding(UTF-8)";

$cipher->start('decrypting');
$plaintext = $cipher->decrypt($ciphertext);
print OUTFILE "Decrypted $plaintext";
$cipher->finish();

close INFILE;
close OUTFILE;