CryptoSys API examples VB6 to VB.NET

MD5_StringHexHash

Creates an MD5 message digest in hexadecimal format from a message of String type.

VB6/VBA

Debug.Print "Testing MD5_StringHexHash ..."
Dim nRet As Long
Dim strDigest As String
' Set strDigest to be 32 chars
strDigest = String(32, " ")
nRet = MD5_StringHexHash(strDigest, "abc")
Debug.Print strDigest

nRet = MD5_StringHexHash(strDigest, _
    "abcdefghijklmnopqrstuvwxyz")
Debug.Print strDigest

Output

Testing MD5_StringHexHash ...
900150983cd24fb0d6963f7d28e17f72
c3fcd3d76192e4007dfb496cca67e13b

VB.NET

Console.WriteLine("Testing MD5_StringHexHash ...")
''Dim nRet As Integer
Dim strDigest As String
' Set strDigest to be 32 chars
''strDigest = String(32, " ")
strDigest = Md5.HexHash("abc")
Console.WriteLine(strDigest)

strDigest = Md5.HexHash( _
    "abcdefghijklmnopqrstuvwxyz")
Console.WriteLine(strDigest)

[Contents]

[HOME]   [NEXT: PAD_BytesBlock...]

Copyright © 2009-20 D.I. Management Services Pty Ltd. All rights reserved.