PowerBuilder

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. PowerBuilder

integer li_rc
integer li_Success
string ls_Src
oleobject loo_Bd
oleobject loo_Crypt
string ls_Result

li_Success = 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 ...
ls_Src = "6CF8EA51E4E0F599CF03EC8D58C3DCBC9C889A77FB2816B40DE25C2EC54E98A67EA517B"

loo_Bd = create oleobject
li_rc = loo_Bd.ConnectToNewObject("Chilkat.BinData")
if li_rc < 0 then
    destroy loo_Bd
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_Bd.AppendEncoded(ls_Src,"hex")

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

loo_Crypt = create oleobject
li_rc = loo_Crypt.ConnectToNewObject("Chilkat.Crypt2")

loo_Crypt.HashAlgorithm = "sha256"
loo_Crypt.EncodingMode = "hex"

// Hash the bytes contained in bd, and return the 32-byte SHA256 hash as a hexidecimal encoded string.
ls_Result = loo_Crypt.HashBdENC(loo_Bd)
Write-Debug ls_Result


destroy loo_Bd
destroy loo_Crypt