HASH_HexFromHex

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
' Compute SHA-1("abc")
strDigest = String(PKI_SHA1_CHARS, " ")
strData = "616263"
nRet = HASH_HexFromHex(strDigest, Len(strDigest), strData, PKI_HASH_SHA1)
Debug.Print strDigest
' Compute SHA-224("abc")
strDigest = String(PKI_SHA224_CHARS, " ")
strData = "616263"
nRet = HASH_HexFromHex(strDigest, Len(strDigest), strData, PKI_HASH_SHA224)
Debug.Print strDigest

Output

Testing HASH_HexFromHex ...
a9993e364706816aba3e25717850c26c9cd0d89d
23097d223405d8228642a477bda255b32aadbce4bda0b3f7e36c9da7

VB.NET

Console.WriteLine("Testing HASH_HexFromHex ...")
Dim strDigest As String
Dim strData As String
' Compute SHA-1("abc")
strData = "616263"
strDigest = Hash.HexFromHex(strData, HashAlgorithm.Sha1)
Console.WriteLine(strDigest)
' Compute SHA-224("abc")
strData = "616263"
strDigest = Hash.HexFromHex(strData, HashAlgorithm.Sha224)
Console.WriteLine(strDigest)

[Contents]