← Back to team overview

sslug-teknik team mailing list archive

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