B4X

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. B4X

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

Dim crypt As ChilkatCrypt2
crypt.Initialize("crypt")

'  Any type of file may be hashed.
'  There is  no size limitation because the file is consumed
'  in streaming mode internally.
Dim filename As String
filename = "something.zip"

crypt.HashAlgorithm = "sha1"
crypt.EncodingMode = "hex"

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

Dim hash As String = crypt.HashFileENC(filename)
Log("SHA1:")
Log(hash)

'  Hash using MD2
crypt.HashAlgorithm = "md2"
hash = crypt.HashFileENC(filename)
Log("MD2:")
Log(hash)

'  Hash using MD5
crypt.HashAlgorithm = "md5"
hash = crypt.HashFileENC(filename)
Log("MD5:")
Log(hash)

'  Hash using SHA-256
crypt.HashAlgorithm = "sha256"
hash = crypt.HashFileENC(filename)
Log("SHA256:")
Log(hash)

'  Hash using SHA-384
crypt.HashAlgorithm = "sha384"
hash = crypt.HashFileENC(filename)
Log("SHA384:")
Log(hash)

'  Hash using SHA-512
crypt.HashAlgorithm = "sha512"
hash = crypt.HashFileENC(filename)
Log("SHA512:")
Log(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
crypt.HashAlgorithm = "haval"
crypt.HavalRounds = 5
crypt.KeyLength = 256
hash = crypt.HashFileENC(filename)
Log("Haval:")
Log(hash)