10 lines
277 B
Perl
Executable file
10 lines
277 B
Perl
Executable file
#!/usr/bin/perl -w
|
|
|
|
# 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";
|
|
}
|