密碼以 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)
Const strConnString As String = "connection string"
Dim objConn As New SqlConnection(strConnString)
Dim strSQL As String = "SELECT COUNT(*) FROM UserAccount WHERE Username=@Username AND Password=@PassWord"
Dim objCmd As New SqlCommand(strSQL, objConn)
' 參數化查詢防止 SQL Injection
Dim paramUsername As New SqlParameter("@Username", SqlDbType.VarChar, 25)
paramUsername.Value = txtUsername.Text
objCmd.Parameters.Add(paramUsername)
' MD5 雜湊密碼
Dim md5Hasher As New MD5CryptoServiceProvider()
Dim hashedDataBytes As Byte() = md5Hasher.ComputeHash(New UTF8Encoding().GetBytes(txtPwd.Text))
Dim paramPwd As 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>
MD5 加密雖提升安全性,但需權衡使用者體驗與遷移成本,實務上可搭配鹽值、雙因子驗證等機制強化。