crkaccpassform.pas

domain3.2 SQL注入漏洞扫描 旁注 上传功能 数据库浏览

{##########################################
         旁注入侵专用程序 3.0升级版
 -----------------------------------------
  模块：破解数据库密码
  作者：2005.3.26日晚  明小子
##########################################}

unit CrkAccPassForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons, AccPass;

type
  TCrackAccPassForm = class(TForm)
    lbDataPath: TLabel;
    LbDataType: TLabel;
    LbDataPass: TLabel;
    btOpenData: TSpeedButton;
    btCrackPass: TSpeedButton;
    CreakDataPath: TEdit;
    DataType: TEdit;
    DataPass: TEdit;
    StatusBar1: TStatusBar;
    procedure FormCreate(Sender: TObject);
    procedure btCrackPassClick(Sender: TObject);
    procedure btOpenDataClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CrackAccPassForm: TCrackAccPassForm;

implementation

uses MainUnit;

{$R *.dfm}

procedure TCrackAccPassForm.FormCreate(Sender: TObject);
begin
  CrackAccPassForm.FormStyle := fsStayOnTop; //窗体置顶
end;

procedure TCrackAccPassForm.btCrackPassClick(Sender: TObject);
begin
  try
    if Trim(CreakDataPath.Text) = '' then Exit;
    if FileExists(CreakDataPath.Text) then
      GetAccPass(CreakDataPath.Text, DataType, DataPass)
    else
      application.MessageBox('找不到文件,请确认数据库文件路径是否正确!', '提示', 48)
  except
  end;
end;

procedure TCrackAccPassForm.btOpenDataClick(Sender: TObject);
begin
  MainForm.OpenFile.DefaultExt := 'mdb';
  MainForm.OpenFile.Filter := '数据库文件 (*.mdb)|*.mdb|所有文件 (*.*)|*.*';
  if MainForm.OpenFile.Execute then
    CreakDataPath.Text := MainForm.OpenFile.FileName;
end;

end.