CryptoSys API Library Manual

Example: Hash.HexFromBytes 

[VB6 equivalent: HASH_HexFromBytes]

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
' [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

[Contents] [Index]

[HOME]   [NEXT: Example: Hash.HexFromHex ...]

Copyright © 2001-11 D.I. Management Services Pty Ltd. All rights reserved.