samba - Aug 1998 - Perl code to generate Samba passwd hashes?

Does anyone have perl code that can generate the Samba passwd hashes
from a clear text password?

I'm aware of the smbpasswd command that comes with Samba but that
isn't the best tool for my purposes.  I have a local account
creation/deletion software that already handles encypting the password
to generate unix /etc/passwd files and I need to be able to do the
same for the Samba passwd file as well.

-- 
Marlys A. Nelson                      Sr. Systems Programmer
Information Technology Services       Network Services
University of Wisconsin - River Falls 
410 South Third Street                Email: Marlys.A.Nelson@uwrf.edu
River Falls  WI  54022                http://www.uwrf.edu/

Marlys Nelson wrote:
> 
> Does anyone have perl code that can generate the Samba passwd hashes
> from a clear text password?
> 
> I'm aware of the smbpasswd command that comes with Samba but that
> isn't the best tool for my purposes.  I have a local account
> creation/deletion software that already handles encypting the password
> to generate unix /etc/passwd files and I need to be able to do the
> same for the Samba passwd file as well.
I needed just such a perl module.  I explored creating a perl module,
but in the end opted to create a simple command-line tool called
'gethash'.  You put your password in the environmental var
'SMBPASSWD'
then run gethash.  It outputs the two password hashes on standard
output.  If you would like it I'll send you a patch file.

For example:

# export SMBPASSWD='mypasswd'
# gethash
74AC99CA40DED4204A3B108F3FA6CB6D:F671043BA08E88500D2EB5279AC65E53

Call this from perl, or any other scripting language for that matter, is
trivial.

later,
 -john.

---------------------------------------------------------------------
John D. Blair                                   jdblair@cobaltnet.com
Software Engineer, Cobalt Networks Inc.      http://www.cobaltnet.com
---------------------------------------------------------------------