Makedict random.pl
From Federal Burro of Information
#!/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"; for (my $count = 0; $count < 300000000; $count++) { print $chars[rand(@chars)].$chars[rand(@chars)].$chars[rand(@chars)].$chars[rand(@chars)].$chars[rand(@chars)].$chars[rand(@chars)].$chars[rand(@chars)].$chars[rand(@chars)]."\n"; }
make ordered dict:
<per>
- !/usr/bin/perl -w
use strict;
my $password ;
- @chars = ( " ", "!", "\"", "#", "\$", "%", "&", "'", "(", ")", "*", "+", ",", "-", ".", "/", "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", "{", "", "}", "~" );
- @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 \{ \| \} \~);
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 $maxlen = 10;
- for (my $len = 1; $len < $maxlen; $count++) {
- }
print $#chars+1 ."\n";
- length = 8
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";
} } } } } } } }
- print $chars[$one].$chars[$two].$chars[$three].$chars[$four].$chars[$five].$chars[$six].$chars[$seven].