# Wordlist generator by manicx and G - http://www.rootshell.com/
# useage "perl wordgen.pl"

system("cls");
print ("\n\t**************************************************");
print ("\n\t*                Wordlist.pl  V0.01              *");
print ("\n\t*                   manicx and G                 *");
print ("\n\t*                29th November 1998              *");
print ("\n\t*    Latest Version www.infowar.co.uk/manicx/    *");
print ("\n\t**************************************************");
sleep 1;
srand(time);
             # an array of the random characters we want to produce
             # remove any you know are not in the password
@c=split(/ */, "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789");

print "\nEnter the name of the output file :";
$word = <STDIN>;
chop ($word);
open (CONF, ">$word") or die print $word, "\n Not Valid Filename Please check. \n";

print "\nAmount of random words :";
$many=<STDIN>;

# we will repeat the following lines $many times i will be splitting
# down the @c array with caps in 1, symbols in 1, lowercase in 1 and
# numbers in 1.

for($i=0; $i <$many; $i +=1)
	{
print CONF 	$c[int(rand(62))], $c[int(rand(62))], $c[int(rand(62))],
		$c[int(rand(62))], $c[int(rand(62))], $c[int(rand(62))],
		$c[int(rand(62))], $c[int(rand(62))]; 
print CONF "\n";
	}

# In the next version i want to be able to give templates as an input
# and build all the combinations in between i.e. the password starts
# with "John" and there are 8 characters and none are numbers or
# uppercase so we can input "john"llll ..

# Below will produce words like bababa99 this was done and can be 
# rearranged a bit as you need before the next version ..........

# @c=split(/ */, "bcdfghjklmnpqrstvwxyz");
# @v=split(/ */, "aeiou");

# {
# print CONF $c[int(rand(21))], $v[int(rand(5))],
#            $c[int(rand(21))], $v[int(rand(5))],
#            $c[int(rand(21))], $v[int(rand(5))],
#            int(rand(10)), int(rand(10));
# print CONF "\n";
# }

# Shouts to G for the orginal idea and version