超级难题（关于IP地址隐藏，有提示就给分）(200分)

现在我想通过一种方法获取http://xx.xx.xx.xx/index.htm的内容。
要求一：在web服务器上不留下自己真实的IP地址（可以是虚假的IP）
要求二：不可以用简单的代理，因为有的服务器有代理检测程序（如下所附）

#!/usr/local/bin/perl

# ProxyJudge V2.35
#
# created by PRX4EVER
#
# http://prx4ever.virtualave.net/ps/

#-----// title tag //------#
$szTitle = 'ProxyJudge V2.35';

#-----// BODY tag //------#
#$szBody = 'bgcolor="#000000" text="#ffffff" link="#00ddff" vlink="#ddddff" alink="#0000ff"';
$szBody = '';

#-----// Warning tag color //-----#
$szWarn = 'red';

#-----// Suspection tag color //-----#
$szSuspect = 'orange';

#-----// Anony Level color //-----#
$szLevelColor = 'blue';

#-----// If you DO NOT use Cascading Style Sheet, comment out below line //-----#
$fszCSS = 'yes';

# # # # # # # # # #

if( $ARGV[0] eq 'ja' ||
$ENV{'HTTP_USER_AGENT'} =~ /jp|ja/i ||
$ENV{'HTTP_ACCEPT_LANGUAGE'} =~ /jp|ja/i ) {
$fszJapanese = 'yes';
}
if( $ARGV[0] eq 'en' ) {
$fszJapanese = '';
}

$szRemoteHost = $ENV{'REMOTE_HOST'};
$szRemoteAddr = $ENV{'REMOTE_ADDR'};
if( $szRemoteHost eq $szRemoteAddr || $szRemoteHost eq '' ) {
$szRemoteHost
= gethostbyaddr( pack( 'C4', split( //./, $szRemoteAddr ) ), 2 );
$szRemoteHost = $szRemoteAddr if( $szRemoteHost eq '' );
}

while( ( $szName, $szValue ) = each %ENV ) {
next if( $szName !~ /^HTTP_/ );
$szValue =~ s//t/ /g;
push( @aszValues, "$szName=/t$szValue /t$szName=/t$szValue");
}

@aszEnvValues = sort( @aszValues );

if( $fszCSS eq 'yes' ) {
$szColor = "<STRONG style=/"color:";
$szEndTag = "</STRONG>";
} else {
$szColor = "<FONT color=/"";
$szEndTag = "</FONT>";
}

&remotehost_check();
&proxyenv_check();
&spillenv_check();

&judgement();

&html;

exit;

# # # # # # # # # #

#-----// REMOTE_HOST check //----#
sub remotehost_check {
local( @aiHosts );

if( $szRemoteHost eq $szRemoteAddr ) {
$szRH_Result = 'IP Addr.';
if( $fszJapanese eq 'yes' ) {
$szRH_Comment = 'IP アドレスからホスト叹が苞けないので冉们できません。';
} else {
$szRH_Comment = 'I have no idea because DNS lookup failure.';
}
return;

} else {
$szCheck_RH = $szRemoteHost;
if( $szCheck_RH =~ /www.*cache|www.*proxy|webcache|delegate|gatekeeper|firewall|proxy|cache|squid|^bbs|^http|^www|^web|^dns|^ftp|^mail|^news|^cgi|^gate|^server|^pop|^smtp|^w3/.|^ns/d{0,2}/.|^fw/d{0,2}/./i ) {
$szCheck_RH =~ s#$&#$szColor$szWarn">$&$szEndTag#;
$szRH_Result = 'Via a Proxy';
if( $fszJapanese eq 'yes' ) {
$szRH_Comment
= " $szCheck_RH とはいかにも Proxy といったホスト叹です。";
} else {
$szRH_Comment
= " REMOTE_HOST includes proxy server word /"$szCheck_RH/".";
}

} elsif( $szCheck_RH =~ /server|gate|www|web|dns|ftp|mail|news|cgi|pop|smtp/i ) {
$szCheck_RH =~ s#$&#$szColor$szSuspect">$&$szEndTag#;
$szRH_Result = '?';
if( $fszJapanese eq 'yes' ) {
$szRH_Comment
= " $szCheck_RH とは Proxy のようなホスト叹です。";
} else {
$szRH_Comment
= " REMOTE_HOST includes proxy server like word /"$szCheck_RH/".";
}
}

@aiHosts = split( //./, $szCheck_RH );
if( $#aiHosts == 1 ) {
$szCheck_RH = "$szColor$szSuspect/">$szCheck_RH$szEndTag";
$szRH_Result = '?';
if( $fszJapanese eq 'yes' ) {
$szRH_Comment
= ' ホスト叹にピリオドが１つっていうのは瓢弄アドレスっぽくないです。';
} else {
$szRH_Comment
= " REMOTE_HOST includes only one period, it's dubious.";
}
return;

} elsif( $szRH_Result ne 'Via a Proxy' ) {
if( $aiHosts[0] !~ //d/ ) {
$aiHosts[0] = "$szColor$szSuspect/">$aiHosts[0]$szEndTag";
$szRH_Result = '?';
if( $fszJapanese eq 'yes' ) {
$szRH_Comment .= ' ホスト叹に眶机がないのは Proxy のようですが、池够霹の眉琐はホスト叹に眶机がないことが驴いので办车に Proxy であるとは咐えないです。';
} else {
$szRH_Comment .= " REMOTE_HOST includes no numbers, it's dubious.";
}
} elsif( $aiHosts[0] =~ //D/d$/ ) {
$aiHosts[0] = "$szColor$szSuspect/">$aiHosts[0]$szEndTag";
$szRH_Result = '?';
if( $fszJapanese eq 'yes' ) {
$szRH_Comment .= ' ホスト叹の琐萨に１峰の眶机というのは Proxy のようですが、池够霹の眉琐は琐萨に眶机が１峰のことが驴いので办车に Proxy であるとは咐えないです。';
} else {
$szRH_Comment
.= " REMOTE_HOST includes only one number, it's dubious.";
}
}
$szCheck_RH = join( '.', @aiHosts );
}
}
}

# # # # #

#-----// Proxy env. value,User-Agent, Keep-Alive check //----#
sub proxyenv_check {
local( $szEnvValue, $szName, $szValue, $szNameStat, $szValueStat );

foreach $szEnvValue ( @aszEnvValues ) {
chop( $szEnvValue ) if( $szEnvValue =~ //n$/ );
( $szName, $szValue, $szNameStat, $szValueStat )
= split( //t/, $szEnvValue );

if( $szName eq 'HTTP_USER_AGENT=' && $szValue =~ /via/i ) {
$szValueStat =~ s/via/$szColor$szWarn">via$szEndTag/i;
$szResult = 'Via a Proxy';
if( $fszJapanese eq 'yes' ) {
$szComment .= ' Via って≈×沸统∽って罢蹋ですよ。';
} else {
$szComment .= ' USER_AGENT includes "via".';
}

} elsif( $szName eq 'HTTP_CONNECTION=' ) {
if( $szValue !~ /Keep-Alive/i ) {
$szValueStat = "$szColor$szWarn/">$szValueStat$szEndTag";
$szResult = 'Anonymized' if( $szResult ne 'Via a Proxy' );
if( $fszJapanese eq 'yes' ) {
$szComment .= ' 办忍弄なブラウザだと Keep-Alive が叫ます。';
} else {
$szComment .= " CONNECTION doesn't have /"Keep-Alive/".";
}
} else {
$iNoProxy++;
$fszKeepAlive = 'existed';
}

} elsif( $szName !~ /HTTP_(CONNECTION=|USER_AGENT=|HOST=|PRAGMA=|UA_|ACCEPT|REFERER=|MIME=|EXTENSION=|IF_MODIFIED_SINCE=|COOKIE=)/ ) {

if( $szName !~ /HTTP_(VIA=|.ROXY_.ONNECTION=|X_FORWARDED_FOR=|FORWARDED=|CACHE_CONTROL=|CACHE_INFO=|FROM=|CLIENT_IP=|TE=|SP_HOST=|XONNECTION=)/ ) {
$szNameStat =~ s/$szName/$szColor$szSuspect">$szName$szEndTag/i;
$szResult = 'Via a Proxy';
if( $fszJapanese eq 'yes' ) {
$szComment .= ' 摊な恃眶が叫てます。' if( $szComment !~ /摊な恃眶が叫てます。/ );
} else {
$szComment .= ' Dubious valuable is detected.' if( $szComment !~ /Dubious/ );
}
} else {
$szNameStat =~ s/$&/$szColor$szWarn">$&$szEndTag/i;
$szResult = 'Via a Proxy';
if( $fszJapanese eq 'yes' ) {
$szComment .= ' Proxy 恃眶叫てます。' if( $szComment !~ /Proxy 恃眶叫てます。/ );
} else {
$szComment .= ' Proxy servers valuable is detected.' if( $szComment !~ /Proxy/ );
}
}
} else {
$iNoProxy++ if( $szName !~ /HTTP_(CONNECTION=|HOST=|PRAGMA=|UA_|ACCEPT|REFERER=|MIME=|EXTENSION=|IF_MODIFIED_SINCE=|COOKIE=)/ );
}
$szEnvValue = "$szName/t$szValue/t$szNameStat/t$szValueStat/n";
}
return;
}

# # # # #

#-----// Spill IP addr. check //----#
sub spillenv_check {
local( $szEnvValue, $szName, $szValue, $szNameStat, $szValueStat );
local( $szSpill );
local( $szHex, $szHexAddr );
local( $szItselfHost, $szSpillHost );
local( $sz2Host, $szIpTemp, $sz2Ip );
local( %aszSeen, $iSpillNum );
local( @aszTemp );

foreach $szEnvValue ( @aszEnvValues ) {
chop( $szEnvValue ) if( $szEnvValue =~ //n$/ );
( $szName, $szValue, $szNameStat, $szValueStat ) = split( //t/, $szEnvValue );

if( $szName !~ /HTTP_(.ONNECTION=|USER_AGENT=|HOST=|PRAGMA=|UA_|ACCEPT|REFERER=|MIME=|EXTENSION=|.ROXY_.ONNECTION=|IF_MODIFIED_SINCE=|CACHE_CONTROL=|CACHE_INFO=)/ ) {
$szSpill = $szValue;

$szSpill =~ s/$szRemoteHost//g;
$szSpill =~ s/$szRemoteAddr//g;

$szSpill =~ s//([^/(/)]+/)//g;
$szSpill =~ s/ for / /ig;
$szSpill =~ s/ by / /ig;
$szSpill =~ s/ - / /g;
$szSpill =~ s/-/@//g;

#-----// HTTP_FORWARDED //----#
if( $szSpill =~ m#http://# ) {
while( $szSpill =~ s#http://([^:]+):##i ) {
push( @aszItselfHost, "$1" );
}
}

#-----// HTTP_VIA //----#
if( $szName eq 'HTTP_VIA=' ) {
while( $szSpill =~ s# ([^ :]+):# :#i ) {
push( @aszItselfHost, "$1" );
}
}

#-----// HTTP_X_FORWARDED_FOR //----#
if( $szName eq 'HTTP_X_FORWARDED_FOR=' ) {
while( $szSpill =~ s#(/d+/./d+/./d+/./d+)/,*# #i ) {
push( @aszSpillAddr, "$1" );
}
}

#-----// HTTP_CLIENT_IP //----#
if( $szName eq 'HTTP_CLIENT_IP=' ) {
$szHex = $szSpill;
if( $szHex !~ //./ && $szHex =~ s/^([/dA-F]{2})([/dA-F]{2})([/dA-F]{2})([/dA-F]{2})/$1$2$3$4/i ) {
$szHexAddr = join( '.', hex( $1 ), hex( $2 ), hex( $3 ), hex( $4 ) );
push( @aszSpillAddr, "$szHexAddr" );
$szValueStat .= " -> $szHexAddr";
}
}
$szSpill =~ s/:|/,|;|//g;

#-----// IP addr. //----#
if( $szSpill =~ s/[^a-zA-Z0-9_/-/.]*(/d+)/.(/d+)/.(/d+)/.(/d+)[^a-zA-Z0-9_/-/.]+/$1.$2.$3.$4/i ) {
$szSpillAddr = "$1.$2.$3.$4";
push( @aszSpillAddr, "$szSpillAddr" );
}

#-----// .***.*** //----#
if( $szSpill =~ //.[^/.]{2,3}/.[a-zA-Z]{2,3}[^a-zA-Z0-9_/-/.]+/ ) {
$szSpill =~ s#([a-zA-Z0-9_/-/.]+)/.([^/.]{2,3})/.([a-zA-Z]{2,3})[^a-zA-Z0-9_/-/.]+#$1.$2.$3#i;
$szSpillAddr = "$1.$2.$3";
push( @aszSpillAddr, "$szSpillAddr" );

#-----// .*** //----#
} elsif( $szSpill =~ //.[a-zA-Z]{2,3}[^a-zA-Z0-9_/-/.]+/ ) {
$szSpill =~ s#([a-zA-Z0-9_/-/.]+)/.([a-zA-Z]{2,3})[^a-zA-Z0-9_/-/.]+#$1.$2#i;
$szSpillAddr = "$1.$2";
push( @aszSpillAddr, "$szSpillAddr" );
}
}
$szEnvValue = "$szName/t$szValue/t$szNameStat/t$szValueStat";
}
foreach $szSpillAddr ( @aszSpillAddr ) {
if( $szSpillAddr !~ /www.*cache|www.*proxy|webcache|delegate|gatekeeper|firewall|proxy|cache|squid|^bbs|^http|^www|^web|^dns|^ftp|^mail|^news|^cgi|^gate|^server|^pop|^smtp|^w3/.|^ns/d{0,2}/.|^fw/d{0,2}/./i ) {
push( @aszTemp, $szSpillAddr );
}
}
@aszSpillAddr = @aszTemp;

#-----// Remove Proxy's IP addr. //----#
foreach $szItselfHost ( @aszItselfHost ) {
next if( $szItselfHost !~ //./ );
$szItselfHost =~ tr/A-Z/a-z/;
chop( $szItselfHost ) if( $szItselfHost =~ //n$/ );
foreach $szSpillAddr ( @aszSpillAddr ) {
$szSpillAddr =~ tr/A-Z/a-z/;
chop( $szSpillAddr ) if( $szSpillAddr =~ //n$/ );
if( $szItselfHost !~ /[a-z]/ ) {
$sz2Host = gethostbyaddr( pack( 'C4', split( //./, $szItselfHost ) ), 2 );
} else {
$szIpTemp = ( gethostbyname( $szItselfHost ) )[4];
$sz2Ip = join( '.', unpack( 'C4', $szIpTemp ) );
}
if( $szItselfHost eq $szSpillAddr || $sz2Host eq $szSpillAddr || $sz2Ip eq $szSpillAddr ) {
$szSpillAddr .= "";
next;
}
}
$szSpillAddr .= "/n";
}

foreach $szSpillAddr ( @aszSpillAddr ) {
chop( $szSpillAddr ) if( $szSpillAddr =~ //n$/ );
#-----// Remove Local IP addr and Fake? IP addr //-----#
if( $szSpillAddr =~ /^127/./ ||
$szSpillAddr =~ /^172/.1[6-9]/./ ||
$szSpillAddr =~ /^172/.2/d/./ ||
$szSpillAddr =~ /^172/.3[0-2]/./ ||
$szSpillAddr =~ /^10/./ ||
$szSpillAddr =~ /^192/.168/./ ||
$szSpillAddr =~ //.0$/ ||
$szSpillAddr =~ /^0/./ ||
$szSpillAddr =~ //.255$/ ||
$szSpillAddr =~ /^255/./ ) {
$szSpillAddr .= ':f';
next;
}
#-----// Remove itself IP addr/host //-----#
undef( $sz2Host );
undef( $sz2Ip );
undef( $szIpTemp );
if( $szSpillAddr !~ /[a-z]/ ) {
$sz2Host = gethostbyaddr( pack( 'C4', split( //./, $szSpillAddr ) ), 2 );
} else {
$szIpTemp = ( gethostbyname( $szSpillAddr ) )[4];
$sz2Ip = join( '.', unpack( 'C4', $szIpTemp ) );
}
if( $sz2Host eq $szRemoteHost || $sz2Ip eq $szRemoteAddr ) {
$szSpillAddr .= ":s";
}
unless( $aszSeen{$szSpillAddr}++ ) {}
$szSpillAddr .= "/n";
}
foreach $szSpillAddr ( @aszSpillAddr ) {
chop( $szSpillAddr ) if( $szSpillAddr =~ //n$/ );
if( $szSpillAddr !~ /:x|:f|:s|/ ) {
$iSpillNum++;
$szYourHost = $szSpillAddr;
}
}

$szAddrTop = $szRemoteAddr;
$szAddrTop =~ s/([^/.]+)/.([^/.]+)/.([^/.]+)/..+/$1/.$2/.$3/./;
$szHostTop = $szRemoteHost;
if( $szHostTop =~ //.[^/.]{2,3}/.[^/.]{2,3}$/ ) {
$szHostTop =~ s/[^/.]*/.*([^/.]+)/.([^/.]+)/.([^/.]+)$/$1/.$2/.$3/;
} else {
$szHostTop =~ s/[^/.]*/.*([^/.]+)/.([^/.]+)$/$1/.$2/;
}

if( $iSpillNum == 0 ) {
$szYourHost = 'Anonymous';

} elsif( $iSpillNum != 1 ) {
undef( @aszTemp );
while( ( $szSpillHost, $iSpillNum ) = each %aszSeen ) {
next if( $szSpillHost =~ /^($szAddrTop[^/. ]+)/ );
next if( $szSpillHost =~ /(/.{0,1}$szHostTop)$/ );
push( @aszTemp, $szSpillHost );
}
$szYourHost = $aszTemp[0];
$szYourHost = 'Anonymous' if( $szYourHost eq '' );

} else {
#-----// ***.***.***.??? //----#
if( $szYourHost =~ /^($szAddrTop[^/. ]+)/ ) {
$fszInner = 'true';

#-----// ??...??.*** //----#
} elsif( $szYourHost =~ /(/.{0,1}$szHostTop)$/ ) {
$fszInner = 'true';
}
}
return;
}

# # # # #

#-----// Judgement //----#
sub judgement {

#-----// Low Suspect //----#
if( $iNoProxy == 2 && $szResult eq '' ) {
$szResult = 'NoProxy!';
if( $fszJapanese eq 'yes' ) {
$szComment = 'Proxy っぽくないです。';
} else {
$szComment = 'Like no proxy server.';
}
} elsif( $szResult eq '' && $fszKeepAlive eq '' ) {
$szResult = 'Anonymized';
if( $fszJapanese eq 'yes' ) {
$szComment .= '办忍弄なブラウザだと Connection=Keep-Alive です。';
} else {
$szComment .= 'No "Connection=Keep-Alive" is dubious';
}
}

#-----// NoProxy //----#
if( $szResult eq 'NoProxy!' ) {
if( $szRH_Result eq 'IP Addr.' ) {
$szJudge = '1';
if( $fszJapanese eq 'yes' ) {
$szJComment = 'IP アドレス山淡のものは诞脚です。';
} else {
$szJComment = 'REMOTE_HOST that is IP addr. is precious.';
}
} elsif( $szRH_Result eq 'Via a Proxy' ) {
$szJudge = '3';
if( $fszJapanese eq 'yes' ) {
$szJComment = 'HTTP 恃眶よりホスト叹のチェックのほうを奶毋黎に乖われるので庙罢。';
} else {
$szJComment = 'HTTP valuables are checked first.';
}
} elsif( $szRH_Result eq '?' ) {
$szJudge = '2';
if( $fszJapanese eq 'yes' ) {
$szJComment = '攫鼠を嘿かくチェックされる眷圭には氦ります。';
} else {
$szJComment = 'Persistent valuables checkers may suspect.'
}
} else {
$szJudge = '2';
if( $fszJapanese eq 'yes' ) {
$szJComment = '蝗える Proxy です。';
} else {
$szJComment = 'Useful proxy server.';
}
}

#-----// Anonymized //----#
} elsif( $szResult eq 'Anonymized' ) {
if( $szRH_Result eq 'IP Addr.' ) {
$szJudge = '2';
if( $fszJapanese eq 'yes' ) {
$szJComment = '网脱擦猛ありです。';
} else {
$szJComment = 'Nice. It it useful.';
}
} elsif( $szRH_Result eq 'Via a Proxy' ) {
$szJudge = '3';
if( $fszJapanese eq 'yes' ) {
$szJComment = 'HTTP 恃眶よりホスト叹のチェックのほうを奶毋黎に乖われるので庙罢。';
} else {
$szJComment = 'HTTP valuables are checked first.';
}
} elsif( $szRH_Result eq '?' ) {
$szJudge = '3';
if( $fszJapanese eq 'yes' ) {
$szJComment = '攫鼠を嘿かくチェックされる眷圭には氦ります。';
} else {
$szJComment = 'Persistent valuables checkers may suspect.';
}
} else {
$szJudge = '2';
if( $fszJapanese eq 'yes' ) {
$szJComment = 'もったいないのであまり痰勉な网脱をしてはイケません。';
} else {
$szJComment = 'Useful proxy server.';
}
}

#-----// Via a Proxy //----#
} else {
if( $szRH_Result eq 'IP Addr.' ) {
$szJudge = '3';
if( $fszJapanese eq 'yes' ) {
$szJComment = 'まあまあです。';
} else {
$szJComment = 'So-so.';
}
} elsif ($szRH_Result eq 'Via a Proxy') {
$szJudge = '5';
if( $fszJapanese eq 'yes' ) {
$szJComment = '恰部にも Proxy といった炊じですけど、觅くなければ蝗えます。';
} else {
$szJComment = 'If it is not slow, it is useful.';
}
} elsif ($szRH_Result eq '?') {
$szJudge = '3';
if( $fszJapanese eq 'yes' ) {
$szJComment = '铣れていなければ徘いてても丹になるものでもありませんね。';
} else {
$szJComment = 'So-so.';
}
} else {
$szJudge = '4';
if( $fszJapanese eq 'yes' ) {
$szJComment = '觅くなければ网脱材です。';
} else {
$szJComment = 'If it is not slow, it is useful.';
}
}
}

#-----// SPILL //----#
if( $szYourHost ne 'Anonymous' ) {
$szJudge .= '?';
if( $fszInner eq 'true' ) {
if( $fszJapanese eq 'yes' ) {
$szJComment = '柒婶 Proxy々';
} else {
$szJComment = 'Internal proxy server?';
}
} else {
if( $fszJapanese eq 'yes' ) {
$szJComment = '铣れてる々';
} else {
$szJComment = 'Spill your REMOTE_HOST?';
}
}
$szJComment .= " ($szYourHost)";
}
return;
}
# # # # #

#-----// HTML Generate //----#
sub html {
print <<"_HTML_";
Content-type: text/html

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN"
"http://www.w3.org/TR/REC-html40/strict.dtd">
<HTML lang="jp">
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=EUC-JP">
<META http-equiv="Content-Style-Type" content="text/css">
<META http-equiv="Content-Script-Type" content="text/javascript">
<TITLE lang="en">$szTitle</TITLE>
<LINK rev="made" title="PRimaire C. Stallman"
href="mailtoRCS/@ProxyJudge.VirtualAve.Net">
<LINK rev="made" title="Ryuji Takei"
href="mailto:cry/@cker.104.net">
<LINK rel="copyright" href="http://prx4ever.virtualave.net/ps/notice.html.ja">
<LINK rel="index" href="http://prx4ever.virtualave.net/ps/">
<STYLE type="text/css">
<!--
A.noborder:link{
color:white;
text-decoration:none;
}
A.noborder:visited{
color:white;
text-decoration:none;
}
A.noborder:active{
color:white;
text-decoration:none;
}
A.noborder:hover{
color:white;
text-decoration:none;
}
//-->
</STYLE>
</HEAD>

<BODY style="background:URL(./img/splash2.png)" $szBody>
_HTML_

if( $fszJapanese eq 'yes' ) {
print "[<A accesskey=/"a/" href=/"./prxjdg.cgi?en/">English</A>]/n";
} else {
print "[<A accesskey=/"a/" href=/"./prxjdg.cgi?ja/">Japanese</A>]/n";
}
print <<"_HTML_";
<DIV style="text-align:center">$szTitle</DIV>

<HR>

<PRE>
_HTML_
if( $ARGV[0] eq 'debug' ) {
print "itself_host : @aszItselfHost<HR>/n";
print "spill_addr : @aszSpillAddr<HR>/n";
}
if( $szCheck_RH =~ /$szWarn"/ ) {
print " $szColor$szWarn/">via$szEndTag - REMOTE_HOST=$szCheck_RH/n";
} elsif( $szCheck_RH =~ /$szSuspect"/ ) {
print " $szColor$szSuspect/">?$szEndTag - REMOTE_HOST=$szCheck_RH/n";
} else {
print " REMOTE_HOST=$szRemoteHost/n";
}
print " REMOTE_ADDR=$szRemoteAddr/n/n";
foreach $szEnvValue ( @aszEnvValues ) {
$szEnvValue =~ s/^[^/t]+/t[^/t]+/t([^/t]+)/t([^/t]+)/$1$2/;
if( $szYourHost ne 'Anonymous' && $szEnvValue =~ /$szYourHost/ ) {
print "$szColor$szWarn/">SPILL$szEndTag - ";
if( $szEnvValue !~ />$szYourHost</ ) {
$szEnvValue =~ s/$szYourHost/$szColor$szWarn">$szYourHost$szEndTag/i;
}
} elsif( $szEnvValue =~ /$szWarn"/ ) {
print " $szColor$szWarn/">via$szEndTag - ";
} elsif( $szEnvValue =~ /$szSuspect"/ ) {
print " $szColor$szSuspect/">?$szEndTag - ";
} else {
print " ";
}
print "$szEnvValue/n";
}
if( $szRH_Comment eq '' ) {
if( $fszJapanese eq 'yes' ) {
$szRH_Comment = "泼に啼玛はないようです。";
} else {
$szRH_Comment = "Maybe no problem.";
}
}
if( $szComment eq '' ) {
if( $fszJapanese eq 'yes' ) {
$szComment = "泼に啼玛はないようです。";
} else {
$szComment = "Maybe no problem.";
}
}
print <<"_HTML_";
</PRE>

<HR>

<UL>
<LI>REMOTE_HOST
<DL>
<DT>Result<DD>$szRH_Result
<DT>Comment<DD>$szRH_Comment
</DL>
<BR>
<LI>HTTP Env. Value
<DL>
<DT>Result<DD>$szResult
<DT>Comment<DD>$szComment
</DL>
<BR>
<LI>AnonyLevel : $szColor$szLevelColor">$szJudge$szEndTag<BR>
  $szJComment
</UL>

<HR>

<DIV style="text-align:right">
prxjdg - created by <A accesskey="r" href="http://prx4ever.virtualave.net/ps/">PRX4EVER</A>
<BR>thanx to Team Cr[y]ackerz
</DIV>
</BODY>
</HTML>
_HTML_
return;
}

__END__

為了這麼多分，不會也幫頂一下!要給點分哦，謝謝!

太难，帮你顶一下

加密代理了

帮你顶一下

那得从底层伪造ip包才可以了，。。。很麻烦的说

就算伪造了ip包，那他的回应信息也给了那个假ip了，你收不到的。