The problem is the returned salt, while the freebsd man pages asks that the

crypt salt string begin with a '_', no other crypt's do.  If you remove the
initialization of $salt to '_' in sub salt(), everything works as advertised.
Submitted by:	Charles Henrich <henrich@crh.cl.msu.edu>
This commit is contained in:
Jordan K. Hubbard 1995-05-20 13:05:22 +00:00
parent 8568ba4e73
commit 7b74963e46
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/head/; revision=8644

View File

@ -32,7 +32,7 @@
#
# Email: Wolfram Schneider <wosch@cs.tu-berlin.de>
#
# $Id: adduser.perl,v 1.5 1995/04/09 03:34:10 ache Exp $
# $Id: adduser.perl,v 1.6 1995/04/30 19:20:25 ache Exp $
#
# read variables
@ -796,7 +796,7 @@ sub uniq {
# see /usr/src/usr.bin/passwd/local_passwd.c or librcypt, crypt(3)
sub salt {
local($salt) = '_'; # initialization
local($salt); # initialization
local($i, $rand);
local(@itoa64) = ( 0 .. 9, a .. z, A .. Z ); # 0 .. 63