Re: perl and md5 crypt
* john (johnpf@atnet.net.au) [Jan 13. 2002 21:10]:
> Brian Clark wrote:
[...]
> > -------[ perl ] --------
> > for(0 .. 7) {
> > $salt .= join '', ('.', '/', 0..9,'A'..'Z', 'a'..'z')[rand 64];
> > }
> > $password = crypt($password,'$1$' . $salt . '$');
> > ------------------------
> > I *think* that's how I did it once. It might actually work.
> Isnt that how the man page says to do it?
Which man page?
--
Brian Clark | Debian GNU/Linux: 3950 packages to keep you busy.
Fingerprint: 07CE FA37 8DF6 A109 8119 076B B5A2 E5FB E4D0 C7C8
Freedoms precious metals, gold, silver and lead.
Reply to: