مثال تشفير الى md5 - نسخة قابلة للطباعة

السلام عليكم ورحمة الله

مثال تشفير الى md5

صورة للبرنامج

كود سورس

الدالة المستعملة لتشفير

كود :

Public Shared Function getMD5Hash(ByVal strToHash As String) As String

        Dim md5Obj As New System.Security.Cryptography.MD5CryptoServiceProvider()

        Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash)

        bytesToHash = md5Obj.ComputeHash(bytesToHash)

        Dim strResult As String = ""

        Dim b As Byte

        For Each b In bytesToHash

            strResult += b.ToString("x2")

        Next

        Return strResult

    End Function

زر التشفير

كود :

Dim md5_crypte As String = GetMd5Hash(TextBox1.Text)

        TextBox2.Text = md5_crypte