我的access表密码丢失了，怎么找回密码或破解！（数据重要！）(200分)

请把你的具体方法说说！
不方便的话可以E-mail：oulin001@yeah.net
谢谢！

http://luck4u.126.com上有破解access表密码的工具
getaccesspassword.zip

http://newhua.com.cn上有很多解密的软件。

在华军的网站上有很多这样的软件的。

下载的时候出错了！
下载不了！

www.crackbest.net
www.crackbest.com
有破密的软件，找一下吧

看看这里，或者去搜索旧贴：
http://211.101.4.25/delphibbs/dispq.asp?lid=560524

http://www.elcomsoft.com/acpr.html
http://www.elcomsoft.com/ACPR/acpr.zip已经发给你了。

Access的库不安全，很容易被破解

给你源程序算了： []
const
xorString: array[0..12] of Byte =
($86, $FB, $EC, $37,
$5D, $44, $9C, $FA,
$C6, $5E, $28, $E6, $13);
xorString2: array[0..20] of Byte =
($D3, $EC, $08, $9C,
$93, $28, $46, $8A,
$01, $7B, $A0, $DF,
$22, $13, $9A, $B1,
$61, $79, $C7, $7C, $5B);
var
passBuf: array[0..14] of Byte;
pass: array[0..14] of Char;
passBuf2: array[0..40] of Byte;
pass2: array[0..20] of Char;
B: Byte;
F: TFileStream;
I, J: Integer;
begin
if FileExists(FileNameEdit.Text) then
begin
F := TFileStream.Create(FileNameEdit.Text, fmOpenRead);
if not chk2000.Checked then //不是2000的格式
try
F.Seek($42, soFromBeginning);
F.Read(passBuf, 14);
for I := 0 to 13 do
begin
B := passBuf xor xorString;
pass := Char(B);
end;
pass[SizeOf(pass) - 1] := #0;
passEdit.Text := StrPas(Pass);
finally
F.Free;
end
else　//Access2000
try
F.Seek($42, soFromBeginning);
F.Read(passBuf2, 40);
I := 0;
J := 0;
while I < 40 do
begin
B := passBuf2 xor xorString2[J];
pass2[J] := Char(B);
Inc(I, 2);
Inc(J);
end;
pass2[SizeOf(pass2) - 1] := #0;
passEdit.Text := StrPas(Pass2);
finally
F.Free;
end;
end;

差点忘了说了！　这是从茶壶兄的大作里拷贝下来的代码。

：）
好了！到此为止吧！
领分吧！见者有分！
谢谢！