I've been doing a bit more research and i see the Crypt::Blowfish module out
there. The HTML documentation says initially that it is useable under
Win32, but there is a failure notice for Win32 at the end of the
documentation. I just ran a quick test on an NT Server (NT 4.0, SP 6a, IIS,
ActivePerl 6.5 bld 623) and the test 'ran' -- I'm not sure if I should
assume success or not, though (not knowing a huge amount about encryption
algorithms and after reading the failure disclaimer). Has anyone used this
module with success on Win32?
Here is the sample code:
use Crypt::Blowfish;
my $key = pack("H16", "0123456789ABCDEF");
my $cipher = new Crypt::Blowfish $key;
my $ciphertext = $cipher->encrypt("plaintex"); # NB - 8 bytes
print unpack("H16", $ciphertext), "\n";
my $plaintext = $cipher->decrypt($ciphertext);
print "plaintext = $plaintext\n";
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
