Public Function GetMD5Hash(ByVal Text As String) As Byte()
' Generates an MD5 hash for the specified Text
On Error Resume Next
Dim objAscii As New System.Text.ASCIIEncoding()
Dim bytHash As Byte() = _
New System.Security.Cryptography.MD5CryptoServiceProvider(). _
ComputeHash(objAscii.GetBytes(Text))
Return bytHash
End Function
Please SUBSCRIBE to get new articles directly into your Email inbox!
' Generates an MD5 hash for the specified Text
On Error Resume Next
Dim objAscii As New System.Text.ASCIIEncoding()
Dim bytHash As Byte() = _
New System.Security.Cryptography.MD5CryptoServiceProvider(). _
ComputeHash(objAscii.GetBytes(Text))
Return bytHash
End Function
Please SUBSCRIBE to get new articles directly into your Email inbox!
تعليقات
إرسال تعليق