Makedict random.pl: Difference between revisions

From Federal Burro of Information
Jump to navigationJump to search
No edit summary
No edit summary
 
Line 23: Line 23:
make ordered dict:
make ordered dict:


<per>
<pre>
#!/usr/bin/perl -w
#!/usr/bin/perl -w



Latest revision as of 17:35, 26 February 2023

#!/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:

#!/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
#}

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].