• VB.net 生成MD5


    Imports System
    Imports System.Security.Cryptography
    Imports System.Text

    Module Example

    ' Hash an input string and return the hash as
    ' a 32 character hexadecimal string.
    Function getMd5Hash(ByVal input As String) As String
    ' Create a new instance of the MD5 object.
    Dim md5Hasher As MD5 = MD5.Create()

    ' Convert the input string to a byte array and compute the hash.
    Dim data As Byte() = md5Hasher.ComputeHash(Encoding.Default.GetBytes(input))

    ' Create a new Stringbuilder to collect the bytes
    ' and create a string.
    Dim sBuilder As New StringBuilder()

    ' Loop through each byte of the hashed data
    ' and format each one as a hexadecimal string.
    Dim i As Integer
    For i = 0 To data.Length - 1

    sBuilder.Append(data(i).ToString("x2"))

    Next i

    ' Return the hexadecimal string.
    Return sBuilder.ToString()

    End Function

    ' Verify a hash against a string.
    Function verifyMd5Hash(ByVal input As String, ByVal hash As String) As Boolean
    ' Hash the input.
    Dim hashOfInput As String = getMd5Hash(input)

    ' Create a StringComparer an comare the hashes.
    Dim comparer As StringComparer = StringComparer.OrdinalIgnoreCase

    If 0 = comparer.Compare(hashOfInput, hash) Then
    Return True
    Else
    Return False
    End If
    End Function

    Sub Main()

    Dim source As String = "Hello World!"
    Dim hash As String = getMd5Hash(source)

    Console.WriteLine("The MD5 hash of " + source + " is: " + hash + ".")

    Console.WriteLine("Verifying the hash...")

    If verifyMd5Hash(source, hash) Then
    Console.WriteLine("The hashes are the same.")

    Else
    Console.WriteLine("The hashes are not same.")

    End If
    End Sub
    End Module
    ' This code example produces the following output:
    '
    ' The MD5 hash of Hello World! is: ed076287532e86365e841e92bfc50d8c.
    ' Verifying the hash...
    ' The hashes are the same.

  • 相关阅读:
    Codeforces 834D The Bakery
    hdu 1394 Minimum Inversion Number
    Codeforces 837E Vasya's Function
    Codeforces 837D Round Subset
    Codeforces 825E Minimal Labels
    Codeforces 437D The Child and Zoo
    Codeforces 822D My pretty girl Noora
    Codeforces 799D Field expansion
    Codeforces 438D The Child and Sequence
    Codeforces Round #427 (Div. 2) Problem D Palindromic characteristics (Codeforces 835D)
  • 原文地址:https://www.cnblogs.com/pyblogs/p/3492930.html
Copyright © 2020-2023  润新知