MD5 Encryption

Imports System.Text

Imports System.IO

Shared Function GetMd5Hash(ByVal md5Hash As MD5, ByVal input As String) As String

        ' Convert the input string to a byte array and compute the hash.

        Dim data As Byte() = md5Hash.ComputeHash(Encoding.UTF8.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 'GetMd5Hash

Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

        Dim md5Hash As MD5 = MD5.Create()

        Dim x As String

        Dim var_password As String = GetMd5Hash(md5Hash, x)

End Sub