Creates a message digest hash in hexadecimal format from data in a hexadecimal-encoded string.
VB6/VBA
Debug.Print "Testing HASH_HexFromHex ..."
Dim strDigest As String
Dim nRet As Long
Dim strData As String
strDigest = String(API_SHA1_CHARS, " ")
strData = "616263"
nRet = HASH_HexFromHex(strDigest, Len(strDigest), strData, API_HASH_SHA1)
Debug.Print strDigest
Output
Testing HASH_HexFromHex ... a9993e364706816aba3e25717850c26c9cd0d89d
VB.NET
Console.WriteLine("Testing HASH_HexFromHex ...") Dim strDigest As String ''Dim nRet As Integer Dim strData As String ''strDigest = String(API_SHA1_CHARS, " ") strData = "616263" strDigest = Hash.HexFromHex(strData, HashAlgorithm.Sha1) Console.WriteLine(strDigest)
[Contents]