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

📄 xiu.cgi

📁 --黑客防线-精华奉献本(攻册)
💻 CGI
字号:
🔍 
#!/usr/bin/perl
#------------------------------------------------------#
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　#
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　#
#------------------------------------------------------#
$cgipa=".";  # CGI程序文件的绝对路径
######################
## 以下部分不需修改 ##
######################
require "$cgipa/setup.cgi";
$cgiurl="xiu.cgi";
##########
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;
$FORM{$name} = $value;
$FORM{'htmlt'}=~s/\n//g;
$FORM{'htmlw'}=~s/\n//g;
$FORM{'jj'}=~s/<([^>]|\n)*>/ /g;
$FORM{'jj'}=~s/\n//g;
$FORM{'title'}=~s/<([^>]|\n)*>/ /g;
$FORM{'username'}=~s/\.\.//g;
}
##########
$username=$FORM{'username'};
$newusername=$FORM{'newusername'};
$newpsd=$FORM{'newpsd'};
$userpsd=$FORM{'userpsd'};
$comment=$FORM{'comment'};
$yhq=$FORM{'yhq'};
$fbzmc=$FORM{'fbzmc'};
$fbzmc2=$FORM{'fbzmc2'};
$mail=$FORM{'mail'};
$home=$FORM{'home'};
$htmlt=$FORM{'htmlt'};
$htmlw=$FORM{'htmlw'};
$title=$FORM{'title'};
$menu=$FORM{'menu'};
$newpsd=$FORM{'newpsd'};
$jj=$FORM{'jj'};
if($menu eq "reguser"){&reguser;exit;}
if($menu eq "reg"){&reg;exit;}
if($username eq ""){&bzgl;exit;}
&reg;
exit;
##########
sub reg{
if ( -e "$filepath/list/$username.cgi"){
open(PSD,"$filepath/list/$username.cgi");
@lines=<PSD>;
close(PSD);
foreach $line (@lines) {
chomp($line);
($rname,$secret,$rmail,$rhome,$rtitle,$fbzmc2,$rtime,$htmlt,$htmlw,$jj,$fbzmc)=split(/\t/,$line);
open(TITLESyu,"$filepath/yhzl/$rname.cgi");
$ayu=<TITLESyu>;
close(TITLESyu);
chomp($ayu);
($rpass)=split(/\t/,$ayu);
if($userpsd ne "$rpass"){&errorview("您的密码错误！");}
print "Content-type: text/html\n\n";
print <<EOF;
<HTML><HEAD><meta http-equiv=Content-Type content=text/html; charset=gb2312><link href=$imagurl/bbs.css rel=stylesheet><link REL="SHORTCUT ICON" href=$imagurl/ybb.ico>
</HEAD><body background=$imagurl/bei.gif topmargin=0 bgcolor=$bgcolor5 text=$bgcolor6 link=$bgcolor7 vlink=$bgcolor8 alink=$bgcolor9>
<TITLE>版主资料修改</TITLE><body background=$imagurl/bei.gif><form method="post" action="$cgiurl">
<input type="hidden" name="menu" value="reguser"><div align="center"><table border="1" cellpadding="3" cellspacing="0" width="310" bgcolor="$bgcolor0" bordercolorlight="#008000" bordercolordark="#FFFFFF">
<tr><TD><center><p><b><font color=$bgcolor4>版主资料修改</b></p></TD></tr><tr><TD>
<P><font color=$bgcolor4>●
申请完成后，您即可获得自己的论坛($ym/bbs.cgi?id=论坛ID) <BR>●
带 <FONT color=red>*</FONT> 为必填 </P></TD></tr><tr><TD><TABLE bgColor=$bgcolor2 width="600">
<TBODY><TR><TD align=right width="186" bgColor=$bgcolor2><FONT color=red>*</FONT>  论坛名称：</TD>
<TD width="466"><INPUT name=title  size=65 maxLength=20 value=$rtitle></TD></TR><input type="hidden" name="userpsd" value="$userpsd">
<input type="hidden" name="rtime" value="$rtime"><input type="hidden" name="username" value="$username">
<input type="hidden" name="newusername" value="$rname"><tr><TD align=right width="186" bgColor=$bgcolor1>保密论坛访问密码：</TD>
<TD width="466"><INPUT name=secret value=$secret>　<FONT color=red>如果您不想将这个论坛保密，此处请留空</FONT></TD></TR>
<tr><TD align=right width="186" bgColor=$bgcolor2><FONT color=red>*</FONT>  您的Email地址：</TD>
<TD width="466"><INPUT name=mail value=$rmail></TD></TR><tr><TD align=right width="186" bgColor=$bgcolor1>您的主页的URL：</TD>
<TD width="466"><INPUT maxLength=80 name=home size=65 value=$rhome><TR></TD></TR>
<TR><TD align=right width="186" bgColor=$bgcolor2>论坛简介：</TD><TD width="466"><textarea cols=63 name=jj rows=5>$jj</textarea></TD></TR>
<TR><TD align=right width="186" bgColor=$bgcolor1>论坛头部显示信息：<br><FONT color=red>（支持 html）</FONT></TD>
<TD width="466"><textarea cols=63 name=htmlt rows=5>$htmlt</textarea></TD></TR><TR>
<TD align=right width="186" bgColor=$bgcolor2>论坛尾部显示信息：<br><FONT color=red>（支持 html）</FONT></TD>
<TD width="466"><textarea cols=63 name=htmlw rows=5>$htmlw</textarea></TD></TR><TR>
<TD align=right width="186" bgColor=$bgcolor1>请设定副版主名称：</TD><TD width="466"><INPUT name=fbzmc size=10 value=$fbzmc>　<INPUT name=fbzmc2 size=10 value=$fbzmc2>　<FONT color=red>如果您不想有副版主，此处请留空</FONT></TD></TR>
</TBODY></TABLE></TD></tr><tr><TD><P><input type="submit" value="填好了，继续！"><P align=center><font color=$bgcolor4>凡申请使用本论坛系统的用户均可以获得<BR><B>$ym/bbs.cgi?id=论坛ID</B><BR>的域名指向其论坛系统！<BR>
<P align=right><a href="reg.cgi"><font color=$bgcolor4>[免费申请]</a>[版主资料修改]<a href="yhreg.cgi"><font color=$bgcolor4>[用户资料注册]</a><a href="yhxiu.cgi"><font color=$bgcolor4>[用户资料修改]</a><a href="list.cgi" target=_top><font color=$bgcolor4>[论坛列表]</a><a href="cjyh.cgi"><font color=$bgcolor4>[社区管理]</a>
<P><DIV>注意事项：<BR>1、不得使用本论坛系统建立任何包含色情、非法、以及危害国家安全的内容的论坛;<BR>2、不得在本系统用户所拥有的论坛内发布任何色情、非法、或者危害国家安全的言论;<BR>3、以上规则违者责任自负，本站有权删除该类用户或者内容，并追究其法律责任。<BR></DIV></TD>
</tr><td align="middle"><font color=$bgcolor4>免费论坛服务由 <b><font Helvetica, sans-serif><a href=$zyurl><font color=$bgcolor4>$zyname</a></font></b></font><font color=#cc0033>
</font>提供　程序制作：<b><a href="http://www.yuzi.net" target="_blank"><font color=$bgcolor4>Yuzi工作室</b></a></td>
　</td></tr></table></form></BODY></HTML>
EOF
exit;
}}else{
&errorview("对不起，您输入的ID是错误的，系统不存在此ID的信息！");exit;
}}
##########
sub reguser{
&origin;
unless ( -e "$filepath/yhzl/$newusername.cgi"){&errorview("对不起，您输入的新版主名称错误，系统没有此用户的资料!");}
if ($fbzmc ne ""){
unless ( -e "$filepath/yhzl/$fbzmc.cgi"){&errorview("对不起，您输入的副版主 $fbzmc 错误，系统没有此用户的资料!");}}
if ($fbzmc2 ne ""){
unless ( -e "$filepath/yhzl/$fbzmc2.cgi"){&errorview("对不起，您输入的副版主 $fbzmc2 错误，系统没有此用户的资料!");}}
open(PSD,"$filepath/list/$username.cgi");
$line=<PSD>;
close(PSD);
($rname)=split(/\t/,$line);
open(TITLESyu,"$filepath/yhzl/$rname.cgi");
$ayu=<TITLESyu>;
close(TITLESyu);
($rpass)=split(/\t/,$ayu);
if($userpsd ne "$rpass"){&errorview("您的密码错误！");}
if(($userpsd eq "")||($newusername eq "")||($mail eq "")||($title eq "")){&errorview("显示标题　名字　密码　信箱　必顺要填写的，请重新输入！");}
if(length($title) > 50 ){&errorview("您的标题不能大于25个汉字！");}
if(length($jj) > 400 ){&errorview("您的简介不能大于200个汉字！");}
if(!($mail=~ /.*\@.*\..*/)){&errorview("您的Email输入错误！");exit(0);}
if($home eq "http://"){$home="";}
open(PSD,">$filepath/list/$username.cgi");
print PSD $newusername."\t$FORM{'secret'}\t".$mail."\t".$home."\t".$title."\t".$fbzmc2."\t".$FORM{'rtime'}."\t".$htmlt."\t".$htmlw."\t".$jj."\t".$fbzmc;
close(PSD);
chmod(0666,"$filepath/list/$username.cgi");
&css;
print "<TITLE>祝 贺 您 ！ 您 已 经 成 功 更 改 ！</TITLE>\n";
print "<body background=$imagurl/bei.gif>\n";
print "<br>\n";
print "<p align=center><b>祝 贺 您 ！ 您 已 经 成 功 更 改 ！</b>\n";
print "<p align=center><b><a href=bbs.cgi?id=$username target=_blank>我们为您的新论坛免费提供了一个属于您自己的域名：<br>$ym/bbs.cgi?id=$username<br>请记住它！</a></b>\n";
print "<p align=center><b><a href=bbs.cgi?id=$username target=_blank>请在此行上点击您鼠标的右键，<br>把这个域名加入您的书签或者收藏夹中</a></b>\n";
print "<p align=center>\n";
print "<table cellspacing=4 cellpadding=3><tr><td align=right bgcolor=$bgcolor2><b>显示标题：</b><td align=left bgcolor=$bgcolor2><font color=#FF0000>$FORM{title}</font><td bgcolor=$bgcolor2><b>您的主页：</b><td align=left bgcolor=$bgcolor2><font color=#FF0000>$FORM{home}</font><tr><td align=right bgcolor=$bgcolor2><b>论坛ID ：</b><td align=left bgcolor=$bgcolor2><font color=#FF0000>$FORM{username}</font><td bgcolor=$bgcolor2><b>您的密码：</b><td align=left bgcolor=$bgcolor2><font color=#FF0000>$userpsd</font><tr><td align=right bgcolor=$bgcolor2><b>您的信箱：</b><td align=left bgcolor=$bgcolor2><font color=#FF0000>$FORM{mail}</font><td bgcolor=$bgcolor2><b>注册时间：</b><td align=left bgcolor=$bgcolor2><font color=#FF0000>$FORM{'rtime'}</font></table>\n";
print "</table>\n";
print "<br>\n";
print "<div align=center><center><table border=1 borderColorDark=#ffffff borderColorLight=#008000 cellPadding=0 cellSpacing=0 width=60%><tbody><tr><td align=middle width=100%>本页面采用CGI程序更新，程序制作：“<a href=http://www.yuzi.net target=_blank>YUZI工作室</a>”</td></tr></tbody></table></center></div>\n";
exit;
}
########
sub bzgl{
&css;
print <<EOF;
<TITLE>版主资料修改</TITLE><br><center><table border=1 bgcolor=$bgcolor2><tr><td align=center>
<br>—— 版主资料修改 ——
<form method="post" action="$cgiurl"><table border=0><tr><td class=ourfont>论坛 ID :</td><td class=ourfont><input type="text" name="username" size="12" value=$FORM{'id'}></td></tr>
<tr><td class=ourfont>版主密码:</td><td class=ourfont><input type="password" name="userpsd" size="12"></td></tr>
<tr><td class=ourfont colspan=2><input name="submit" type="submit" value="继续"></td></tr>
</table></form><div class=ourfont><br><form method="post" action="yhreg.cgi"><input type="hidden" name="menu" value="mail">——　找回密码　——<br>请输入您的用户名:<input type="text" name="username" size="12"> <input name="submit" type="submit" value="继续"></form><br>
<a href="reg.cgi">[免费申请]</a>[版主资料修改]<a href="yhreg.cgi">[用户资料注册]</a><a href="yhxiu.cgi">[用户资料修改]</a><a href="list.cgi" target=_top>[论坛列表]</a><a href="cjyh.cgi">[社区管理]</a><br>
<hr size=1 width=450>
免费论坛服务由 <a href=$zyurl>$zyname</a> 提供　程序制作<a href=http://www.yuzi.net targe=_blank> Yuzi工作室 </a>
</div></table></html>
EOF
exit;
}
######################### END OF SCRIPT #########################

⌨️ 快捷键说明

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