This Domain(Admin5.com) is for Sale:

破解ACCESS的数据库密码

时间:2007-12-23  来源:不详  作者:迈克DB
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);
标签云:密码 数据库 破解 end begin procedure

看完这篇，您有何感觉呢？

文章评论

共有位Admini5网友发表了评论 查看完整内容

推荐信息

24小时热门信息

最新信息