Dag Jeroen en Johan,
Dank voor het vlotte antwoord. Ik ga voor de OOo zo eenvoudige oplossing van
Jeroen. Het antwoord van Johan zal wellicht heel bruikbaar zijn, maar dan
voor ervaren techneuten. Mijn kennis is eerder beperkt en dus begrijp ik
geen snars van wat er staat. De fout ligt dus wel degelijk bij mij en niet
bij u Johan.
Ik dacht eerder aan een aantal kolommen (A,B,C,D,E,F,.....) met daarin
gegevens (voorbeeld 2 kolommen met het alfabet in hoofdletters, 2 kolommen
met het alfabet in kleine letters, 2 kolommen met cijfers, 2 kolommen met
speciale tekens) en vervolgens in de cellen van een laatste kolom calc
automatisch een mengeling van de gegevens uit de andere kolommen laten
plaatsen om zo telkens in iedere cel een reeksje van 8 willekeurige tekens
te bekomen. Klinkt dit gek? Ben ik gek?
Maar uiteraard is de oplossing die ik hier van Jeroen kreeg ruim voldoende.
Op 01 Feb 2008 11:56:36 +0100 heeft Johan Vromans <[EMAIL PROTECTED]> het
volgende geschreven:
>
> "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]
>
>
--
Vriendelijke groeten,
Johny
Ik ben een fervent OpenOffice.org gebruiker.
OpenOffice.org is subliem, legitiem en kost geen centiem
