getpwd.pas

在不改变access文件密码的情况下

unit GetPwd;

interface

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

type
  TFrmAccessPWD = class(TForm)
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    BitBtn1: TBitBtn;
    OpenDialog1: TOpenDialog;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn2: TBitBtn;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmAccessPWD: TFrmAccessPWD;
  My:Array[0..16] of Integer;

implementation
uses About;
{$R *.DFM}

procedure TFrmAccessPWD.SpeedButton1Click(Sender: TObject);
begin
  Edit2.Text:='';
  if OpenDialog1.Execute then
  begin
    Edit1.Text := OpenDialog1.FileName;
  end;

end;

procedure TFrmAccessPWD.BitBtn1Click(Sender: TObject);
var
  fp:HFILE;
  CWord:Array[0..13] of Byte;
  si:Array[0..13] of Integer;
  str:string;
  i:Integer;
begin
   fp:=_lopen(PChar(Edit1.Text), OF_READ);
   _llseek(fp,66,FILE_BEGIN);
   _lread(fp,@CWord,13);
   _lclose(fp);

   if (Ord(cWord[0]) or My[0]) = 0 then
      Edit2.Text := 'No Password!'
   else  
      begin
        for i:=0 to 12 do
        begin
         Str:=IntToStr(Cword[i]);
         si[i]:=StrtoInt(Str);
         si[i] := si[i] Xor My[i];
        end;

        str:='';
        str:=str+Chr(si[0]);
        str:=str+Chr(si[1]);
        str:=str+Chr(si[2]);
        str:=str+Chr(si[3]);
        str:=str+Chr(si[4]);
        str:=str+Chr(si[5]);
        str:=str+Chr(si[6]);
        str:=str+Chr(si[7]);
        str:=str+Chr(si[8]);
        str:=str+Chr(si[9]);
        str:=str+Chr(si[10]);
        str:=str+Chr(si[11]);
        str:=str+Chr(si[12]);

        Edit2.Text := Str;

      end;

end;

procedure TFrmAccessPWD.FormCreate(Sender: TObject);
begin
    My[0] := $86;
    my[1] := $FB;
    my[2] := $EC;
    my[3] := $37;
    my[4] := $5D;
    my[5] := $44;
    my[6] := $9C;
    my[7] := $FA;
    my[8] := $C6;
    my[9] := $5E;
    my[10] := $28;
    my[11] := $E6;
    my[12] := $13;
end;

procedure TFrmAccessPWD.SpeedButton2Click(Sender: TObject);
begin
   frmAbout.ShowModal;  
end;

end.