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