From 99be2c5964c00650881e7cd79334f2abf91455e1 Mon Sep 17 00:00:00 2001 From: okada Date: Fri, 16 Feb 2001 23:08:01 +0000 Subject: [PATCH] * sasl-ntlm.el(sasl-ntlm-response): self-Hash. --- ChangeLog | 4 ++++ sasl-ntlm.el | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 277a422..1d40a06 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2001-02-17 Kenichi OKADA + * sasl-ntlm.el(sasl-ntlm-response): self-Hash. + +2001-02-17 Kenichi OKADA + * ntlm.el(smb-passwd-hash): Fix `upcase' for XEmacs. 2001-02-17 Kenichi OKADA diff --git a/sasl-ntlm.el b/sasl-ntlm.el index fad2a04..27de282 100644 --- a/sasl-ntlm.el +++ b/sasl-ntlm.el @@ -53,10 +53,11 @@ STEP is a vector [ ]" "SASL step function to generate a NTLM response against the server challenge stored in the 2nd element of STEP. Called from 'sasl-next-step." (let* ((user (sasl-client-name client)) - (passwd-hashes + (passphrase (sasl-read-passphrase (format "NTLM passphrase for %s: " user))) (challenge (sasl-step-data step))) - (ntlm-build-auth-response challenge user passwd-hashes))) + (ntlm-build-auth-response challenge user + (ntlm-get-password-hashes passphrase)))) (put 'sasl-ntlm 'sasl-mechanism (sasl-make-mechanism "NTLM" sasl-ntlm-steps)) -- 1.7.10.4