www.pudn.com > sangoku_26_zh_tw.rar > attestation.cgi

sub ATTESTATION { 
 
	&HEADER; 
print <◆請輸入帳號、密碼、郵件信箱→認證用的。
 
◆登錄及認證後開始遊戲。
 
 
 
 
認 證
 
帳號
 
 
密碼
 
 
認證碼
 
 
 
 
 
 
 
 
NEW 
	&FOOTER; 
	exit; 
} 
 
# Sub Set Regist # 
sub SET_ENTRY { 
 
	&HOST_NAME; 
	&CHARA_MAIN_OPEN; 
	$akey = crypt("$kpass",$ATTESTATION_ID); 
 
	if($akey ne $in{'key'}){&ERR2("你的認證碼不相同！\n");} 
	if(($kos & 1) eq 1){&ERR2("確定認證完畢。");} 
 
	&MAP_LOG("[認證]$kname 已經登記過了！"); 
	$kos|=1; 
 
	&CHARA_MAIN_INPUT; 
	&HEADER; 
 
	print qq|認證完成
\n|; 
	print qq|你的帳號是 $kid 。
\n|; 
	print qq|你的密碼是 $kpass 。

\n|; 
 
	print qq|註冊手續已經完成。
\n|; 
	print qq|按下 返回 就能進入遊戲。
\n|; 
 
	print qq|\[返回\]\n|; 
	&FOOTER; 
	exit; 
} 
 
1;