(Tcl) Hash Binary Data (SHA256 and other hash algorithms)

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# 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..
set jpgData [new_CkBinData]

set success [CkBinData_LoadFile $jpgData "qa_data/jpg/starfish.jpg"]
if {$success != 1} then {
    puts "Failed to load file."
    delete_CkBinData $jpgData
    exit
}

set jpgBytes [new_CkByteData]

set success [CkBinData_GetBinary $jpgData $jpgBytes]

set crypt [new_CkCrypt2]

# Choose the hash algorithm.
# Can be  "sha1", "sha256", "sha384", "sha512", "md2", "md5", "haval", "ripemd128", "ripemd160","ripemd256", or "ripemd320".
CkCrypt2_put_HashAlgorithm $crypt "sha256"

set hashBytes [new_CkByteData]

set success [CkCrypt2_HashBytes $crypt $jpgBytes $hashBytes]

# Let's examine the hash as a hex string.
set sb [new_CkStringBuilder]

CkStringBuilder_AppendEncoded $sb $hashBytes "hex"
puts "SHA256 hash = [CkStringBuilder_getAsString $sb]"

# We could alternatively hash the bytes and receive the hex result directly:
CkCrypt2_put_EncodingMode $crypt "hex"
set hashHexStr [CkCrypt2_hashBytesENC $crypt $jpgBytes]
puts "SHA256 hash = $hashHexStr"

delete_CkBinData $jpgData
delete_CkByteData $jpgBytes
delete_CkCrypt2 $crypt
delete_CkByteData $hashBytes
delete_CkStringBuilder $sb