(Visual FoxPro) Hash Binary Data (SHA256 and other hash algorithms)

Demonstrates how to hash binary bytes using SHA256, SHA384, SHA512, MD2, MD5, HAVAL, RIPEMD, etc.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loJpgData
LOCAL lnSuccess
LOCAL loJpgBytes
LOCAL loCrypt
LOCAL loHashBytes
LOCAL loSb
LOCAL lcHashHexStr

* This example requires the Chilkat Crypt API to have been previously unlocked.
* See Unlock Chilkat Crypt for sample code.

* Let's load a binary file to get the bytes..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loJpgData = CreateObject('Chilkat.BinData')
lnSuccess = loJpgData.LoadFile("qa_data/jpg/starfish.jpg")
IF (lnSuccess <> 1) THEN
    ? "Failed to load file."
    RELEASE loJpgData
    CANCEL
ENDIF

loJpgBytes = loJpgData.GetBinary()

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt = CreateObject('Chilkat.Crypt2')

* Choose the hash algorithm.
* Can be  "sha1", "sha256", "sha384", "sha512", "md2", "md5", "haval", "ripemd128", "ripemd160","ripemd256", or "ripemd320".
loCrypt.HashAlgorithm = "sha256"

loHashBytes = loCrypt.HashBytes(loJpgBytes)

* Let's examine the hash as a hex string.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSb = CreateObject('Chilkat.StringBuilder')
loSb.AppendEncoded(loHashBytes,"hex")
? "SHA256 hash = " + loSb.GetAsString()

* We could alternatively hash the bytes and receive the hex result directly:
loCrypt.EncodingMode = "hex"
lcHashHexStr = loCrypt.HashBytesENC(loJpgBytes)
? "SHA256 hash = " + lcHashHexStr

RELEASE loJpgData
RELEASE loCrypt
RELEASE loSb