Generating NT MD4 hashes

Sun May 23 17:19:06 GMT 1999

-----BEGIN PGP SIGNED MESSAGE-----

I'm working on a server administration system aimed at k12 school systems
(http://k12admin.cmsd.bc.ca/) and I'm starting to work on the smbpasswd
files.  I need to be able to generate smbpasswd password hashes in a perl
script.  Are there any tools available to do this currently?

Ideally, I'd like something that would let me run:

$p16=p16($plaintext);
$nt_p16=nt_p16($plaintext);

in a perl script.  

These values will then be stored in a database on a central server and
copied to the smbpasswd files on the appropriate school servers as
required.

After further inspection, I might be able to replicate md4.c and smbhash() 
as perl subroutines, but if it's been done before, it would sure save me
some headache. 

Steve Tonnesen.