(Perl) Hash File: SHA-1, HAVAL, MD2, MD5, SHA-256, SHA-384, SHA-512

Computing the hash for a file of any size.

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

use chilkat();

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

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

# Any type of file may be hashed.
# There is  no size limitation because the file is consumed
# in streaming mode internally.

$filename = "something.zip";

$crypt->put_HashAlgorithm("sha1");
$crypt->put_EncodingMode("hex");

# Other possible EncodingMode settings are: 
# "quoted-printable", "base64", "base32", and "url"

$hash = $crypt->hashFileENC($filename);
print "SHA1:" . "\r\n";
print $hash . "\r\n";

# Hash using MD2
$crypt->put_HashAlgorithm("md2");
$hash = $crypt->hashFileENC($filename);
print "MD2:" . "\r\n";
print $hash . "\r\n";

# Hash using MD5
$crypt->put_HashAlgorithm("md5");
$hash = $crypt->hashFileENC($filename);
print "MD5:" . "\r\n";
print $hash . "\r\n";

# Hash using SHA-256
$crypt->put_HashAlgorithm("sha256");
$hash = $crypt->hashFileENC($filename);
print "SHA256:" . "\r\n";
print $hash . "\r\n";

# Hash using SHA-384
$crypt->put_HashAlgorithm("sha384");
$hash = $crypt->hashFileENC($filename);
print "SHA384:" . "\r\n";
print $hash . "\r\n";

# Hash using SHA-512
$crypt->put_HashAlgorithm("sha512");
$hash = $crypt->hashFileENC($filename);
print "SHA512:" . "\r\n";
print $hash . "\r\n";

# Hash using HAVAL
# There are two additional properties relevant to HAVAL:
# HavalRounds, and KeyLength.
# HavalRounds can have values of 3, 4, or 5.
# KeyLength can have values of 128, 160, 192, 224, or 256
$crypt->put_HashAlgorithm("haval");
$crypt->put_HavalRounds(5);
$crypt->put_KeyLength(256);
$hash = $crypt->hashFileENC($filename);
print "Haval:" . "\r\n";
print $hash . "\r\n";