Manejo de subredes

[paquechu]

Buenas,
No estoy muy fuerte en redes y necesito una función en delphi que sea capaz de devolver verdadero o falso si dada una dirección IP, una subred y una Mascara de red, dicha IP pertenece a esa subred.

Alguien puede echarme una mano con este tema?

Un saludo y gracias.

[Casimiro Notevi]

¿Y en qué parte tienes el problema?, ¿dónde está tu código?

[paquechu]

Hola Casimiro.
Pues aqui lo pongo, es una adaptación que he hecho de una funcion en PHP que se supone que debe funcionar pero que me da la impresión que no.
Un saludo.

function ip_pertenece_a_red(str_ip, str_rango:string):bool;
var
str_red, str_mascara: String;
mascara, inf, sup, red, ip: LongWord;
p: integer;
begin
// Extraer la red y mascara
p:=pos('/',str_rango);
if p=0 then
begin
str_red:=str_rango;
str_mascara:='';
end else if p>=1 then
begin
str_red:=copy(str_rango,1,p-1);
str_mascara:=copy(str_rango,p+1);
end;

if str_mascara='' then
mascara:=$FFFFFFFF
else if pos('.',str_mascara)=0 then
mascara := $FFFFFFFF shl (32 - StrToInt(str_mascara))
else
mascara := ip2long(str_mascara);

ip := ip2long(str_ip);
red := ip2long(str_red);
inf := red and mascara;
sup := red or ( (not mascara) and $FFFFFFFF);

Result := (ip>=inf) and (ip<=sup);
end;


function ip2Long(IP : string) : LongWord;
var
IPaddr : array[1..4] of integer;
temp : string;
res : Longword;
i : integer;

begin
temp := ip;
temp := temp + '.';
for i := 1 to 4 do
begin
ipaddr[i] := strtoint(copy(temp,1,pos('.',temp) - 1));
delete(temp,1,pos('.',temp));
end;
// Check the IP
for i := 1 to 4 do
begin
try
inttostr(ipaddr[i]);
except
result := 0; //'Invalid IP address.';
exit;
end;
end;

res := (ipaddr[1] * $FFFFFF) + ipaddr[1] +
(ipaddr[2] * $FFFF) + ipaddr[2] +
(ipaddr[3] * $FF) + ipaddr[3] +
(ipaddr[4]);
//result := IntToStr(res);
Result:=res;
end;

[Casimiro Notevi]

Bien, pero qué problema tienes.

[paquechu]

Pues que estoy dando palos de ciego.
Yo no tengo conocimiento sobre redes suficientes como para hacer una funcion que al pasarle como parametro una IP, una SUBRED y una MASCARA me diga si la IP pertenece a la subred.
Entonces estoy buscando por internet codigo que haga esto, pero no doy con la tecla al parecer y lo que te he puesto es un codigo que no me funciona porque no se si la logica que hay dentro es la correcta ya que como te digo no conozco bien como funciona el subneting....
Saludos.

[ecfisa]

Hola paquechu.

No respondí el mensaje IP Dentro de una red (http://www.clubdelphi.com/foros/showthread.php?t=82940) por que no había entendido cuál era la finalidad de la función php, según entiendo ahora, es comprobar si una dirección IP pertenece a determinada Red.

Estuve leyendo un poco al respecto (Direccion IP (http://es.wikipedia.org/wiki/Direcci%C3%B3n_IP)) e hice unas pruebas y hasta donde ví la funcion parece trabajar bién.

// Devuelve True si pertenece o False de lo contrario
function IsIPBelongsToNet(sIP, sRed: string): Boolean;
var
Mask, IP, Red: LongWord;
TS : TStrings;
i : Integer;
begin
Mask := $FFFFFFFF;
i := Pos('/', sIP);
if i <> 0 then
begin
Mask := $FFFFFFFF shl (32 - StrToInt(Copy(sIP, i+1, MaxInt)));
Delete(sIP, i, MaxInt);
end;
TS := TStringList.Create;
try
// dirección IP
ExtractStrings([' ','.'], [], PChar(sIP), TS);
IP := StrToInt(TS[0]);
for i:= 1 to TS.Count-2 do
begin
IP := IP or StrToInt(TS[i]);
IP := IP shl 8;
end;
IP := IP or StrToInt(TS[TS.Count-1]);

// Red
TS.Clear;
ExtractStrings([' ','.'], [], PChar(sRed), TS);
Red := StrToInt(TS[0]);
for i:= 1 to TS.Count-2 do
begin
Red := Red or StrToInt(TS[i]);
Red := Red shl 8;
end;
Red := Red or StrToInt(TS[TS.Count-1]);

Result := (IP and Mask) = (Red and Mask);
finally
TS.Free
end
end;


Ejemplo de uso:

procedure TForm1.Button1Click(Sender: TObject);
const
CLASE_A = '/8';
CLASE_B = '/16';
CLASE_C = '/24';
begin
// direccionamiento con clase
if IsIPBelongsToNet('192.168.1.80'+CLASE_C, '192.168.2.0') then
ShowMessage('pertenece a la red')
else
ShowMessage('no pertenece a la red');

// direccionamiento sin clase
if IsIPBelongsToNet('10.100.40.30/11', '10.127.0.0' ) then
ShowMessage('pertenece a la red')
else
ShowMessage('no pertenece a la red');
end;

Espero que al menos te oriente por donde empezar...

Saludos. :)

[paquechu]

Hola de nuevo ecfisa,
Pues voy a probar a ver que tal.
Muchisimas gracias. :-)

[paquechu]

Bueno, por lo que veo has diseñado la funcion añadiendo la mascara a la IP aunque la mascara yo necesito que este en la parte del parametro red.
Este es el codigo PHP (je,je no C) que puse en el otro post que comentas. El primer parametro es la ip y el segundo es la red y mascara.
voy a ver si consigo entender tu código.

Gracias de nuevo :-)

/**
* Devuelve TRUE si la dirección IPv4 dada pertenece a la subred indicada, FALSE si no
*
* @param string $str_ip Dirección IP en formato '127.0.0.1'
* @param string $str_rango Red y máscara en formato '127.0.0.0/8', '127.0.0.0/255.0.0.0' o '127.0.0.1'
* @return bool
*
* @version v2011-08-30
*/
function ip_pertenece_a_red($str_ip, $str_rango)

[ecfisa]

Bueno, por lo que veo has diseñado la funcion añadiendo la mascara a la IP aunque la mascara yo necesito que este en la parte del parametro red.
Este es el codigo PHP (je,je no C) que puse en el otro post que comentas. El primer parametro es la ip y el segundo es la red y mascara.

Ha, pero eso es muy simple de solucionar...


function IsIPBelongsToNet(sIP, sRed: string): Boolean;
var
Mask, IP, Red: LongWord;
TS : TStrings;
i : Integer;
begin
Mask := $FFFFFFFF;
i := Pos('/', sRed);
if i <> 0 then
begin
Mask := $FFFFFFFF shl (32 - StrToInt(Copy(sRed, i+1, MaxInt)));
Delete(sRed, i, MaxInt);
end;
TS := TStringList.Create;
try
// dirección IP
ExtractStrings([' ','.'], [], PChar(sIP), TS);
IP := StrToInt(TS[0]);
for i:= 1 to TS.Count-2 do
begin
IP := IP or StrToInt(TS[i]);
IP := IP shl 8;
end;
IP := IP or StrToInt(TS[TS.Count-1]);

// Red
TS.Clear;
ExtractStrings([' ','.'], [], PChar(sRed), TS);
Red := StrToInt(TS[0]);
for i:= 1 to TS.Count-2 do
begin
Red := Red or StrToInt(TS[i]);
Red := Red shl 8;
end;
Red := Red or StrToInt(TS[TS.Count-1]);

Result := (IP and Mask) = (Red and Mask);
finally
TS.Free
end
end;


La llamada ahora tendría que ser

procedure TForm1.Button1Click(Sender: TObject);
const
CLASE_A = '/8';
CLASE_B = '/16';
CLASE_C = '/24';
begin
// direccionamiento con clase
if IsIPBelongsToNet('192.168.1.80', '192.168.2.0'+CLASE_C) then
ShowMessage('pertenece a la red')
else
ShowMessage('no pertenece a la red');
// direccionamiento sin clase
if IsIPBelongsToNet('10.100.40.30', '10.127.0.0/11' ) then
ShowMessage('pertenece a la red')
else
ShowMessage('no pertenece a la red');
end;


Saludos.:)

[paquechu]

Buenas noches,
Creo que no funciona correctamente ecfisa, según compruebo con una utilidad para manejo de redes que adjunto en este post.
He creado un proyecto con el código que me has proporcionado, el proyecto se llama ippertenecered, el otro archivo es la utilidad que comentaba y que incluyo por si a alguien le puede servir.
Un saludo :-)
Paco.

EDITO: Me lo baje de aqui: http://www.4shared.com/rar/nyNEXued/SolarWinds-Subnet-Calculator.html

[ecfisa]

Hola paquechu.

¿ Podrías poner algunos ejemplos de IP's / Redes con las cuáles no funcionó ? (me interesaría revisar el código con ellos)

Saludos. :)

[paquechu]

Hola,
En el proyecto que he adjuntado hay un ejemplo (el primero) que deberia funcionar y otro (el segundo) que no.
Por otro lado con la utilidad que he puesto en el enlace puedes manejar los rangos de red, que es como lo he hecho yo. Ya que como comentaba al principio estoy un poco pez con las redes.... :-)
Saludos y gracias nuevamente.

[ecfisa]

Hola de nuevo.

Estuve probando la aplicación que adjuntas y no se contradicen.

Por ejemplo con:
http://img12.imageshack.us/img12/3416/ipred.jpg

Obtenemos el mismo resultado que con:

if IsIPBelongsToNet('122.137.0.115', '122.137.0.0/24') then
Label1.Caption:= 'La IP pertenece a la red'
else
Label1.Caption:='La IP no pertenece a la red';

if IsIPBelongsToNet('122.213.17.1', '122.0.0.0/8' ) then
Label2.Caption:= 'La IP pertenece a la red'
else
Label2.Caption:='La IP no pertenece a la red';


Saludos. :)

[paquechu]

Hola,
En los ejemplos que yo he puesto:

para la IP: 122.137.0.1 y Mascara: 255.255.0.0/16 la funcion deberia devolver que SI pertenece a la subred porque para esa IP el rango que marca la Mascara va desde 122.137.0.1 a 122.137.255.254, sin embargo devuelve que NO pertenece a la red.

En el segundo caso, para la IP 122.137.0.1 con la mascara 255.255.128.0/17 tambien pertenece a la subred ya que el rango que marca la mascara va desde 122.137.0.1 a 122.137.127.254 pero la funcion tambien devuelve que NO pertenece a la subred.

En el primero de los casos que has planteado la IP 122.137.0.115 y la mascara 122.137.0.0/24 no se si está bien aplicada, en la utilidad de redes que he puesto no la puedo introducir.....

Yo entiendo que si pongo en la mascara en el primer grupo de numeros 255 como la ip comienza en 122 en principio el rango que marca la mascara iria desde 122 hasta 255. No se si esto lo tienes en cuenta.

Gracias.

[ecfisa]

Hola,
En los ejemplos que yo he puesto:

para la IP: 122.137.0.1 y Mascara: 255.255.0.0/16 la funcion deberia devolver que SI pertenece a la subred porque para esa IP el rango que marca la Mascara va desde 122.137.0.1 a 122.137.255.254, sin embargo devuelve que NO pertenece a la red.
Es que la función no contempla que le envíes la máscara como argumento, solo la dirección de la red y la cantidad de bíts que tomara para realizar la comprobación ...

Saludos. :)

[paquechu]

Ok ecfisa, seguiré mirando :)
Gracias.