Manejo de subredes

[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.

[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]

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

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.