Re: [PHP-ES] Ayuda sobre ips y proxies

From: lisnetcg ( lisnetcg .en. yag.co.cu)
Date: Sat Mar 06 2004 - 18:10:38 CET

antonio escribió
>
> Tengo una web en la que me gustaria saber si el visitante que la ve, navega bajo proxy
> o no, ustedes conocen algun programa para introducirlo en mi web y que sea capaz de
> hacerlo?. He visto algunas web que chequean si navegas bajo proxy, esto es lo que me
> hace falta. Gracias.

  esto lo encontre en un codigo, vete a ver si te sirve

<?
  // Get some headers that may contain the IP address
$SimpleIP = (isset($REMOTE_ADDR) ? $REMOTE_ADDR : getenv("REMOTE_ADDR"));

$TrueIP = (isset($HTTP_X_FORWARDED_FOR) ? $HTTP_X_FORWARDED_FOR :
getenv("HTTP_X_FORWARDED_FOR"));
if ($TrueIP == "") $TrueIP = (isset($HTTP_X_FORWARDED) ? $HTTP_X_FORWARDED :
getenv("HTTP_X_FORWARDED"));
if ($TrueIP == "") $TrueIP = (isset($HTTP_FORWARDED_FOR) ? $HTTP_FORWARDED_FOR :
getenv("HTTP_FORWARDED_FOR"));
if ($TrueIP == "") $TrueIP = (isset($HTTP_FORWARDED) ? $HTTP_FORWARDED :
getenv("HTTP_FORWARDED"));
$GetProxy = ($TrueIP == "" ? "0":"1");

if ($GetProxy == "0")
{
        $TrueIP = (isset($HTTP_VIA) ? $HTTP_VIA : getenv("HTTP_VIA"));
        if ($TrueIP == "") $TrueIP = (isset($HTTP_X_COMING_FROM) ? $HTTP_X_COMING_FROM :
getenv("HTTP_X_COMING_FROM"));
        if ($TrueIP == "") $TrueIP = (isset($HTTP_COMING_FROM) ? $HTTP_COMING_FROM :
getenv("HTTP_COMING_FROM"));
        if ($TrueIP != "") $GetProxy = "2";
};

if ($TrueIP == $SimpleIP) $GetProxy = "0";

// Return the true IP if found, else the proxy IP with a 'p' at the begining
switch ($GetProxy)
{
        case '0':
                // True IP without proxy
                $IP = $SimpleIP;
                break;
        case '1':
                $b = ereg ("^([0-9]{1,3}\.){3,3}[0-9]{1,3}", $TrueIP, $IP_array);
                if ($b && (count($IP_array)>0))
                {
                        // True IP behind a proxy
                        $IP = $IP_array[0];
                }
                else
                {
                        // Proxy IP
                        $IP = "p".$SimpleIP;
                };
                break;
        case '2':
                // Proxy IP
                $IP = "p".$SimpleIP;
};
?>

   Saludos
     lisnetcg

  PD: Que problemas con los replys!!!... 

-- 
PHP Spanish Localization Talk Mailing List (http://www.php.net/)
To unsubscribe, visit: http://www.php.net/unsub.php

This archive was generated by hypermail 2.1.7 : Fri May 14 2004 - 16:04:34 CEST