my $cipher = Crypt::CBC->new(-key => 'my secret key', -cipher => 'Blow
+fish');

my $crypted = $cipher->encrypt("blarg!!");
my $text    = $cipher->decrypt($crypted); # blarg
[download]

Below is my code: -----------------------

use Crypt::CBC;
use Crypt::Blowfish;

my $key = "abcdefghijlmnopqrstuvwxyz";  

my $cipher = Crypt::CBC->new( -key    => "$key",
                             -cipher => 'Blowfish',
                           );

my $ciphertext = $cipher->encrypt("3769-198501-21002"); 
my $plaintext  = $cipher->decrypt($ciphertext);

print "$key\n";
print "$ciphertext\n";
print "$plaintext\n";
[download]

------------------------------ The value of "$ciphertext" is send as part of mail body. I want to decrypt the value of "$ciphertext" using a Windows based tool. Please advice

I really don't think the platform matters at all. This just isn't a "windows" vs. "<platform of choice>" question. Basically, it sounds to me like you need to parse the email body and feed it to encrypt()/decrypt(). You're either going to need to figure how how to do that (see perlretut and Mail::Box and things like that); or try to get a co-worker to do it. If you're looking for a windows specific tool (other than Perl I guess), this just isn't the right site.

UPDATE: It sounds like you don't need Perl, you need a windows email tool. This just isn't a Perl question I guess.

Have you tried writing a short script to decrypt your encrypted text? Perhaps posting your code would help.

An alternative to using another tool (CryptoLab), you could package such a script (and any modules you use) using pp so that your target machine wouldn't need to have an installation of Perl, or the modules you use in order to decrypt.

From the crytolab page Note: The block ciphers implemented for CryptoLab use ECB mode instead of the more common CBC mode used for encryption. It is known that ECB mode is much less secure than other modes of operation.

So, using Crypt::CBC is not an option as the generated cipher is always going to be different. I tried using Crypt::ECB module but that did not yield the desired results. Maybe, setting a different keysize might help

Their developer page might have some information as to how random keys are generated from given passwords (read cipher keys).

use Crypt::ECB;
use Crypt::Blowfish;

my $key = shift or die "Usage crypt_ecb_bf <keytoencrypt>\n"; 
my $crypt = Crypt::ECB->new;
$crypt->padding(PADDING_AUTO);
$crypt->cipher('Blowfish') || die $crypt->errstring;
$crypt->key("$key"); 

my $ciphertext = $crypt->encrypt_hex("Hello World!"); #since cryptolab
+s is outputting hex
my $plaintext = $crypt->decrypt_hex($ciphertext); 

print "$key\n";
print "$ciphertext\n";
print "$plaintext\n";
[download]