Xbase++

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

See more Encryption Examples

Computing the hash for a file of any size. Xbase++

LOCAL oCrypt
LOCAL cFilename
LOCAL cHash

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

oCrypt := CreateObject("Chilkat.Crypt2")

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

cFilename := "something.zip"

oCrypt:HashAlgorithm := "sha1"
oCrypt:EncodingMode := "hex"

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

cHash := oCrypt:HashFileENC(cFilename)
? "SHA1:"
? cHash

//  Hash using MD2
oCrypt:HashAlgorithm := "md2"
cHash := oCrypt:HashFileENC(cFilename)
? "MD2:"
? cHash

//  Hash using MD5
oCrypt:HashAlgorithm := "md5"
cHash := oCrypt:HashFileENC(cFilename)
? "MD5:"
? cHash

//  Hash using SHA-256
oCrypt:HashAlgorithm := "sha256"
cHash := oCrypt:HashFileENC(cFilename)
? "SHA256:"
? cHash

//  Hash using SHA-384
oCrypt:HashAlgorithm := "sha384"
cHash := oCrypt:HashFileENC(cFilename)
? "SHA384:"
? cHash

//  Hash using SHA-512
oCrypt:HashAlgorithm := "sha512"
cHash := oCrypt:HashFileENC(cFilename)
? "SHA512:"
? cHash

//  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
oCrypt:HashAlgorithm := "haval"
oCrypt:HavalRounds := 5
oCrypt:KeyLength := 256
cHash := oCrypt:HashFileENC(cFilename)
? "Haval:"
? cHash

oCrypt:destroy()