[VB6 equivalent: HASH_HexFromBytes]
''Dim nRet As Integer
Dim sDigest As String
Dim abMessage() As Byte
' Set up message to be hashed in unambiguous Byte format
abMessage = System.Text.Encoding.Default.GetBytes("abc")
' Create default hash (SHA1)
sDigest = Hash.HexFromBytes(abMessage, 0)
Console.WriteLine(sDigest.Length & " " & sDigest)
' Explicitly use SHA1
sDigest = Hash.HexFromBytes(abMessage, HashAlgorithm.Sha1)
Console.WriteLine(sDigest.Length & " " & sDigest)
sDigest = Hash.HexFromBytes(abMessage, HashAlgorithm.Md5)
Console.WriteLine(sDigest.Length & " " & sDigest)
sDigest = Hash.HexFromBytes(abMessage, HashAlgorithm.Md2)
Console.WriteLine(sDigest.Length & " " & sDigest)
' Make output string shorter - only get back that many chars
''sDigest = String(16, " ")
' [VB.NET] In .NET we can only truncate the digest string AFTER creating it
sDigest = Hash.HexFromBytes(abMessage, HashAlgorithm.Sha1)
sDigest = sDigest.Substring(0, 16)
Console.WriteLine(sDigest.Length & " " & sDigest)
See Also:
Hash.HexFromBytes Method