亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? cjyh.cgi

?? --黑客防線-精華奉獻本(攻冊)
?? CGI
?? 第 1 頁 / 共 4 頁
字號: 
#!/usr/bin/perl
#------------------------------------------------------#
#　　　　　　　　　本程序為Yuzi工作室提供　  　　　　　#
#　　　　　　　　Yuzi論壇3000(BBS3000)v4.00　　　　　　#
#------------------------------------------------------#
$cgipa=".";  # CGI程序文件的絕對路徑
######################
## 以下部分不需修改 ##
######################
require "$cgipa/setup.cgi";
&GetCookies;
$cgiurl  ="cjyh.cgi";
$list="$filepath/data/list.cgi";
$listpage  = 20;
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value=~tr/+/ /;
$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value=~s/\.\.//g;
$value=~s/\t//g;
if($FORM{$name}){$FORM{$name}=$FORM{$name}.",".$value;}else{$FORM{$name}=$value;}
}
$username=$FORM{'username'};
$menu=$FORM{'menu'};
$title=$FORM{'title'};
$selname=$FORM{'selname'};
$mail=$FORM{'mail'};
$sort=$FORM{'sort'};
$page=$FORM{'page'};
$money=$FORM{'money'};
$charm=$FORM{'charm'};
if (-e "$cgipa/install.cgi"){unlink("$cgipa/install.cgi");}
if($menu eq "mail"){&mail;exit;}
############
if(($admname eq $Cookies{admname})&&($delpsd ne $Cookies{delpsd})){
($kkk)=split(/\)/,$ENV{'HTTP_USER_AGENT'});
($bzd,$ie,$win,$me)=split(/;/,$kkk);
if($me eq " Win 9x 4.90"){$win="Windows Me"}
elsif($win eq " Windows NT 5.0"){$win="Windows 2000"}
elsif($win eq " Windows NT 5.1"){$win="Windows XP"};
$loginname=$Cookies{username};
if ($Cookies{username} eq ""){$loginname="訪客";}
open(TITLES,"$filepath/data/log");
@hastitles=<TITLES>;
close(TITLES);
open(TITLES,">$filepath/data/log");
print TITLES "$thistime\t$loginname\t$Cookies{delpsd}\t$from\t$win$ie\t<font color=red>登陸失敗</font>\n";
for($i=0;$i<=18;$i++){$m=@hastitles[$i];print TITLES "$m";}
close(TITLES);
}
############
if(($admname ne $Cookies{admname})||($delpsd ne $Cookies{delpsd})){
&csshtml;
print <<EOF;
<meta HTTP-EQUIV=REFRESH CONTENT=$FORM{'REFRESH'};URL=cjyh.cgi><sCRIPT>
document.cookie="admname="+"$FORM{'adm'}";
document.cookie="delpsd="+"$FORM{'psd'}";
</SCRIPT><center><table border=0 width=100% cellpadding=6><tr><td width=100% bgcolor=$bgcolor1 align=center><b><font color=FF6633>
社區管理</font></b></td></tr></table><form action=$cgiurl METHOD=POST><table border="0">
<tr><td width="40%" align=center>社區區長名字：</td><td width="60%"><input size=20 name=adm></td>
</tr><tr><td width="40%" align=center>社區區長密碼：</td><td width="60%"><input size=20 name=psd type=password></td>
</tr><tr><td width="40%" align=center></td><td width="60%"><input type="submit" value="登 陸"></td>
</tr></table><input type=hidden name=REFRESH value="1"></form></center></div><br>
<table width=80% align=center><tr><td><b><font color=#555555>注意：<br><br>
只有社區區長才能登陸社區管理中心。
未經過授權的嘗試登陸行為將會被記錄在案！</font></b>
</td></tr></table>
EOF
exit;
}
elsif($menu eq "kills"){&kills;exit;}
elsif($menu eq "listusers"){&listusers;exit;}
elsif($menu eq "chgusers"){&chgusers;exit;}
elsif($menu eq "del3"){&del3;exit;}
elsif($menu eq "ckyh"){&ckyh;exit;}
elsif($menu eq "ckbz"){&ckbz;exit;}
elsif($menu eq "bbslb"){&bbslb;exit;}
elsif($menu eq "qlid"){&qlid;exit;}
elsif($menu eq "club"){&club;exit;}
elsif($menu eq "money"){&money;exit;}
elsif($menu eq "clubok"){&clubok;exit;}
elsif($menu eq "lucida"){&lucida;exit;}
elsif($menu eq "lucidaok"){&lucidaok;exit;}
elsif($menu eq "rank"){&rank;exit;}
elsif($menu eq "rankok"){&rankok;exit;}
elsif($menu eq "setup"){&setup;exit;}
elsif($menu eq "setupok"){&setupok;exit;}
elsif($menu eq "cleanname"){&cleanname;exit;}
elsif($menu eq "all"){&all;exit;}
elsif($menu eq "fix"){&fix;exit;}
elsif($menu eq "log"){&log;exit;}
elsif($menu eq "editcss"){&editcss;exit;}
elsif($menu eq "cssok"){&cssok;exit;}
elsif($menu eq "link"){&link;exit;}
elsif($menu eq "upmember"){&upmember;exit;}
elsif($menu eq "upfile"){&upfile;exit;}
elsif($menu eq "upfileok"){&upfileok;exit;}
elsif($menu eq "linkok"){&linkok;exit;}
elsif($menu eq "linkdel"){&linkdel;exit;}
elsif($menu eq "bak"){&bak;exit;}
elsif($menu eq "unbak"){&unbak;exit;}
elsif($menu eq "bakok"){do "$cgipa/sub/tar.cgi";exit;}
elsif($menu eq "unbakok"){do "$cgipa/sub/untar.cgi";exit;}
elsif($menu eq "ratinglog"){&ratinglog;exit;}
elsif($menu eq "rating"){&rating;exit;}
else{
&csshtml;
$program_use_time=times;
print <<EOF;
<center><table border=0 width=100% cellpadding=6><tr><td width=100% bgcolor=$bgcolor1 align=center><b><font color=FF6633>
身份驗證：通過！</font></b></td></tr></table><br><table border=0 width=60%><tr><td>Perl 版本：</td>
<td><font color=red>$]</font></td></tr><tr><td>服務器域名：</td><td><font color=red>$ENV{'HTTP_HOST'}</font></td></tr>
EOF
if($ENV{'SERVER_ADDR'}){print"<tr><td>服務器IP地址：</td><td><font color=red>$ENV{'SERVER_ADDR'}</font></td></tr>";}
print <<EOF;
<tr><td>服務器操作系統：</td><td><font color=red>$^O</font></td></tr>
EOF
if($ENV{'COMPUTERNAME'}){print"<tr><td>服務器計算機名稱：</td><td><font color=red>$ENV{'COMPUTERNAME'}</font></td></tr>";}
print <<EOF;
<tr><td>服務器HTTP軟件名稱：</td><td><font color=red>$ENV{'SERVER_Software'}</font></td></tr>
<tr><td>服務器現在時間：</td><td>$year年$mon月$mday日 $hour:$min:$sec</td></tr>
EOF
if($program_use_time < 1){print"<tr><td>運行消耗時間：</td><td><font color=red>$program_use_time</font> ms</td>";}
($kkk)=split(/\)/,$ENV{'HTTP_USER_AGENT'});
($bzd,$ie,$win,$me)=split(/;/,$kkk);
if($me eq " Win 9x 4.90"){$win="Windows Me"}
elsif($win eq " Windows NT 5.0"){$win="Windows 2000"}
elsif($win eq " Windows NT 5.1"){$win="Windows XP"};
$loginname=$Cookies{username};
if ($Cookies{username} eq ""){$loginname="訪客";}
open(TITLES,"$filepath/data/log");
@hastitles=<TITLES>;
close(TITLES);
open(TITLES,">$filepath/data/log");
print TITLES "$thistime\t$loginname\t不顯示\t$from\t$win$ie\t登陸成功\n";
for($i=0;$i<=18;$i++){$m=@hastitles[$i];print TITLES "$m";}
close(TITLES);
exit;
}
#########
sub listusers{
&csshtml;
print <<EOF;
<SCRIPT>
function up_reset(){
if (confirm("此功能較耗系統資源,建議在系統較空閑時使用!")){
return true;
}
return false;
}
</SCRIPT>
<center><table border=0 width=100% cellpadding=6><tr><td width=100% bgcolor=$bgcolor1 align=center><b><font color=FF6633>
注冊用戶管理</font></b></td></tr></table><form action=$cgiurl METHOD="POST">
請鍵入用戶的名稱：<input type=text name="username" size=12><input type=hidden name="type" value="one">
<input type=hidden name="menu" value="ckyh"><input type=submit value="確定"></form>
<form action=$cgiurl METHOD=POST><input type=hidden name=menu value=del3>
批量刪除 <INPUT name=day size=3 maxLength=3 value=100> 天沒有發表過貼子的用戶資料
<input type=submit value='確定'></form>
<a href=?menu=upmember onclick="return up_reset()">點擊更新用戶排行榜</a>
EOF
exit;
}
##########
sub chgusers{
open(NUMBER,"$filepath/data/ip");
$ip=<NUMBER>;
close(NUMBER);
($ip1,$ip2,$ip3,$ip4)=split(/\./,$ENV{'REMOTE_ADDR'});
$rfrom="$ip1.$ip2.*.*";
if($ip ne $rfrom){&errorview("對不起，您的IP地址不是 $ip 請重新上傳install.cgi文件，再運行install.cgi，系統才會自動設置IP地址");}
unlink("$filepath/yhzl/$selname.cgi");
unlink("$filepath/guest/1$selname.cgi");
unlink("$filepath/guest/2$selname.cgi");
unlink("$filepath/favorites/$selname.cgi");
unlink("$filepath/favorites/2$selname.cgi");
unlink("$filepath/favorites/3$selname.cgi");
unlink("$filepath/bank/$selname.cgi");
unlink("$filepath/friend/$selname.cgi");
unlink("$filepath/postlog/$selname.cgi");
unlink("$ImgDir/img/$selname.jpg");
unlink("$ImgDir/portrait/$selname.gif");
unlink("$filepath/article/$selname.cgi");
&csshtml;
print <<EOF;
<center><table border=0 width=100% cellpadding=6><tr><td width=100% bgcolor=$bgcolor1 align=center><b><font color=FF6633>
已 經 成 功 刪 除 用 戶 $selname 的 所 有 資 料 ！</font></b></td></tr></table><br>[ <a href="javascript:history.back()">返 回 </a>]
EOF
exit;
}
sub upmember{
open(TMP,">$filepath/data/fixtop");
close(TMP);
opendir (MEMBERDIR2, "$filepath/yhzl");
@lines = readdir(MEMBERDIR2);
closedir (MEMBERDIR2);
foreach $username1 (@lines){
$i++;
open(PSD,"$filepath/yhzl/$username1");
$lines=<PSD>;
close(PSD);
($rpassword,$rname,$rmail,$rhome,$rlast,$rqm,$rsex,$rwork,$rcity,$rlove,$rfy,$rhf)=split(/\t/,$lines);
$tol=$rfy+$rhf;
@string[$i]="$tol\t$username1\n";
}
@string=(reverse sort{$a<=>$b}@string);
open(PSD,">$filepath/data/usertop");
foreach(@string[0..19]){
$_=~s/\n//isg;
print PSD "$_\n";
}
close(PSD);
chmod(0666,"$filepath/data/usertop");
unlink("$filepath/data/fixtop");
&csshtml;
print <<EOF;
<center><table border=0 width=100% cellpadding=6><tr><td width=100% bgcolor=$bgcolor1 align=center><b><font color=FF6633>
已經成功更新了用戶排行榜！</font></b></td></tr></table><br>[ <a href="javascript:history.back()">返 回 </a>]
EOF
exit;
}
##########
sub kills{
open(NUMBER,"$filepath/data/ip");
$ip=<NUMBER>;
close(NUMBER);
($ip1,$ip2,$ip3,$ip4)=split(/\./,$ENV{'REMOTE_ADDR'});
$rfrom="$ip1.$ip2.*.*";
if($ip ne $rfrom){&errorview("對不起，您的IP地址不是 $ip 請重新上傳install.cgi文件，再運行install.cgi，系統才會自動設置IP地址");}
open (GUEST,"$filepath/data/list.cgi");
@lines=<GUEST>;
close(GUEST);
open (GUEST,">$filepath/data/list.cgi");
foreach $usersays (@lines) {
chomp($usersays);
($index)=split(/\t/,$usersays);
if($selname ne $index){
print GUEST "$usersays\n";
}}
close(GUEST);
opendir (MEMBERDIR2, "$filepath/list/$selname");
@members2 = readdir(MEMBERDIR2);
closedir (MEMBERDIR2);
foreach $m (@members2){
unlink("$filepath/list/$selname/$m");
}
rmdir("$filepath/list/$selname");
unlink("$filepath/list/$selname.cgi");
&csshtml;
print <<EOF;
<center><table border=0 width=100% cellpadding=6><tr><td width=100% bgcolor=$bgcolor1 align=center><b><font color=FF6633>
已 經 成 功 刪 除 此 論 壇 的 所 有 數 據 ！</font></b></td></tr></table><br>[ <a href="javascript:history.back()">返 回 </a>]
EOF
exit;
}
sub fix{
chmod(0777,"$filepath/list/$selname/");
open(MEMBERDIR2,">$filepath/list/$selname/bbs");
close(MEMBERDIR2);
chmod(0666,"$filepath/list/$selname/bbs");
&csshtml;
print <<EOF;
<center><table border=0 width=100% cellpadding=6><tr><td width=100% bgcolor=$bgcolor1 align=center><b><font color=FF6633>
已 經 成 功 修 復 此 論 壇 的 索 引 文 件 ！</font></b></td></tr></table><br>[ <a href="javascript:history.back()">返 回 </a>]
EOF
exit;
}
##########
sub ckyh{
if ( -e "$filepath/yhzl/$username.cgi"){
open(PSD,"$filepath/yhzl/$username.cgi");
$line=<PSD>;
close(PSD);
($rdpassword,$username1,$mail1,$home1,$lasttime1,$qm1,$sex1,$work1,$city1,$love1,$rfy,$rhf,$tu,$jiao,$iewin,$QQ,$photo,$levelname,$level)=split(/\t/,$line);
$fy1=$rfy+0;
$hf1=$rhf+0;
$tol=$fy1+$hf1;
open(NUMBER,"$filepath/guest/2$username.cgi");
$NUMBER=<NUMBER>;
close(NUMBER);
($lys,$oldlys,$money,$charm)=split(/\t/,$NUMBER);
if($sex1 eq ""){$sex1="(不告訴您)"};
if($city1 eq ""){$city1="(不告訴您)"};
if($love1 eq ""){$love1="(不告訴您)"};
if($work1 eq ""){$work1="(不告訴您)"};
if(($home1 eq "http://")||($home1 eq "")){$home1="(不告訴您)"};
if($mail1 eq ""){$mail1="(不告訴您)"};
if($jiao eq ""){$jiao="這家伙很懶,什么都沒有留下。"};
$fy1=$rfy+0;
$hf1=$rhf+0;
$tol=$fy1+$hf1;
if (-e "$ImgDir/img/$username.jpg") {$ttt="$ImgurlDir/$photo.jpg"}else{$ttt="$imagurl/photo.gif"}
&csshtml;
print <<EOF;
<SCRIPT>
function del_reset(){
if (confirm("您確定要刪除該用戶的資料嗎?")){
return true;
}
return false;
}
</SCRIPT><center><table border=0 width=100% cellpadding=6><tr><td width=100% bgcolor=$bgcolor1 align=center><b><font color=FF6633>
用 戶 $username 的 資 料 ！</font></b></td></tr></table><table border="0" width="100%">
<tr><td width="100%" colspan="2" align="center"><form action=$cgiurl METHOD=POST><input type=hidden name=selname value=$username><input type=hidden name=menu value=chgusers><input type=submit onclick="return del_reset()" value=刪除此用戶的所有資料></form>
</td></tr></table><TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=90%>
<tr><TD height=36><TABLE border=0 cellPadding=0 cellSpacing=1 width=100%><TBODY><TR bgColor=eceef2>

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
久久亚洲综合色| 久久一区二区三区国产精品| 成人免费毛片高清视频| 韩国三级中文字幕hd久久精品| 亚洲午夜成aⅴ人片| 亚洲午夜激情网站| 亚洲一级二级三级| 香蕉av福利精品导航 | 成人午夜大片免费观看| 国产主播一区二区三区| 国产成人在线网站| 99精品视频一区二区三区| 成人午夜电影小说| 欧美综合一区二区| 欧美一区二区三区播放老司机| 欧美剧情电影在线观看完整版免费励志电影| 欧美视频一区在线| 欧美成人福利视频| 国产精品色呦呦| 亚洲一区二区视频在线| 日韩黄色免费电影| 国产一区二区精品久久| 色婷婷久久久亚洲一区二区三区| 欧美系列一区二区| 久久久久久久久久久黄色 | 欧美综合在线视频| 日韩视频在线你懂得| 国产精品人成在线观看免费| 一区二区三区鲁丝不卡| 精品亚洲免费视频| 97久久久精品综合88久久| 911精品国产一区二区在线| 精品国产伦理网| 亚洲精品美腿丝袜| 国产原创一区二区三区| 欧美色图天堂网| 国产日韩精品一区二区三区在线| 亚洲精品v日韩精品| 激情欧美一区二区| 91黄色激情网站| 久久久精品国产免大香伊| 亚洲美女视频在线| 国产精品18久久久久久久久久久久| 色狠狠桃花综合| 久久看人人爽人人| 首页国产欧美日韩丝袜| 99免费精品在线| 久久久美女毛片 | 91麻豆精品国产91久久久使用方法 | 在线视频一区二区三区| 精品国内二区三区| 亚洲一级二级三级| 91麻豆国产福利在线观看| 日韩欧美在线网站| 午夜一区二区三区视频| 在线日韩一区二区| 中文字幕在线不卡一区二区三区| 久久精品99国产精品日本| 在线观看日韩毛片| 亚洲欧美一区二区三区久本道91 | 亚洲欧美日韩国产综合在线| 精品在线播放午夜| 日韩一区二区三区在线| 午夜影院久久久| 欧美日韩aaa| 亚洲国产综合色| 欧美性色aⅴ视频一区日韩精品| 中文字幕av在线一区二区三区| 国产一区二区在线看| 精品国产免费人成在线观看| 日本中文字幕不卡| 欧美一级在线视频| 麻豆国产精品官网| 欧美xxxxx裸体时装秀| 日韩中文字幕亚洲一区二区va在线| 色婷婷综合五月| 亚洲制服丝袜一区| 欧美一a一片一级一片| 亚洲国产欧美在线人成| 欧美日韩在线播| 天天色天天操综合| 欧美一区二区三区免费观看视频 | 亚洲欧美日韩小说| aaa欧美日韩| 亚洲欧美日韩国产一区二区三区 | 成人av在线资源| 自拍偷拍欧美精品| 在线观看成人免费视频| 视频一区二区三区入口| 久久综合九色综合97婷婷女人 | 日韩av一级片| 精品国产一区二区在线观看| 国产精品一二三在| 成人欧美一区二区三区白人 | 蜜桃一区二区三区在线观看| 日韩视频国产视频| 丁香桃色午夜亚洲一区二区三区| 中文字幕免费观看一区| 色素色在线综合| 久久精品999| 亚洲色图视频网| 91精品国产色综合久久不卡电影| 日韩成人一区二区三区在线观看| 精品久久一二三区| 成人精品国产一区二区4080| 亚洲另类春色国产| 日韩美女天天操| 色婷婷亚洲综合| 激情综合五月婷婷| 亚洲激情图片小说视频| 日韩欧美国产高清| 在线观看三级视频欧美| 国产尤物一区二区在线| 亚洲综合久久av| 中文字幕不卡的av| 亚洲一区二区av在线| 久久男人中文字幕资源站| 在线视频一区二区免费| 国产精品伊人色| 日韩va欧美va亚洲va久久| 亚洲少妇中出一区| 欧美精品一区二区三区蜜臀 | 成人精品一区二区三区中文字幕| 亚洲成人精品一区| 欧美激情在线观看视频免费| 69堂亚洲精品首页| 91小视频在线免费看| 国产一区二区不卡| 亚洲国产精品久久久久婷婷884| 国产日韩综合av| 精品国产麻豆免费人成网站| 欧美日韩免费一区二区三区视频| eeuss鲁片一区二区三区在线观看 eeuss鲁片一区二区三区在线看 | 成人免费毛片app| 极品少妇一区二区三区精品视频 | 高清在线不卡av| 另类中文字幕网| 丝袜亚洲精品中文字幕一区| 亚洲卡通欧美制服中文| 国产精品女上位| 久久久国产一区二区三区四区小说 | 欧美理论在线播放| 色综合久久综合中文综合网| 成人一道本在线| 成人综合在线网站| 国产乱国产乱300精品| 老司机午夜精品| 久久99精品一区二区三区| 日日噜噜夜夜狠狠视频欧美人| 亚洲成人黄色小说| 福利一区二区在线| 国产一区二区视频在线| 韩国视频一区二区| 国产精品一区二区91| 国产乱国产乱300精品| 国产成人av自拍| 丁香网亚洲国际| 91老司机福利 在线| 色综合色综合色综合色综合色综合 | 亚洲123区在线观看| 视频一区中文字幕| 国产在线精品免费av| 国产成人欧美日韩在线电影 | 综合分类小说区另类春色亚洲小说欧美| 欧美精彩视频一区二区三区| 日本一区二区电影| 亚洲色图视频网| 日韩中文字幕不卡| 看电视剧不卡顿的网站| 激情都市一区二区| 成人av免费网站| 欧美在线视频你懂得| 欧美日韩视频在线第一区| 91精品国产日韩91久久久久久| 欧美成人video| 中文字幕亚洲一区二区av在线| 亚洲卡通欧美制服中文| 午夜欧美在线一二页| 精品综合久久久久久8888| 国产黄人亚洲片| 色av成人天堂桃色av| 91精品国产综合久久精品麻豆| wwwwxxxxx欧美| 一区二区三区欧美亚洲| 男男视频亚洲欧美| 国产91综合一区在线观看| 91丨porny丨中文| 日韩女优制服丝袜电影| 中文字幕一区av| 久久av老司机精品网站导航| 丁香五精品蜜臀久久久久99网站 | 国产高清不卡一区| 在线中文字幕不卡| 亚洲国产综合91精品麻豆| 狠狠色丁香久久婷婷综合丁香| av网站免费线看精品| 91精品婷婷国产综合久久| 国产精品入口麻豆原神| 免费在线观看不卡| 97se亚洲国产综合在线|