请教登陆密码MD5验证问题

我想我是海　发表于：2014-11-26 16:50:34 　

小弟用ADP连接公司业务系统的SQL 2000数据库，该数据库里已有一个用户表，密码是采用MD5加密的。

现在在做一个登陆窗体，点击登陆后，出现如下图错误

这段代码，如果我改成使用密码明文保存的用户表，则可以正常使用，所以想请教各位，当密码是使用MD5加密的时候，改如何修改代码？

Private Sub login_ok_Click()
Dim CN1 As New ADODB.Connection
Dim RS1 As New ADODB.Recordset
Set CN1 = CurrentProject.Connection
RS1.Open "SELECT * FROM S_S_OPER WHERE [XNAME] like  '" & Me![Lid] & "'", CN1, adOpenStatic, adLockReadOnly
If RS1.RecordCount > 0 Then
    If Me![pwd] = RS1.Fields(1) Then
       For i = 1 To Len(Me![pwd])
           If Asc(Mid(Me![pwd], i, 1)) <> _
                      Asc(Mid(RS1.Fields(1), i, 1)) Then
               MsgBox "密码输入错误，请重新输入！"
               Me![pwd].SetFocus
               Exit Sub
           End If
        Next
       NowLoginID = RS1.Fields(0)
       DoCmd.Close acForm, Me.Name
        DoCmd.OpenForm "主窗体"
   Else
        MsgBox "密码输入错误，请重新输入！"
        Me![pwd].SetFocus
        Me![pwd].SelStart = 0
        Me![pwd].SelLength = Len(Me![pwd])
        Exit Sub
    End If
 Else
    MsgBox "账号错误，请重新输入"
    Me![Lid].SetFocus
    Me![Lid].SelStart = 0
    Me![Lid].SelLength = Len(Me![Lid])
 End If
End Sub

Top

宏鹏发表于：2014-11-27 09:20:28

【access源码】加密模块VBA版本源码（MD5、SHA1、DES3）[Access软件网]
http://www.accessoft.com/article-show.asp?id=5540

把输入的密码转换成md5字符，跟数据库里保存的密码进行对比

Top

红尘如烟发表于：2014-11-27 09:25:15

你数据库中保存的是MD5值，这里验证的时候就得把用户输入的密码也转成MD5值，然后才能进行对比啊，不然永远都是密码错误。

If MD5(Me!pwd) <> rst!pwd Then
    MsgBox "密码错误。"
    Me!pwd.SetFocus
    Exit Sub
End If

Top

我想我是海发表于：2014-11-27 11:43:53

谢谢两位老师。

是的，我在登陆窗体多加了一个隐藏文本框，用来先将密码转换成MD5值了。

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

[5分]请教登陆密码MD5验证问题