在此奉上程序：
uses crt;
var
i,x,y,qqx:longint;
s:boolean; ch:char; mm,ff:string;
begin
gotoxy(1,1);clrscr;
write('请输入密码：');
while true do
begin
s:=true;
ch:=readkey;
case ch of
#8:begin
x:=wherex;
y:=wherey;
if x=1 then
begin
dec(y);
x:=qqx;
end else
if (x>1)and((x>10)or(y>1)) then dec(x);
gotoxy(x,y);
write(' ');
gotoxy(x,y);
s:=false;
ff:=copy(mm,1,length(mm)-1);
mm:=ff;
end;
#13,#10:begin
writeln; s:=false;
if mm='123456' then
begin
writeln('登录成功！');
readln;
break;
end
else
begin
write('密码错误！请重新输入：'); mm:='';
end;
end;
end;
if s then begin mm:=mm+ch; write('*'); end;
end;
writeln('......');//登录后想干什么
readln;
end.
（备注：此处密码默认为123456，可自行调整）

打包后的程序（已编译）：
[无效] http://pan.baidu.com/s/1hrXFl2W

发个截图：

注意只有free pascal2.0.4才能显示中文
其他版本的朋友请自行改英文

就没人来看看吗

来也

楼主其实挺好用的

顶你一个吧

编繁琐了！

+1

其实也不用这么麻烦的

。。。

弱弱的问一句：我想知道这个吧到底有多少人在潜水。。。
看帖从不回复，但下载量有26。。
@ax_pokl @可园中学2015

oh