Manejo de subredes
 

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.

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

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.

Código Delphi [-]
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;

Bien, pero qué problema tienes.

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.

Hola paquechu.

No respondí el mensaje IP Dentro de una red 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) e hice unas pruebas y hasta donde ví la funcion parece trabajar bién.

Código Delphi [-]
// 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:

Código Delphi [-]
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. :)

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

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 :-)

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

Código Delphi [-]
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

Código Delphi [-]
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.:)

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/...alculator.html

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. :)

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.

Hola de nuevo.

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

Por ejemplo con:


Obtenemos el mismo resultado que con:

Código Delphi [-]
 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. :)

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.

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. :)

Ok ecfisa, seguiré mirando :)
Gracias.