From: okada <okada>
Date: Sun, 12 Dec 1999 18:31:44 +0000 (+0000)
Subject: * FLIM-ELS (flim-modules): Add `digest-md5'.
X-Git-Tag: slim-1_13_5~23
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7c62097801d09a3430cf63ea09a6ff2828845b77;p=elisp%2Fflim.git

* FLIM-ELS (flim-modules): Add `digest-md5'.
---

diff --git a/ChangeLog b/ChangeLog
index 489bc7f..5223319 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 1999-12-13  Kenichi OKADA <okada@opaopa.org>
 
+	* FLIM-ELS (flim-modules): Add `digest-md5'.
+
+1999-12-13  Kenichi OKADA <okada@opaopa.org>
+
 	* digest-md5.el: New file.
 	(digest-md5-digest-uri): New function.
 	(digest-md5-digest-response): New function.
diff --git a/FLIM-ELS b/FLIM-ELS
index 7548a9a..8e24806 100644
--- a/FLIM-ELS
+++ b/FLIM-ELS
@@ -14,7 +14,7 @@
 		     md5 md5-el md5-dl
 		     sha1 sha1-el sha1-dl
 		     hmac-def hmac-md5 hmac-sha1 hex-util
-		     scram-md5
+		     scram-md5 digest-md5
 		     starttls))
 
 (unless (and (fboundp 'base64-encode-string)
diff --git a/digest-md5.el b/digest-md5.el
new file mode 100644
index 0000000..31f2c6f
--- /dev/null
+++ b/digest-md5.el
@@ -0,0 +1,78 @@
+;;; digest-md5.el --- Compute DIGEST-MD5.
+
+;; Copyright (C) 1999 Kenichi OKADA
+
+;; Author: Kenichi OKADA <okada@opaopa.org>
+;; Keywords: DIGEST-MD5, HMAC-MD5, SASL, IMAP, POP, ACAP
+
+;; This file is part of FLIM (Faithful Library about Internet Message).
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; 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.
+
+;;; Commentary:
+
+;; This program is implemented from draft-leach-digest-sasl-05.txt.
+;;
+;; It is caller's responsibility to base64-decode challenges and
+;; base64-encode responses in IMAP4 AUTHENTICATE command.
+;;
+;; Passphrase should be longer than 16 bytes. (See RFC 2195)
+
+;; Examples.
+;;
+;; (digest-md5-make-response "chris" "elwood.innosoft.com"
+;; 			  "OA6MG9tEQGm2hh" "OA6MHXh6VqTrRk" 1
+;; 			  "auth" "imap/elwood.innosoft.com"
+;; 			  "d388dad90d4bbd760a152321f2143af7" nil "utf-8")
+;; => "charset=utf-8,username=\"chris\",realm=\"elwood.innosoft.com\",nonce=\"OA6MG9tEQGm2hh\",nc=00000001,cnonce=\"OA6MHXh6VqTrRk\",digest-uri=\"imap/elwood.innosoft.com\",response=d388dad90d4bbd760a152321f2143af7,qop=auth"
+;;
+
+;;; Code:
+
+(require 'hmac-md5)
+
+(defun digest-md5-digest-uri (serv-type host &optional serv-name)
+  (concat serv-type "/" host
+	  (if (and serv-name
+		   (null (string= host serv-name)))
+	      (concat "/" serv-name))))
+
+(defun digest-md5-digest-response (username 
+				   realm nonce cnonce
+				   nonce-count qop digest-uri response 
+				   &optional maxbuf charset cipher authzid)
+  (concat
+   (if charset
+       (concat "charset=" charset ","))
+   "username=\"" username "\""
+   ",realm=\"" realm "\""
+   ",nonce=\"" nonce "\""
+   (format ",nc=%08x" nonce-count)
+   ",cnonce=\"" cnonce "\""
+   ",digest-uri=\"" digest-uri "\""
+   ",response=" response
+   ",qop=" qop
+   (if maxbuf
+       (concat ",maxbuf=" maxbuf))
+   (if cipher
+       (concat ",cipher=" cipher))
+   (if authzid
+       (concat ",authzid=\"" authzid "\""))))
+
+  
+(provide 'digest-md5)
+
+;;; digest-md5.el ends here