This is an little example how to generate some password with numbers,lower letter, upper letter and some special chars in Perl :
|
1 2 3 4 5 6 7 8 9 10 11 12 |
use strict; print randPW(join("",0..9),3). randPW(join("",'A'..'Z'),4). randPW(join("",'a'..'z'),4). randPW("+-*:;!@",3).$/ for(0..10); sub randPW { my @arr = glob(("{".join(",",split("",$_[0]))."}")x$_[1]); return($arr[int rand($#arr)]) } |
Some random passwords:
|
1 2 3 4 5 6 7 8 9 10 11 |
728UEJXjltw+!+ 019PBRPzsgm+-+ 266MQSDizmg:!: 327YNEXqsgt:@: 183XTANfktm;-; 812BMXEpbwz::; 108TAFJbcve;+! 288SMLIbqko!!@ 393JTJXoktj--: 702IKLHfetm++! 875VQUKmsyy+;: |
Its such as you learn my mind! You appear to know a
lot about this, like you wrote the guide in it or
something. I believe that you simply can do with a few percent to power the message home a bit, however instead of
that, this is wonderful blog. An excellent read. I’ll certainly be back.
I think the admin of this site is really working hard in support of
his site, for the reason that here every stuff is quality based stuff.
What a material of un-ambiguity and preserveness of precious knowledge concerning unexpected feelings.