attestation.pl

三国网页游戏原码 增加了亡命也就是判国 还修进了管理工具

sub ATTESTATION {

	&HEADER;
print <<NEW;
◆在邮件里找 认证密码 和 ID 通验证.<br>
◆认证密码后开始游戏.<p>

<center><form method=$method action=$FILE_ENTRY>
<table bgcolor=$TABLE_C><tbody bgcolor=$TD_C3>
<TR><TH bgcolor=$TD_C2 colspan=2>认证</TH></TR>
<TR><TH>ID</TH><TD>
<input type=text name=id class=text size=10></TD></TR>
<TR><TH>密码</TH><TD>
<input type=password name=pass class=text size=10></TD></TR>
<TR><TH>认证密码</TH><TD>
<input type=password name=key class=text size=10></TD></TR>
</TD></TR>
<input type=hidden name=mode value="SET_ENTRY">
<TR><TD bgcolor=$TD_C4 colspan=2 align=center><input type=submit value="认证"></TD></TR>
</TBODY></TABLE>
</form>

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("<font color=blue><B>[认证]</B></font>$kname被登记");
	$ksub2|=1<<26;

	&HEADER;

	print qq|完成认识<br>\n|;
	print qq|ID$kid是.<br>\n|;
	print qq|密码$kpass是.<br><br>\n|;

	print qq|登记完成<br>\n|;
	print qq|开始冒险吧!<br>\n|;
	print qq|返回游戏页面进入游戏!<br>\n|;

	print qq|<a href="$FILE_TOP">返回</a>\n|;
	&FOOTER;
	exit;
}

1;