?? frmpwdmain.frm
字號:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form frmMain
Caption = "ACCESS密碼終結者3.0"
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
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
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 MSComDlg.CommonDialog CommonDialog1
Left = 1965
Top = 1725
_ExtentX = 847
_ExtentY = 847
_Version = 393216
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:母親大人去世，感覺人生的變化無常，決定公布算法，讓世界少一點暴力，讓自己也少一點秘密。
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
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 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 + -