تبدیل پسور کاربر به متن امن برای ذخیره در دیتابیس

با سلام به همه
امیدوارم که این کد براتون کارآمد باشه و ازش استفاده کنید:
ضمیمه 154902

Imports System.Text

Imports System.Security.Cryptography

Public Class Form1

    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(in  put))

        ' 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 compare the hashes.

        Dim comparer As StringComparer = StringComparer.OrdinalIgnoreCase

        If 0 = comparer.Compare(hashOfInput, hash) Then

            Return True

        Else

            Return False

        End If

    End Function

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Me.Label1.Text = GetMd5Hash(Me.TextBox1.Text)

    End Sub





    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

        Dim b As Boolean = verifyMd5Hash(Me.TextBox1.Text, Me.Label1.Text)

        MsgBox(If(b, "Correct Password", "Incorrect Password!"))

    End Sub

End Class

https://www.aparat.com/v/8hNL4
در ضمن خوشحال می شم کانال آپارات من رو دنبال کنید: آپارات - سرویس اشتراک ویدیو (aparat.com)

دانلود سورس پروژه :