(Perl) Hash Binary Data (SHA256 and other hash algorithms)

Demonstrates how to hash binary bytes using SHA256, SHA384, SHA512, MD2, MD5, HAVAL, RIPEMD, etc.

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

use chilkat();

# This example requires the Chilkat Crypt API to have been previously unlocked.
# See Unlock Chilkat Crypt for sample code.

# Let's load a binary file to get the bytes..
$jpgData = chilkat::CkBinData->new();
$success = $jpgData->LoadFile("qa_data/jpg/starfish.jpg");
if ($success != 1) {
    print "Failed to load file." . "\r\n";
    exit;
}

$jpgBytes = chilkat::CkByteData->new();
$success = $jpgData->GetBinary($jpgBytes);

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

# Choose the hash algorithm.
# Can be  "sha1", "sha256", "sha384", "sha512", "md2", "md5", "haval", "ripemd128", "ripemd160","ripemd256", or "ripemd320".
$crypt->put_HashAlgorithm("sha256");

$hashBytes = chilkat::CkByteData->new();
$success = $crypt->HashBytes($jpgBytes,$hashBytes);

# Let's examine the hash as a hex string.
$sb = chilkat::CkStringBuilder->new();
$sb->AppendEncoded($hashBytes,"hex");
print "SHA256 hash = " . $sb->getAsString() . "\r\n";

# We could alternatively hash the bytes and receive the hex result directly:
$crypt->put_EncodingMode("hex");
$hashHexStr = $crypt->hashBytesENC($jpgBytes);
print "SHA256 hash = " . $hashHexStr . "\r\n";