Imports System
 
Imports System.Security.Cryptography
 
Imports System.Text
 
 
Module Example
    '哈希输入字符串并返回一个 32 字符的十六进制字符串哈希。
 
    Function GetMd5Hash(ByVal input As String) As String
 
        '创建新的一个 MD5CryptoServiceProvider 对象的实例。
 
        Dim md5Hasher As New MD5CryptoServiceProvider()
 
        '输入的字符串转换为字节数组，并计算哈希。
 
        Dim data As Byte() = md5Hasher.ComputeHash(Encoding.Default.GetBytes(input))
 
        '创建一个新的 StringBuilder 收集的字节，并创建一个字符串。
 
        Dim sBuilder As New StringBuilder()
 
        '通过每个字节的哈希数据和格式为十六进制字符串的每一个循环。
 
        For i As Integer = 0 To data.Length - 1
 
            sBuilder.Append(data(i).ToString("x2"))
 
        Next
 
        '返回十六进制字符串。
 
        Return sBuilder.ToString()
 
    End Function
 
 
    '验证对一个字符串的哈希值。
 
    Function VerifyMd5Hash(ByVal input As String, ByVal hash As String) As Boolean
 
        '哈希的输入。
 
        Dim hashOfInput As String = GetMd5Hash(input)
 
        '创建 StringComparer 的哈希进行比较。
 
        Dim comparer As StringComparer = StringComparer.OrdinalIgnoreCase
 
        Return comparer.Compare(hashOfInput, hash) = 0
 
    End Function
 
 
    Sub Main()
 
        Dim source As String = "Hello World!"
 
        Dim hash As String = GetMd5Hash(source)
 
        Console.WriteLine($"进行MD5加密的字符串为：{source}，加密的结果是：{hash}。")
 
        Console.WriteLine("正在验证哈希……")
 
        If VerifyMd5Hash(source, hash) Then
 
            Console.WriteLine("哈希值是
相同的。")
 
Else
 
            Console.WriteLine("哈希值是不相同的。")
 
EndIf
 
    EndSub
 
EndModule
 
 
'此代码示例产生下面的输出：
 
 
'进行MD5加密的字符串为：Hello World!，加密的结果是：ed076287532e86365e841e92bfc50d8c。
 
'正在验证哈希……
 
'哈希值是相同的。