#!/usr/bin/perl
#Perl Fuzzer that creates a file of your choosing to test for overflow vulns
# by nullbyt3

use strict;
use warnings;

my $file = $ARGV[0];
if (! $ARGV[0] or ! $ARGV[1]){
usage()
}
my $shit = \"\\x41\" x $ARGV[1];
open(FH, \">$file\");
print FH $shit;
close FH;
print \"overflow File made!\\n\";

sub usage{
print \"perl overflow.pl <file> <bytes>\\n\";
print \"Example : perl overflow.pl crash.torrent 40000\\n\";
exit 1;
}