85 lines
848 B
Plaintext
85 lines
848 B
Plaintext
|
#! /usr/local/bin/perl
|
|||
|
|
|
|||
|
|
#
|
|||
|
|
|
|||
|
|
#<23>낯<EFBFBD>[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
|
|||
|
|
#1997.9.14<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
|
|||
|
|
#<23><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ՂƁ@<40><EFBFBD><CE82>@<40>䂢<EFBFBD><E482A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ɓ@
|
|||
|
|
|
|||
|
|
#<23>@<40>@<40>@<40>@<40>@<40>@<40>@<40>@<40>@Since 1996
|
|||
|
|
|
|||
|
|
#
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
&decode;
|
|||
|
|
|
|||
|
|
&html if($url);
|
|||
|
|
|
|||
|
|
&html2;
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
sub html{
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
print "Location: $url\n\n";
|
|||
|
|
|
|||
|
|
print "Pragma: no cache\n";
|
|||
|
|
|
|||
|
|
print "Expires: Thu, 16 Dec 1994 16:00:GMT\n\n";
|
|||
|
|
|
|||
|
|
exit;
|
|||
|
|
|
|||
|
|
}#html END
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
sub decode{ #<23><><EFBFBD>ʓI<CA93>ȃf<C883>R<EFBFBD>[<5B>h<EFBFBD><68><EFBFBD>ϐ<EFBFBD><CF90>ւ̑<D682><CC91><EFBFBD>
|
|||
|
|
|
|||
|
|
$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/\r//g;
|
|||
|
|
|
|||
|
|
$FORM{$name} = $value;
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$url = $FORM{'url'};
|
|||
|
|
|
|||
|
|
}#decode END
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
sub html2{
|
|||
|
|
|
|||
|
|
print "Content-type: text/html\n\n";
|
|||
|
|
|
|||
|
|
print <<"_HTML_";
|
|||
|
|
|
|||
|
|
<HTML><HEAD>
|
|||
|
|
|
|||
|
|
<TITLE><3E>t<EFBFBD>H<EFBFBD>[<5B><><EFBFBD>ňړ<C588><DA93>B</TITLE>
|
|||
|
|
|
|||
|
|
</HEAD></HTML>
|
|||
|
|
|
|||
|
|
_HTML_
|
|||
|
|
|
|||
|
|
exit;
|
|||
|
|
|
|||
|
|
}#html2 END
|
|||
|
|
|
|||
|
|
__END__
|