From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/55641 Path: main.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Re: [PATCH] md4.el and ntlm.el Date: Mon, 05 Jan 2004 13:59:48 +0900 Organization: Emacsen advocacy group Sender: ding-owner@lists.math.uh.edu Message-ID: References: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1073278826 5303 80.91.224.253 (5 Jan 2004 05:00:26 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 5 Jan 2004 05:00:26 +0000 (UTC) Cc: Simon Josefsson , emacs-mime-en@m17n.org, ding@gnus.org Original-X-From: ding-owner+M4181@lists.math.uh.edu Mon Jan 05 06:00:22 2004 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1AdMqk-0001KL-00 for ; Mon, 05 Jan 2004 06:00:22 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1AdMqZ-0000zE-00; Sun, 04 Jan 2004 23:00:11 -0600 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1AdMqV-0000z9-00 for ding@lists.math.uh.edu; Sun, 04 Jan 2004 23:00:07 -0600 Original-Received: from washington.hostforweb.net (washington.hostforweb.net [69.61.11.2]) by justine.libertine.org (Postfix) with ESMTP id A42CB3A0067 for ; Sun, 4 Jan 2004 23:00:06 -0600 (CST) Original-Received: from yamaoka by washington.hostforweb.net with local (Exim 4.24) id 1AdMqO-0007LJ-LY; Mon, 05 Jan 2004 00:00:01 -0500 Original-To: Taro Kawagishi X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( User-Agent: Gnus/5.110002 (No Gnus v0.2) Emacs/21.3.50 (gnu/linux) Cancel-Lock: sha1:rnuvS9FwaRTyHmkqLRu8QQw8rIU= X-Hashcash: 0:040105:tarok@transpulse.org:811574254b415d37 X-Hashcash: 0:040105:jas@extundo.com:488ca88aa321258c X-Hashcash: 0:040105:emacs-mime-en@m17n.org:6f3a764d12048a05 X-Hashcash: 0:040105:ding@gnus.org:a2deb9585bbb288a X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - washington.hostforweb.net X-AntiAbuse: Original Domain - gnus.org X-AntiAbuse: Originator/Caller UID/GID - [32041 32041] / [47 12] X-AntiAbuse: Sender Address Domain - washington.hostforweb.net Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:55641 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:55641 Hi, >>>>> In [emacs-mime-en : No.00115] >>>>> Simon Josefsson wrote: > Hello, first thanks for assigning the copyright of these two files. > While writing them, did anyone but you contribute to files? Have you > merged patches from anyone else? According to the FLIM ChangeLog and > CVS logs, you and Kenichi OKADA have touched them, and we have papers > for that. > Also, after installing these files into Gnus, we have made the > following modifications. Do you agree with them? Any suggestions? > Please consider including them in FLIM. The patch is against the > flim-1_14 branch in CVS. > Thanks, > Simon [...] I also add the following change to ntlm.el in Gnus. Although it is needless if APEL provides `string-as-unibyte' for XEmacs, Gnus doesn't use it. 2004-01-05 Katsumi Yamaoka * ntlm.el (ntlm-string-as-unibyte): New macro. (ntlm-build-auth-response): Use it. --- ntlm.el~ 2004-01-05 02:12:22 +0000 +++ ntlm.el 2004-01-05 04:44:07 +0000 @@ -105,13 +105,19 @@ domain ;bufer field ))) +(eval-when-compile + (defmacro ntlm-string-as-unibyte (string) + (if (fboundp 'string-as-unibyte) + `(string-as-unibyte ,string) + string))) + (defun ntlm-build-auth-response (challenge user password-hashes) "Return the response string to a challenge string CHALLENGE given by the NTLM based server for the user USER and the password hash list PASSWORD-HASHES. NTLM uses two hash values which are represented by PASSWORD-HASHES. PASSWORD-HASHES should be a return value of (list (ntlm-smb-passwd-hash password) (ntlm-md4hash password))" - (let* ((rchallenge (string-as-unibyte challenge)) + (let* ((rchallenge (ntlm-string-as-unibyte challenge)) ;; get fields within challenge struct ;;(ident (substring rchallenge 0 8)) ;ident, 8 bytes ;;(msgType (substring rchallenge 8 12)) ;msgType, 4 bytes Regards, -- Katsumi Yamaoka