⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 hukubiki.cgi

📁 WEBGAME 机器人大战EBS(无尽的战争) 架設方法 WIN2K系列主機
💻 CGI
字号:
🔍 
#!/usr/local/bin/perl

##################################################################
#
# -------棙梡婯掕偵偮偄偰-----------------------------------------
# 偙偺僗僋儕僾僩偼NET GAME Communications乽http://www.ngcoms.net/乿
# 偱攝晍偟偰偄傞ENDLESSBATTLE2偺捛壛僾儘僌儔儉偱偡丅
#
# 偙偺僗僋儕僾僩偼僼儕乕僜僼僩偱偡偑挊嶌尃偼曻婞偟偰偍傝傑偣傫丅
# 偙偺僗僋儕僾僩傪巊梡偡傞曽偼埲壓偺棙梡婯掕偵婎偯偒巊梡偟偰偔偩偝偄丅
#
# 1.偙偺僗僋儕僾僩傪巊梡偟壗傜偐偺懝奞偑偁偭偨偲偟偰傕丄嶌幰媦傃摉僒僀
#   僩偵愑擟偼柍偄暔偲偟傑偡丅
# 2.夵憿摍偼偛帺桼偵峴偊傑偡偑丄屄恖偺愑擟偵偍偄偰峴偭偰偔偩偝偄
# 3.嵞攝晍偼偛帺桼偵峴偊傞暔偲偟傑偡偑丄挊嶌尃昞帵傪嶍彍偟側偄偱
#   壓偝偄
# SCRIPT NAME	EBS HUKUBIKI ver 2.1
# HOMEPAGE 	http://melcha.zone.ne.jp/ebs/dl/
# E-MAIL 	44net@kk.sakura.ne.jp
# (C)2001 44-net FACTORY
#
##################################################################
#
#---------------ENDLESSBATTLE僗僋儕僾僩傊偺捛壛-------------------
#
# 1.ebs_sub3.cgi偺<input type=button>側偳偺僐儅儞僪儃僞儞偑偁傞応強偵
#   埲壓偺峴傪捛壛偟偰偔偩偝偄丅
#
# <td><input type=button value="暉堷" $STYLE_B1 onClick="parent.Sub.location.replace('./偙偺僗僋儕僾僩偺柤慜')"></td>
#
# 偙偺僗僋儕僾僩偺柤慜丂偲彂偐傟偰偄傞晹暘傪偙偺僗僋儕僾僩偺柤慜偵曄偊偰偔偩偝偄丅
#
# 2._hash.data偺擟堄偺応強偵丄埲壓偺俀峴傪捛壛偟偰偔偩偝偄丅
#
# "hojoken"=>"暉堷曗彆寯,0,0,0,0,0,0,0,100",
# "hukubiki"=>"暉堷寯,0,0,0,0,0,0,0,100",
#
# 傾僀僥儉俬俢偼曄峏偟側偄偱壓偝偄丅嵟屻偺100偲偄偆悢帤偑擖庤妋棪偵側傝傑偡丅
#
##################################################################
#奺庬愝掕

$SCRIPTNM="hukubiki.cgi";	#憅屔僗僋儕僾僩柤
$HUKUBIKIDB="hukubikidb";		#晲婍屔僨乕僞傪奿擺偡傞乮僷乕儈僢僔儑儞俈俈俈乯
$rekisi = "1";			#堦摍偑摉偨偭偨帪偵楌巎偵昞帵偡傞応崌偼侾丄昞帵偟側偄側傜0傪敿妏偱婰擖偟偰偔偩偝偄丅
$TABLE_STYLE = "bordercolor=#404040 border=1 cellspacing=0 style=\"font-size:10pt\"";#<TABLE>偺僗僞僀儖偱偡丅
require 'ebs_sub1.cgi';		#ebs_sub1.cgi偺僗僋儕僾僩柤
require "./$LOG_FOLDER/$HASH_DATA";	#僴僢僔儏僨乕僞偺応強乮曄峏晄梫乯

#####################################################################################################################
#宨昳偲側傞傾僀僥儉柤偱偡丅埲壓俁偮偺@偺拞恎偼慡偰摨偠悢偵崌傢偣偰壓偝偄丅(俇屄側傜俇屄偲乯

@keihin = ("敋摫嶔","僶僌","妀婡棆","懳娡婡棆","婡棆");

#####################################################################################################
#_hash.data撪偺嵍懁偵婰嵹偟偰偁傞傾僀僥儉梡俬俢偱偡丅忋婰偺傾僀僥儉柤偵崌傢偣偰摨偠傛偆偵婰擖偟偰偔偩偝偄丅

@hash = ("kkkkk","kkkk","kkk","kk","k");

#################################################################################################
#傾僀僥儉偺摉偨傞妋棪偱偡丅忋婰俀庬椶偺摉偨傞妋棪傪1000暘偺偄偔偮偐傪彂偄偰偔偩偝偄丅
#堦斣嵍偐傜悢偑戝偒偔側偭偰偄偔傛偆偵偟偰丄嵟屻偺悢帤偼偐側傜偢侾侽侽侽偵側傞傛偆偵偟偰壓偝偄丅

@kakuritu = ("10","100","300","600","1000");

#愝掕偙偙傑偱
##################################################################
#偙偙偐傜壓偺晹暘偼perl傪巊梡偟偨僾儘僌儔儉偱偡丅夵憿弌棃傞斖埻偱曄峏偟偰偔偩偝偄丅

@pair = split(/;/, $ENV{'HTTP_COOKIE'});
foreach (@pair) {
my($key, $value) = split(/=/, $_);
$key =~ s/ //g;
$DUMMY{$key} = $value;
}
@pairs = split(/,/,$DUMMY{EB});
foreach (@pairs) {
my($key, $value) = split(/:/, $_);
$cookies{$key} = $value;
}

if($cookies{'pname'} eq "" && $FORM{'pname'} eq ""){&COOKIE_IN;}

$inname = $FORM{'pname'};
$inpass = $FORM{'pass'};
if($inname eq ""){$inname = $cookies{'pname'};$inpass = $cookies{'pass'};}

if($SUB){&ERROR('捈儕儞僋偼嬛巭偱偡','擖傝岥偐傜偺傾僋僙僗偍婅偄偟傑偡丅') if $ENV{'HTTP_REFERER'} !~ m/^$THIS_DIR/ && $DIRECT_LINK && $SUB ne 'MY_LIST' && $SUB ne 'C_LIST';}

!$SUB && ($SUB='MAIN');

&$SUB;

sub COOKIE_IN {

&HEADER;
print<<"HTML";
<table border=0 width=100% height=90%><tr><td align=center valign=middle>
<form action=$SCRIPTNM method=POST>
<input type=hidden name=cmd value=MAIN>
<table $TABLE_STYLE>
<tr><td bgcolor=$TABLE_COLOR2 colspan=2>暉堷強擖傝岥</td></tr>
<tr>
<td bgcolor=$TABLE_COLOR2>柤慜</td>
<td bgcolor=$TABLE_COLOR1><input type=text size=30 name=pname $STYLE_B1></td>
</tr>
<tr>
<td bgcolor=$TABLE_COLOR2>僷僗儚乕僪</td>
<td bgcolor=$TABLE_COLOR1><input type=password size=30 name=pass $STYLE_B1></td>
</tr>
<tr>
<td bgcolor=$TABLE_COLOR1 colspan=2 align=right><input type=submit value=寛掕 $STYLE_B1></td>
</tr>
</table>
</td></tr></table>
</form>
HTML
&END;
exit;
}


sub SETUMEI {

&HEADER;
print<<"HTML";
<table $TABLE_STYLE>
<tr><td bgcolor=$TABLE_COLOR2>暉堷偺愢柧</td></tr>
<tr>
<td bgcolor=$TABLE_COLOR1>
愴摤拞偵暉堷寯傗暉堷曗彆寯傪廍偆偙偲偑偁傝傑偡丅<br>
暉堷傪峴偆偙偲偵傛傝丄慺揋側宨昳偑摉偨傝傑偡丅<br>
暉堷寯偼侾枃丄暉堷曗彆寯偼俆枃偱丄侾夞偩偗暉堷傪峴偆偙偲偑弌棃傑偡丅<p>
暉堷偺巊梡曽朄偼埲壓偺偲偍傝偵側傝傑偡丅<p>
侾丏庤偵擖傟偨暉堷寯丄暉堷曗彆寯傪梊\旛\憰\旛\偵擖傟偰偍偒傑偡丅<br>
俀丏寯傪帩偭偰暉堷強偵峴偒丄寯傪弌偟傑偡丅<br>
俁丏暉堷寯傪弌偟偨応崌偼丄偦偺傑傑暉堷傪峴偆偙偲偑弌棃傑偡丅<br>
係丏暉堷曗彆寯偼寯傪弌偡偲寯偑拁愊偝傟偰偄偒傑偡丅<br>
俆丏拁愊偝傟偨暉堷曗彆寯偑崌寁俆枃偵側傞偲暉堷傪峴偆偙偲偑弌棃傑偡丅<p>
宨昳偼埲壓偺偲偍傝偵側傝傑偡丅<p>
<table>
HTML

$i = 0;
foreach(@keihin){
$j = $i + 1;
print<<"TABLE";
<tr>
<td bgcolor=$TABLE_COLOR2>$j摍</td>
<td bgcolor=$TABLE_COLOR1>$keihin[$i]</td>
</tr>
TABLE
$i++;
}

print<<"SAIGO";
</table>
</td></tr></table>
<br><br><br><br><br>
<input type=button value="栠傞" $STYLE_B1 onClick="parent.Sub.location.replace('./$SCRIPTNM')">
SAIGO
&END;
exit;
}

sub HUKUBIKI {

&LOCK;
&DBM_INPORT(P);
dbmopen (%P,"$DBM_P",0666);
@VALS = split(/\s/,$P{"$inname"});
if($VALS[26] > $FORM{'time'}){&ERROR("僞僀儉僄儔乕偱偡丅");}

$randam = int(rand(1));
$i = 0;

foreach $number (@kakuritu){

if($number >= $randam){$atari = $i;last;}

$i++;
}

if($atari eq ""){&ERROR('僄儔乕偱僴僘儗偱偡丅');}

$buki = $keihin[$atari];
$bukin = $hash[$atari];
$tou = $atari + 1;

if($FORM{'mode'} == 2){
if($VALS[10] ne ""){dbmclose %P;&UNLOCK;&ERROR('庤帩偪偑偄偭傁偄偺偨傔僴僘儗偱偡丅');}
$VALS[10] = "$bukin";
}

elsif($FORM{'mode'} == 3){
if($VALS[11] ne ""){dbmclose %P;&UNLOCK;&ERROR('庤帩偪偑偄偭傁偄偺偨傔僴僘儗偱偡丅');}
$VALS[11] = "$bukin";}

else{dbmclose %P;&UNLOCK;&ERROR('僄儔乕偺偨傔偼偢傟偱偡丅');}

$VALS[26] = $DATE;

$P{"$inname"}="@VALS";
dbmclose %P;

if($atari == 0 && $rekisi == 1){
dbmopen (%DH,"$DBM_H",0666);
$DH{"$DATE"}="$inname偑暉堷偱侾摍傪摉偰傑偟偨丅宨昳偲偟偰$buki傪庤偵擖傟傑偟偨丅";
dbmclose %DH;
}

&UNLOCK;

&HEADER;
print<<"HTML";
<table $TABLE_STYLE>
<tr>
<td bgcolor=$TABLE_COLOR2>$tou摍偑摉偨傝傑偟偨</td></tr>
<tr>
<td bgcolor=$TABLE_COLOR1>
$tou摍偺彜昳$buki傪妉摼偟傑偟偨丅
</td></tr></table>
HTML
&END;
exit;
}

sub INPORT {
tie %NOTE,AnyDBM_File,"$HUKUBIKIDB",O_RDONLY,0666;
%KEN=%NOTE;
untie %NOTE;
}

sub MAIN {

&DBM_INPORT(P);
@VALS = split(/\s/,$P{"$inname"});
if(crypt($inpass,eb) ne "$VALS[2]"){&ERROR("僷僗儚乕僪偑娫堘偭偰偄傑偡丅");}

&INPORT;
@ken = split(/\s/,$KEN{"$inname"});

if($ken[0] ne ""){$no1 = "仠";}else{$no1 = "仜";}
if($ken[1] ne ""){$no2 = "仠";}else{$no2 = "仜";}
if($ken[2] ne ""){$no3 = "仠";}else{$no3 = "仜";}
if($ken[3] ne ""){$no4 = "仠";}else{$no4 = "仜";}
if($ken[4] ne ""){$no5 = "仠";}else{$no5 = "仜";}

local($WN_A,$WLV_A) = split(/!/,$VALS[9]);	
local($WN_B,$WLV_B) = split(/!/,$VALS[10]);
local($WN_C,$WLV_C) = split(/!/,$VALS[11]);

if($WN_B eq "hukubiki" || $WN_B eq "hojoken"){$submit1 = "<input type=submit value=弌偡 $STYLE_B1>";}
if($WN_C eq "hukubiki" || $WN_C eq "hojoken"){$submit2 = "<input type=submit value=弌偡 $STYLE_B1>";}

$WLV_A=int$WLV_A/$WEAPON_LVUP;
$WLV_B=int$WLV_B/$WEAPON_LVUP;
$WLV_C=int$WLV_C/$WEAPON_LVUP;

@WN_sA=split(/\,/,$WEAPON_LIST{"$WN_A"});
@WN_sB=split(/\,/,$WEAPON_LIST{"$WN_B"});
@WN_sC=split(/\,/,$WEAPON_LIST{"$WN_C"});

if($WN_B ne ""){$SB = "$WN_sB[0](Lv.$WLV_B)";}else{$SB = "柍憰旛";}
if($WN_C ne ""){$SC = "$WN_sC[0](Lv.$WLV_C)";}else{$SC = "柍憰旛";}

&HEADER;
print<<"HTML";
<table border=0><tr><td valign=top>
<table $TABLE_STYLE>
<tr>
<td bgcolor=$TABLE_COLOR2 colspan=3>$inname偺憰旛\</b></td>
</tr>
<tr>
<td bgcolor=$TABLE_COLOR2>憰旛\</td>
<td bgcolor=$TABLE_COLOR1>$WN_sA[0](Lv.$WLV_A)</td>
<td bgcolor=$TABLE_COLOR1></td>
</tr>
<tr>
<form action=$SCRIPTNM method=POST>
<input type=hidden name=pname value=$inname>
<input type=hidden name=pass value=$inpass>
<input type=hidden name=cmd value=IRERU>
<input type=hidden name=mode value=1>
<input type=hidden name=tik1 value=$WN_B>
<td bgcolor=$TABLE_COLOR2>梊\旛\</td>
<td bgcolor=$TABLE_COLOR1>$SB</td>
<td bgcolor=$TABLE_COLOR1>$submit1</td>
</form>
</tr>
<tr>
<form action=$SCRIPTNM method=POST>
<input type=hidden name=pname value=$inname>
<input type=hidden name=pass value=$inpass>
<input type=hidden name=cmd value=IRERU>
<input type=hidden name=mode value=2>
<input type=hidden name=tik2 value=$WN_C>
<td bgcolor=$TABLE_COLOR2>梊\旛\</td>
<td bgcolor=$TABLE_COLOR1>$SC</td>
<td bgcolor=$TABLE_COLOR1>$submit2</td>
</form>
</tr>
<tr>
<td bgcolor=$TABLE_COLOR2 colspan=3>曗彆愢柧</td>
</tr>
<tr>
<td bgcolor=$TABLE_COLOR1 colspan=3>
<form action=$SCRIPTNM method=POST>
<input type=hidden name=pname value=$inname>
<input type=hidden name=pass value=$inpass>
<input type=hidden name=cmd value=SETUMEI>
<input type=submit value="愢柧彂" $STYLE_B1>
</td>
</tr>
</form>
</table>

</td>
<td valign=top>
<table $TABLE_STYLE>
<tr>
<td bgcolor=$TABLE_COLOR2 colspan=2>曗彆寯揬\傝偮偗強</b></td>
</tr>
<tr>
<td bgcolor=$TABLE_COLOR1>侾</td>
<td bgcolor=$TABLE_COLOR1 align=center>$no1</td>
</tr>
<tr>
<td bgcolor=$TABLE_COLOR1>俀</td>
<td bgcolor=$TABLE_COLOR1 align=center>$no2</td>
</tr>
<tr>
<td bgcolor=$TABLE_COLOR1>俁</td>
<td bgcolor=$TABLE_COLOR1 align=center>$no3</td>
</tr>
<tr>
<td bgcolor=$TABLE_COLOR1>係</td>
<td bgcolor=$TABLE_COLOR1 align=center>$no4</td>
</tr>
<tr>
<td bgcolor=$TABLE_COLOR1>俆</td>
<td bgcolor=$TABLE_COLOR1 align=center>$no5</td>
</tr>
</table>
</td></tr></table>
HTML
&END;
exit;
}

sub END {
print "<div align=center><font size=2>PROGRAMING:(C) 2002 - <a href=http://melcha.zone.ne.jp/ebs/dl/ target=_blank><font size=2>44NET FACTORY</font></a> - All Right Reserved.</font></div><p>";
&FOOTER;
print<<"HTML";
</body>
</html>
HTML
exit;
}

sub IRERU {

&DBM_INPORT(P);
&LOCK;
dbmopen (%P,"$DBM_P",0666);
@VALS = split(/\s/,$P{"$inname"});
if(crypt($inpass,eb) ne "$VALS[2]"){dbmclose %P;&UNLOCK;&ERROR("僷僗儚乕僪偑娫堘偭偰偄傑偡丅");}

local($WN_B,$WLV_B) = split(/!/,$VALS[10]);	
local($WN_C,$WLV_C) = split(/!/,$VALS[11]);

if($FORM{'mode'} == 1 && $WN_B eq $FORM{'tik1'}){
$VALS[10] = "";
$num = 2;
}
elsif($FORM{'mode'} == 2 && $WN_C eq $FORM{'tik2'}){
$VALS[11] = "";
$num = 3;
}
else{dbmclose %P;&UNLOCK;&ERROR('尨場晄柧偺僄儔乕1偱偡丅');exit;}

$P{"$inname"}="@VALS";
dbmclose %P;

if($FORM{'tik1'} eq "hukubiki"){&UNLOCK;&hukubiki;exit;}
if($FORM{'tik2'} eq "hukubiki"){&UNLOCK;&hukubiki;exit;}

&INPORT;

@ken = split(/\s/,$KEN{"$inname"});

if($ken[0] eq ""){$ken[0] = "hojoken";}
elsif($ken[1] eq ""){$ken[1] = "hojoken";}
elsif($ken[2] eq ""){$ken[2] = "hojoken";}
elsif($ken[3] eq ""){$ken[3] = "hojoken";}
elsif($ken[4] eq ""){$ken[4] = "hojoken";}
elsif($ken[4] eq ""){$ken[5] = "hojoken";}
else{dbmclose %P;&UNLOCK;&ERROR('尨場晄柧偺僄儔乕2偱偡丅');}

if($ken[0] eq "hojoken" && $ken[1] eq "hojoken" && $ken[2] eq "hojoken" && $ken[3] eq "hojoken" && $ken[4] eq "hojoken"){$ken[0]=$ken[1]=$ken[2]=$ken[3]=$ken[4]="";$hukubiki = 1;}

@VALUES="$ken[0] $ken[1] $ken[2] $ken[3] $ken[4]";

dbmopen (%KENIN,"$HUKUBIKIDB",0666);
$KENIN{"$inname"}="@VALUES";
dbmclose %KENIN;

&UNLOCK;
if($hukubiki == 1){&hukubiki;exit;}
&MAIN;
}

sub hukubiki {
&HEADER;
print<<"HTML";
<table $TABLE_STYLE>
<tr>
<td colspan=2 bgcolor=$TABLE_COLOR2>宨昳偵偮偄偰</td></tr>
HTML
$i = 0;

foreach(@keihin){
$j = $i + 1;
print<<"TABLE";
<tr>
<td bgcolor=$TABLE_COLOR2>$j摍</td>
<td bgcolor=$TABLE_COLOR1>$keihin[$i]</td>
</tr>
TABLE
$i++;
}

print<<"SAIGO";
<tr>
<td colspan=2 bgcolor=$TABLE_COLOR2>暉堷強</td></tr>
<tr>
<td colspan=2 bgcolor=$TABLE_COLOR1 align=center>
<form action=$SCRIPTNM method=POST>
<input type=hidden name=pname value=$inname>
<input type=hidden name=pass value=$inpass>
<input type=hidden name=time value=$DATE>
<input type=hidden name=cmd value=HUKUBIKI>
<input type=hidden name=mode value=$num>
<input type=submit value=暉堷奐巒 $STYLE_B1></form>
</td></tr></table>
SAIGO

&END;
exit;
}

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -