Saber el IP de internet LA SOLUCION !!!

[[seoane]]

Si la pagina que te recominedo deja de estar disponible siempre puedes colocar en un servidor que soporte php un archivo con este contenido:

Código PHP:

<?php echo $_SERVER["REMOTE_ADDR"];?>

Hay servidores gratuitos que soportan php asi que no tendrias problema.

[[seoane]]

Dandole otra vuelta de tuerca al asunto, hay ISP (Proveedores de servicios de internet) que utilizan lo que se denomina proxys transparentes. Es decir, el usuario desconoce su existencia, pero todo el trafico web pasa a traves del proxy, que lo guarda en una cache.

Pues bien para obtener la "verdadera" direccion ip y no la del proxy podemos usar en vez de:

http://dynupdate.no-ip.com/ip.php

Esta otra (observese que es https y no http):

https://dynupdate.no-ip.com/ip.php

En principio el proxy no intercepta las conexiones seguras, no tendria sentido, ya que los datos van encriptados y no serviria de nada guardarlos en una cache. Asi que la conexion es directa.

Se me ocurre incluso que una buena forma de averiguar si se esta detras de un proxy transparente es obtener la ip con la primera direccion (la no segura) y volverla obtener con la segunda direccion, si son diferentes es que hay algo sospechoso. Esto ultimo no lo puedo probar porque mi ISP ya ha dejado de usar el proxy-cache, pero lo dejo por si alguien tiene curisosidad.

[RJF]

Gracias, buen dato.
Con todo esto creo que ha quedado claro el mitico tema de como obtener el ip de internet, esto esta mas que claro, pero si alguien tiene otra duda que pregunte nomas

[tulio]

Hola RJF

Gracias por tu colaboracion, te cuento que probe el codigo y al reinventar el formulario con los componentes me da algunos errores, mi pregunta es si podes publicar el proyecto con el formulario que tenga los componentes del codigo que escribiste.

Muchas Gracias

tulio

[email protected]

[RJF]

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IDStack, StdCtrls, Buttons, OleCtrls, SHDocVw, ActiveX, WinInet, Winsock;
type
  TForm1 = class(TForm)
    WebB: TWebBrowser;
    TxtDireccion: TEdit;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn2: TBitBtn;
    Button1: TButton;
    Edit1: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure WebBDocumentComplete(Sender: TObject; const pDisp: IDispatch;
      var URL: OleVariant);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function WebBrowerDocumentSource(webBrowser: TWebBrowser) : string;
  end;
var
  Form1: TForm1;
implementation

les dejo la cabecera del proyecto para que vean las unidades utilizadas, realizado en Delphi 7