SHA-1 Hash a String (XML Document)

Perl example to SHA-1 hash an XML document.

Download Chilkat Perl Module

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;
}

$xmlDoc = "<test><a>123</a><b>456</b><c>789</c></test>";

#  This example was created in response to a request to
#  do this:
#  XML-->byte[]-->SHA-1(byte[])-->Base64(string)

#  The output will be Base64, so set the EncodingMode:
$crypt->put_EncodingMode("base64");

#  It is desired to hash bytes.  Depending on the programming
#  language, strings may be Unicode (2 bytes/char).  We don't
#  want to hash Unicode.  By setting the Charset property,
#  we're telling the encryption component to first convert
#  a string to the multibyte charset indicated.
$crypt->put_Charset("windows-1252");

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

#  Hash the string:
#  Internally, this converts the string to bytes, hashes the bytes,
#  and converts the hash bytes to a Base64 encoded string:

#  Note: Any method in Chilkat Crypt that ends with "ENC" returns the
#  output bytes (i.e. hashed or encrypted) as an encoded string
#  according to the EncodingMode property, which can be "base64",
#  "hex", "url", "quoted-printable", or "html" (for HTML entities).
$hashStr = $crypt->hashStringENC($xmlDoc);

print $hashStr . "\r\n";