X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fsasl-digest.el;h=f2242af147e03df565e85d5dbb9c20519deb76a3;hp=f6d455ea63500af3c2dcb725d7bee3adcd3e43f7;hb=a85e72c397c89080c49b1859f55639a71f598471;hpb=125d88b46ad2efa065f06d5dac37a245b488985a diff --git a/lisp/sasl-digest.el b/lisp/sasl-digest.el index f6d455ea6..f2242af14 100644 --- a/lisp/sasl-digest.el +++ b/lisp/sasl-digest.el @@ -1,27 +1,28 @@ ;;; sasl-digest.el --- DIGEST-MD5 module for the SASL client framework -;; Copyright (C) 2000 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2007-2014 Free Software Foundation, Inc. ;; Author: Daiki Ueno ;; Kenichi OKADA ;; Keywords: SASL, DIGEST-MD5 +;; Package: sasl -;; This file is part of FLIM (Faithful Library about Internet Message). +;; This file is part of GNU Emacs. -;; 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. +;; GNU Emacs 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 3 of the License, 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. +;; GNU Emacs 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. +;; along with GNU Emacs. If not, see . + +;;; Commentary: ;; This program is implemented from draft-leach-digest-sasl-05.txt. ;; @@ -94,10 +95,10 @@ charset algorithm cipher-opts auth-param)." (md5-binary (concat (encode-hex-string - (md5-binary (concat (md5-binary + (md5-binary (concat (md5-binary (concat username ":" realm ":" passphrase)) ":" nonce ":" cnonce - (if authzid + (if authzid (concat ":" authzid))))) ":" nonce ":" (format "%08x" nonce-count) ":" cnonce ":" qop ":" @@ -153,5 +154,4 @@ charset algorithm cipher-opts auth-param)." (provide 'sasl-digest) -;;; arch-tag: 786e02ed-1bc4-4b3c-bf34-96c27e31084d ;;; sasl-digest.el ends here