Subject: | Bug in Crypt::Rijndael, demo script included. |
Date: | Mon, 18 Jun 2007 18:11:16 -0700 |
To: | <bug-Crypt-Rijndael [...] rt.cpan.org> |
From: | "Gilbert, John" <JGG [...] dolby.com> |
Hello,
If you run the following code (from Lincoln Stein) on Linux it returns
6ba7dc3661305b3479ac06df40d053a5, on Solaris it outputs
9ed879854c4cb2266265045315886072. Solaris returns the same value on
AMD64 and UltraSparc.
Thanks.
John G.
#!/usr/bin/perl
use strict;
use Crypt::Rijndael;
my $cipher = new Crypt::Rijndael "a" x 32, Crypt::Rijndael::MODE_CBC;
$cipher->set_iv('a' x 16);
open MD5,"|md5sum -" or die;
print MD5 $cipher->encrypt('testing testing testing testing testing
testing ');
close MD5;
-----------------------------------------
This message (including any attachments) may contain confidential
information intended for a specific individual and purpose. If you
are not the intended recipient, delete this message. If you are
not the intended recipient, disclosing, copying, distributing, or
taking any action based on this message is strictly prohibited.