www.pudn.com > NETv2.0.rar > attestation.pl

sub ATTESTATION { 
 
	&HEADER; 
print < 
◆认证密码后开始游戏.
 
 
 
 
认证
 
ID
 
 
密码
 
 
认证密码
 
 
 
 
 
 
 
 
NEW 
	&FOOTER; 
	exit; 
} 
 
# Sub Set Regist # 
sub SET_ENTRY { 
 
	&HOST_NAME; 
	&CHARA_MAIN_OPEN; 
	$akey = crypt("$kid",ms); 
 
	if($akey ne $in{'key'}){&ERR2("认证码不对\n");} 
	if(($ksub2 & 1<<26) eq 1){&ERR2("认证成功");} 
 
	&MAP_LOG("[认证]$kname被登记"); 
	$ksub2|=1<<26; 
 
	&HEADER; 
 
	print qq|完成认识
\n|; 
	print qq|ID$kid是.
\n|; 
	print qq|密码$kpass是.

\n|; 
 
	print qq|登记完成
\n|; 
	print qq|开始冒险吧!
\n|; 
	print qq|返回游戏页面进入游戏!
\n|; 
 
	print qq|返回\n|; 
	&FOOTER; 
	exit; 
} 
 
1;