(Tcl) 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.
load ./chilkat.dll
# 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 ...
set src "6CF8EA51E4E0F599CF03EC8D58C3DCBC9C889A77FB2816B40DE25C2EC54E98A67EA517B"
set bd [new_CkBinData]
set success [CkBinData_AppendEncoded $bd $src "hex"]
# The bd now contains the bytes 0x6C 0xF8 0xEA 0x51 0xE4 0xE0 0xF5 0x99 0xCF ...
set crypt [new_CkCrypt2]
CkCrypt2_put_HashAlgorithm $crypt "sha256"
CkCrypt2_put_EncodingMode $crypt "hex"
# Hash the bytes contained in bd, and return the 32-byte SHA256 hash as a hexidecimal encoded string.
set result [CkCrypt2_hashBdENC $crypt $bd]
puts "$result"
delete_CkBinData $bd
delete_CkCrypt2 $crypt
|
