sslug-teknik team mailing list archive
-
sslug-teknik team
-
Mailing list archive
-
Message #19870
Re: Password-generering
Claus Hindsgaul wrote:
>
> 1) generere et godt password til hver bruger på systemet.
>
Genereringen af passworded er let, her er et lille perl script..
----------------------
#!/usr/bin/perl
# Random Generate
#
my $i;
my $rnd_passwd;
my $randum_num;
my @passset;
@passset = ('a'..'k', 'm'..'z', 'A'..'N', 'P'..'Z', '2'..'9');
$rnd_passwd = "";
for ($i = 0; $i < 8; $i++) {
$randum_num = int(rand($#passset + 1));
$rnd_passwd .= $passset[$randum_num];
}
print("Generated: $rnd_passwd\n");
-----------------------
Gem denne program stump, chmod +x den og så skulle den være der.. :-)
Blandet Store og Små bogstaver + Tal.
--
Hilsen \ Sincerely
Lennart Hansen (lennart@xxxx)
The proud author of adduser-qmail
Get it at http://www.the-coffeeshop.dk/~qmail
References