Metin Şifreleme
Herhangi bir metni şifrelemek için MD5 algoritmasıyla şifrelemek için aşağıdaki metodu kullanabilirsiniz.
Bu method kısaca, parametre olarak aldığı string'i şifreleyip size sayılardan oluşan bir string olarak geri döndürür.
Public Shared Function EncryptText(ByVal Text As String) As String
Dim result_ As String = ""
Dim md5Prov_ As new MD5CryptoServiceProvider
Dim enc As new System.Text.ASCIIEncoding
Dim arrEncrtypt_() As Byte = md5Prov_.ComputeHash(enc.GetBytes(Text))
For i_ As Integer = 0 To arrEncrtypt_.Length - 1
result_ &= arrEncrtypt_(i_).ToString
Next
Return result_
End Function
Bu method kısaca, parametre olarak aldığı string'i şifreleyip size sayılardan oluşan bir string olarak geri döndürür.
Public Shared Function EncryptText(ByVal Text As String) As String
Dim result_ As String = ""
Dim md5Prov_ As new MD5CryptoServiceProvider
Dim enc As new System.Text.ASCIIEncoding
Dim arrEncrtypt_() As Byte = md5Prov_.ComputeHash(enc.GetBytes(Text))
For i_ As Integer = 0 To arrEncrtypt_.Length - 1
result_ &= arrEncrtypt_(i_).ToString
Next
Return result_
End Function
Yorumlar