CryptoSys PKI examples VB6 to VB.NET

HASH_HexFromString

Creates a message digest hash in hexadecimal format from byte (or string) data.

VB6/VBA

Debug.Print "Testing HASH_HexFromBytes ..."
Dim nRet As Long
Dim sDigest As String
Dim strMessage As String

strMessage = "abc"
' Pre-dimension digest string
sDigest = String(40, " ")
' Create default hash (SHA1)
nRet = HASH_HexFromString(sDigest, Len(sDigest), strMessage, Len(strMessage), 0)
Debug.Print nRet, sDigest

Output

Testing HASH_HexFromBytes ...
 40           a9993e364706816aba3e25717850c26c9cd0d89d

VB.NET

Console.WriteLine("Testing HASH_HexFromBytes ...")
''Dim nRet As Integer
Dim sDigest As String
Dim strMessage As String

strMessage = "abc"
' Create default hash (SHA1)
sDigest = Hash.HexFromString(strMessage, HashAlgorithm.Sha1)
Console.WriteLine(sDigest.Length & " " & sDigest)

[Contents]

[HOME]   [NEXT: HASH_HexFromFile...]

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