Discussion :

[yamino]

Bonjour à tous,

Je suis à la recherche de la manière la plus efficace de boucler dans un range d'adresse IP.
Je m'explique :
J'ai 2 adresses IP. Par exemple 192.168.0.1 et 192.168.3.78. Je dois parcourir toute les adresses...
Je cherche l'algorithme le plus efficace pour tout parcourir...
Des idées ?

Merci d'avance...

[Eric Boisvert]

En gros,
Une adresse IP est en fait un nombre non signé 32bits (Longword)

Pour permettre aux humains de mieux travailler,
et aussi permettre aux diffenrent composant d'un
réseau de bien travailler,ce 32bits est découpé
en 4 sections de 8bits (0 à 255)

Certaine valeur sont réservée pour faire
différent travail exemple:
destinantion IP 255.255.255.255=un envoi à tous (broadcast)

donc selon moi, une facon éfficace de faire une boucle entre 2 adresse,
est de convertire les 2 adresses IP en 32bits et d'effectuer une boucle entre ces 2 valeurs:

j'ai fait un exemple de conversion avec tes adresses
(et ici je supose un mask réseau classe B 255.255.0.0):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
procedure TForm1.Button1Click(Sender: TObject);
var
    lwNetworkMask:LongWord;
    lwIpStart:LongWord;
    lwIpStop:LongWord;
    lwNetWorkBroadCast:LongWord;
    i:LongWord;
    IPValide:String;
begin
RichEdit1.Lines.Clear;
//Faudrait bien sur partir d'une chaine de caractère du genre: '192.168.0.1'
//mais bon j'ai fait ca vite un peu...
lwNetworkMask:=longword(255) shl 24
               +longword(255) shl 16
               +longword(0) shl 8
               +longword(0); //IP MASK '255.255.0.0'
lwIpStart:=longword(192) shl 24
           +longword(168) shl 16
           +longword(   0) shl 8
           +longword(   1);//IP depart:'192.168.0.1'
lwIpStop:=longword(192) shl 24
          +longword(168) shl 16
          +longword(3) shl 8
          +longword(78);//IP Arret: 192.168.3.78'
 
//Trouve l'Adress de broadcast= 198.168.255.255
lwNetWorkBroadCast:=(lwNetWorkMask and lwIpStart) or (not lwNetWorkMask);
 
For i:=lwIpStart to lwIpStop do
begin
	// Dernier chiffre IP doit être different de 0
	// et ne fait rien en cas d'adresse de broadcast
	If ( ((i and 255)<>0) and (i<>lwNetWorkBroadCast) ) then
	begin
	      //Reconvertir une adresse IP en format Humain
	      IPValide:= IntToStr((i shr 24) and 255)+'.'
                  +IntToStr((i shr 16) and 255)+'.'
                  +IntToStr((i shr  8) and 255)+'.'
                  +IntToStr(i and 255);
                  RichEdit1.Lines.Add(IPValide);//affiche l'adresse
	end;
 
end;

J'espère le tout conforme...

[Lung]

Certaine valeur sont réservée pour faire
différent travail exemple:
destinantion IP 255.255.255.255=un envoi à tous (broadcast)

Tu veux dire que si j'utilise l'adresse IP XXX.XXX.255.255, ca va envoyer à tous ceux qui ont une adresse commençant par XXX.XXX ?
C'est ce que j'ai fais dans un projet, et j'ai constaté que le résultat était très aléatoire, et au mieux ne touchait que la moitié des adresses IP concernées.
N'y a t'il pas un autre moyen plus fiable ?

[Cl@udius]

Salut,

La méthode d'Eric Boisvert est intéressante, mais on peut également utiliser les fonctions disponibles dans l'unité WinSock.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
uses Winsock;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  I, StartIP, EndIP: Integer;
  InAddr: TInAddr;
begin
  StartIP := ntohl(inet_addr(PChar(EditStartIP.Text)));
  EndIP := ntohl(inet_addr(PChar(EditEndIP.Text)));
 
  Memo1.Lines.Clear;
  for I := StartIP to EndIP do
  begin
    InAddr.S_addr := htonl(I);
    Memo1.Lines.Add(inet_ntoa(InAddr));
  end;
end;

@+ Claudius

[anapurna]

salut

a savoir que les adresse IP dans meme sous reseau sont accessible a l'aide de la combinaison de L'adresse de sous reseau et de reseau

l'adresse de sous reseau permettant de definir des plage au sein meme d'un reseau

@+ Phil

[Eric Boisvert]

Tu veux dire que si j'utilise l'adresse IP XXX.XXX.255.255, ca va envoyer à tous ceux qui ont une adresse commençant par XXX.XXX ?
C'est ce que j'ai fais dans un projet, et j'ai constaté que le résultat était très aléatoire, et au mieux ne touchait que la moitié des adresses IP concernées.
N'y a t'il pas un autre moyen plus fiable ?

Exactement, par contre, des resultats aléatoires j'en doute un peu...incomplet peut-être selon la configuration du reseau.

Des équippement comme des switch sont capable de detecter l'adresse de destination xxx.xxx.255.255 (un broadcast) et de les bloquer. Donc tout PC qui est connecter sur une switch capable de bloquer les broadcasts serons inateignable avec cette méthode.

La méthode d'Eric Boisvert est intéressante,

Merci mais la tienne est encore mieux pour convertire les adresses!
Il faut cependant verifier que le dernier segment de l'adresse ip soit différent
de zéro pour une adresse IP valide...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
procedure TForm1.Button2Click(Sender: TObject);
var
  I, StartIP, EndIP: Integer;
  InAddr: TInAddr;
begin
  StartIP := ntohl(inet_addr(PChar(EditStartIP.Text)));
  EndIP := ntohl(inet_addr(PChar(EditEndIP.Text)));
 
  RichEdit1.Lines.Clear;
  for I := StartIP to EndIP do
  begin
    // Previent les addresse qui ce termine par zero: xxx.xxx.xxx.0
    If  (I and 255)<>0  then
    begin
        InAddr.S_addr := htonl(I);
        RichEdit1.Lines.Add(inet_ntoa(InAddr));
    end;
  end;
end;

[yamino]

Merci à tous pour vous réponse.
C'est exactement ce que je cherchais.

@+