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

Computing the hash for a file of any size.

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

use chilkat;

$crypt = new chilkat::CkCrypt2();

#  Any string argument automatically begins the 30-day trial.
$success = $crypt->UnlockComponent("30-day trial");
if ($success != 1) {
    print "Crypt component unlock failed" . "\n";
    exit;
}

#  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", 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";