(Perl) RIPEMD Hash a String

Demonstrates how to RIPEMD hash a string using RIPEMD-128, RIPEMD-160, RIPEMD-256, and RIPEMD-320.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$crypt = chilkat::CkCrypt2->new();

$content = "abcdefghijklmnopqrstuvwxyz";

# The desired output is a hexidecimal string:
$crypt->put_EncodingMode("hex");

# Set the hash algorithm:
$crypt->put_HashAlgorithm("ripemd128");

$hashStr = $crypt->hashStringENC($content);

print $hashStr . "\r\n";

# The output is:
# FD2AA607F71DC8F510714922B371834E

$crypt->put_HashAlgorithm("ripemd160");
$hashStr = $crypt->hashStringENC($content);
print $hashStr . "\r\n";

# The output is:
# F71C27109C692C1B56BBDCEB5B9D2865B3708DBC

$crypt->put_HashAlgorithm("ripemd256");
$hashStr = $crypt->hashStringENC($content);
print $hashStr . "\r\n";

# The output is:
# 649D3034751EA216776BF9A18ACC81BC7896118A5197968782DD1FD97D8D5133

$crypt->put_HashAlgorithm("ripemd320");
$hashStr = $crypt->hashStringENC($content);
print $hashStr . "\r\n";

# The output is:
# CABDB1810B92470A2093AA6BCE05952C28348CF43FF60841975166BB40ED234004B8824463E6B00