Private Sub MyButton_Click()
Dim Context As SHA384_Context
Dim Digest As SHA384_HexDigest
Dim MyStrData As String
MyStrData = "Hello World!"
Dim nLen As Long
nLen = Len(MyStrData)
'Convert the string to byte array
Dim MyBinData() As Byte
ReDim MyBinData(1 To nLen)
For i = 1 To nLen
MyBinData(i) = Asc(Mid(MyStrData, i, 1))
Next i
'Initialize the context
SHA384_Init Context
'Update the context with first part
Dim nFirstLen As Long
nFirstLen = nLen / 3
SHA384_Update Context, MyBinData(1), nFirstLen
'Update the context with second part
SHA384_Update Context, MyBinData(nFirstLen + 1), nLen - nFirstLen
'Get the digest
SHA384_FinalHex Context, Digest, True
'Show the hexadecimal representation of the digest
MsgBox QHASH_ASCIItoBSTR(Digest.Value(0))
End Sub
|