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

Computing the hash for a file of any size.

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim crypt As New Chilkat.Crypt2()

'  Any string argument automatically begins the 30-day trial.
Dim success As Boolean
success = crypt.UnlockComponent("30-day trial")
If (success <> true) Then
    MsgBox("Crypt component unlock failed")
    Exit Sub
End If


'  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", and "url"

Dim hash As String
hash = crypt.HashFileENC(filename)
TextBox1.Text = TextBox1.Text & "SHA1:" & vbCrLf
TextBox1.Text = TextBox1.Text & hash & vbCrLf

'  Hash using MD2
crypt.HashAlgorithm = "md2"
hash = crypt.HashFileENC(filename)
TextBox1.Text = TextBox1.Text & "MD2:" & vbCrLf
TextBox1.Text = TextBox1.Text & hash & vbCrLf

'  Hash using MD5
crypt.HashAlgorithm = "md5"
hash = crypt.HashFileENC(filename)
TextBox1.Text = TextBox1.Text & "MD5:" & vbCrLf
TextBox1.Text = TextBox1.Text & hash & vbCrLf

'  Hash using SHA-256
crypt.HashAlgorithm = "sha256"
hash = crypt.HashFileENC(filename)
TextBox1.Text = TextBox1.Text & "SHA256:" & vbCrLf
TextBox1.Text = TextBox1.Text & hash & vbCrLf

'  Hash using SHA-384
crypt.HashAlgorithm = "sha384"
hash = crypt.HashFileENC(filename)
TextBox1.Text = TextBox1.Text & "SHA384:" & vbCrLf
TextBox1.Text = TextBox1.Text & hash & vbCrLf

'  Hash using SHA-512
crypt.HashAlgorithm = "sha512"
hash = crypt.HashFileENC(filename)
TextBox1.Text = TextBox1.Text & "SHA512:" & vbCrLf
TextBox1.Text = TextBox1.Text & hash & vbCrLf

'  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)
TextBox1.Text = TextBox1.Text & "Haval:" & vbCrLf
TextBox1.Text = TextBox1.Text & hash & vbCrLf