忘记迷码怎么办?(200分)

我以前用delphibi编了一个Ma Access数据库的应用程序,后来就忘记了
密码,现在我想再用Delphi修改一下,但是在定义别名时,怎么也记不起来
密码,怎么办???????????????????快啊!!!!!!!!!!!!200分啊!!!!!

找个破解ACCESS密码的软件来破解密码就行了。
在海阔天空有下的。

密码是如果设置的？谈具体点

http://www.newhua.com.cn/down/xmdb.zip 用来破解access密码。
//---转贴
procedure GetAccessPassword;
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
F:=TFileStream.Create(FileNameEdit.Text,fmOpenRead);
if NOT chk2000.Checked then
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
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;

在delphi中定义别名时,如果选择MS ACCESS DATABASE 时,总是出现一个要我输入
用户名和密码的对话框,我现在连用户名都忘记了,想把这都删掉,怎么重装delphi
都不行啊!!!!!!!!!!!!!!!!!!

你看直接确定行不行？
如果不行，用户名用admin试一下。

重装DELPHI没用的，它是要ACCESS数据库的密码，必须把密码找出来。

楼上说的正是，只能找access的破解工具来了 ，应该可以破解的
祝你好运

该软件很管用，我试过。
Passware Password Recovery Kit SE 3.9。一个软件密码破解大全，
包含了Word/Excel/Access等Office办公软件

请你找找电脑报2001，里面有你想要的。

多人接受答案了。