Codigo para detectar la IP Real

[Vultur]

Hola

En base a lo publicado http://www.clubdelphi.com/foros/show...highlight=real por Hector hice una version para Builder C++. Estoy trabajando con la version 6.0

En el cliente pongo Host: www.zoneedit.com y 80 como puerto.

Luego pongo el siguiente codigo:

void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
	  TCustomWinSocket *Socket)
{
  ClientSocket1->Socket->SendText("GET /checkip.html HTTP/1.1\r\n");
  ClientSocket1->Socket->SendText("Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-shockwave-flash, */*\r\n");
  ClientSocket1->Socket->SendText("Accept-Language: es-ar\r\n");
  ClientSocket1->Socket->SendText("Accept-Encoding: gzip, deflate\r\n");
  ClientSocket1->Socket->SendText("User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)\r\n");
  ClientSocket1->Socket->SendText("Host: www.zoneedit.com\r\n");
  ClientSocket1->Socket->SendText("Connection: Keep-Alive\r\n\r\n");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
	  TCustomWinSocket *Socket)
{
  int pos, cont;
  String text,DirIP;
  text = ClientSocket1->Socket->ReceiveText();
  if(pos = text.Pos("Current IP Address: ")){
	DirIP =text.SubString(pos+20, 16); //Me aseguro que cubra desde una IP 1.1.1.1 a 255.255.255.255
	pos = DirIP.Pos("\r");
	text=DirIP.SubString(1,pos-1);
	Memo1->Text = text;
  }
}
//---------------------------------------------------------------------------

Asi obtengo la IP de la maquina. Esto se podria adaptar a otros lugares que publican la IP propia facilmente.

El codigo que se le envia al servidor de HTTP lo saque creando un server y vendo que le enviaba el navegador para obtener una respuesta. Seguramente hay cosas que se pueden sacar, pero como no se nada de HTTP no me puse a probar.

Saludos

Luis