form1.frm

用穷举法破解MDB数据库密码,可能要花很长时间,请您耐心等待,一定会有惊喜的.至少算法可供参考.

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3780
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6420
   LinkTopic       =   "Form1"
   ScaleHeight     =   3780
   ScaleWidth      =   6420
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text2 
      Height          =   375
      Left            =   2520
      TabIndex        =   3
      Text            =   "Text2"
      Top             =   240
      Width           =   2415
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   240
      Top             =   3120
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Left            =   2520
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   1080
      Width           =   3015
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   960
      TabIndex        =   0
      Top             =   1080
      Width           =   1215
   End
   Begin VB.Label Label2 
      Caption         =   "文件名："
      Height          =   255
      Left            =   1440
      TabIndex        =   4
      Top             =   360
      Width           =   855
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   495
      Left            =   3120
      TabIndex        =   2
      Top             =   2520
      Width           =   2055
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim miao As Long
Private Sub Command1_Click()
Dim SQLtable As String
Dim Password As String
Dim zPass As String
Dim strPass As String
Dim ws As Long
Dim ascII() As Long
Dim asc2 As Long
Dim strP As String
Dim i As Long
Dim j As Long
ws = 1
ReDim ascII(ws)
ascII(1) = 32
Set CN = New ADODB.Connection

Text1.Text = Chr(763)
Password = ""
On Error GoTo uncovePass
'CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\fs\CopySys\db2.mdb;Persist Security Info=False;Jet OLEDB:Database Password=" & Password
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\" & Trim(Text2.Text) & ";Persist Security Info=False;Jet OLEDB:Database Password=" & Password
zPass = Password
GoTo continue

uncovePass:
    Password = ""
        'If ascII(ws) >= 127 Then Exit Sub  '单个字符
        If ascII(ws) > 127 Then
            ws = ws + 1
            ReDim ascII(ws)
            For j = 1 To ws
                ascII(j) = 32
            Next j
        End If
        
        For j = 1 To ws
            
            If ascII(j) > 127 Then
                ascII(j) = 32
                If j + 1 <= ws Then
                    ascII(j + 1) = ascII(j + 1) + 1
                    If ascII(ws) > 127 Then Exit For
                End If
            End If
            Password = Chr(ascII(j)) & Password
            'Password = "03" & Chr(ascII(j)) & "10913012"
            If j = 1 Then ascII(1) = ascII(1) + 1
            
        Next j

        Resume
continue:
Text1.Text = zPass
End Sub

Private Sub Timer1_Timer()
'miao = miao + 1
'Label1.Caption = miao
End Sub