Ok, here is the script - nice and easy:
Code:
#!/usr/bin/perl -w
# This is the name of the file with all your random filenames in
$filenames = "names";
# Max size for created files (Mb)
$maxsize = 50;
open(NAMES, $filenames) || die "Cannot open $filenames for reading\n";
foreach(<NAMES>)
{
chomp();
$size = int(rand($maxsize));
`dd if=/dev/zero of=$_ bs=1024k count=$size`;
}
close(NAMES);
In the same directory as you have this script, create a file called 'names'. In that file put the list of filenames you want to create, for example my test names file looks like:
Code:
filename1.exe
whatever.exe
musthaveapp.exe
As it stands, the script will create files with the names in that list up to 50Mb in size. To make the max size smaller or bigger, alter the number in the line:
$maxsize = 50;
So if you want 100Mb max size, change the 50 to a 100. If you want a Gb file change it to 1000.
Hope that helps you out - I have tested the script and it works fine
Don't forget me when you make the first million dollars!!
08-15-2008, 05:30 AM
Similar Threads
or if you just want really random names (eg 2gy23jk.exe or something) thats easy to do as well
Linear Mode
