'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''' '''' '''' 登录验证组件 '''' '''' '''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Imports System.Security.Cryptography Imports System.Text Imports System.Data Imports System.Data.SqlClient Public Class ValidatorClass Validator Inherits System.ComponentModel.Component Private username As String Private userpwd As String Public Property vUsername()Property vUsername() As String Get Return username End Get Set(ByVal Value As String) username = Value End Set End Property Public Property vUserpwd()Property vUserpwd() As String Get Return userpwd End Get Set(ByVal Value As String) userpwd = Value End Set End Property ''''转换为ＭＤ５ Private Function convertMD5()Function convertMD5(ByVal pwd As String) As String Dim md5 As New MD5CryptoServiceProvider Dim password As Byte() = (New ASCIIEncoding).GetBytes(pwd) ''''转换为哈希值Byte数组 Dim mdByte As Byte() = md5.ComputeHash(password) ''''Dim mdString
Public Class ValidatorClass Validator
Inherits System.ComponentModel.Component
Public Property vUsername()Property vUsername() As String
End Property
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
