friend.cgi

来自「--黑客防线-精华奉献本(攻册)」· CGI 代码 · 共 288 行 · 第 1/2 页

CGI
288 行
字号
12
if($line eq $add){
print "Content-type: text/html\n\n<meta HTTP-EQUIV=REFRESH CONTENT=0;URL=friend.cgi>";exit;
}}
open(PSD,">>$filepath/friend/$Cookies{username}.cgi");
print PSD $add."\n";
close(PSD);
print "Content-type: text/html\n\n<meta HTTP-EQUIV=REFRESH CONTENT=0;URL=friend.cgi>";exit;
}
sub del{
open(TITLES5,"$filepath/friend/$Cookies{username}.cgi");
@hastitles5=<TITLES5>;
close(TITLES5);
open(TITLES5,">$filepath/friend/$Cookies{username}.cgi");
foreach $m5 (@hastitles5){
chomp($m5);
if($m5 ne $add){
print TITLES5 $m5."\n";
}}
close(TITLES5);
print "Content-type: text/html\n\n<meta HTTP-EQUIV=REFRESH CONTENT=0;URL=friend.cgi>";exit;
}
sub fshtml{
if($Cookies{username} eq $add){&okview("不能自己给自己发讯息!");}
open(yhzl,"$filepath/yhzl/$add.cgi");
$yhzl=<yhzl>;
close(yhzl);
($rdpassword,$rdname,$rdmail,$rdhome,$rlast,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$rfy,$rhf,$tu,$jiao,$iewin,$QQ,$photo,$savecookie)=split(/\t/,$yhzl);
print "Content-type: text/html\n\n";
print <<EOF;
<HTML><HEAD><meta http-equiv=Content-Type content=text/html; charset=gb2312><SCRIPT>
var i=0;
function check(theForm) {
if(theForm.Comment.value == "" ) {
alert("不能发空讯息！");
return false;
}
if (theForm.Comment.value.length > 1000){
alert("对不起，您的留言不能超过 1000 个字节！");
return false;
}
i++;
if (i>1) {alert('正在发送讯息，请耐心等待！'); return false;}
return true;
}
function presskey(eventobject){if(event.ctrlKey && window.event.keyCode==13){this.document.form.submit();}}
</SCRIPT><style>
a:visited{text-decoration:none}
td {font-size:9pt}
.bt {BORDER-RIGHT: 1px; BORDER-TOP: 1px; FONT-SIZE: 9pt; BORDER-LEFT: 1px; BORDER-BOTTOM: 1px; FONT-FAMILY: 新细明体, 宋体, Arial}
BODY{font-size:9pt;scrollbar-face-color:$bgcolor0;scrollbar-3dlight-color:FFFFFF;scrollbar-darkshadow-color:FFFFFF;scrollbar-track-color:FFFFFF;scrollbar-arrow-color:FFFFFF;scrollbar-shadow-color:FFFFFF;}
</style><TITLE>发送消息</TITLE><body topmargin=0 bgcolor="$bgcolor0"><TABLE WIDTH=300 BORDER=0 CELLPADDING=3 CELLSPACING=0 BGCOLOR=$bgcolor0>
<TR ALIGN=center><TD><b><FONT COLOR=$bgcolor4>发送消息</FONT></A></TD></TR></TABLE>
<TABLE WIDTH=300 BORDER=0 CELLSPACING=0 CELLPADDING=0><TR><form name=form action="guest.cgi" method="post"><input type="hidden" name="guest" value=$add>
<input type="hidden" name="action" value="add_guest"><input type="hidden" name="page" value="$page">
<TD bgcolor="$bgcolor2">
&nbsp;昵称：<input class=bt readOnly type="text" value="$add" size="10"> Email：<input  class=bt readOnly type="text" value="$rdmail" size="14">
</TD><TD align=right bgcolor="$bgcolor2"><a onclick=javascript:open('yhreg.cgi?menu=viewuser&username=$add','','resizable,scrollbars')><img border="0" src="$imagurl/face/$tu.gif" width="32" height="32" alt=用户详细资料>
</TD></TR><TR><TD VALIGN=top ALIGN=right colspan="2" bgcolor="$bgcolor2"><textarea name="Comment" cols="39" rows="5" onkeydown=presskey()></textarea>
</TD></TR></TABLE><TABLE WIDTH=300 BORDER=0 CELLSPACING=0 CELLPADDING=0 height="30">
<tr ALIGN=center><TD bgcolor="$bgcolor0"><input type="button" value="聊天记录" onclick=javascript:open('friend.cgi?menu=chatlog&add=$add','chatlog','width=320,height=170')>
</td><TD><input type="reset" value="取消发送" OnClick="window.close();"> </td><TD><input type="submit" value="发送讯息" onclick="return check(this.form)"></td>
</TR></form></TABLE></BODY></HTML>
EOF
exit;
}
sub look{
open(PSD,"$filepath/guest/1$Cookies{username}.cgi");
@lines=<PSD>;
close(PSD);
$line=@lines[$page];
($no,$who,$myname,$sjian,$nr)=split(/\|/,$line);
$nr=~s/<([^>]|\n)*>/\n/g;
($sjian1,$sjian2)=split(/\./,$sjian);
open(PSD,"$filepath/yhzl/$who.cgi");
$lines=<PSD>;
close(PSD);
($rpassword,$rname,$rmail,$rhome,$rlast,$rqm,$rsex,$rwork,$rcity,$rlove,$rfy,$rhf,$tu,$jiao,$iewin,$QQ)=split(/\t/,$lines);
$page++;
$spage=$page-2;
if($page > 1){$back="<A href=friend.cgi?menu=look&page=$spage><font color=000000>";}
print "Content-type: text/html\n\n";
print <<EOF;
<HTML><HEAD><meta http-equiv=Content-Type content=text/html; charset=gb2312><style>
a:visited{text-decoration:none}
td {font-size:9pt}
a:link{text-decoration:none}
.bt {BORDER-RIGHT: 1px; BORDER-TOP: 1px; FONT-SIZE: 9pt; BORDER-LEFT: 1px; BORDER-BOTTOM: 1px; FONT-FAMILY: 新细明体, 宋体, Arial}
BODY{font-size:9pt;scrollbar-face-color:$bgcolor0;scrollbar-3dlight-color:FFFFFF;scrollbar-darkshadow-color:FFFFFF;scrollbar-track-color:FFFFFF;scrollbar-arrow-color:FFFFFF;scrollbar-shadow-color:FFFFFF;}
</style><TITLE>查看消息</TITLE></head><body topmargin=0 bgcolor="$bgcolor0"><TABLE WIDTH=300 BORDER=0 CELLPADDING=3 CELLSPACING=0 BGCOLOR=$bgcolor0>
<TR ALIGN=center><TD><b><FONT COLOR=$bgcolor4>查看消息</FONT></b></TD></TR></TABLE>
<TABLE WIDTH=300 BORDER=0 CELLSPACING=0 CELLPADDING=0><TR><TD bgcolor="$bgcolor2">
&nbsp;昵称：<input class=bt readOnly type="text" value="$who" size="10"> Email：<input  class=bt readOnly type="text" value="$rmail" size="14">
&nbsp;日期：<input class=bt readOnly type="text" value="$sjian1" size="10">&nbsp;
时间：<input  class=bt readOnly type="text" value="$sjian2" size="14"></TD><TD align=right bgcolor="$bgcolor2">
<a onclick=javascript:open('yhreg.cgi?menu=viewuser&username=$who','','resizable,scrollbars')><img src=$imagurl/face/$tu.gif width=32 height=32 alt=用户详细资料>
</a></TD></TR><TR><TD VALIGN=top ALIGN=right colspan="2" bgcolor="$bgcolor2"><textarea readOnly name="Comment" cols="39" rows="5">$nr</textarea>
</TD></TR></TABLE><TABLE WIDTH=300 BORDER=0 CELLSPACING=0 CELLPADDING=0 height="30">
<TR ALIGN=center><TD bgcolor="$bgcolor0"><input type="button" value="回复讯息" onclick=javascript:open('friend.cgi?menu=fshtml&add=$who&page=1','','width=320,height=170')>
</td><TD><table border=1 bgcolor=D8D0C8 cellspacing=0><tr><td width=100% align=center bordercolordark=#E6E6E6 bordercolorlight=D8D0C8><font color=808080>$back&nbsp;&lt;&lt;上一条&nbsp;</font></A></td></tr></table></td>
<TD><table border=1 bgColor=D8D0C8 cellspacing=0><tr><td width=100% align=center bordercolordark=#E6E6E6 bordercolorlight=#D8D0C8><A href=friend.cgi?menu=look&page=$page><font color="#000000">&nbsp;下一条&gt;&gt;&nbsp;</font></A></td></tr></table></td>
</TR></TABLE></BODY></HTML>
EOF
exit;
}
sub chatlog{
open(PSD,"$filepath/guest/1$Cookies{username}.cgi");
@lines=<PSD>;
close(PSD);
foreach $line (@lines) {
($no,$who,$myname,$sjian,$nr)=split(/\|/,$line);
if($who eq $add || $myname eq $add){
$nr=~s/<([^>]|\n)*>/\n/g;
chomp($nr);
$nr =~s/\(收件人:(\S+?)\)//isg;
$chatlog="$chatlog($sjian)　　$who\n$nr\n\n";
}}
open(PSD,"$filepath/yhzl/$add.cgi");
$lines=<PSD>;
close(PSD);
($rpassword,$rname,$rmail,$rhome,$rlast,$rqm,$rsex,$rwork,$rcity,$rlove,$rfy,$rhf,$tu,$jiao,$iewin,$QQ)=split(/\t/,$lines);
$page++;
if($page > 2){$spage=$page-2;}
print "Content-type: text/html\n\n";
print <<EOF;
<HTML><HEAD><meta http-equiv=Content-Type content=text/html; charset=gb2312><style>
a:visited{text-decoration:none}
td {font-size:9pt}
a:link{text-decoration:none}
.bt {BORDER-RIGHT: 1px; BORDER-TOP: 1px; FONT-SIZE: 9pt; BORDER-LEFT: 1px; BORDER-BOTTOM: 1px; FONT-FAMILY: 新细明体, 宋体, Arial}
BODY{font-size:9pt;scrollbar-face-color:$bgcolor0;scrollbar-3dlight-color:FFFFFF;scrollbar-darkshadow-color:FFFFFF;scrollbar-track-color:FFFFFF;scrollbar-arrow-color:FFFFFF;scrollbar-shadow-color:FFFFFF;}
</style><TITLE>聊天记录</TITLE></head><body topmargin=0 bgcolor="$bgcolor0"><TABLE WIDTH=300 BORDER=0 CELLPADDING=3 CELLSPACING=0 BGCOLOR=$bgcolor0>
<TR ALIGN=center><TD><b><FONT COLOR=$bgcolor4>聊天记录</FONT></b></TD></TR></TABLE>
<TABLE WIDTH=300 BORDER=0 CELLSPACING=0 CELLPADDING=0><TR><TD bgcolor="$bgcolor2">
&nbsp;昵称：<input class=bt readOnly type="text" value="$rname" size="10"> Email：<input  class=bt readOnly type="text" value="$rmail" size="14">
</TD><TD align=right bgcolor="$bgcolor2"><a onclick=javascript:open('yhreg.cgi?menu=viewuser&username=$rname','','resizable,scrollbars')><img src=$imagurl/face/$tu.gif width=32 height=32 alt=用户详细资料>
</a></TD></TR><TR><TD VALIGN=top ALIGN=right colspan="2" bgcolor="$bgcolor2"><textarea readOnly name="Comment" cols="39" rows="5">$chatlog</textarea>
</TD></TR></TABLE><TABLE WIDTH=300 BORDER=0 CELLSPACING=0 CELLPADDING=0 height="30">
<TR ALIGN=center><td align=center><input type="reset" value=" 关　闭 " OnClick="window.close();"></td>
</TR></TABLE></BODY></HTML>
EOF
exit;
}
######################### END OF SCRIPT #########################
12

friend.cgi - 源码说明

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

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

⌨️ 快捷键说明

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