Manejo de subredes

[ecfisa]

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.

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

Código PHP:

/**
 * 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]

Empezado por 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.

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.

[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/...alculator.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:


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.