[vb_net]

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

مثال تشفير الى 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