(Visual Basic 6.0) Hash Binary Data (SHA256 and other hash algorithms)

Demonstrates how to hash binary bytes using SHA256, SHA384, SHA512, MD2, MD5, HAVAL, RIPEMD, etc.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

' This example requires the Chilkat Crypt API to have been previously unlocked.
' See Unlock Chilkat Crypt for sample code.

' Let's load a binary file to get the bytes..
Dim jpgData As New ChilkatBinData
Dim success As Long
success = jpgData.LoadFile("qa_data/jpg/starfish.jpg")
If (success <> 1) Then
    Debug.Print "Failed to load file."
    Exit Sub
End If

Dim jpgBytes() As Byte
jpgBytes = jpgData.GetBinary()

Dim crypt As New ChilkatCrypt2

' Choose the hash algorithm.
' Can be  "sha1", "sha256", "sha384", "sha512", "md2", "md5", "haval", "ripemd128", "ripemd160","ripemd256", or "ripemd320".
crypt.HashAlgorithm = "sha256"

Dim hashBytes() As Byte
hashBytes = crypt.HashBytes(jpgBytes)

' Let's examine the hash as a hex string.
Dim sb As New ChilkatStringBuilder
success = sb.AppendEncoded(hashBytes,"hex")
Debug.Print "SHA256 hash = " & sb.GetAsString()

' We could alternatively hash the bytes and receive the hex result directly:
crypt.EncodingMode = "hex"
Dim hashHexStr As String
hashHexStr = crypt.HashBytesENC(jpgBytes)
Debug.Print "SHA256 hash = " & hashHexStr