http://qs321.pair.com?node_id=844005


in reply to Encrypt text in perl and decrypt in a windows tool

Normally you wouldn't use Crypt::Blowfish directly. Choose Crypt::CBC and make sure to use binmode where necessary. Most likely you forgot a bunch of sticky little details like padding and initialization vectors and things. Let CBC do the work: 
my $cipher = Crypt::CBC->new(-key => 'my secret key', -cipher => 'Blow
+fish');

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

[download]

Replies are listed 'Best First'.
Re^2: Encrypt text in perl and decrypt in a windows tool
by asidnayak (Initiate) on Jun 10, 2010 at 14:19 UTC
    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
[reply]
[d/l]
      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.

[reply]
        I just want to encrypt a string and send the encrypted output as part of the mail body which will contain other data. The end user has to only copy the encrypted part from the mail and try to decrypt it in a window based tool. I don't need the whole mail body to be encrypted/decrypted.
[reply]

In Section Seekers of Perl Wisdom