此贴已结

[ 本帖最后由 vbqwerty 于 2014-5-13 14:23 编辑 ]

你工程里所带的
用户名：cchen
密码：071991

解密程序：解密函数工程里自带了。

Private Sub Command1_Click()
Dim s As String
s = InputBox("请输入密文：", "输入密文")
If Len(s) > 0 Then
    s = decode_reduce3(s)
    MsgBox "原密码是：" & s
End If
End Sub
'解密函数，在 加密控制类 中。包括加密函数都在。
Public Function decode_reduce3(ByVal the_txt As String) As String
Dim num1&
Dim char2$
Dim char3$
Dim i As Long
For i = 1 To Len(the_txt)
    num1 = Asc(Mid(the_txt, i, 1))
    num1 = num1 - 4
    char2 = Chr(num1)
    char3 = char3 & char2
Next i
decode_reduce3 = char3
End Function

----------------------------------
不写程序，在form8的源代码中，
找到这行
        MsgBox "密码不符", 48, "密码错误提示"
然后在这上面这行下个断点，
运行程序，密码随便输入
确定后在这里会中断，然后检查 变量  Ycode  的值，这个值就是 密码。
有工程还会找不到密码，第一次听说...........

这个软件实际可以应用吗，编制的很仓促。

[ 本帖最后由 vbvcr51 于 2014-5-12 08:46 编辑 ]

这界面实在看的蛋疼

谢谢大家的帮忙

Private DB As ADODB.Connection
Private Rs As ADODB.Recordset

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To Rs.RecordCount
Rs.AbsolutePosition = i
 If Trim(Rs("name")) = Text1.Text And Trim(Rs("password")) = Text2.Text Then
 Form2.Show
 Unload Form1
Exit For
Else
 If i = Rs.RecordCount Then
 MsgBox "用户与密码不正确，请重新输入", , "登录"
Command2_Click
End If

End If
Next
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Set DB = New ADODB.Connection
DB.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\EMS.mdb"
Set Rs = New ADODB.Recordset
Rs.Open "info", DB, adOpenKeyset, adLockOptimistic

End Sub

vb中如有问题，可问我

怎么处理啊，资源分