samba - Feb 2005 - NTLM hash

I'm looking at the NTLM hash, I need to make my own.
I was going to look at somehow using libsmb or something but don't 
really know how to.  Can I do this in perl?  I can make Unicode scalars 
and send those to md4_hex() to get the output, but I cannot get 
something to match what shows up in the /etc/samba/private/smbpasswd 
file.  Ideas?  Currently I try this:

#!/usr/bin/perl -w

use strict;
use Digest::MD4 qw(md4_hex);
use Unicode::Map;

my $map = new Unicode::Map("ISO-8859-1");
print md4_hex($map->to_unicode("password"));
print "\n";

# end

/djb

Hi,

Are there smbtorture binary which can run on Window environment?
Is it available to build the binary for Win32 from the source?

Bo

On Mon, 2005-02-07 at 17:31 -0800, David Busby wrote:
> I'm looking at the NTLM hash, I need to make my own.
> I was going to look at somehow using libsmb or something but don't 
> really know how to.  Can I do this in perl?  I can make Unicode scalars 
> and send those to md4_hex() to get the output, but I cannot get 
> something to match what shows up in the /etc/samba/private/smbpasswd 
> file.  Ideas?  Currently I try this:
The password is in UCS2-LE before the MD4, but it might be easiest to
use the Crypt::SmbHash perl module.  

Andrew Bartlett

-- 
Andrew Bartlett                                http://samba.org/~abartlet/
Authentication Developer, Samba Team           http://samba.org
Student Network Administrator, Hawker College  http://hawkerc.net
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: This is a digitally signed message part
Url :
http://lists.samba.org/archive/samba/attachments/20050208/92420202/attachment.bin