📄 cjyh.cgi

📁 --黑客防线-精华奉献本(攻册)
💻 CGI
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
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><br>[ <a href=cjyh.cgi?menu=link> 返 回 </a> ]
EOF
}
sub csshtml {
&css;
print <<EOF;
<title>BBS3000 - 论坛管理中心</title><br><body background=$imagurl/bei.gif><table width=95% cellpadding=0 cellspacing=1 border=0 bgColor=000000 align=center>
<tr><td><table width=100% cellpadding=0 cellspacing=1 border=0><tr><td width=22% valign=top bgColor=FFFFFF>
<table width=100% cellpadding=6 cellspacing=0 border=0><tr><td bgcolor=333333><font color=FFFFFF>
<b>管理菜单</b></td></tr><tr><td bgcolor="#$bgcolor1"><font color=333333><b>用户管理</b>
</td></tr><tr><td bgcolor="#FFFFFF"><font color=333333>
>> <a href=cjyh.cgi?menu=listusers>注册用户管理</a><br>
>> <a href=cjyh.cgi?menu=rank>管理人员设置</font></a></td></tr><tr><td bgcolor="#$bgcolor1"><font color=333333><b>论坛管理</b>
</td></tr><tr><td bgcolor="#FFFFFF"><font color=333333>
>> <a href=cjyh.cgi?menu=bbslb>注册论坛管理</a><br>
>> <a href=cjyh.cgi?menu=club>论坛列表设置</a></td></tr><tr><td bgColor=$bgcolor1><font color=333333><b>设置管理</b></td></tr>
<tr><td bgColor=FFFFFF><font color=333333>
>> <a href=cjyh.cgi?menu=editcss>编辑CSS模板</a><br>
>> <a href=cjyh.cgi?menu=link>社区友情链接</a><br>
>> <a href=cjyh.cgi?menu=lucida>社区明星设置</a><br>
>> <a href=cjyh.cgi?menu=setup>社区变量设置</font></a></td></tr><tr><td bgColor=$bgcolor1><font color=333333><b>其它功能</b></font>
</td></tr><tr><td bgColor=FFFFFF><font color=333333>
>> <a href=$cgiurl?menu=bak>社区数据备份</a><br>
>> <a href=$cgiurl?menu=unbak>社区数据还原</a><br>
>> <a href=cjyh.cgi?menu=upfile>上传文件管理</a><br>
>> <a href=cjyh.cgi?menu=mail>社区邮件列表</a><br>
>> <a href=cjyh.cgi?menu=log>管理登陆日志</a><br>
>> <a href=cjyh.cgi?menu=ratinglog>威望操作日志</a><br>
>> <a href=list.cgi target=_top>进入您的论坛</font></a></td></tr><tr><td bgColor=$bgcolor1><font color=333333><b>BBS3000 信息</b>
</font></td></tr><tr><td bgColor=FFFFFF align=left>BBS3000 Version $ver<br><font color=333333>
Powered by <a href=http://www.yuzi.net target=_blank>Yuzi Studios</a></font></td></tr></table>
</td><td width=80% valign=top bgColor=FFFFFF><table width=100% cellpadding=5 cellspacing=0 border=0>
<tr><td bgColor=FFFFFF align=center><b><font face="幼圆" color="#C0C0C0">第三代 BBS 系统 -- BBS3000</font> <FONT color=ffff66>安全</FONT> <FONT color=ff0033>快速</FONT> <FONT color=33ff33>方便 </FONT> <FONT color=0000ff>可靠 </FONT> <FONT color=000000>可升级</FONT></b>
</font></b></td></tr></table>
EOF
}
sub all{
opendir (MEMBERDIR2, "$filepath/list");
@lines = readdir(MEMBERDIR2);
closedir (MEMBERDIR2);
&css;
foreach $line(@lines) {
($id,$cgi)=split(/\./,$line);
if($cgi eq "cgi"){
@toltime=stat("$filepath/list/$id/bbs");
@modtime=gmtime(@toltime[9]);
@modtime[5]=@modtime[5]+1900;
@modtime[4]=@modtime[4]+1;
$modtime=@modtime[5]."年".@modtime[4]."月".@modtime[3]."日";
open (CHAT,"$filepath/list/$id.cgi");
$lineb=<CHAT>;
close(CHAT);
($bzmc,$secret,$bzrmail,$outurl,$bbsname)=split(/\t/,$lineb);
$no++;
$all="$all<table border=0><tr><td width=150>ID：$id</td><td width=150><A href=bbs.cgi?id=$id target=_blank>$bbsname</a></td><td>最后更新日期：$modtime</td></tr></table>";
}}
print <<EOF;
<br><center>社区内所有论坛的ID (共有 $no 个论坛)<br><br>
$all<br>
==================================== END ====================================
EOF
exit;
}
sub log{
open(TITLES,"$filepath/data/log");
@myu=<TITLES>;
close(TITLES);
foreach $lines (@myu) {
($logtime,$logname,$logpsd,$logip,$winie,$log)=split(/\t/,$lines);
$ooo="$ooo<tr><td title='操作系统：$winie'>$logname</td><td>$logpsd</td><td>$logip</td><td>$log</td><td>$logtime</td></tr>";
}
&csshtml;
print <<EOF;
<br><center><table width="95%">
<tr><td>操作者</td><td>密码</td><td>IP 地址</td><td>操作日志</td><td>操作时间</td></tr>$ooo</table></center>
EOF
exit;
}
sub rank{
open(ROOM,"$filepath/data/rank");
@lines=<ROOM>;
close(ROOM);
foreach $line (@lines){
chomp($line);
$listid="$listid$line\n";
}
&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>
管理人员设置</font></b></td></tr></table><br>注意：每一个管理人员的名称都要独立占用一行<br>管理人员拥有社区内所有版主的一切权限，并可以抓人进监狱.
<form method=POST><input name="menu" type="hidden" value=rankok><textarea rows=15 name=list cols=50>$listid</textarea>
<br><br><input type=submit value="　　　更　　　新　　　" onclick="return del_reset()"><br><br>
</body></html>
EOF
exit;
}
sub upfile{
opendir (MEMBERDIR2, "$ImgDir/affix");
@lines = readdir(MEMBERDIR2);
closedir (MEMBERDIR2);
@lines=reverse @lines;
$lines=@lines;
$lines=$lines-2;
if($lines > 19){
unless($FORM{'page'}){$FORM{'page'}=1};
$FORM{'page'}=$FORM{'page'}*20-20;
$page20=$FORM{'page'}+19;
if($page20 > $lines){$page20=$lines-1;}
@lines=@lines[$FORM{'page'}..$page20];
}
foreach $filename (@lines){
if($filename ne "." && $filename ne ".."){
@toltime=stat("$ImgDir/affix/$filename");
@modtime=gmtime(@toltime[9]);
@modtime[5]=@modtime[5]+1900;
@modtime[4]=@modtime[4]+1;
$modtime=@modtime[5]."年".@modtime[4]."月".@modtime[3]."日";
open tmp, "$ImgDir/affix/$filename";
@stats=stat(tmp);
close tmp;
if($stats[7] > 1024){$stats[7]=$stats[7]/1024;($stats[7])=split(/\./,$stats[7]);$stats[7]="$stats[7] KB";}else{$stats[7]="$stats[7] 字节";}
$all="$all<tr><td width=8% align=center><input type=checkbox name=file value='$filename'></td>
<td width=42% align=center><a target=_blank href=$imagurl/affix/$filename>$filename</a></td>
<td width=18% align=center>$stats[7]</td><td width=32% align=center>$modtime</td>
</tr>";
}
}
&csshtml;
print <<EOF;
<script>function CheckAll(form){for (var i=0;i<form.elements.length;i++){var e = form.elements[i];if (e.name != 'chkall')e.checked = form.chkall.checked;}}</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><br>　
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="75%">
<tr><td width="50%" align="center">共有 $lines 个文件</td><td width="50%" align="right">
EOF
unless($page){$page=1};
$j=$lines;while ($j>0) {$j=$j-20;}$ii++;
$j=$lines;while ($j>0) {print "<a href=cjyh.cgi?menu=upfile&page=$ii>" if ($page != $ii);
print "[$ii]</a>";$j=$j-20;$ii++;}
print <<EOF;
</td></tr></table><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="75%">
<tr><td width="8%" align="center" bgcolor=$bgcolor1>选择</td><td width="42%" align="center" bgcolor=$bgcolor1>文件名</td>
<td width="18%" align="center" bgcolor=$bgcolor1>大小</td><td width="32%" align="center" bgcolor=$bgcolor1>上传日期</td>
</tr><form method="POST" action=cjyh.cgi><input name="menu" type="hidden" value="upfileok">
$all
</table><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="75%">
<tr><td width="50%">&nbsp;<input type=checkbox name=chkall value=on onclick=CheckAll(this.form)><font color=CC3366>选中所有显示的文件</font></td>
<td width="50%" align="right"><input type=submit value=" 删 除 "><input type=reset value=重新选择>
</td></tr></table><br><br>
EOF
exit;
}
sub upfileok{
@deleting=split(/\,/,$FORM{'file'});
foreach $line(@deleting){
unlink("$ImgDir/affix/$line");
}
$FORM{'file'}=~s/\,/<br>/g;
&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>$FORM{'file'}<br><br>[ <a href="cjyh.cgi?menu=upfile">返 回 </a>]
EOF
exit;
}
sub rankok{
$FORM{'list'}=~s/\r//g;
open (GUEST,">$filepath/data/rank") ;
print GUEST "$FORM{'list'}";
close(GUEST);
print "Content-type: text/html\n\n";
print <<EOF;
<HTML><head><META HTTP-EQUIV=Content-Type CONTENT=text/html; charset=gb2312><meta HTTP-EQUIV="REFRESH" CONTENT="3;URL=$cgiurl?menu=rank">
<LINK href="$imagurl/bbs.css" rel=stylesheet></head>
已经成功地更新了管理人员列表，请稍候，系统将自动返回......
<BR><BR><A HREF="$cgiurl?menu=rank">如果系统没有反应，请点击这里返回！</A></html>
EOF
exit;
}
sub bak {
&csshtml;
print qq~
<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></center><table border="0" width="100%"><tr>
<td width="50%" valign="top"> 基本资料
<form action="$cgiurl" method=post><input type=hidden name="menu" value="bakok"><input type=checkbox name=dirtoopen value=yhzl>yhzl目录(用户基本资料)<br>
<input type=checkbox name=dirtoopen value=bank>bank目录(用户银行存款资料)<br><input type=checkbox name=dirtoopen value=guest>guest目录(用户私人留言簿资料)<br>
<input type=checkbox name=dirtoopen value=friend>friend目录(用户网络寻呼机资料)<br>
<input type=checkbox name=dirtoopen value=favorites>favorites目录(用户私人珍藏资料)<br>
<input type=checkbox name=dirtoopen value=list>list目录(论坛基本资料，不含子目录)<br>
<input type=checkbox name=dirtoopen value=data>data目录(社区基本资料)<br><input type=checkbox name=dirtoopen value=vote>vote目录(论坛投票资料)<br>
<input type=checkbox name=dirtoopen value=lottery>lottery目录(社区彩票资料)<br>
<input type=checkbox name=dirtoopen value=article>article目录(我的物品资料)<br></td><td width="50%" valign="top">
<p> 论坛资料 </p>
~;
open(ROOM,"$filepath/data/leftlist");
@lines=<ROOM>;
close(ROOM);
foreach $line(@lines) {
($id,$cgi)=split(/\t/,$line);
if($cgi ne ""){
open (CHAT,"$filepath/list/$id.cgi");
$lineb=<CHAT>;
close(CHAT);
($admname,$secret,$bzrmail,$outurl,$bbsname)=split(/\t/,$lineb);
if($bbsname ne ""){
print qq~
<input type="checkbox" name="dirtoopen" value="list/$id">$bbsname<br>
~;
}}}
print qq~
</td></tr><tr><td width="100%" colspan="2" align="center"><br>
压缩成 <input size=6 name=tar>.tar
<input type="submit" name="Submit" value="确定"><input type="reset" name="Submit2" value="重新选择">
</form>如果压缩时间过长，您可以先关闭窗口，稍后再到<BR>$imagurl/您输入的名称.tar<BR>下载压缩包</td></tr></table>
~;
}
sub unbak {
&csshtml;
print qq~
<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><form action="$cgiurl" method=post><input type=hidden name="menu" value="unbakok">
<font color=333333><BR>请输入您要解压的文件名称，<br>并且确认您已经用FTP上传到BBS3000目录下！ <br><br><B><input type=input name="dirtoopen" value=".tar"></B>
<input type="submit" name="Submit" value="确认解压文件"></form>
~;
}
sub ratinglog{
open(TITLES,"$filepath/data/rating");
@my=<TITLES>;
close(TITLES);
foreach $lines (@my) {
($selname,$oldrat,$rating,$ratname,$slttitle,$rattime)=split(/\t/,$lines);
$ooo="$ooo<tr><td><a href=# onclick=javascript:open('$cgiurl?menu=rating&selname=$selname&value=view','','width=150,height=60')>$selname</a></td><td>$oldrat&nbsp;to&nbsp;$rating</td><td><a href=# onclick=javascript:open('$cgiurl?menu=rating&selname=$ratname&value=view','','width=150,height=60')>$ratname</a></td><td>$slttitle</td><td>$rattime</td></tr>";
}
&csshtml;
print <<EOF;
<br><center><table width="98%">
<tr><td>对象</td><td>威望值</td><td>操作者</td><td>相应贴子</td><td>操作时间</td></tr>$ooo</table></center>
EOF
exit;
}
sub rating{
open(PSD,"$filepath/yhzl/$FORM{'selname'}.cgi");
$line=<PSD>;
close(PSD);
($rdpassword,$rusername,$rdmail,$rdhome,$rlast,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$rfy,$rhf,$tu,$jiao,$iewin,$QQ,$photo,$rating,$levelname,$level,$lastlytime,$lastlytopic,$realname,$birthday,$shengxiao,$blood,$constellation,$character,$belief,$marital,$education,$college)=split(/\t/,$line);
if ($FORM{'value'} eq "view"){
if($rating eq ""){$rating=0;}
if ($rating > 9){$sel="<input type=radio name=rat value=del CHECKED>减少威望";}
elsif ($rating < -9){$sel="<input type=radio name=rat value=add CHECKED>增加威望";}else{$sel="<input type=radio name=rat value=add CHECKED>增加威望<input type=radio name=rat value=del>减少威望";}
if($Cookies{username} eq ""){$Cookies{username}="访客";}
&css;
print <<EOF;
<HTML><head><META HTTP-EQUIV=Content-Type CONTENT=text/html; charset=gb2312></head><body leftMargin=0 topMargin=0>
<table border=0 width=100% bgcolor=007CD0 cellspacing=0 
cellpadding=0 height=99%>
   <tr>
    <td width=100% height=20> 
      <p align=center><a href=yhreg.cgi?menu=viewuser&username=$rusername target=_blank><font color="#FFFFFF">$rusername</a>的威望是：$rating</font> 
    </td>
  </tr>
  <tr>
    <td width=100% height=44>
      <table border=0 width=100% cellspacing=0 cellpadding=0 height=60>
        <tr>
          <td width=100% bgcolor=F8F8F8 height=38>
            <table border=0 width=100% cellspacing=3>
              <tr><form action="$cgiurl" method="post">
                <td width=100% align="center">
                  <input type=hidden name=menu value=rating>
		<input type=hidden name=selname value=$rusername>
$sel<br><br><input type=submit value=确认 name=submit 
style=position:relative;color:#000000;font-family:宋体;font-size:9pt;height:19 size="15">
                    <input type=reset value=取消 name=submit2 OnClick="window.close();"
style=position:relative;color:#000000;font-family:宋体;font-size:9pt;height:19 size="15">
                  </td></form>
              </tr>
            </table>
          </td>
        </tr>
        <tr><td bgcolor=F8F8F8 height=18 align="right">操作者：$Cookies{username}&nbsp;</td>
          </tr>
      </table>
    </td>
  </tr>
</table></body></html>
EOF
exit;
}else{
if ($FORM{'rat'} eq "add"){$rating=$rating+1;}
elsif ($FORM{'rat'} eq "del"){$rating=$rating-1;}
else {&okview("对不起，威望值输入不正确！");}
if (($rating > 10)||($rating < -10)){&okview("威望值只能介于-10和10之间！");}
open(PSD,">$filepath/yhzl/$FORM{'selname'}.cgi");
print PSD $rdpassword."\t".$rusername."\t".$rdmail."\t".$rdhome."\t".$rlast."\t".$rdqm."\t".$rdsex."\t".$rdwork."\t".$rdcity."\t".$rdlove."\t".$rfy."\t".$rhf."\t".$tu."\t".$jiao."\t$iewin\t".$QQ."\t".$photo."\t".$rating."\t".$levelname."\t".$level."\t".$lastlytime."\t"."$lastlytopic\t".$realname."\t".$birthday."\t".$shengxiao."\t".$blood."\t".$constellation."\t".$character."\t".$belief."\t".$marital."\t".$education."\t".$college;
close(PSD);
print "Content-type: text/html\n\n";
print "<script>window.close();</script>";
exit;
}}
######################### END OF SCRIPT #########################
上一页 1 2 34
💿 文件大小 537 K
👤 上传用户 invill
📂 所属分类 Internet/网络编程
🏷️ 相关标签

#黑客
⌨️ 快捷键说明

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