* ntlm.el (ntlm-ascii2unicode): Don't apply zerop to a character.

(ntlm-smb-hash): Ditto.

diff --git a/ChangeLog b/ChangeLog
index 7d7254a..661109a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-11-20  Daiki Ueno  <ueno@unixuser.org>
+
+       * ntlm.el (ntlm-ascii2unicode): Don't apply zerop to a character.
+       (ntlm-smb-hash): Ditto.
+

 2004-10-01  MORIOKA Tomohiko  <tomo@mousai.as.wakwak.ne.jp>
 
        * FLIM: Version 1.14.7 (Sanj\e-Dò) released.\e-A
 2004-10-01  MORIOKA Tomohiko  <tomo@mousai.as.wakwak.ne.jp>
 
        * FLIM: Version 1.14.7 (Sanj\e-Dò) released.\e-A

diff --git a/ntlm.el b/ntlm.el
index 84522c5..c576307 100644 (file)
--- a/ntlm.el
+++ b/ntlm.el
@@ -224,7 +224,7 @@ by PASSWORD-HASHES.  PASSWORD-HASHES should be a return value of
 little-endian utf16."
   (let ((utf (make-string (* 2 len) 0)) (i 0) val)
     (while (and (< i len)
 little-endian utf16."
   (let ((utf (make-string (* 2 len) 0)) (i 0) val)
     (while (and (< i len)

-               (not (zerop (setq val (aref str i)))))
+               (not (eq (setq val (aref str i)) ?\0)))

       (aset utf (* 2 i) val)
       (aset utf (1+ (* 2 i)) 0)
       (setq i (1+ i)))
       (aset utf (* 2 i) val)
       (aset utf (1+ (* 2 i)) 0)
       (setq i (1+ i)))

@@ -289,7 +289,7 @@ a string KEY of length 8.  FORW is t or nil."
     (setq outb (ntlm-smb-dohash inb keyb forw))
     (setq i 0)
     (while (< i 64)
     (setq outb (ntlm-smb-dohash inb keyb forw))
     (setq i 0)
     (while (< i 64)

-      (unless (zerop (aref outb i))
+      (unless (eq (aref outb i) ?\0)

        (setq aa (aref out (/ i 8)))
        (aset out (/ i 8)
              (logior aa (lsh 1 (- 7 (% i 8))))))
        (setq aa (aref out (/ i 8)))
        (aset out (/ i 8)
              (logior aa (lsh 1 (- 7 (% i 8))))))