(Tcl) Calculate MD5 Hash of File (or SHA1, SHA256, and other hash algorithms)

Demonstrates how to calculate a hash for a file's contents.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set crypt [new_CkCrypt2]

# Set the name of the hash algorithm.
# Other choices include "sha1", "sha256", "sha384", "sha512", "md2", "md5", and "haval". 
CkCrypt2_put_HashAlgorithm $crypt "md5"

# EncodingMode specifies the encoding of the hash output.
# It may be "hex", "url", "base64", or "quoted-printable".
CkCrypt2_put_EncodingMode $crypt "hex"

# Files of any type may be hashed -- it doesn't matter
# if the file is binary or text...

set hashStr [CkCrypt2_hashFileENC $crypt "/temp/something.dat"]
if {[CkCrypt2_get_LastMethodSuccess $crypt] != 1} then {
    puts [CkCrypt2_lastErrorText $crypt]
    delete_CkCrypt2 $crypt
    exit
}

puts "$hashStr"

delete_CkCrypt2 $crypt