RE: crypted form

in reply to crypted form

A couple of observations:

The arguments of srand are not really that random, and quite easy to predict. The documentation for srand suggests using
```
srand( (time() ^ ($$ + ($$ << 15)) );
[download]
```
or simply not using srand, since the default seed now is something better than time().
You are not using all the possible characters for the salt. According to the man page for crypt (in Solaris, at least) the salt is chosen from the set (a-zA-Z0-9./). So you would need to use
```
$random=join("", 'a'..'z','A'..'Z','0'..'9','.','/');
[download]
```
or better yet, replace the for loop with:
```
@r=('a'..'z','A'..'Z','0'..'9','.','/');
$salt=$r[rand(@r)].$r[rand(@r)];
[download]
```

Comment on RE: crypted form Select or Download Code

In Section Cool Uses for Perl