SHA1_StringHexHash

Creates a SHA-1 message digest in hexadecimal format from a message of String type.

VB6/VBA

Debug.Print "Testing SHA1_StringHexHash ..."
Dim nRet As Long
Dim strDigest As String
' Set strDigest to be 40 chars
strDigest = String(40, " ")
nRet = SHA1_StringHexHash(strDigest, "abc")
Debug.Print strDigest
nRet = SHA1_StringHexHash(strDigest, _
    "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq")
Debug.Print strDigest

Output

Testing SHA1_StringHexHash ...
a9993e364706816aba3e25717850c26c9cd0d89d
84983e441c3bd26ebaae4aa1f95129e5e54670f1

VB.NET

Console.WriteLine("Testing SHA1_StringHexHash ...")
''Dim nRet As Integer
Dim strDigest As String
' Set strDigest to be 40 chars
''strDigest = String(40, " ")
strDigest = Sha1.HexHash("abc")
Console.WriteLine(strDigest)
strDigest = Sha1.HexHash( _
    "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq")
Console.WriteLine(strDigest)

[Contents]