ward/publicscripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

improve

Browse source
This commit is contained in:
Ward Wouts 2008-06-03 11:01:20 +00:00
parent 1226e31323
commit 681f9e258e
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
pwdmake/pwdmake
View file

@ -1,6 +1,8 @@
#!/usr/bin/perl -w
@chars=( "A" .. "Z", "a" .. "z", 0 .. 9, qw(! @ $ % ^ & *) );
# Geen I L O i l o 0 1
@chars=( "A" .. "H", "J", "K", "M", "N", "P" .. "Z", "a" .. "h", "j", "k", "m", "n", "p" .. "z", 2 .. 9, qw(! @ $ % ^ & *) );
foreach ( 1 .. 8 ) {
$passwd = join("", @chars[ map { rand @chars } ( 1 .. 8 ) ]);
print "$passwd\n";