16 respuestas en este tema

[seoane]

Leyendo un hilo de eduarcol en el que mencionaba que tenia las ips de sus clientes dadas de alta en no-ip, se me ocurrió que a alguien le podía interesar la solución que le di yo al mismo problema. Es realmente sencilla y se puede integrar fácilmente dentro de otra aplicación.

El código se divide en dos partes, una en delphi y otra en php.

La parte de php es esta (el archivo lo llamo agent.php):

php

<?php 
  error_reporting(0); 
  Main(); 
?>
 
<?php
 
function remoteip()    
{ 
 $ip = 0; 
 if (!empty($_SERVER["HTTP_CLIENT_IP"])) 
   $ip = $_SERVER["HTTP_CLIENT_IP"]; 
 if (!empty($_SERVER["HTTP_X_FORWARDED_FOR"]))    
 { 
  $iplist = explode(", ", $_SERVER["HTTP_X_FORWARDED_FOR"]); 
  if ($ip)    
  { 
   array_unshift($iplist, $ip); 
   $ip = 0; 
  } 
  foreach($iplist as $v) 
    if (!eregi("^(192\.168|172\.16|10|224|240|127|0)\.", $v)) 
      return $v; 
 } 
 return ($ip) ? $ip : $_SERVER["REMOTE_ADDR"]; 
}
 
function testport($port, $timeout = 30)
{  
 $host = remoteip();
 $fp = fsockopen($host,$port,$errno,$errstr,$timeout); 
 if($fp) 
 { 
  echo 'open'; 
  fclose($fp); 
 } 
 else 
 { 
  echo 'close'; 
 } 
 flush();
}
 
function updateip()
{
 $host = remoteip();
 $con = mysql_connect("localhost","usuario","password");
 if ($con)
 {
  mysql_select_db("agent", $con);
  $sql="INSERT INTO iplist (uid, ip, fecha) VALUES ($_GET[uid],'$host',NOW())";
  if (!mysql_query($sql,$con))
  {
   if (mysql_errno() == 1062)
   {
    $sql="UPDATE iplist SET ip='$host',fecha=NOW() WHERE uid=$_GET[uid]";
    if (mysql_query($sql,$con))
    {
     echo 'OK';
    }
   }
  } else
  {
   echo 'OK';
  } 
  mysql_close($con);
 }
}
 
function Main()
{  
 $myself = $_SERVER['PHPSELF'];
 if (isset($_GET['cmd']))
 {
  $cmd = $_GET['cmd']; 
  if ($cmd == 'getip')
  {
   echo remoteip();
  } else if (($cmd == 'testport') && isset($_GET['port']))
  {
   if (isset($_GET['timeout'])) 
   {
    testport($_GET['port'],$_GET['timeout']);
   } else
   {
    testport($_GET['port'],30);
   } 
  } else if (($cmd == 'updateip') && isset($_GET['uid']))
  {
   if (is_numeric($_GET['uid']))
   {
    updateip();
   }
  }
 } 
}
 
?>

Y las tablas que uso (mysql) son estas:

mysql

CREATE TABLE IF NOT EXISTS `clientes` (
  `uid` int(11) unsigned NOT NULL,
  `Nombre` varchar(64) collate latin1_spanish_ci NOT NULL,
  `Telefono` varchar(9) collate latin1_spanish_ci default NULL,
  PRIMARY KEY  (`uid`)
) ENGINE=MyISAM DEFAULT CHARSET=latin1 COLLATE=latin1_spanish_ci;
 
CREATE TABLE IF NOT EXISTS `iplist` (
  `uid` int(11) NOT NULL,
  `ip` varchar(15) collate latin1_spanish_ci NOT NULL,
  `fecha` datetime NOT NULL,
  PRIMARY KEY  (`uid`)
) ENGINE=MyISAM DEFAULT CHARSET=latin1 COLLATE=latin1_spanish_ci;

Básicamente lo que hace el código en php es que cada vez que alguien accede a esa pagina, pasándole como parámetro el numero de cliente, graba la ip en la tabla correspondiente.

Así que el código en delphi es tan sencillo como este:

delphi

uses WinInet, IniFiles;
 
const
  Version = '1.0';
  Url = 'http://www.mipagina.com/agent.php';
 
function SendCmd(Cmd: String): String;
var
  hNet: HINTERNET;
  hUrl: HINTERNET;
  Buffer: Array[0..256] of Char;
  BytesRead: DWORD;
begin
  Result:= EmptyStr;
  hNet:= InternetOpen('agent', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if (hNet <> nil) then
  begin
    hUrl := InternetOpenUrl(hNet, PChar(Url + Cmd), nil, 0, INTERNET_FLAG_RELOAD, 0);
    if (hUrl <> nil) then
    begin
      FillChar(Buffer,Sizeof(Buffer),0);
      if InternetReadFile(hUrl, @Buffer, sizeof(Buffer)-1, BytesRead) then
        Result:= Trim(Copy(Buffer,1,BytesRead));
      InternetCloseHandle(hUrl);
    end;
    InternetCloseHandle(hNet);
  end;
end;
 
// Solo tenemos que llamar a esta función periódicamente para mantener la ip actualizada.
// Uid es el identificador del cliente, el mismo de la tabla de clientes
SendCmd('?cmd=updateip&uid=' + IntToStr(Uid));

Ahora solo falta mostrar la lista en una bonita pagina web, pero lejos de las miradas de los curiosos.

Nota: Si le encontráis algún error al código es porque he tenido que cortar algunas partes relacionadas con mi trabajo, y puede que se me fuera la tijera  me avisáis y lo corrijo.

[Héctor Randolph]

Gracias Domingo.

Me tomé el atrevimiento de tomar parte de tu código para utilizarlo en un portal que estoy desarrollando.

Tengo un administrador de sesiones, con él puedo saber qué usuarios han iniciado una sesión. Llevo una bitácora de accesos y también puedo bloquear (si es necesario) el acceso de algún usuario en particular.

La parte que me hacía falta era tomar su dirección IP para tener más información acerca de quién entra y desde que dirección accede.

Gracias a esta función quedo resuelto.

php

function remoteip()    
{ 
 $ip = 0; 
 if (!empty($_SERVER["HTTP_CLIENT_IP"])) 
   $ip = $_SERVER["HTTP_CLIENT_IP"]; 
 if (!empty($_SERVER["HTTP_X_FORWARDED_FOR"]))    
 { 
  $iplist = explode(", ", $_SERVER["HTTP_X_FORWARDED_FOR"]); 
  if ($ip)    
  { 
   array_unshift($iplist, $ip); 
   $ip = 0; 
  } 
  foreach($iplist as $v) 
    if (!eregi("^(192\.168|172\.16|10|224|240|127|0)\.", $v)) 
      return $v; 
 } 
 return ($ip) ? $ip : $_SERVER["REMOTE_ADDR"]; 
}

Ahora puedo bloquear también por rangos de direcciones IP.

Nuevamente gracias, me resultó muy útil.

Saludos

[eduarcol]

o sea, a ver si entiendo, tu agarrastes y te hicistes tu propio no-ip jejeje, es lo bueno de ser inteligente.

[enecumene]

Hola, sólo un detalle, en el foro existen las etiquetas PHP y MySQL al igual que SQL, lo podeis usar así:

PHP

[ code=php ] codigo [ /code ]

MySQL

[ code=mysql ] sentencia [ /code ]

sin los espacios

Saludos.

PD. Sí, Sí, ya pondré los botoncitos

[seoane]

o sea, a ver si entiendo, tu agarrastes y te hicistes tu propio no-ip jejeje, es lo bueno de ser inteligente.

La conversación fue mas o menos así:
Yo: Deberíamos dar de alta las ips de nuestros clientes en no-ip
Mi jefe: Eso es una tontería, además quien va a ocuparse de mantener las cuentas de no-ip ... etc
Yo: Vale, ya me busco yo la vida.

[casi]

Si me hubiese pasado a mí­, la conversación serí­a algo diferente:

Yo: Deberí­amos dar de alta las ips de nuestros clientes en no-ip
Mi jefe: Eso es una tonterí­a, además quien va a ocuparse de mantener las cuentas de no-ip ... etc
Yo: Vale, ya me busco yo la vida, ¿dónde tengo el email de seoane?.

[egostar]

Si me hubiese pasado a mí­, la conversación serí­a algo diferente:

Yo: Deberí­amos dar de alta las ips de nuestros clientes en no-ip
Mi jefe: Eso es una tonterí­a, además quien va a ocuparse de mantener las cuentas de no-ip ... etc
Yo: Vale, ya me busco yo la vida, ¿dónde tengo el email de seoane?.

, buena esa amigo casi, siempre es bueno contar con los correos de quien sabe y mas si cae en domingo  

Salud OS

[off-topic]que gusto verte por aqui de vez en vez[/off-topic]

[casi]

[off-topic]que gusto verte por aqui de vez en vez[/off-topic]

Es que no se puede perder el contacto con los amigos 

[Fenareth]

.....

, buena esa amigo casi, siempre es bueno contar con los correos de quien sabe y mas si cae en domingo  

Salud OS
...

Precisamente de él es de quien hablamos !!!      :$ (ya pues, no dije nada)

[seoane]

Precisamente de él es de quien hablamos !!!      :$ (ya pues, no dije nada)

[egostar]

.....

, buena esa amigo casi, siempre es bueno contar con los correos de quien sabe y mas si cae en domingo  

Salud OS
...

Precisamente de él es de quien hablamos !!!      :$ (ya pues, no dije nada)

Amiguita, es que estaba pensando que el dia que necesitaras el correo cayera en domingo jajajajaja

Salud OS

[Fenareth]

.....

, buena esa amigo casi, siempre es bueno contar con los correos de quien sabe y mas si cae en domingo  

Salud OS
...

Precisamente de él es de quien hablamos !!!      :$ (ya pues, no dije nada)

Amiguita, es que estaba pensando que el dia que necesitaras el correo cayera en domingo jajajajaja

Salud OS

Jejejeje, lo sé, pero quedó de perlas   

[seoane]

Pues ahora que resucitan el tema, así­ es como queda la web con las ips:

[egostar]

Hey amigo seaone, que bien que quedo esa aplicación, y eso que solo nos muestras el listado de Ip's 

Salud OS

[pcicom]

Saludos SEOANE,,

Oye y cual es la principal funcion de tener las IPS de tus clientes, son para que te puedas conectar a ellos, o a algun SERVIDOR,  me gustaria saber un poco de tu necesidad. resulta interesante.




Esta genial, solo habria que optimizar para no repetir constantemente el ENVIO del comando de actualizacon, lo que hariamos seria crear una variable global que grabe el valor de la IP enviada, y modificando el codigo PHP para que por medio de un parametro nos devuelva la IP, una vez conocida la IP la comparariamos con la IP Enviada en caso que fuera distinta entonces enviariamos el comando para que actualizara la IP y asignariamos la IP a la variable GLOBAL.

Asi no le meteriamos CARGA a la BD..

Saludos..

[seoane]

Oye y cual es la principal funcion de tener las IPS de tus clientes, son para que te puedas conectar a ellos, o a algun SERVIDOR,  me gustaria saber un poco de tu necesidad. resulta interesante.

Pues algunos tienen instalado vnc, otros tienen abierto el puerto de la base de datos, pero en la mayorí­a de los casos necesitamos saber las ips para configurar la comunicación entre las centrales y las tiendas. Estas ips son fijas, o al menos se contrataron así­*, y no deberí­an de cambiar nunca pero a veces hay problemas y tener controladas todas la ips ayuda a localizar el problema mas rápidamente.

*A un cliente los de telefónica le llegaron a decir que no le podí­an poner una ip fija que ahora solo contrataban Ips seudofijas  ... lo que hay que oí­r 

Esta genial, solo habria que optimizar para no repetir constantemente el ENVIO del comando de actualizacon, lo que hariamos seria crear una variable global que grabe el valor de la IP enviada, y modificando el codigo PHP para que por medio de un parametro nos devuelva la IP, una vez conocida la IP la comparariamos con la IP Enviada en caso que fuera distinta entonces enviariamos el comando para que actualizara la IP y asignariamos la IP a la variable GLOBAL.

En principio no es un numero lo bastante grande para que mi alojamiento se vea sobrecargado, por eso lo mantengo lo mas simple posible. En caso de cambiarlo, lo primero que harí­a seria utilizar algún tipo de cifrado o autenticación para evitar que algún gracioso pueda utilizar una identificación que no le corresponde.

[pcicom]

Generalmente yo tengo el mismo de los casos, en los cuales requiero conocer las IPs de mis CLIENTES, pero a todos mis clientes les tengo implementado servidores LINUX para mantener enlaces entre sucursales, lo que me facilita mucho un codigo similar al que tu escribiste,

http://MIDOMINIO.COM/checkip.php

<?
	$id=  $_GET[id];	
	$ip  = getenv("REMOTE_ADDR");
	if (!isset($id)) {
		echo "$ip";
  	    exit;
	}
	
	require 'configuracionmysql.php';
	$link = mysql_connect($dbhost, $dbuser, $dbpass);
	$qry_update = "UPDATE clientes SET ip='$ip',ip_fecha=current_timestamp WHERE cliente=$id";
	$result = mysql_db_query($dbname, $qry_update, $link);		
 	mysql_close($link);
?>

Y un archivo que ejecuto con un CRON cada minuto 1,16,31,45 escrito en PERL el cual me actualiza la IP de mi cliente al cual le tengo asignado su ID..

[perl]
#!/usr/bin/perl -w
unlink("/var/log/ipnew");

system("lwp-request -a http://MIDOMINIO.COM/checkip.php >/var/log/ipnew");
#Detectar por INTERFASE
$cambios = system("diff /var/log/ipnew /var/log/ipold >/dev/null");
if ($cambios == 0) {
  exit;
}
system("cp /var/log/ipnew /var/log/ipold");
system("lwp-request -a http://MIDOMINIO.COM...p.php?id=AB7683 >/var/log/ipnew");
[/perl]


Esto lo tengo implementado desde YA hace casi 5 añitos.. y me ha ayudado enormemente..