SHA-1 Hash a String (XML Document)

VBScript example to SHA-1 hash an XML document.

Download Chilkat Crypt ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set crypt = CreateObject("Chilkat.Crypt2")

'  Any string argument automatically begins the 30-day trial.
success = crypt.UnlockComponent("30-day trial")
If (success <> 1) Then
    MsgBox "Crypt component unlock failed"
    WScript.Quit
End If

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.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.Charset = "windows-1252"

'  Set the hash algorithm:
crypt.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)

outFile.WriteLine(hashStr)
outFile.Close