Example: Hash.Bytes

CryptoSys PKI Pro Manual

Example: Hash.Bytes Hash.BytesFromBytes

[VB6 equivalent: HASH_Bytes]

Dim abDigest() As Byte
Dim abMessage() As Byte

' Set up message to be hashed
abMessage = System.Text.Encoding.Default.GetBytes("abc")
' Create default hash (SHA1)
abDigest = Hash.BytesFromBytes(abMessage, HashAlgorithm.Sha1)
Console.WriteLine(abMessage.Length & " " & Cnv.ToHex(abDigest))

' Repeat for MD5
abDigest = Hash.BytesFromBytes(abMessage, HashAlgorithm.Md5)
Console.WriteLine(abMessage.Length & " " & Cnv.ToHex(abDigest))

[Contents] [Index]

[PREV: Example: Cnv.CheckUTF8 ...] [Contents] [Index]

[NEXT: Example: Hash.BytesFromFile ...]