Creates a SHA-256 message digest in hexadecimal format from a message of String type.
VB6/VBA
Debug.Print "Testing SHA2_StringHexHash ..." Dim nRet As Long Dim strDigest As String ' Set strDigest to be 64 chars strDigest = String(64, " ") nRet = SHA2_StringHexHash(strDigest, "abc") Debug.Print strDigest nRet = SHA2_StringHexHash(strDigest, _ "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq") Debug.Print strDigest
Output
Testing SHA2_StringHexHash ... ba7816bf8f01cfea414140de5dae2223b00361a396177a9cb410ff61f20015ad 248d6a61d20638b8e5c026930c3e6039a33ce45964ff2167f6ecedd419db06c1
VB.NET
Console.WriteLine("Testing SHA2_StringHexHash ...")
''Dim nRet As Integer
Dim strDigest As String
' Set strDigest to be 64 chars
''strDigest = String(64, " ")
strDigest = Sha256.HexHash("abc")
Console.WriteLine(strDigest)
strDigest = Sha256.HexHash( _
"abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq")
Console.WriteLine(strDigest)
[Contents]