CryptoSys API examples VB6 to VB.NET

SHA2_StringHexHash

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]

[HOME]   [NEXT: TDEA_B64Mode...]

Copyright © 2009-20 D.I. Management Services Pty Ltd. All rights reserved.