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]