yhreg.cgi

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

#!/usr/bin/perl
#------------------------------------------------------#
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　#
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　#
#------------------------------------------------------#
$cgipa=".";  # CGI程序文件的绝对路径
######################
## 以下部分不需修改 ##
######################
require "$cgipa/setup.cgi";
&GetCookies;
$cgiurl="yhreg.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;
$value=~s///g;
$FORM{$name} = $value;
$FORM{'comment'}=~s/\n/<br>/g;
$FORM{'jiao'}=~s/\n/<br>/g;
$FORM{'username'}=~s/\ //g;
$FORM{'username'}=~s/\