26-09-12, 01:23 AM
السلام عليكم ورحمة الله وبركاته
يعتبر MD5 من انواع التشفير القوي .. لانها تشفير باتجاه واحد .. يعني تشفير فقط .. اي لا يوجد طريقة لعكسها
المثال
كود :
Function getMD5Hash(ByVal strToHash As String) As String
Dim md5Obj As New Security.Cryptography.MD5CryptoServiceProvider
Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash)
bytesToHash = md5Obj.ComputeHash(bytesToHash)
Dim strResult As String = ""
For Each b As Byte In bytesToHash
strResult += b.ToString("x2")
Next
Return strResult
End Function
ويمكن استدعائها بالشكل التالي
كود :
MsgBox(getMD5Hash(text))
تجدون طيه المثال المرفق
تحياتي