13-05-14, 05:35 PM
السلام عليكم ورحمة الله
مثال تشفير الى 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