Sure, if ya need help email me
[email protected].
#!/usr/bin/perl
@chars = ("a","b","c","d","e","0","1");
$count = 100;
$length = 10;
for ($z=0;$z<$count;$z++) {
$x = "";
for ($i=0;$i<$length;$i++) {
$x .= $chars[int(rand(@chars))];
}
open(x,">>x.txt");
print x $x."\n";
close(x);
}
just upload to your server and run.
$count is number of strings
$length is string length.
will be saved to a file named x.txt.