盒子论坛 v2.1

procedure TForm1.Button1Click(Sender: TObject);

var
   passfile :textfile;
   passstr:string;
begin
   assignfile(passfile,'e:\password\pass.txt');
   reset(passfile);
   readln(passfile,passstr);
   closefile(passfile);
   times:=times+1;
   if edit2.Text=passstr then
     Form2.show
     else
       begin
         if MessageDlg('密码不正确，是否退出？',mtConfirmation,[mbYes,mbNo],0)=mryes then
           close
         else if times<3 then edit2.SetFocus
         else
           begin
             MessageDlg('对不起，密码不正确，请退出！', mtConfirmation,[mbOk],0);
             application.Terminate;
           end;
       end;
end;

----------------------------------------------
-

作者：

lixi00 (lixi)	★☆☆☆☆	-
	普通会员

2003/12/10 16:42:21

1楼：

你用的这种加密登陆太简单了。会被别人一下识破的。
----------------------------------------------
一个热爱生活的boy!
爱好程序,喜欢管理.

作者：

skertone (奇奇怪)	★☆☆☆☆	-
	盒子活跃会员

2003/12/11 8:30:56

2楼：

你自已设的断点呀??

用鼠标在红色圈圈上单击或将光标移至断点行按 F5 就可设置/取消断点了
----------------------------------------------

作者：

xuwenyao11 (贝贝11)	★☆☆☆☆	-
	盒子活跃会员

2003/12/11 8:44:18

3楼：

是你自己设的？

----------------------------------------------
-

信息

登陆以后才能回复