求高手破解 vb 用户登录界面密码，O(∩ _ ∩)O 谢谢。

#2

风吹过b2014-05-10 21:57

你工程里所带的
用户名：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 的值，这个值就是密码。
有工程还会找不到密码，第一次听说...........

#3

vbvcr512014-05-12 00:05

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

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

#4

alike1232014-05-12 11:06

这界面实在看的蛋疼

#5

vbqwerty2014-05-13 14:22

谢谢大家的帮忙

#6

云飞扬12062014-06-24 16:09

#7

andy12342014-07-04 23:02

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

#8

andy12342014-07-04 23:10

回复 7 楼 andy1234

vb中如有问题，可问我

#9

st1259002014-07-05 13:07

怎么处理啊，资源分

求高手破解 vb 用户登录界面 密码，O(∩ _ ∩)O 谢谢。