(Tcl) Hash File: SHA-1, HAVAL, MD2, MD5, SHA-256, SHA-384, SHA-512

Computing the hash for a file of any size.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set crypt [new_CkCrypt2]

#  Any string argument automatically begins the 30-day trial.
set success [CkCrypt2_UnlockComponent $crypt "30-day trial"]
if {[expr $success != 1]} then {
    puts [CkCrypt2_lastErrorText $crypt]
    delete_CkCrypt2 $crypt
    exit
}

#  Any type of file may be hashed.
#  There is  no size limitation because the file is consumed
#  in streaming mode internally.

set filename "something.zip"

CkCrypt2_put_HashAlgorithm $crypt "sha1"
CkCrypt2_put_EncodingMode $crypt "hex"

#  Other possible EncodingMode settings are:
#  "quoted-printable", "base64", "base32", and "url";

set hash [CkCrypt2_hashFileENC $crypt $filename]
puts "SHA1:"
puts "$hash"

#  Hash using MD2
CkCrypt2_put_HashAlgorithm $crypt "md2"
set hash [CkCrypt2_hashFileENC $crypt $filename]
puts "MD2:"
puts "$hash"

#  Hash using MD5
CkCrypt2_put_HashAlgorithm $crypt "md5"
set hash [CkCrypt2_hashFileENC $crypt $filename]
puts "MD5:"
puts "$hash"

#  Hash using SHA-256
CkCrypt2_put_HashAlgorithm $crypt "sha256"
set hash [CkCrypt2_hashFileENC $crypt $filename]
puts "SHA256:"
puts "$hash"

#  Hash using SHA-384
CkCrypt2_put_HashAlgorithm $crypt "sha384"
set hash [CkCrypt2_hashFileENC $crypt $filename]
puts "SHA384:"
puts "$hash"

#  Hash using SHA-512
CkCrypt2_put_HashAlgorithm $crypt "sha512"
set hash [CkCrypt2_hashFileENC $crypt $filename]
puts "SHA512:"
puts "$hash"

#  Hash using HAVAL
#  There are two additional properties relevant to HAVAL:
#  HavalRounds, and KeyLength.
#  HavalRounds can have values of 3, 4, or 5.
#  KeyLength can have values of 128, 160, 192, 224, or 256
CkCrypt2_put_HashAlgorithm $crypt "haval"
CkCrypt2_put_HavalRounds $crypt 5
CkCrypt2_put_KeyLength $crypt 256
set hash [CkCrypt2_hashFileENC $crypt $filename]
puts "Haval:"
puts "$hash"

delete_CkCrypt2 $crypt