Visual FoxPro

SHA256 Hash the Bytes Represented in a Hex String

Demonstrates how to compute the SHA256 hash of the bytes represented by a hexidecimal encoded string, and return the hash bytes as an hex encoded string. Visual FoxPro

LOCAL lnSuccess
LOCAL lcSrc
LOCAL loBd
LOCAL loCrypt
LOCAL lcResult

lnSuccess = 0

* This example assumes the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* We wish to compute the SHA256 hash of the bytes 0x6C 0xF8 0xEA 0x51 0xE4 0xE0 0xF5 0x99 0xCF ...
lcSrc = "6CF8EA51E4E0F599CF03EC8D58C3DCBC9C889A77FB2816B40DE25C2EC54E98A67EA517B"

loBd = CreateObject('Chilkat.BinData')
lnSuccess = loBd.AppendEncoded(lcSrc,"hex")

* The bd now contains the bytes 0x6C 0xF8 0xEA 0x51 0xE4 0xE0 0xF5 0x99 0xCF ...

loCrypt = CreateObject('Chilkat.Crypt2')
loCrypt.HashAlgorithm = "sha256"
loCrypt.EncodingMode = "hex"

* Hash the bytes contained in bd, and return the 32-byte SHA256 hash as a hexidecimal encoded string.
lcResult = loCrypt.HashBdENC(loBd)
? lcResult

RELEASE loBd
RELEASE loCrypt