Makedict random.pl: Difference between revisions

From Federal Burro of Information
Jump to navigationJump to search
(Created page with "<pre> #!/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...")
 
No edit summary
Line 20: Line 20:


</pre>
</pre>
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
#}
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].
</pre>
[[category:script]]

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:

<per>

  1. !/usr/bin/perl -w

use strict;

my $password ;


  1. @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", "{", "", "}", "~" );
  1. @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;

  1. for (my $len = 1; $len < $maxlen; $count++) {
  2. $print
  3. }

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


  1. 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";

} } } } } } } }

  1. print $chars[$one].$chars[$two].$chars[$three].$chars[$four].$chars[$five].$chars[$six].$chars[$seven].