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 -- To unsubscribe from this list go to the following URL and read the instructions: https://lists.samba.org/mailman/listinfo/samba
