0: Good for creating passwords for .htpasswd files or for any other *nix password file:
1: 
2: <CODE>
3: sub mkpasswd{
4:   my($plaintextpass)=@_;
5:   my($salt1, $salt, $encrypted);
6: 
7:   $salt1 = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789./'; 
8:   $salt = substr($salt1,rand(length($salt1)),1);
9:   $salt .= substr($salt1,rand(length($salt1)),1);
10:   $encrypted = crypt($plaintextpass, $salt);
11: 
12:   return $encrypted;
13: }
14: </CODE>