IP Address Tester
IP ADDRESS TESTER
If you suspect your ISP is doing something strange to your HTTP access like pushing it through a transparent proxy, you can check what should be direct access at https://www.leaky.org/ip_tester.pl instead.
Checking
Your X-Forwarded-For header is $html_xforward
The connection IP shows up as $html_remote
EOF
my $status = "Unknown";
if (proxy::is_proxy_ip($remote)) {
my $ip = proxy::strip_ip($xforward);
my $html_ip = encode_entities($ip);
print <This IP is a known web-proxy and stripping off the web-proxy IPs reveal you're probably at $html_ip
EOF
if (! $ip) {
$status = "FAILED";
warn "PROXY: WEIRD: $remote / $ip / $xforward\n";
print "Failed to reveal an actual IP behind what should have been a proxy. We'll just assume you're at $html_remote after all.
";
} else {
$status = "FOUND";
warn "PROXY: FOUND: $remote / $ip / $xforward\n";
}
} else {
print <That IP isn't a known web-proxy so we'll just assume this is your actual IP address.
If it is in fact the IP of a web-proxy (run by your ISP), let me know.
EOF
$status = "NONE";
warn "PROXY: NONE: $remote / / $xforward\n";
}
print <Status from checking is one of Unknown, FOUND, NONE or FAILED. Yours is $status
Browser Headers
For your information, here are some other values relating to your web access.
EOF
foreach my $k (keys %ENV) {
next if ($ENV{$k} =~ m#/home/simon#);
next if (grep { $k eq $_ } qw/PATH SERVER_SOFTWARE SERVER_ADMIN/);
print "| " . encode_entities($k) . " | ". (encode_entities($ENV{$k}) || " ") . " |
\n";
}
print <
Status Meanings:
Unknown
You should never get this status!
FOUND
The connection IP is a known webproxy. Processing of X-Forwarded-For header succeeded in getting what is probably your real IP
NONE
Connection IP is not a known webproxy. Assuming that to be your actual IP.
FAILED
Connection IP is a known webproxy but either there was no X-Forwarded-For header or processing it failed in some way.