Crypt::RIPEMD160::MAC - Perl extension for RIPEMD-160 MAC function
use Crypt::RIPEMD160::MAC;
$key = "This is the secret key";
$mac = Crypt::RIPEMD160::MAC->new($key);
$mac->reset();
$mac->add(LIST);
$mac->addfile(HANDLE);
$digest = $mac->mac();
$string = $mac->hexmac();
The Crypt::RIPEMD160 module allows you to use the RIPEMD160 Message
Digest algorithm from within Perl programs.
use Crypt::RIPEMD160;
$ripemd160 = Crypt::RIPEMD160->new;
$ripemd160->add('foo', 'bar');
$ripemd160->add('baz');
$digest = $ripemd160->digest();
print("Digest is " . unpack("H*", $digest) . "\n");
The above example would print out the message
Digest is f137cb536c05ec2bc97e73327937b6e81d3a4cc9
provided that the implementation is working correctly.
The RIPEMD-160 interface was written by Christian H. Geuer
("christian.geuer@crypto.gun.de").