Re: Generating encrypted passwords

2001-07-10 Thread Mike Tancsa
At 10:01 PM 7/10/01 +0900, HIRATA Yasuyuki wrote: > > What about a > > srand (time ^ $$ ^ unpack "%L*", `ps -auxw | gzip`); > > > > at the start of your program > >If you use perl 5.005 or later, it's better to call srand without seed >or not to call srand at all. See perldoc -f srand for detail.

Re: Generating encrypted passwords

2001-07-10 Thread Walter Campbell
A DES (and MD5) salt (and the rest of the hash) can contain a-z A-Z 0-9 . and / To Unsubscribe: send mail to [EMAIL PROTECTED] with "unsubscribe freebsd-stable" in the body of the message

Re: Generating encrypted passwords

2001-07-10 Thread HIRATA Yasuyuki
Hi, From: Mike Tancsa <[EMAIL PROTECTED]> To: Jim Weeks <[EMAIL PROTECTED]> Subject: Re: Generating encrypted passwords Date: Tue, 10 Jul 2001 08:23:47 -0400 Message-ID: <[EMAIL PROTECTED]> > What about a > srand (time ^ $$ ^ unpack "%L*", `ps -auxw | gzip`);

Re: Generating encrypted passwords

2001-07-10 Thread Mike Tancsa
What about a srand (time ^ $$ ^ unpack "%L*", `ps -auxw | gzip`); at the start of your program and for the salt, I use this to generate md5 salts which I think I got from cpan IIRC. sub salt { local($salt); # initialization local($i, $rand); local(@itoa64) = ( '