NTLM authentication module for IMAP

[岡田 健一 / Kenichi OKADA]

おかだです。

In the message <sg1ysypb86 ＠ opaopa.org>
okada ＠ opaopa.org (岡田 健一 / Kenichi OKADA) wrote:

> いくつか質問があります．

> 2. わたしもところでは、elmo-get-passwd-or-hash でいくつか
>    問題が起りました．
>    hash-func が Non-nil の場合、添付1のようなエラーが出ました．

川岸さんは FSF Emacs をお使いのようですね．

(let* ((passwd "hoge")
       (len (min (length passwd) 14)))
  (concat
   (substring (upcase passwd) 0 len)
   (make-string (- 15 len) 0)))

(let* ((passwd "hoge")
       (len (min (length passwd) 14)))
  (upcase
   (concat
    (substring passwd 0 len)
    (make-string (- 15 len) 0))))

について、FSF Emacs では、どちらも
"HOGE^@^@^@^@^@^@^@^@^@^@"
となりますが、
XEmacs では、2つ目のものは、"HOGE" となるようです．

CVSのslim-1_14のものは直しておきました．

(defun smb-passwd-hash (passwd)
  "Return the SMB password hash string of 16 bytes long for the given password
string PASSWD.  PASSWD is truncated to 14 bytes if longer."
  (let ((len (min (length passwd) 14)))
    (smbdes-e-p16
     (concat (substring (upcase passwd) 0 len) ;fill top 14 bytes with passwd
	     (make-string (- 15 len) 0)))))

-- 
岡田 健一  URLs: mailto:okada ＠ opaopa.org
	   	 http://www.opaopa.org