如何找到密码？？？？？？？？？，
本人最近买了一本delphi管理系统开发实例导航，含有原代码光盘。程序预览时叫输入用户名和密码，最初给的用户名为：admin.密码：admin.现在被改。
各位大侠，能否帮我找回密码？？？？不甚感激！！！！！！！！！！！！！！！
procedure TfrmLogIn.FormCreate(Sender: TObject);//用户登陆窗体
var
f:file;
nr,nw:integer;
buf:string[60];
bn:boolean;
size:longint;
begin
assignFile(f,'sys.ini');
bn:=true;
if fileExists('sys.ini')=false then//配置文件不存在
bn:=false
else
begin
reSet(f,1);
size:=fileSize(f);
if size<48 then//配置文件不合法
bn:=false;
end;
if bn=false then//新建一个系统配置文件
begin
reWrite(f,1);
buf:='admin';
blockWrite(f,buf,12,nw);
buf:='admin';
blockWrite(f,buf,12,nw);
buf:='1';
blockWrite(f,buf,24,nw);
closeFile(f);
end;
reSet(f,1);
repeat
blockRead(f,buf,12,nr);
if nr>0 then
name.Items.Add(buf);
blockRead(f,buf,12,nr);
blockRead(f,buf,24,nr);
until (nr=0);
closeFile(f);
end;
end.
procedure TfrmAddUser.Button1Click(Sender: TObject);//添加用户窗体
var
f:file;
s1,s2,s3:string[60];
nr:integer;
size:longint;
begin
//检测用户是否已经存在
assignFile(f,'sys.ini');
reSet(f,1);
while not eof(f) do
begin
blockRead(f,s1,12,nr);
blockRead(f,s2,12,nr);
blockRead(f,s3,24,nr);
if s1=edit1.Text then
begin
MessageDlg('这个用户已经存在',mtWarning,[mbOk],0);
edit1.Text:='';
edit3.Text:='';
edit2.Text:='';
exit;
end;
end;
closeFile(f);
//检测密码输入是否一致
if edit2.Text<>edit3.Text then
begin
MessageDlg('密码不一致',mtWarning,[mbOk],0);
edit3.Text:='';
edit2.Text:='';
exit;
end;
//检测是否为新用户选择权限
if RadioGroup1.ItemIndex=-1 then
begin
MessageDlg('没有为新用户指定权限',mtWarning,[mbOk],0);
edit3.Text:='';
edit2.Text:='';
exit;
end;
//将新用户名，密码，权限写入系统配置文件
reSet(f,1);
size:=fileSize(f);
seek(f,size);//移到文件尾
s1:=edit1.Text;
s2:=edit2.Text;
s3:=inttostr(RadioGroup1.ItemIndex+1);
blockWrite(f,s1,12,nr);
blockWrite(f,s2,12,nr);
blockWrite(f,s3,24,nr);
closeFile(f);
end;
问题点数：0、回复次数：7Top
1 楼cgh1970（聊天别找我）回复于 2003-11-04 07:11:54 得分 0
在SYS。INI里找一下，或在数据库里找找Top
2 楼47522341（睡到8：30）回复于 2003-11-04 07:59:54 得分 0
从你【修改密码】单元的代码里边找；看看是怎么保存的？Top
3 楼angelface（§<@#$&^%$>§）回复于 2003-11-04 08:11:03 得分 0
在数据库里找找，Top
4 楼lovelymelon（小人物）回复于 2003-11-04 08:20:02 得分 0
找到sys.ini文件，看看应该在里面。
Top
5 楼pandengzhe（无为之为 之 混迹苍生）回复于 2003-11-04 08:21:13 得分 0
不太明白Top
6 楼xiong1979（太空一号）回复于 2003-11-04 08:21:25 得分 0
看看代码,有没有加密,若有,要根据加密算法来推算了.Top
7 楼harrydavid（harry）回复于 2003-11-04 08:21:44 得分 0
在sys.ini文件里Top
