VB 2008 | อยากได้โค้ดแปลงข้อความเป็น MD5

Function GetMD5Code(ByVal _String As String) As String

        Dim _MD5 As New Security.Cryptography.MD5CryptoServiceProvider
        Dim _Bytes() As Byte = System.Text.Encoding.ASCII.GetBytes(_String)
        Dim _Result As String = ""

        _Bytes = _MD5.ComputeHash(_Bytes)

        For Each b As Byte In _Bytes
            _Result += b.ToString("x2")
        Next

        Return _Result

    End Function

ไม่มีครับ ถ้า MD5 แปลงกับได้ MD5 ก็ไม่มีความหมายอะไรอีกแล้วครับ