yhxiu.cgi

来自「--黑客防线-精华奉献本(攻册)」· CGI 代码 · 共 137 行

CGI
137 行
字号 
#!/usr/bin/perl
#------------------------------------------------------#
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　#
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　#
#------------------------------------------------------#
$cgipa=".";  # CGI程序文件的绝对路径
######################
## 以下部分不需修改 ##
######################
require "$cgipa/setup.cgi";
&GetCookies;
$cgiurl="yhxiu.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/<!--(.|\n)*-->//g;
$value=~s/\t/&nbsp;&nbsp;&nbsp; /g;
$value=~s/>/&gt;/g;
$value=~s/</&lt;/g;
$value=~s///g;
$FORM{$name} = $value;
$FORM{'qm'}=~s/\n/<br>/g;
$FORM{'comment'}=~s/\n/<br>/g;
$FORM{'jiao'}=~s/\n/<br>/g;
$FORM{'username'}=~s/\.\.//g;
}
##########
$username=$FORM{'username'};
$newpsd=$FORM{'newpsd'};
$userpsd=$FORM{'userpsd'};
$titles=$FORM{'titles'};
$comment=$FORM{'comment'};
$jiao=$FORM{'jiao'};
$mail=$FORM{'mail'};
$home=$FORM{'home'};
$city=$FORM{'city'};
$work=$FORM{'work'};
$love=$FORM{'love'};
$qm=$FORM{'qm'};
$sex=$FORM{'sex'};
$QQ=$FORM{'QQ'};
$tu=$FORM{'tu'};
$title=$FORM{'title'};
$menu=$FORM{'menu'};
$photo=$FORM{'photo'};
if ($username eq ""){$username=$Cookies{username}};
if ($userpsd eq ""){$userpsd=$Cookies{password}};
if($menu eq "reguser"){&reguser;exit;}
if($menu eq "reg"){&reg;exit;}
if($menu eq ""){&bzgl;exit;}
&reg;
exit;
##########
sub reg{
if ( -e "$filepath/yhzl/$username.cgi"){
open(PSD,"$filepath/yhzl/$username.cgi");
$line=<PSD>;
close(PSD);
chomp($line);
($rdpassword,$rdname,$rdmail,$rdhome,$rdlasttime,$rdqm,$sex,$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);
$jiao=~s/<br>//g;
$rdqm=&unybbcode($rdqm);
$rdqm=~s/<([^<])*>//g;
if($userpsd ne "$rdpassword"){&errorview("您的密码错误！");}
if($sex eq "女"){$sexselected=selected;}
for ($i=0; $i<190; $i++){$oo="";if($i<10){$oo=0;}$portraitno="$portraitno<option value=$oo$i>$oo$i</option>";}
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>
<script>function New(para_URL){var URL=new String(para_URL);window.open(URL,'','resizable,scrollbars')}</script>
<TITLE>用户资料修改</TITLE><body background=$imagurl/bei.gif><form method="post" action="$cgiurl" name="form">
<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>●
带 <FONT color=red>*</FONT> 为必填 </P></TD></tr><tr><TD><TABLE bgColor=$bgcolor2 width="600">
<TBODY><TR bgcolor="$bgcolor2"><TD align=right width="186"><FONT color=red>*</FONT>
网上尊称：</TD><TD width="466"><INPUT readOnly name=username value=$username> </TD></TR>
<TR bgcolor="$bgcolor1"><TD align=right width="186"><FONT color=red>*</FONT>
您的密码：</TD><TD width="466"><INPUT name=userpsd type=password value=$userpsd></TD></TR><TR bgcolor="$bgcolor2"><TD align=right width="186">您的新密码：</TD><TD width="466"><input type="password" name=newpsd><FONT color=red>　如果您不打算更改密码，此处请留空！</TD></TR>
<TR bgcolor="$bgcolor1"><TD align=right width="186"><FONT color=red>*</FONT>  您的Email地址：</TD>
<TD width="466"><INPUT maxLength=80 name=mail value=$rdmail></TD></TR><TR bgcolor=$bgcolor2><TD align=right>真实姓名：</TD><TD><INPUT name=realname value=$realname></TD></TR>
<TR bgcolor=$bgcolor1><TD align=right>出生年份：</TD><TD><INPUT name=birthday value=$birthday></TD></TR>
<TR bgcolor="$bgcolor2"><TD align=right width="186">性　　别：</TD><TD width="466">
<select name=sex><option value=男>男</option><option value=女 $sexselected>女</option></select>
</TD></TR><TR bgcolor=$bgcolor1><TD align=right>生　　肖：</TD><TD><INPUT name=shengxiao value=$shengxiao></TD></TR>
<TR bgcolor=$bgcolor2><TD align=right>血　　型：</TD><TD><INPUT name=blood value=$blood></TD></TR>
<TR bgcolor=$bgcolor1><TD align=right>星　　座：</TD><TD><INPUT name=constellation value=$constellation></TD></TR>
<TR bgcolor=$bgcolor2><TD align=right>性　　格：</TD><TD><INPUT name=character value=$character></TD></TR>
<TR bgcolor=$bgcolor1><TD align=right>信　　仰：</TD><TD><INPUT name=belief value=$belief></TD></TR>
<tr bgcolor="$bgcolor2"><TD align=right width="186">职　　业：</TD><TD width="466"><INPUT maxLength=80 name=work value=$rdwork></TD></TR>
<tr bgcolor="$bgcolor1"><TD align=right width="186">爱　　好：</TD><TD width="466"><INPUT maxLength=20 name=love value=$rdlove> </TD></TR>
<tr bgcolor=$bgcolor2><TD align=right>婚姻状况：</TD><TD><INPUT name=marital value=$marital></TD></TR>
<TR bgcolor=$bgcolor1><TD align=right>最高学历：</TD><TD><INPUT name=education value=$education></TD></TR>
<tr bgcolor=$bgcolor2><TD align=right>毕业院校：</TD><TD><INPUT name=college value=$college></TD></TR>
<tr bgcolor="$bgcolor1"><TD align=right width="186">
QQ　号码：</TD><TD width="466"><INPUT maxLength=20 name=QQ value=$QQ> </TD></TR><TR bgcolor="$bgcolor2">
<TD align=right width="186">个人主页：</TD><TD width="466"><INPUT name=home size=30 value=$rdhome> </textarea> </TD></TR>
<TR bgcolor="$bgcolor1"><TD align=right width="186">个人信息：<br></TD><TD width="466"><textarea name=jiao cols=60 rows=5>$jiao</textarea> </TD></TR><TR bgcolor="$bgcolor2">
<TD align=right width="186">
您的签名档：<br>
EOF
if ($ybbcodeAllow eq "on") {
print <<EOF;
<FONT color=red>（支持 <a href=# onclick=javascript:window.open('$imagurl/ybb.htm','','width=500,height=300,resizable,scrollbars')>YBB 代码</a>）</FONT>
EOF
}
print <<EOF;
</TD><TD width="466"><textarea name=comment cols=60 rows=5>$rdqm</textarea> </TD></TR>
<TR bgcolor="$bgcolor1"><TD align=right width="186">您所在的省份：</TD><TD width="466"><INPUT maxLength=12 name=city value=$rdcity></TD></TR>
<tr bgcolor="$bgcolor2"><TD align=right width="186">请选择您的头像：</TD><TD width="466">&nbsp;<img src="$imagurl/face/$tu.gif" name="tus">&nbsp;&nbsp;<script>function showimage(){document.images.tus.src="$imagurl/face/"+document.form.tu.options[document.form.tu.selectedIndex].value+".gif";}</script>
<select name=tu size=1 onChange="showimage()"><option value=$tu>默认</option>
$portraitno</select> <a href=JavaScript:New('$imagurl/index.htm')>查看所有的头像列表</a>
</TD></TR><tr></TD></TR></TBODY></TABLE></TD></tr><tr><TD><P><input type="submit" value="填好了，继续！">
<font color=$bgcolor4><P align=right><a href="reg.cgi"><font color=$bgcolor4>[免费申请]</a><a href="xiu.cgi"><font color=$bgcolor4>[版主资料修改]</a><a href="yhreg.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>免费论坛服务由 <font color=$bgcolor4><b><font Helvetica, sans-serif><a href=$zyurl><font color=$bgcolor4>$zyname</font></a></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("对不起，此名字没有在本论坛注册过!");exit;
}}
##########
sub reguser{
&origin;
if($newpsd=~m/[\#\&\*\=\+\\\:\"\/\<\>?'`

yhxiu.cgi - 源码说明

本页面展示了「--黑客防线-精华奉献本(攻册)」中的 yhxiu.cgi 源码文件，采用 CGI 编程语言编写，共 137 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与黑客相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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