Example: Sha1.BytesHash 

[VB6 equivalent: SHA1_BytesHash]

Dim abData(2) As Byte   ' Create 3-byte array (NB zero-based)
Dim abDigest() As Byte
Dim i As Integer

' Setup byte array with "abc"
abData(0) = Asc("a")
abData(1) = Asc("b")
abData(2) = Asc("c")

' Compute SHA-1 hash digest of input
abDigest = Sha1.BytesHash(abData)

' Now carry out repeated hashes of the digest
For i = 2 To 1000
    abDigest = Sha1.BytesHash(abDigest)
Next

' Print H(1000) in hex format
Console.WriteLine(Cnv.ToHex(abDigest))

See Also:
Sha1.BytesHash Method

[Contents] [Index]