[转帖]解ACCESS的数据库密码1

vfp123456

unit GetAPass;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Variants, ComOBJ, StdCtrls, ExtCtrls, ComCtrls, FileCtrl, ActnList, ImgList,
  ToolWin;

const
  Model = 'yyyy-mm-dd hh:nn:ss';
type
  PassType = record
? PassCode: string;
? FileType: string;
? FileTime: TDateTime;
  end;???????????????
  TPassForm = class(TForm)
? ListView1: TListView;
? ImageList1: TImageList;
? StatusBar1: TStatusBar;
? Memo1: TMemo;
? CoolBar1: TCoolBar;
? ToolBar1: TToolBar;
? ToolButton1: TToolButton;
? ToolButton2: TToolButton;
? ToolButton3: TToolButton;
? ToolButton4: TToolButton;
? ToolButton5: TToolButton;
? ToolButton6: TToolButton;
? ImageList2: TImageList;
? Edit1: TEdit;
? Pick1: TDateTimePicker;
? Splitter1: TSplitter;
? procedure CloseForm(Sender: TObject);
? procedure FormCreate(Sender: TObject);
? procedure FormDestroy(Sender: TObject);
? procedure GetMDBDir(Sender: TObject);
? procedure Edit1KeyPress(Sender: TObject; var Key: Char);
? procedure CreateMDB(Sender: TObject);
? procedure GetAllPass(Sender: TObject);
? procedure SetCurTime(Sender: TObject);
  private
? { Private declarations }
? DateStr: DWord;
? PassCode: WideString;
? EncodeArray: array[0..19] of Word;
? ReaderArray: array[0..19] of Word;
? function ExecFile(FName: string): PassType;
? procedure ExecDirectory(S: string);
? function Make01(F: string; P: string = ''): boolean;
? function Make02(F: string): boolean;
? procedure SetTime(YY, MM, DD: Word); overload;
? procedure SetTime(MYDate: TDate); overload;
  public
? { Public declarations }
? FileBox1: TFileListBox;
  end;

var
//2079-06-05前?[EC37?9CFA?28E6?8A60?7B36?DFB1?1343?B133?795B?7C2A ]
//2079-06-05后?[ED37?9DFA?29E6?8B60?7A36?DEB1?1243?B033?785B?7D2A ]
{ 固定密钥 }
  InhereCode: array[0..9] of Word =
  ($37EC, $FA9C, $E628, $608A, $367B, $B1DF, $4313, $33B1, $5B79, $2A7C);

{?活动密钥 }
  UserCode8: array[0..9] of Word = //89年9月17日前
  ($8B86, $345D, $2EC6, $C613, $E454, $02F5, $8477, $DFCF, $1134, $C592);
  UserCode: array[0..9] of Word = //89年9月17日后
  ($7B86, $C45D, $DEC6, $3613, $1454, $F2F5, $7477, $2FCF, $E134, $3592);

  InCode97: array[0..19] of byte = //Access 97 固定密钥
  ($86, $FB, $EC, $37, $5D, $44, $9C, $FA, $C6, $5E,
? $28, $E6, $13, $00, $00, $00, $00, $00, $00, $00);
var
  PassForm: TPassForm;

implementation

{$R *.DFM}

procedure TPassForm.SetTime(YY, MM, DD: Word);
var
  myST: TSystemTime;
  MSec: Word;
begin
  with myST do begin
? MyST.wYear := YY;
? MyST.wMonth := MM;
? MyST.wDay := DD;
? DecodeTime(Time, wHour, wMinute, wSecond, MSec);
  end;
  try SetLocalTime(myST)except ShowMessage('Error'); end;
end;

procedure TPassForm.SetTime(MYDate: TDate);
var
  myST: TSystemTime;
  MSec: Word;
begin
  with myST do begin
? DecodeDate(MyDate, wYear, wMonth, wDay);
? DecodeTime(Time, wHour, wMinute, wSecond, MSec);
  end;
  try SetLocalTime(myST)except end;
end;

procedure TPassForm.CreateMDB(Sender: TObject);
var
  Date0: TDate;
  Date1: TDate;
  Date2: TDate;
begin
{?Date0 := EncodeDate(1978, 7, 01);
  Date1 := EncodeDate(1989, 9, 17);
  Date2 := EncodeDate(2079, 6, 05); }
  //SetTime(Date0);
  Make01('D:\DB01.MDB', '112233大');
  //SetTime(Date1);
  Make01('D:\DB02.MDB', '甚至于');
  //SetTime(Date2);
  Make01('D:\DB03.MDB', '');
end;

procedure SetFTime(const FileName: string; DTime: TDateTime);
var
  Q: HFile;
  ST: TSystemTime;
  FT: TFileTime;
begin
  DateTimeToSystemTime(DTime, ST);
  System

2769

好贴

wwwwa

learn