Re: FW: Crypt::CBC w/Crypt-DES (small correction)

[$Bill Luebkert]

Toby Stuart wrote:

see corrections below

-----Original Message-----
From: Toby Stuart [mailto:toby.stuart@;figtreesys.com.au]
Sent: Wednesday, October 23, 2002 3:35 PM
To: '[EMAIL PROTECTED]'
Subject: Crypt::CBC w/Crypt-DES


Hi All,

I'm trying to encrypt/decrypt a text file using Crypt::CBC with DES.

The encryption works fine but the decryption seems to yield only the first
few bytes of the original text. I'm sure i'm missing something simple.

Any help appreciated.

Example follows:

<enc.pl>
use strict;
use Crypt::CBC;

my $key = pack "H16", "1122334455667788";
my $cipher = new Crypt::CBC ($key, 'IDEA');

my $cipher = new Crypt::CBC ($key, 'DES');

my $in;
open(IN,'e:\some_largish_text_file') || die $!;
print $cipher->encrypt($in) while read(IN,$in,1024);
print $cipher->finish;
close(IN);
</enc.pl>



<dec.pl>
use strict;
use Crypt::CBC;

if (!@ARGV) { die "Usage: perl $0 encrypted_file > decrypted_output_file"; }

my $key = pack "H16", "1122334455667788";
my $cipher = new Crypt::CBC ($key, 'IDEA');

my $cipher = new Crypt::CBC ($key, 'DES');

my $in;
open(IN,$ARGV[0]) || die $!;
print $cipher->decrypt($in) while read(IN,$in,1024);
print $cipher->finish;
close(IN);
</dec.pl>

Try this one:

use strict;
use Crypt::CBC;
use IO::File;

my $key = pack "H16", "1122334455667788";
my $cipher = new Crypt::CBC ($key, 'DES');

die "Usage: perl $0 file-to-encrypt [encrypted_output_file]\n" .
  "or:    perl $0 -decrypt file-to-decrypt [decrypted_output_file]\n" .
  "	Second file arg defaults to STDIN for encrypt; STDOUT for decrypt\n\n"
  if not @ARGV;

my $decrypt = 0;
for (my $ii = 0; $ii < @ARGV; ) {
	if ($ARGV[$ii] =~ /^--?de/) {
		$decrypt = 1;
		splice @ARGV, $ii, 1;
		next;
	}
	$ii++;
}

my $ifh = new IO::File;
if (@ARGV) {
	$ifh->open("<$ARGV[0]") or die "open $ARGV[0]: $!";
} else {
	$ifh->open("<&STDIN") or die "open $ARGV[0]: $!";
}

my $ofh = new IO::File;
if (@ARGV > 1) {
	$ofh->open(">$ARGV[1]") or die "open $ARGV[1]: $!";
} else {
	$ofh->open(">&STDOUT") or die "open $ARGV[1]: $!";
}

my $in;
if ($decrypt) {
	$cipher->start('decrypting');
	print $ofh $cipher->crypt($in) while read $ifh, $in, 1024;
	print $ofh $cipher->finish;
} else {
	$cipher->start('encrypting');
	print $ofh $cipher->crypt($in) while read $ifh, $in, 1024;
	print $ofh $cipher->finish;
}
$ifh->close;
$ofh->close;

__END__


--
  ,-/-  __      _  _         $Bill Luebkert   ICQ=162126130
 (_/   /  )    // //       DBE Collectibles   Mailto:dbe@;todbe.com
  / ) /--<  o // //      http://dbecoll.tripod.com/ (Free site for Perl)
-/-' /___/_<_</_</_     Castle of Medieval Myth & Magic http://www.todbe.com/

_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs