--- /root/ldap-useradmin-lib.pl.original 2004-08-10 15:04:31.000000000 +1000 +++ ldap-useradmin/ldap-useradmin-lib.pl 2004-08-13 11:55:16.000000000 +1000 @@ -150,8 +150,15 @@ { &seed_random(); if ($config{'md5'}) { - &foreign_require("useradmin", "user-lib.pl"); - return &useradmin::encrypt_md5($_[0]); + # Add the password, magic and salt + $cls = "Digest::MD5"; + eval "use Digest::MD5"; + if ($@) { + &error("Missing Digest::MD5 perl module"); + } + $ctx = Digest::MD5->new; + $ctx->add($_[0]); + return $ctx->b64digest . "=="; } else { local $salt = chr(int(rand(26))+65).chr(int(rand(26))+65);