vote.cgi

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

#!/usr/bin/perl
#------------------------------------------------------#
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　#
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　#
#------------------------------------------------------#
$cgipa=".";  # CGI程序文件的绝对路径
######################
## 以下部分不需修改 ##
######################
require "$cgipa/setup.cgi";
foreach(split(/; /,$ENV{'HTTP_COOKIE'})){($cookie,$value)=split(/=/);$Cookies{$cookie}=$value;}
if($Cookies{bgcolor}){($color,$bgcolor4,$bgcolor0,$bgcolor,$bgcolor1,$bgcolor2)=split(/_/,$Cookies{bgcolor});}
$username=$Cookies{username};
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/\|//g;
$value=~s/>/&gt;/g;
$value=~s/</&lt;/g;
$value=~s/\.\.//g;
$FORM{$name} = $value;
}
#########
$id=$FORM{'id'};
$id=~s/\.//g;
if($id=~m/[\#\&\*\=\+\\\:\"\/\<\>?'`