📄 ebs_sub6.cgi
字号:
<table width=100% height=100%><tr><td align=center>
<table bgcolor=#000000 border=0 style="font-size:12px;">
<tr><td colspan=2 bgcolor=#646464 align=center><img src=\"$IMG_FOLDER1/w.gif\"></td></tr>
<tr><td colspan=2 bgcolor=#000000>登录名删除<br>
登录名删除以後无法恢复<br><br></td></tr>
<tr><td align=right style="height:21px; color:#ffffff; font-size:16px;">名称<br>密码</td>
<td style="height:21px; color:#ffffff; font-size:16px;">
<form action=$MAIN_SCRIPT method=POST target=_top name=del onSubmit="return checkRiyou()">
<input type=hidden name=cmd value=DELETE>
<input type=text size=20 name=pname value="$COOKIE{'pname'}" $STYLE_L><br>
<input type=password size=15 name=pass value="$COOKIE{'pass'}" $STYLE_L>
</td></tr>
<tr><td colspan=3><br><br>确定删除吗？<div align=center>
<input type=submit value=\"删除\" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\"></div>
</td></tr>
</table>
-----END-----
&FOOTER;
print "</td></tr></table></form></body>";
}
sub DELETE3{
$FlagE=0;
&LOCK;
dbmopen (%P,"$DBM_P",0666);
@PL_VALUES = split(/\s/,$P{"$FORM{'pname'}"});
$FlagE=1 if !$P{"$FORM{'pname'}"};
$FlagE=1 if crypt("$FORM{'pass'}",eb) ne "$PL_VALUES[2]" && $PL_VALUES[2] && $FORM{'pass'};
delete $P{"$FORM{'pname'}"} if !$FlagE;
dbmclose %P;
&UNLOCK;
&ERROR('Error',"COOKIE可能破损\无法继续处理\\n删除过程中断") if $FlagE==1;
SET_COOKIE:{
my @gmt = gmtime(time + $COOKIE_KEEP*24*60*60);
$gmt[0] = sprintf("%02d", $gmt[0]); $gmt[1] = sprintf("%02d", $gmt[1]);
$gmt[2] = sprintf("%02d", $gmt[2]); $gmt[3] = sprintf("%02d", $gmt[3]); $gmt[5] += 1900;
$gmt[4] = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$gmt[4]];
$gmt[6] = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$gmt[6]];
my $date_gmt = "$gmt[6], $gmt[3]\-$gmt[4]\-$gmt[5] $gmt[2]:$gmt[1]:$gmt[0] GMT";
my $cook = "";print "Set-Cookie: EB=$cook; expires=$date_gmt\n";
}
print "Location: $MAIN_SCRIPT" . "\n\n";
}
sub EXPORT2 {
$to='l';$o=time;
&HEADER if !$FORM{'pname'} && !$FORM{'pass'};
print << " -----END-----" if !$FORM{'pname'} && !$FORM{'pass'};
<script language="JavaScript">
function checkRiyou (){
if (document.del.pname.value == '') {window.alert("ID没有输入");return false
}else if(document.del.pass.value == '') {window.alert("PASS没有输入");return false
}else {if (confirm('OK确认後记录从该服务器删除，转移记录开始\\n你确认吗？') == true){return true;}else{return false} }
}
</script>
<table width=100% height=100%><tr><td align=center>
<table bgcolor=#000000 border=0 style="font-size:12px;">
<tr><td colspan=2 bgcolor=#646464 align=center><img src=\"$IMG_FOLDER1/w.gif\"></td></tr>
<tr><td colspan=2 bgcolor=#000000 align=center>
<b style="font-size:20px;">Data Export Utility</b><br>
现在档案转移开始，在档案转移後，你的金钱<br>
武器、以及等级等信息都将消失，要做好心理准备<br>
如果你确定要转移档案<br>
那麽请你继续输入<br><br>
<br></td></tr>
<tr><td align=right style="height:21px; color:#ffffff; font-size:16px;">用户名<br>
用户密码</td>
<td style="height:21px; color:#ffffff; font-size:16px;">
<form action=$MAIN_SCRIPT method=POST target=_top name=del onSubmit="return checkRiyou()">
<input type=hidden name=cmd value=EXPORT>
<input type=text size=20 name=pname value="" $STYLE_L><br>
<input type=password size=15 name=pass value="" $STYLE_L>
</td></tr>
<tr><td colspan=3 align=center><br><br>输入後请记住这些信息<br>
<input type=submit value=\"Export\" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\">
</td></form></tr>
</table></td></tr></table>
-----END-----
if ($FORM{'pname'} && $FORM{'pass'} && $FORM{'cmd'}){
&LOCK;
dbmopen (%P,"$DBM_P",0666);
@pass = split(/\s/,$P{"$FORM{'pname'}"});
if (!$P{"$FORM{'pname'}"}){dbmclose %P;&UNLOCK;&ERROR('用户名输入错误');}
if ($pass[2] ne crypt("$FORM{'pass'}",eb)){dbmclose %P;&UNLOCK;&ERROR('密码输入错误');}
delete $P{"$FORM{'pname'}"};
dbmclose %P;
&UNLOCK;
my @gmt = gmtime(time + $COOKIE_KEEP*24*60*60);
$gmt[0] = sprintf("%02d", $gmt[0]); $gmt[1] = sprintf("%02d", $gmt[1]);
$gmt[2] = sprintf("%02d", $gmt[2]); $gmt[3] = sprintf("%02d", $gmt[3]); $gmt[5] += 1900;
$gmt[4] = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$gmt[4]];
$gmt[6] = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$gmt[6]];
my $date_gmt = "$gmt[6], $gmt[3]\-$gmt[4]\-$gmt[5] $gmt[2]:$gmt[1]:$gmt[0] GMT";
my $cook = "";print "Set-Cookie: EB=$cook; expires=$date_gmt\n";
$pass1=crypt "$FORM{'pname'}",eb;
$pass3="$pass[19]$pass[20]$pass[21]$pass[22]";
$pass3=crypt "$pass3",eb;
$pass4="$pass[16]$pass[18]";
$pass4=crypt "$pass4",eb;
$pass5="$pass[12]$pass[29]";
$pass5=crypt "$pass5",eb;
@ex=("$pass[12]","$pass[16]","$pass[18]","$pass[19]","$pass[20]","$pass[21]","$pass[22]","$pass[23]","$pass[24]","$pass[29]","$o");
foreach (@ex){
foreach $k(0..9){$to++;$_ =~ s/$k/$to/eg;}
}
$EX="$ex[0]!$ex[1]!$pass1!$ex[2]!$ex[3]!$pass3!$ex[4]!$ex[5]!$pass[2]!$ex[6]!$ex[7]!$ex[8]!$pass4!$ex[9]!$pass5!$ex[10]";
&HEADER;
print << " -----END-----";
<table width=100% height=100%><tr><td align=center>
<table bgcolor=#000000 border=0 style="font-size:12px;">
<tr><td bgcolor=#646464 align=center><img src=\"$IMG_FOLDER1/w.gif\"></td></tr>
<tr><td bgcolor=#000000 align=center>
<b style="font-size:20px;">Data Export Utility</b><br>
<div align=left> 记录删除，抽出转移正常结束<br>
以下显示的是你的机体的数值代码<br>
请一字不漏地粘贴到你的记事板上<br>
妥善保存，这对於转移非常重要<br>
</div>
转移档案的有效期限为一个星期<br>超过这个时限的转移档案有可能被系统视为无效</div>
<br></td></tr>
<tr>
<td style="height:21px; color:#ffffff; font-size:16px;">
<textarea rows=5 cols=50>$EX</textarea>
</td></tr>
</table>
-----END-----
&FOOTER;
print "</td></tr></table></body>";
}
}
sub INPORT2{
&DBM_INPORT(P);
@CountPl=keys %P;
$Count=@CountPl;
if ($Count >= $ENTRY_MAX){&ERROR('超过登录人数限额');}
&HEADER;
require "$LOG_FOLDER/$HASH_DATA";
print << " -----END-----";
<script language="JavaScript">
function checkRiyou (){
if (document.del.pname.value == '') {window.alert("ID没有输入");return false
}else if(document.del.pass.value == '') {window.alert("PASS没有输入");return false
}else if(document.del.indata.value == '') {window.alert("能力值代码没有输入");return false
}else if(document.del.MsName.value == '') {window.alert("机体名称没有输入");return false
}else {if (confirm('转移回覆资料开始\\n你确定吗？') == true){return true;}else{return false} }
}
</script>
<table width=100% height=100%><tr><td align=center>
<table bgcolor=#000000 border=0 style="font-size:12px;">
<tr><td colspan=2 bgcolor=#646464 align=center><img src=\"$IMG_FOLDER1/w.gif\"></td></tr>
<tr><td colspan=2 bgcolor=#000000 align=center>
<b style="font-size:20px;">Data Inport Utility</b><br>
这个选项用来接纳其它地方转移的用户名<br>
必须注意的是原来的金钱，阶级，以及武器在转移後是不能恢复的<br>
以下的位置请输入用户名以及转移代码<br><br>
<br></td></tr>
<tr><td align=right style="height:21px; color:#ffffff; font-size:16px;" valign=top>用户名<br>
用户密码<br><br>转移代码</td>
<td style="height:21px; color:#ffffff; font-size:16px;">
<form action=$MAIN_SCRIPT method=POST target=_top name=del onSubmit="return checkRiyou()">
<input type=hidden name=cmd value=INPORT5>
<input type=text size=20 name=pname value="" $STYLE_L><br>
<input type=password size=15 name=pass value="" $STYLE_L><br>
<textarea rows=5 cols=50 name=indata>$EX</textarea>
</td></tr>
-----END-----
print "<script language=\"JavaScript\">\nfunction changeImg(){num=document.del.icon.value;document.msImg.src=\"$IMG_FOLDER2/\"+ num +\".gif\";}\n</script>";
&JScfm(checkCustom,"机体重新设置，你确认吗？");
print "<tr><td $BgColor colspan=2 style=\"font-size:16px;\"><b>机体作成</b><br><br>\n";
print " ICON变更<img src=\"$IMG_FOLDER2/1.gif\" name=\"msImg\"><br>\n";
print " <select name=\"icon\" $STYLE_L onChange=\"changeImg()\">\n";
foreach (0..$ICON){
print "<option value=\"$_\"";
print " selected\n"if $_ eq $PL_VALUES[27];
print ">ICON No.$_\n";
}
print "</select><br> MS类型<br> \n";
print "<input type=text name=MsName size=30 maxlength=15 value=\"\" $STYLE_L><br>\n";
print " 成长力变更<br> \n";
print "<select name=MsType $STYLE_L>\n";
print "<option value=1";print " selected"if $PL_VALUES[4] eq '1';print ">攻击力重视\n";
print "<option value=2";print " selected"if $PL_VALUES[4] eq '2';print ">防御力重视\n";
print "<option value=3";print " selected"if $PL_VALUES[4] eq '3';print ">敏捷度重视\n";
print "<option value=4";print " selected"if $PL_VALUES[4] eq '4';print ">命中率重视\n";
print "<option value=0";print " selected"if $PL_VALUES[4] eq '0';print ">平均型</select><br>\n";
print " 武器<br> <select name=\"w\" $STYLE_L>";
while (my($wkey,$wvalue) =each %WEAPON_LIST) {
if (length($wkey) == 1){my@w=split(/,/,$wvalue);print "<option value=$wkey>$w[0]\n" if $w[6] !=2 && $w[6] !=6 && $w[6] !=4;}
}
print "</select><br>";
print " 颜色变更<br> \n";
$br=0;
foreach (@COLOR){$br++;
print "<input type=\"radio\" name=\"MsColor\" value=$_";
print " checked" if $br == 1;
print "><font color=$_>■</font>\n";
if ($br%10==0){print"<br> \n";}
}
print << " -----END-----";
<tr><td colspan=3 align=center><br><br>输入後请记住这些资料<br>
<input type=submit value=\"转移\" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\">
</td></tr>
</table>
-----END-----
&FOOTER;
print "</td></tr></table></form></body>";
}
sub INPORT3{
@pass=split(/\!/,$FORM{'indata'});
&ERROR('用户名错') if $pass[2] ne crypt("$FORM{'pname'}",eb);
&ERROR('用户密码错') if $pass[8] ne crypt("$FORM{'pass'}",eb);
@in=("$pass[0]","$pass[1]","$pass[3]","$pass[4]","$pass[6]","$pass[7]","$pass[9]","$pass[10]","$pass[11]","$pass[13]","$pass[15]");
foreach (@in){foreach $k(0..9){$to++;$_ =~ s/$to/$k/eg;}}
$pass1="$in[3]$in[4]$in[5]$in[6]";
$pass2="$in[1]$in[2]";
$pass3="$in[0]$in[9]";
&ERROR('恢复资料失败') if crypt ("$pass1",eb) ne "$pass[5]" || crypt("$pass2",eb) ne "$pass[12]" || crypt("$pass3",eb) ne "$pass[14]";
$c=0;
foreach (@in){
if ($c==4 ||$c==5 ||$c==6 ||$c==7){&ERROR('恢复资料失败') if $_ < 0 || $_ > 50;}
if ($c==10){&ERROR('超过恢复有效期限') if $_ > time+(604800);}
$c++;
}
&LOCK;
$pwd=crypt "$FORM{'pass'}",eb;
dbmopen (%PL,"$DBM_P",0666);
if($PL{"$FORM{'pname'}"}){dbmclose (%PL);&UNLOCK;&ERROR('已经有相同的用户名存在');}
$PL{"$FORM{'pname'}"} = ("1 $DATE $pwd $FORM{'MsName'} $FORM{'MsType'} 0 noComment 0 $FORM{'w'}!0 $in[0] $FORM{'MsColor'} 0 $in[1] $in[1] $in[2] $in[2] $in[3] $in[4] $in[5] $in[6] $in[7] $in[8] 0 $DATE $FORM{'icon'} $in[9] 0");
dbmclose (%PL);
&UNLOCK;
SET_COOKIE:{
my @gmt = gmtime(time + $COOKIE_KEEP*24*60*60);
$gmt[0] = sprintf("%02d", $gmt[0]); $gmt[1] = sprintf("%02d", $gmt[1]);
$gmt[2] = sprintf("%02d", $gmt[2]); $gmt[3] = sprintf("%02d", $gmt[3]); $gmt[5] += 1900;
$gmt[4] = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$gmt[4]];
$gmt[6] = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$gmt[6]];
my $date_gmt = "$gmt[6], $gmt[3]\-$gmt[4]\-$gmt[5] $gmt[2]:$gmt[1]:$gmt[0] GMT";
my $cook = "pname:$FORM{'pname'},pass:$FORM{'pass'}";print "Set-Cookie: EB=$cook; expires=$date_gmt\n";
}
print "Location: $MAIN_SCRIPT" . "\n\n";
}
1;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -