Discussion :

[TigreRouge]

Bonjour à tous,

Je souhaiterai faire un PING SWEEP (autrement appelé ICMP scanning je crois) en Perl.

Actuellement, je scanne une plage IP de classe C pour remonter les équipements alive, en faisant successivement un ping ICMP (ou UDP) sur chaque adresse. C'est comme vous pouvez l'imaginer assez long...

J'ai vu qu'il existait une méthode le ping sweep pour ça. La méthode consiste, d'après ce que j'ai pu lire, à lancer une requête ping sur une machine A, puis de passer à la machine suivante, sans attendre le retour du premier ping. Cela permet d'accélérer considérablement le processus.

Je présume que cela doit être possible également en Perl (peut-etre un module quelque part?) mais je n'ai pas trouvé malgré mes recherches


Voilà, si vous avez une idée, si vous avez déjà utilisé le ping sweep en Perl, merci d'avance de me donner un petit coup de main!

PS : J'ai posté ce même message dans la section "développement réseau", je ne sais pas trop où mettre mon message!

[Jedai]

Le module Net:ing (qui fait partie de la librairie standard) te permet de faire ça facilement, voici un exemple tiré de la doc qui montre la technique :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    # Like tcp protocol, but with many hosts
    $p = Net::Ping->new("syn");
    $p->{port_num} = getservbyname("http", "tcp");
    foreach $host (@host_array) {
      $p->ping($host);
    }
    while (($host,$rtt,$ip) = $p->ack) {
      print "HOST: $host [$ip] ACKed in $rtt seconds.\n";
    }

Avec le protocole "syn" (spécifié dans le new()), le ping() envoie simplement un paquet 'syn' à $host, puis retourne immédiatement. ack() permet d'attendre qu'un destinataire quelconque réponde.

--
Jedaï

[TigreRouge]

Bonjour,


Effectivement, je ne l'avais pas vu.. Par contre, cela marche pour le moment très aléatoirement...
J'ai un tableau d'adresse IP avec parmi celles ci 4 IP de machines "alive" et le script me les détecte parfois et parfois pas...

J'ai mis un timeout à 5s au cas où mais tjs pareil...

A quoi sert cette ligne?

Code :

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

    $p->{port_num} = getservbyname("http", "tcp");

Je n'en comprends pas tout à fait la signification...