📄 frmpwdmain.frm
字号:
VERSION 5.00
Begin VB.Form frmMain
Caption = "ACCESS 密码终结 3.01"
ClientHeight = 2565
ClientLeft = 60
ClientTop = 450
ClientWidth = 8760
Icon = "frmPwdMain.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 2565
ScaleWidth = 8760
StartUpPosition = 1 '所有者中心
Begin VB.CheckBox chkUseForce
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "使用暴力破解"
ForeColor = &H80000008&
Height = 255
Left = 90
TabIndex = 12
Top = 1815
Visible = 0 'False
Width = 1545
End
Begin VB.CheckBox chkMore
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "尝试更多的密码"
Enabled = 0 'False
ForeColor = &H80000008&
Height = 255
Left = 1830
TabIndex = 11
Top = 1815
Visible = 0 'False
Width = 1695
End
Begin VB.Frame Frame1
Appearance = 0 'Flat
ForeColor = &H80000008&
Height = 1260
Left = 30
TabIndex = 1
Top = 15
Width = 8655
Begin VB.CommandButton cmdCopy
Caption = "拷贝"
Height = 330
Left = 6630
TabIndex = 10
Top = 675
Width = 585
End
Begin VB.TextBox txtVersion
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 270
Left = 555
Locked = -1 'True
TabIndex = 4
Top = 735
Width = 1440
End
Begin VB.CommandButton cmdOpenFile
Caption = "打开文件..."
Height = 330
Left = 7290
TabIndex = 2
Top = 675
Width = 1260
End
Begin VB.TextBox txtFileName
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 270
Left = 570
Locked = -1 'True
TabIndex = 5
Text = "*.*"
Top = 240
Width = 8010
End
Begin VB.TextBox txtPassword
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
ForeColor = &H000000FF&
Height = 285
Left = 2520
Locked = -1 'True
TabIndex = 3
Top = 720
Width = 4065
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "文件:"
Height = 180
Left = 105
TabIndex = 8
Top = 285
Width = 450
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "版本:"
Height = 180
Left = 105
TabIndex = 7
Top = 780
Width = 450
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "密码:"
Height = 180
Left = 2055
TabIndex = 6
Top = 780
Width = 450
End
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "本程序代码无版权限制，但因为使用不当等原因对您或社会造成伤害，作者概不负责。"
ForeColor = &H00E0E0E0&
Height = 180
Left = 165
TabIndex = 13
Top = 1395
Width = 6840
End
Begin VB.Label lblProcess
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = " 进 度"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 255
Left = 45
TabIndex = 9
Top = 2250
Visible = 0 'False
Width = 8655
End
Begin VB.Shape Shape1
BackColor = &H00FF0000&
BackStyle = 1 'Opaque
BorderColor = &H00FF0000&
FillColor = &H00FFFFFF&
FillStyle = 3 'Vertical Line
Height = 195
Left = 75
Top = 2280
Visible = 0 'False
Width = 8565
End
Begin VB.Label lblMailto
Alignment = 1 'Right Justify
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00E0E0E0&
BorderStyle = 1 'Fixed Single
Caption = " Author:China54 Email:Binny@vip.163.com "
ForeColor = &H80000008&
Height = 225
Left = 4140
MouseIcon = "frmPwdMain.frx":0442
MousePointer = 99 'Custom
TabIndex = 0
Top = 1830
Width = 4530
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'能够破解ACCESS97/2000/2003/XP等任意版本
'本程序显示了Microsoft Access中密码的脆弱性
'===========================================================================
' Code Name: 演示采用直接或暴力方法破解ACCESS密码
' First Built: 2003-8-7
' Last Modify: 2003-10-18
' Author: 赵斌（Binny）
' Copyright: 本程序代码无版权限制，但因为使用不当等原因 _
对你或社会造成伤害，作者概不负责。
'===========================================================================
' 很多时候，与其去研究什么密码算法，还不如采取暴力破解。
' 不过，如果能知道密码的算法，就可以斯文一点了。
' 本程序可以称得上暴力和色情的完美结合， _
所谓色情，意味着只有脱掉Bill的裤子，才知道内裤的颜色。
' Access2000的密码，与文件的创建时间有关，即使目前很多宣称能破解密码的软件， _
也只是对软件作者自己计算机上的密码进行破解而已。在后面将会看到，不同时间创建 _
的密码只是略有不同（密码算子），本程序将采用尝试的方法来得到这个密码算子。
' 其实也不算暴力，最多255，对计算机来说，洒洒水啦：）
'注：当采用暴力方法破解时，计算机要装有DAO3.60（即Microsoft DAO 3.6 Object Library--dao360.dll）
' 用本思路，也可以使用ADO2.5以上来测试连接（Microsoft ActiveX Data Objects 2.5 Library --msado25.tlb）
' 关于密码的算子，将来也许有变化（本程序在Access2003环境下测试通过）。
'2003-08-08:新增对ADO连接测试的功能，但测试的结果感觉速度比较慢
'2003-10-10:新增加了对双字节（例如中文）密码的支持
'2003-10-18:跟踪了ACCESS2003的密码算法，并由此推及到其他版本的密码算法，将算法使用VB代码实现。
'2004-01-01:公布算法
'2004-04-01:去掉了暴力部分代码和一些不必要的引用，可在VB5下编译，方便初学者使用和编译
Option Explicit
Dim mbMove As Boolean
'***************** 以下代码，含暴力内容，请各位家长注意 ************************
Private Sub cmdOpenFile_Click()
Dim sFile As String
Dim sPasswd As String
Dim sVersion As String
cmdOpenFile.Enabled = False
sFile = INNER_GetFileName(True, "mdb (*.mdb)|*.mdb", "MDB", txtFileName.Text, "请选择数据库文件")
If Len(sFile) > 0 Then
Shape1.Width = 0
txtFileName = sFile
txtVersion = ""
txtPassword = ""
lblProcess.Visible = True
Shape1.Visible = True
If chkUseForce.Value = vbChecked Then chkMore.Enabled = False
cmdCopy.Enabled = False
sPasswd = INNER_GetAccessPwd(sFile, sVersion, (chkUseForce.Value = vbUnchecked))
If gbExit Then Exit Sub
cmdCopy.Enabled = True
If chkUseForce.Value = vbChecked Then chkMore.Enabled = True
Shape1.Visible = False
lblProcess.Visible = False
txtVersion = sVersion
txtPassword = sPasswd
End If
cmdOpenFile.Enabled = True
End Sub
Private Sub Form_Load()
Shape1.Width = 0
Shape1.Visible = False
glCounts = 255
lblMailto.Caption = " Author:Binny Email:Binny@vip.163.com "
lblMailto.ForeColor = vbBlue
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If mbMove Then
mbMove = False
lblMailto.ForeColor = vbBlue
End If
Label4.ForeColor = txtFileName.BackColor
End Sub
Private Sub cmdCopy_Click()
Dim sString As String
sString = CStr(txtPassword.Text)
Clipboard.Clear ' 清除剪贴板。
Clipboard.SetText sString, vbCFText
End Sub
Private Sub Form_Unload(Cancel As Integer)
gbExit = True
End Sub
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Label4.ForeColor = vbRed
End Sub
Private Sub lblMailto_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
Call ShellExecute(0&, vbNullString, "MailTo:Binny@vip.163.com", vbNullString, vbNullString, vbNormalFocus)
End If
End Sub
Private Sub lblMailto_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Not mbMove Then
lblMailto.ForeColor = vbRed
mbMove = True
End If
End Sub
Private Sub chkMore_Click()
If chkMore.Value = vbChecked Then
glCounts = 65535
Else
glCounts = 255
End If
End Sub
Private Sub chkUseForce_Click()
chkMore.Enabled = chkUseForce.Value = vbChecked
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -