friend.cgi

来自「--黑客防线-精华奉献本(攻册)」· CGI 代码 · 共 288 行 · 第 1/2 页
CGI
288 行
#!/usr/bin/perl
#------------------------------------------------------#
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　#
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　#
#------------------------------------------------------#
$cgipa=".";  # CGI程序文件的绝对路径
######################
## 以下部分不需修改 ##
######################
require "$cgipa/setup.cgi";
&GetCookies;
if($Cookies{username} eq ""){&okview("您当前的身份是访客，请登陆！");}
##########
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/\t/&nbsp;&nbsp;&nbsp; /g;
$value=~s/>/&gt;/g;
$value=~s/</&lt;/g;
$value=~s/\.\.//g;
$FORM{$name} = $value;
}
##########
$menu=$FORM{'menu'};
$add=$FORM{'add'};
$tu=$FORM{'tu'};
$page=$FORM{'page'};
if($menu eq "add"){&add;exit;}
if($menu eq "addhtml"){&addhtml;exit;}
if($menu eq "del"){&del;exit;}
if($menu eq "delhtml"){&delhtml;exit;}
if($menu eq "fshtml"){&fshtml;exit;}
if($menu eq "look"){&look;exit;}
if($menu eq "chatlog"){&chatlog;exit;}
##########
open(PSD,"$filepath/friend/$Cookies{username}.cgi");
@lines=<PSD>;
close(PSD);
foreach $line (@lines) {
chomp($line);
open(yhzl,"$filepath/yhzl/$line.cgi");
$yhzl=<yhzl>;
close(yhzl);
($rdpassword,$rdname,$rdmail,$rdhome,$rdlasttime,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$rfy,$rhf,$tu)=split(/\t/,$yhzl);
$friend="$friend<tr><td height=20 width=25>&nbsp;<a onmouseover='this.className=\"over\"' onmouseout='this.className=\"normal\"' onclick=javascript:open('friend.cgi?menu=fshtml&add=$rdname','','width=320,height=170')><img width=16 height=16 src=$imagurl/face/$tu.gif></a></td><td>$rdname</font></td></tr>";}
open(yhzl,"$filepath/yhzl/$Cookies{username}.cgi");
$yhzl=<yhzl>;
close(yhzl);
($rdpassword,$rdname,$rdmail,$rdhome,$rdlasttime,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$rfy,$rhf,$tu)=split(/\t/,$yhzl);
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=$timepop;URL=friend.cgi><style>
.over {border-top:1px FFFFFF solid;border-left:1px FFFFFF solid;border-right:1px solid;border-bottom:1px solid}
a:visited{text-decoration:none}td {font-size:9pt}</style><title>$Cookies{username}的网络寻呼机</title></HEAD><body topmargin=0 bgcolor=$bgcolor0><table border=0 width=100%  height=100% cellspacing=0><tr><td width=100% valign=top align=center bgcolor=$bgcolor0 height=14 colspan=2><acronym title=刷新名单><a href=friend.cgi><b><font face=楷体_GB2312 color=$bgcolor4>我的好友</font></b></a></acronym></td></tr><tr><td width=100% valign=top bgcolor=$bgcolor2 colspan=2 align=center><table border=0 width=100% cellspacing=0 cellpadding=0><tr><td width=100% align=center height=410 valign=top>
<table cellpadding=0 style=border-collapse:collapse width=100%>$friend</table></td></tr></table><table border=0 width=100%><tr>
<td width=100% align=center bgcolor=$bgcolor0 onmouseover='this.className="over"' onmouseout='this.className="normal"' height=24><img border=0 src=$imagurl/add.gif width=16 height=16> <a href=friend.cgi?menu=addhtml><b><font color=$bgcolor4>添 加</font></a></b></td></tr>
<tr><td width=100% align=center bgcolor=$bgcolor0 onmouseover='this.className="over"' onmouseout='this.className="normal"' height=24><b><img src=$imagurl/del.gif border=0 width=16 height=16> <a href=friend.cgi?menu=delhtml><font color=$bgcolor4>删 除</font></a></b></td></tr></table></td></tr><tr><td width=50% valign=bottom align=center><b><font face=华文彩云 color=$bgcolor4>BBS3000</font></b></td><td width=50% valign=bottom align=center><img height=20 src=$imagurl/face/$tu.gif width=20></td></tr></table></body></html>
EOF
$counter ="$filepath/guest/2$Cookies{username}.cgi";
open(NUMBER,"$counter");
$NUMBER=<NUMBER>;
close(NUMBER);
($lys,$oldlys,$money,$charm)=split(/\t/,$NUMBER);
if ($lys>0){
print "<bgsound src=$imagurl/msg.mid loop=$lys><script>window.open('friend.cgi?menu=look','','width=320,height=170');</script>";
open(NUMBER,">$counter");
print NUMBER "0"."\t\t"."$money"."\t"."$charm";
close(NUMBER);
}
exit;
##########
sub addhtml{
open(yhzl,"$filepath/yhzl/$Cookies{username}.cgi");
$yhzl=<yhzl>;
close(yhzl);
($rdpassword,$rdname,$rdmail,$rdhome,$rdlasttime,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$rfy,$rhf,$tu)=split(/\t/,$yhzl);
print "Content-type: text/html\n\n";
print <<EOF;
<HTML><HEAD><meta http-equiv=Content-Type content=text/html; charset=gb2312><style>.over {border-top:1px FFFFFF solid;border-left:1px FFFFFF solid;border-right:1px solid;border-bottom:1px solid}
a:visited{text-decoration:none}td {font-size:9pt}</style><title>$Cookies{username}的好友名单</title><body topmargin=0 bgcolor="$bgcolor0">
<table border="0" width="100%"  height=100% cellspacing="0"><tr><td width="100%" valign="top" align="center" bgcolor="$bgcolor0" height="14" colspan="2"><b><font face="楷体_GB2312" color="$bgcolor4">添加好友</font></b></td>
</tr><tr><td width="100%" valign="top" bgcolor="$bgcolor2" colspan="2" align="center">
<table border="0" width="100%" cellspacing="0" cellpadding="0"><tr><td width=100% align=center height=410 valign=top>
<form METHOD=POST><input type="hidden" name="menu" value="add"><br><br><img src=$imagurl/face/$tu.gif><br><br><br><font color="$bgcolor0"><b>好友名字</b></font>
<p><input type="text" name="add" size="8"></p><p><input type="submit" value="添加"></p>
</td></tr></table><table border="0" width="100%"><tr><td width="100%" align="center" bgcolor=$bgcolor0 onmouseover='this.className="over"' onmouseout='this.className="normal"' height=24><img border="0" src="$imagurl/del.gif" width="16" height="16"> <a href=friend.cgi?menu=delhtml><font color="$bgcolor4"><b>删 除</font></a></b></td>
</tr><tr><td width="100%" align="center" bgcolor=$bgcolor0 onmouseover='this.className="over"' onmouseout='this.className="normal"' height=24><b><a href="friend.cgi"><font color="$bgcolor4">
返回列表</font></a></b></td></tr></table></td></tr><tr><td width="50%" valign="bottom" align="center"><b><font face="华文彩云" color="$bgcolor4">BBS3000</font></b></td>
<td width="50%" valign="bottom" align="center"><img height="20" src="$imagurl/face/$tu.gif" width="20"></td>
</tr></table></body></html>
EOF
exit;
}
sub delhtml{
open(PSD,"$filepath/friend/$Cookies{username}.cgi");
@lines=<PSD>;
close(PSD);
foreach $line (@lines) {
chomp($line);
open(yhzl,"$filepath/yhzl/$line.cgi");
$yhzl=<yhzl>;
close(yhzl);
($rdpassword,$rdname,$rdmail,$rdhome,$rdlasttime,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$rfy,$rhf,$tu)=split(/\t/,$yhzl);
$friend="$friend<tr><td height=20 width=25>&nbsp;<a onmouseover='this.className=\"over\"' onmouseout='this.className=\"normal\"' onclick=javascript:open('friend.cgi?menu=fshtml&add=$rdname','','width=320,height=170')><img width=16 height=16 alt='$rdname' src=$imagurl/face/$tu.gif></a></td><td>&nbsp;<a href=friend.cgi?menu=del&add=$line>删 除</a></td></tr>";}
open(yhzl,"$filepath/yhzl/$Cookies{username}.cgi");
$yhzl=<yhzl>;
close(yhzl);
($rdpassword,$rdname,$rdmail,$rdhome,$rdlasttime,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$rfy,$rhf,$tu)=split(/\t/,$yhzl);
print "Content-type: text/html\n\n";
print <<EOF;
<HTML><HEAD><meta http-equiv=Content-Type content=text/html; charset=gb2312><style>.over {border-top:1px FFFFFF solid;border-left:1px FFFFFF solid;border-right:1px solid;border-bottom:1px solid}
a:link{color:004080;text-decoration:none}
a:visited{text-decoration:none}
td {font-size:9pt}
</style><title>$Cookies{username}的网络寻呼机</title></HEAD><body topmargin=0 bgcolor=$bgcolor0><table border=0 width=100%  height=100% cellspacing=0><tr><td width=100% valign=top align=center bgcolor=$bgcolor0 height=14 colspan=2><acronym title=刷新名单><a href=javascript:location.reload()><b><font face=楷体_GB2312 color=$bgcolor4>删除好友</font></b></a></acronym></td></tr><tr><td width=100% valign=top bgcolor=$bgcolor2 colspan=2 align=center><table border=0 width=100% cellspacing=0 cellpadding=0><tr><td width=100% align=center height=410 valign=top>
<table cellpadding=0 style=border-collapse:collapse width=100%>$friend</table></td></tr></table>
<table border="0" width="100%"><tr><td width="100%" align="center" bgcolor=$bgcolor0 onmouseover='this.className="over"' onmouseout='this.className="normal"' height=24><img border="0" src="$imagurl/add.gif" width="16" height="16">
<b><a href=friend.cgi?menu=addhtml><font color="$bgcolor4">添 加</font></a></b></td></tr><tr><td width="100%" align="center" bgcolor=$bgcolor0 onmouseover='this.className="over"' onmouseout='this.className="normal"' height=24><b><a href="friend.cgi"><font color="$bgcolor4">
返回列表</font></a></b></td></tr></table></td></tr><tr><td width="50%" valign="bottom" align="center"><b><font face="华文彩云" color="$bgcolor4">BBS3000</font></b></td>
<td width="50%" valign="bottom" align="center"><img height=20 src="$imagurl/face/$tu.gif" width=20></td>
</tr></table></body></html>
EOF
exit;
}
########
sub add{
if($add eq ""){&okview("请输入好友的名字！");}
if($Cookies{username} eq $add){&okview("不能添加自己！");}
unless(-e "$filepath/yhzl/$add.cgi"){&okview("对不起，此名字没有在本论坛注册过!");}
open(PSD,"$filepath/friend/$Cookies{username}.cgi");
@lines=<PSD>;
close(PSD);
$fno=@lines;
if($fno > 19){&okview("无法添加好友，系统限定好友人数不得超过20人！");}
foreach $line (@lines) {
chomp($line);
friend.cgi - 源码说明

本页面展示了「--黑客防线-精华奉献本(攻册)」中的 friend.cgi 源码文件，采用 CGI 编程语言编写，共 288 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。
虫虫下载站收录了大量与黑客相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。
⌨️ 快捷键说明

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