# HG changeset patch # User Glenn Morris # Date 1196632238 0 # Node ID 14c6b478967290d636b5585fec3d3b71bfc5041f # Parent 780b92f70642edbe36464e795e5120294ae776c9 Move to ../net. diff -r 780b92f70642 -r 14c6b4789672 lisp/gnus/sasl-cram.el --- a/lisp/gnus/sasl-cram.el Sun Dec 02 21:44:15 2007 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,52 +0,0 @@ -;;; sasl-cram.el --- CRAM-MD5 module for the SASL client framework - -;; Copyright (C) 2000, 2007 Free Software Foundation, Inc. - -;; Author: Daiki Ueno -;; Kenichi OKADA -;; Keywords: SASL, CRAM-MD5 - -;; This file is part of GNU Emacs. - -;; 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, or (at your option) -;; any later version. - -;; 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 GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, -;; Boston, MA 02110-1301, USA. - -;;; Commentary: - -(require 'sasl) -(require 'hmac-md5) - -(defconst sasl-cram-md5-steps - '(ignore ;no initial response - sasl-cram-md5-response)) - -(defun sasl-cram-md5-response (client step) - (let ((passphrase - (sasl-read-passphrase - (format "CRAM-MD5 passphrase for %s: " - (sasl-client-name client))))) - (unwind-protect - (concat (sasl-client-name client) " " - (encode-hex-string - (hmac-md5 (sasl-step-data step) passphrase))) - (fillarray passphrase 0)))) - -(put 'sasl-cram 'sasl-mechanism - (sasl-make-mechanism "CRAM-MD5" sasl-cram-md5-steps)) - -(provide 'sasl-cram) - -;;; arch-tag: 46cb281b-975a-4fe0-a39f-3018691b1b05 -;;; sasl-cram.el ends here