[gebruikers] Re: wachtwoorden samenstellen

[Johan Vromans]

"johny bettens" <[EMAIL PROTECTED]> writes:

> Ik moet op een server een aantal gebruikers aanmaken en zou graag iedere
> gebruiker een wachtwoord toekennen. Ik ben niet zo ervaren in calc, maar ik
> meen dat er ergens een mogelijkheid is om automatisch willekeurige reeksen
> te maken van letters en cijfers en op die manier unieke wachtwoorden te
> genereren. Weet iemand hoe ik dit best aanpak?

Zo, bijvoorbeeld:

+----knip ----
#!/usr/bin/perl

use strict;

my $pwlen = 8;                  # length of password
my $pwcnt = 10;                 # number of passwords

# Generate $pwcnt random passwords.
#
# Each password has $pwlen characters, and consists of at least one
# letter, one digit, and one special character.

my @letters  = split(//, 'ABCDEFGHIJKJLMNOPQRSTUVWXYZ'.
                         'abcdefghijkjlmnopqrstuvwxyz');
my @digits   = split(//, '0123456789');
my @specials = split(//, '[EMAIL PROTECTED]&*())_-+={}[]:;"\'<>,.?/~`');

# Where most password characters come from.
my @any      = ( @letters, @digits);

srand(time);
while ( $pwcnt-- > 0 ) {
    # Start with one character of each category.
    my @pw = (
              $letters[int(rand(scalar @letters))],
              $digits[int(rand(scalar @digits))],
              $specials[int(rand(scalar @specials))],
             );

    # Add arbitrary characters until required length.
    while ( @pw < $pwlen ) {
        push(@pw, $any[int(rand(scalar @any))]);
    }

    # Shuffle/combine.
    my $pw = "";
    while ( @pw ) {
        $pw .= splice(@pw,int(rand(scalar @pw)),1);
    }

    # Print.
    print STDOUT ($pw, "\n");
}
+---- knip ----

-- Johan

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]