Tuesday, January 15, 2002, 4:31:46 PM, Gary Luther wrote: > I need some help from someone that may have traveled this road.
> We will be receiving encrypted data from a remote location that we need to decrypt >and process. > What I know about the encryption is that it is symmetric, with DES and CBC. > My question is can I use a Perl routine to Decrypt the information? > If so what modules do I need? > Crypt::DES? are there others? > The specs indicate that is it is also Base-64 encoded so that I will need to decode >then decrypt, I think > Is there a CBC module? that I need or does the DES module understand all of that. > Any help is appreciated. This sucker is overwhelming me a tad bit. you could try using Crypt::CBCeasy and MIME::Base64. something like this might work: #!/usr/bin/perl -w use strict; use MIME::Base64; use Crypt::CBCeasy; my $my_key = "a very secret key"; ... read contents of file into $source... my $crypted = base64_decode($source); my $plaintext = DES::decipher($my_key, $crypted); and then you have some plaintext. it's untested, and i've never used Crypt::CBCeasy, but it looks like it might be good for you. http://search.cpan.org/doc/MBLAZ/Crypt-CBCeasy-0.24/CBCeasy.pm -- Best Regards, Daniel [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
