;;
;; You should have received a copy of the GNU General Public License
;; along with this program; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Commentary:
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)))
(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))))))