本文整理自网络，侵删。
1、修改MDB文件头
2、破解数据库密码读取
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
const
FileHead1:array[0..15] of byte=($00,$01,$00,$00,$53,$74,$61,$6E,$64,$61,$72,$64,$20,$4A,$65,$74) ;//对应MDB文件的前16个字节
FileHead2:array[0..15] of byte=($43,$6f,$70,$79,$72,$69,$67,$68,$74,$20,$4a,$6f,$65,$4c,$6f,$20) ;
//从64开始，长度也是64
Pwd1 :array[0..63] of Byte=($79,$5b,$df,$2e,$7c,$2a,$22,$d4,$7c,$99,$05,$13,
$98,$fd,$a5,$da,$d3,$88,$c0,$57,$83,$66,$5f,$95,$f8,$d0,$89,$24,
$85,$67,$c6,$1f,$27,$44,$d2,$ee,$cf,$65,$ed,$ff,$07,$c7,$46,$a1,
$78,$16,$0c,$ed,$e9,$2d,$62,$d4,$54,$06,$00,$00,$34,$2e,$30,$00,
$00,$00,$00,$00);
//随机
Pwd2 :array[0..63] of Byte=($b9,$6b,$d0,$ee,$bc,$ea,$ee,$d0,$bc,$99,$06,$fd,
$98,$0d,$a6,$da,$dd,$88,$c0,$6b,$8d,$66,$60,$96,$08,$d0,$89,$e0,
$86,$6b,$c6,$f0,$eb,$00,$de,$ee,$c0,$66,$ed,$00,$0b,$cb,$06,$af,
$b8,$f6,$0c,$ed,$e9,$ed,$6e,$d0,$60,$06,$00,$00,$d0,$ee,$d0,$00,
$00,$00,$00,$00);
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
//加解密函数。
procedure EncryptDecryptMDB(filename:string; Enc:Boolean);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.EncryptDecryptMDB(filename: string; Enc:Boolean);
var
f:TFileStream;
begin
if not FileExists(filename ) then Exit;
F:=TFileStream.Create(filename,fmOpenWrite);
try
f.Seek($00,soFromBeginning);
if Enc then
f.Write(FileHead2,16)
else
f.Write(FileHead1,16);
f.Seek($64,soFromBeginning);
if Enc then
f.Write(pwd2,64)
else
f.Write(pwd1,64);
finally
f.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
fn :string;
begin
if OpenDialog1.Execute then
fn :=OpenDialog1.FileName;
EncryptDecryptMDB(fn,True);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
fn :string;
begin
if OpenDialog1.Execute then
fn :=OpenDialog1.FileName;
EncryptDecryptMDB(fn,False);
end;
end.
只在 ACCESS2003 上测试成功；
由于 mdb 打开后会产生一个 .ldb 的临时文件，如果你的系统安装了office 将会有提示access 的字样
修改一下注册表对 .ldb 的识别。
with TRegistry.Create do begin
try
RootKey:=HKEY_CLASSES_ROOT;
OpenKey('.ldb');
WriteString('','tempfile');
closekey;
finally
free;
end;
end;
如果使用 ADOConnction 来连接数据库的话，
把ADOConnection.Mode设为cmShareExclusive就可以以独占方式打开数据库。
PS：ACCESS几乎无安全性可言。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
另附 ACCESS 加密原理（转自网络）：
用UltraEdi(二进制编译器)打开Access 2000 所建的数据库，在库文件的地址00000042处开始的40个字节是Access 2000库的密码位。如果一个未加密的库，这40个字节原始数据依次为:29 77 EC 37 F2 C8 9C FA 69 D2 28 E6 BC 3A 8A 60 FB 18 7B 36 5A FE DF B1 D8 78 13 43 60 23 B1 33 9B ED 79 5B 3D 39 7C 2A 。当你给数据库设置了密码后，这40个字节就变成了密钥。因此，要破解密码而不需保持原库的密码，只要将00000042 处开始的40个字节还原成原始数据就行了。要做到这一点，你可用磁盘编辑工具或将以下所附的程序稍加修改，把以上所列40个数据填到00000042开始处。
但是，有没有办法既能破解密码又能保持原密码呢？有。要做到这一点，必须搞清楚Access 2000库的加密原理。事实上，Access 2000库的加密原理很简单。当你设置了密码后，Access 2000 就将你的密码（请注意你所输入的密码是ASCII字符）的ASCII码与以上的40个字节数据进行异或操作，因此，从库文件的地址00000042开始的 40个字节就变成了密钥了。例如，如果你设置的密码为12345678901234567890(注意:最多只能设20个ASCII字符)，经过异或操作后，则从00000042处开始的40个字节的数据就变成了 18 77 DE 37 C1 C8 A8 FA 5C D2 1E E6 8B 3A B2 60 C2 18 4B 36 6B FE ED B1 EB 78 27 43 55 23 87 33 AC ED 41 5B 04 39 4C 2A 。大家都知道，一个数据经过一次异或操作后，再一次经过同样的异或操作就可还原了。因此，对已经设置了密码的Access 2000库，只要将40个密钥数据与原始的40个数据进行一次异或操作就可得到密码了。
顺便提一下，由于ACCESS 2000对每个密码字符采用双字节表示，故40个字节原始数据可依次分为20组，每组代表一个密码字符，进行异或操作的是每组的第一个字节，第二个字节不变。
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/aroc_lo/archive/2008/11/05/3225071.aspx 相关阅读 >>
Delphi winapi: getwindowtextlength - 获取窗口标题长度
Delphi xe android/ios 实现图片放大缩小的两种方法
Delphi提示‘error loading midas.dll’的原因及解决方案
更多相关阅读请进入《Delphi》频道 >>
