In .NET 1.1, a sample hashing function can be as follows:
Listing 1
Imports System.Text
Imports System.Security.Cryptography
Function ComputeHashValue(ByVal Data As String) As String
Dim HashAlgorithm As SHA1 = SHA1.Create
Dim HashValue() As Byte =
HashAlgorithm.ComputeHash(Encoding.ASCII.GetBytes(Data))
Return Encoding.ASCII.GetString(HashValue)
End Function