[سعود]

تقصد الدالة هذي؟

كود :

Private Function md5(ByVal strToHash As String) As String
       Dim md5Obj As New System.Security.Cryptography.MD5CryptoServiceProvider()
       Dim bytesToHash() As Byte = System.Text.Encoding.UTF8.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