UC知道VB+SQL2000做出的程序忘记登陆界面密码
来源：百度知道 编辑：UC知道 时间：2024/06/01 23:25:15
如题，程序登陆界面没密码，怎么找，是从数据库里面找还是从VB代码段找，有没有暴力破解密码的，快毕业了，论文急用，大家帮个忙
代码段 麻烦帮忙下 谢谢了 哎
Private Sub Cmd_Ok_Click()
If Text2.Text = "" Then
MsgBox "请输入密码", , "信息提示"
Text2.SetFocus
Exit Sub
End If
rs.Open "select * from tb_user where user_name='" + Text1.Text + "'", cnn, adOpenKeyset
If rs.RecordCount > 0 Then
If rs.Fields("user_mm") <> Text2.Text Then
MsgBox "你输入的密码不正确，不能操作该权限！", , "信息提示"
rs.Close
Exit Sub
Else
If Sign = True Then
Unload Me
Load Frm_Xtgl_Sjql
Frm_Xtgl_Sjql.Show 1
ElseIf Sign = False Then
Shell App.Path & "\数据库备份与恢复.exe", vbNormalFocus
End
End If
End If
End If
rs.Close
End Sub
代码段 麻烦帮忙下 谢谢了 哎
Private Sub Cmd_Ok_Click()
If Text2.Text = "" Then
MsgBox "请输入密码", , "信息提示"
Text2.SetFocus
Exit Sub
End If
rs.Open "select * from tb_user where user_name='" + Text1.Text + "'", cnn, adOpenKeyset
If rs.RecordCount > 0 Then
If rs.Fields("user_mm") <> Text2.Text Then
MsgBox "你输入的密码不正确，不能操作该权限！", , "信息提示"
rs.Close
Exit Sub
Else
If Sign = True Then
Unload Me
Load Frm_Xtgl_Sjql
Frm_Xtgl_Sjql.Show 1
ElseIf Sign = False Then
Shell App.Path & "\数据库备份与恢复.exe", vbNormalFocus
End
End If
End If
End If
rs.Close
End Sub
看看rs.Fields("user_mm")的值是多少,那个就是密码了~
呵呵，小学生终于要毕业了
密码就在你眼前，可远在天边
当然是vb代码里面找了~做毕业论文，相信你多少也懂点把，vb代码里面找就行了。我以为你没有代码才问的~汗