Makedict.pl

script

#!/usr/bin/perl -w

use strict;

my $password ;

# a big list:
#my @chars = qw( !  "     $  %  &  '  (  )  *  +     -  .  / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  [  \  ]  ^  _  ` a b c d e f g h i j k l m n o p q r s t u v w x y z  {  |  }  ~);
#push ( @chars , '#' ) ;
#push ( @chars , ',' ) ;

my @chars = qw(0 1 2 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z);

print $#chars+1 ."\n";

foreach my $one   (@chars) {
foreach my $two   (@chars) {
foreach my $three (@chars) {
foreach my $four  (@chars) {
foreach my $five  (@chars) {
foreach my $six   (@chars) {
foreach my $seven (@chars) {
foreach my $eight (@chars) {
    print $one.$two.$three.$four.$five.$six.$seven.$eight."\n";
} } } } } } } }