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. Visual Basic 6.0

Dim success As Long
success = 0

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

' Let's load a binary file to get the bytes..
Dim jpgData As New ChilkatBinData
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