📄 secret.cgi
字号:
#!/usr/bin/perl
#------------------------------------------------------#
# 本程序为Yuzi工作室提供 #
# Yuzi论坛3000(BBS3000)v4.00 #
#------------------------------------------------------#
$cgipa="."; # CGI程序文件的绝对路径
######################
## 以下部分不需修改 ##
######################
require "$cgipa/setup.cgi";
&GetCookies;
##########
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;
$FORM{$name} = $value;
}
##########
$menu=$FORM{'menu'};
$secret=$FORM{'secret'};
$id=$FORM{'id'};
$bbs=$FORM{'bbs'};
if($menu eq "ok"){&ok;exit;}
##########
open (CHAT,"$filepath/list/$id.cgi");
$line=<CHAT>;
close(CHAT);
($bzmc,$secret,$bzrmail,$outurl,$bbsname,$fbzmc2,$rtime,$htmlt,$htmlw,$jj,$fbzmc)=split(/\t/,$line);
&css;
print <<EOF;
<form method="post"><input type="hidden" value=$bbs name=bbs><input type="hidden" value="$id" name="id"><input type="hidden" value="ok" name="menu"><br><center><table cellpadding=3 cellspacing=1 border=0 width=531>
<tr><td bgcolor=$bgcolor0 align=center width="520"><font color=$bgcolor4><b>保密论坛</b></font></td></tr>
<tr><td bgColor=FFFFFF align="center" width="511"><font color=000000>请输入论坛访问密码
</font><input type=password name=secret value=$Cookies{secret}> <a href=xiu.cgi?id=$id target=_blank>点击这里修改访问密码</a></td>
</tr><tr><td bgcolor=$bgcolor0 align=center width="520"><input type=submit name="submit" value="登 陆"></td></tr><tr><td><br><center>$jj</td></tr></table><br><br>Powered by Yuzi Studios © 2001<br>Yuzi Bulletin Board<font style=font-size:7pt><sup><b>TM</b></sup></font> Version $ver
EOF
exit;
########
sub ok{
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="3;URL=$bbs?id=$id">
<LINK href="$imagurl/bbs.css" rel=stylesheet></head>
您的信息已经发出，系统正在检验，请稍候.....
<BR><BR><A HREF="$bbs?id=$id">如果系统没有反应，请点击这里返回！</A></html><SCRIPT>
document.cookie="secret="+"$FORM{'secret'}";
</SCRIPT>
EOF
exit;
}
######################### END OF SCRIPT #########################
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -