?? 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 #########################
?? 文件大小 537 K
?? 上傳用戶 invill
?? 所屬分類 Internet/網絡編程
??? 相關標簽

#黑客
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? xiu.cgi

?? 快捷鍵說明
