Start with this:
#!/usr/bin/perl
#
# Always do these
use strict;
use warnings;
use Crypt::RIPEMD160;
my $ripemd160 = new Crypt::RIPEMD160;
$ripemd160->add('a');
my $digest = $ripemd160->digest();
print "Content-Type: text/plain\n\n";
print("Digest is " . unpack("H*", $digest) . "\n");
Jens Gassmann wrote:
Hi,
we need RIPEMD160-Hashes for our mod_perl-app. The testscript attached
worked on commandline, but not with mod_perl. There it returns a wrong
Hash => 0123456789abcdeffedcba9876543210f0e1d2c3
Whats wrong? Where could i get start to catch the error?
Attached the for linux amd64 working version of Crypt::RIPEMD160
http://www.atomix.de/Crypt-RIPEMD160-0.05.tar.gz
regards,
Jens
--
Jim Brandt
Administrative Computing Services
University at Buffalo