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";
------------------------------
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