SHA-1 Hash a String (XML Document)

Visual FoxPro example to SHA-1 hash an XML document.

Download Chilkat Crypt ActiveX

LOCAL loCrypt
LOCAL lnSuccess
LOCAL lcXmlDoc
LOCAL lcHashStr

loCrypt = CreateObject('Chilkat.Crypt2')

*  Any string argument automatically begins the 30-day trial.

lnSuccess = loCrypt.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("Crypt component unlock failed")
    QUIT
ENDIF

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

*  Set the hash algorithm:
loCrypt.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).
lcHashStr = loCrypt.HashStringENC(lcXmlDoc)

? lcHashStr