ถามเรื่องการเข้ารหัสแบบ MD5 (ASP.NET+VB) คือ อยากรู้ Code วิธีเข้ารหัส (En-Code , De-Code)คับ

    Imports System.Security.Cryptography
    Imports System.Text

    Public Function MD5(ByVal strString As String) As String
        Dim ASCIIenc As New ASCIIEncoding
        Dim strReturn As String
        Dim ByteSourceText() As Byte = ASCIIenc.GetBytes(strString)
        Dim Md5Hash As New MD5CryptoServiceProvider
        Dim ByteHash() As Byte = Md5Hash.ComputeHash(ByteSourceText)
        For Each b As Byte In ByteHash
            strReturn = strReturn & b.ToString("x2")
        Next
        Return strReturn
    End Function