Public Function MD5(ByVal yazi As String) As String
Try
Dim MD5şifreleyici As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim baytlar As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(yazi)
Dim hash As Byte() = MD5şifreleyici.ComputeHash(baytlar)
Dim kapasite As Integer =...
