Convertir IP al nombre relacionado y viceversa

[[seoane]]

Solo añadir que para que el codigo anterior funcione hay que inicar winsock primero. Quedaria algo asi:

Código Delphi [-]
function IPToHost(IP: string): string;
var
  WSADATA: TWSADATA;
  He: PHostEnt;
  Addr: Integer;
begin
  Result := IP;
  if WSAStartup(MAKEWORD(1, 1), WSADATA) = 0 then
  begin
    Addr := inet_addr(PChar(IP));
    He:= gethostbyaddr(@Addr, SizeOf(Addr), AF_INET);
    if He <> nil then Result := He^.h_name;
    WSACleanup();
  end;
end;

Lo he probado y si le pongo la ip de mi maquina, por ejemplo, me devuelve el nombre del equipo pero si pongo la ip de google no me devuelve nada.

EDITO: Si pongo la ip 212.34.137.175 me devuelve "clubdelphi.net" asi que debe de funcionar

[OSKR]

En eso tienes razón, de lo contrario daría este error: WSANOTINITIALISED, pero aún no puedo resolver el IP dado el nombre, claro!! con el gethostbyname

[Mick]

Solo comentar que el que no funcione con google o con otros servidores no es un problema del codigo, simplemente esto significa que google en sus DNS no habra definido el registro en su zona inversa, de modo que no es posible saber el nombre a partir de la IP.

Otra cosa a tener en cuenta es que es posible que la funcion devuelva un nombre distinto al que esperariamos, eso es debido a que una misma IP puede tener muchos nombres distintos.

Saludos

[OSKR]

Mick:

eso es debido a que una misma IP puede tener muchos nombres distintos

? Será un nombre...muchas IP's....no se como sería lo contrario

[arima]

les doy gracias por la ayuda que me prestan muchachos, probare todas sus sugerencias y les aviso si se pudo o no

gracias idolos

[Mick]

Empezado por OSKR

Mick:

? Será un nombre...muchas IP's....no se como sería lo contrario

Si contratas espacio web en cualquier empresa de hosting virtual, veras que tu web se instalará en un ordenador que es compartido por muchas otras webs y clientes, de modo que en una misma IP, tendria muchos nombres distintos.
Por ejemplo, supongamos que clubdelphi estuviese en un host virtual, entonces;

www.clubdelphi.com
www.loquesea.com
www.pepito.es

Todos esas webs podrian estar alojadas en la misma IP.

Haces un ping a www.clubdelphi.com y ves que la IP es pongamos por ejemplo (no es cierto): 231.23.34.11

Pues luego podriamos pensar que si hacemos lo contrario, es decir pedir el nombre de 231.23.34.11, deberia salir:
www.clubdelphi.com,
Pues lo mas probable es que te saliese algo del estilo:
servidor1.empresadehostlaquesea.com
Que no tiene nada que ver con www.clubdelphi.com.

Y ni siquiera es necesario que la web este en un host virtual, es comun que quien tenga un servidor tenga en el mismo equipo distintos servicios, y haya dado de alta distintos nombres para la misma ip, por jemplo.

www.clubdelphi.com
mail.clubdelphi.com
ftp.clubdelphi.com

Todos podrian estar apuntando a la misma, ip, al mismo ordenador.


Saludos

[EveElgrande]

Amigos, yo no se mucho de esto...pero no se podría hacer que dada la dirección IP se obtenga todos los servicios de internet asociados al equipo con dicha IP...

[[seoane]]

Empezado por EveElgrande

Amigos, yo no se mucho de esto...pero no se podría hacer que dada la dirección IP se obtenga todos los servicios de internet asociados al equipo con dicha IP...

Para eso se utiliza un escaner de puertos, que básicamente busca puertos abiertos. Algunos van mas allá e intentan adivinar para que se utiliza ese puerto, para ello prueban con los protocolos mas habituales http, ftp, etc... y analizan la respuesta del servidor.

Si quieres hacer algo parecido desde delphi, la primera parte es sencilla. Utilizando TidTCPClient de Indy, TClientSocket o cualquier otro similar en un bucle puedes intentar establecer una conexión con cada uno de los puertos de una lista, averiguando así si están abiertos o no. Lo segundo, averiguar para que sirve cada puerto ya es algo mas difícil, podemos suponer que el 80 es para http pero puede que lo estén utilizando para cualquier otra cosa y que para http usen el 6000, por eso hay que hacer pruebas con varios protocolos.

[EveElgrande]

Empezado por EveElgrande

Amigos, yo no se mucho de esto...pero no se podría hacer que dada la dirección IP se obtenga todos los servicios de internet asociados al equipo con dicha IP...

¿Se podrá hacer esto...?

[EveElgrande]

Hola Seoane hace falta, si tienes un ejemplo de esto a mano por favor tíralo para acá...

[Mick]

Solo comentar, que en algunos paises hacer un scaneo de puertos sobre una computadora ajena sin permiso es ilegal, asi que cuidadin.

Saludos