frmpwdmain.frm

暴力破解AccesS数据库的代码,很棒的啊!V1.0版本

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmMain 
   Caption         =   "暴力破解ACCESS Passwd"
   ClientHeight    =   1890
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   8625
   Icon            =   "frmPwdMain.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   ScaleHeight     =   1890
   ScaleWidth      =   8625
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Frame1 
      Height          =   1260
      Left            =   60
      TabIndex        =   1
      Top             =   15
      Width           =   8490
      Begin VB.TextBox txtFileName 
         Height          =   270
         Left            =   825
         Locked          =   -1  'True
         TabIndex        =   5
         Text            =   "*.*"
         Top             =   240
         Width           =   7410
      End
      Begin VB.TextBox txtVersion 
         Height          =   270
         Left            =   825
         Locked          =   -1  'True
         TabIndex        =   4
         Top             =   735
         Width           =   1845
      End
      Begin VB.TextBox txtPassword 
         Height          =   270
         Left            =   3570
         Locked          =   -1  'True
         TabIndex        =   3
         Top             =   735
         Width           =   2475
      End
      Begin VB.CommandButton cmdOpenFile 
         Caption         =   "Open File"
         Height          =   405
         Left            =   6390
         TabIndex        =   2
         Top             =   675
         Width           =   1845
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "文件名:"
         Height          =   180
         Left            =   105
         TabIndex        =   8
         Top             =   285
         Width           =   630
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "版  本:"
         Height          =   180
         Left            =   105
         TabIndex        =   7
         Top             =   780
         Width           =   630
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "密  码:"
         Height          =   180
         Left            =   2850
         TabIndex        =   6
         Top             =   780
         Width           =   630
      End
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   6000
      Top             =   930
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      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       =   &H000000FF&
      Height          =   255
      Left            =   60
      TabIndex        =   9
      Top             =   1440
      Width           =   2805
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H00FF0000&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H00FF0000&
      FillColor       =   &H00FFFFFF&
      FillStyle       =   3  'Vertical Line
      Height          =   195
      Left            =   60
      Top             =   1470
      Width           =   2805
   End
   Begin VB.Label Label4 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      Caption         =   " Author:China54          Email:[e-mail] "
      ForeColor       =   &H80000008&
      Height          =   225
      Left            =   4080
      TabIndex        =   0
      Top             =   1485
      Width           =   4440
   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

'****************************************************
'     CodeName: 使用暴力破解ACCESS PASSWORD
'     Date:     2003-8-7  ***************************
'     Author:   China54   * 新增加了ADO连接测试的功能
'**************************

'刚才突发奇想，与其去研究什么密码算子，还不如采取暴力破解。
'其实也不算暴力，最多255，对计算机来说，洒洒水啦：）

'注：计算机要装有DAO3.60（即Microsoft DAO 3.6 Object Library--dao360.dll）
'    用本思路，也可以使用ADO2.5以上来测试连接（Microsoft ActiveX Data Objects 2.5 Library --msado25.tlb）
'    关于密码的算子，将来也许有变化（本程序在Access2003环境下测试通过）。

Option Explicit

'***************** 以下代码，含暴力内容，请各位家长注意 ************************

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 = ""
    sPasswd = INNER_GetAccessPwd(sFile, sVersion)
    txtVersion = sVersion
    txtPassword = sPasswd
  End If
  cmdOpenFile.Enabled = True
End Sub

Private Sub Form_Load()
  Shape1.Width = 0
End Sub