sub GetRandomPassword { my ($passwordlen) = @_; if(!$passwordlen) { $passwordlen = 12; } $OK_CHARS='-a-zA-Z0-9_.@'; $randWord = ""; rand(time); # get first random value out of the way while( length($randWord) < $passwordlen ) { $achar = chr(int(rand(122))); $randWord .= $achar; $randWord =~ s/[^$OK_CHARS]//go; } return $randWord; }
In reply to Re: String randomness
by Anonymous Monk
in thread String randomness
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |