使用MD5鉴别是否合法用户 既然用户密码是按照MD5加密以后保存在数据库中的，我们知道，MD5是单次加密算法，所以，不可能将加密以后的信息转为明文，也就是说，已经没有办法知道。这就出现一个问题，如果用户使用账号、密码登录，怎么知道用户提供的密码是否准确呢？ 这就不得不提到我们前文说到的MD5的特征，我们知道，任意一段明文数据，经过加密以后，其结果必须永远是不变的，也就是说，如果需要验证用户密码是否正确，只需要将用户当前提供的密码使用MD5加密，然后和数据库中保存的密码字段比较就可以了。以下代码就可以实现这个功能： <%@ Import Namespace="System.Security.Cryptography" %> <%@ Import Namespace="System.Text" %> <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.SqlClient" %> <Script runat="server" language="VB"> Sub Login(sender as Object, e as EventArgs) '1. 建立数据库连接 Const strConnString as String = "connection string" Dim objConn as New SqlConnection(strConnString) '2. 建立Command对象 Dim strSQL as String = "SELECT COUNT(*) FROM UserAccount " & _ "WHERE Username=@Username AND Password=@Password" Dim objCmd as New SqlCommand(strSQL, objConn) '3. SQL参数 Dim paramUsername as SqlParameter paramUsername = New SqlParameter("@Username", SqlDbType.VarChar, 25) paramUsername.Value = txtUsername.Text objCmd.Parameters.Add(paramUsername) '加密密码信息 Dim md5Hasher as New MD5CryptoServiceProvider() Dim hashedDataBytes as Byte() Dim encoder as New UTF8Encoding() hashedDataBytes = md5Hasher.ComputeHash(encoder.GetBytes(txtPwd.Text)) Dim paramPwd as SqlParameter paramPwd = New SqlParameter("@Password", SqlDbType.Binary, 16) paramPwd.Value = hashedDataBytes objCmd.Parameters.Add(paramPwd) objConn.Open() Dim iResults as Integer = objCmd.ExecuteScalar() objConn.Close() If iResults = 1 then '正确 Else '错误 End If End Sub </script> <Form runat="server"> <h1>Login</h1> 用户账号: <asp:TextBox runat="server" id="txtUsername" /> <br />密码: <asp:TextBox runat="server" id="txtPwd" TextMode="Password" /> <p><asp:Button runat="server" Text="Login" onClick="登录" /> </form>
