Function: canlock-make-cancel-key

canlock-make-cancel-key is a byte-compiled function defined in canlock.el.gz.

Signature

(canlock-make-cancel-key MESSAGE-ID PASSWORD)

Documentation

Make a Cancel-Key header.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/canlock.el.gz
(defun canlock-make-cancel-key (message-id password)
  "Make a Cancel-Key header."
  (when (> (length password) 20)
    (setq password (canlock-sha1 password)))
  (setq password (concat password (make-string (- 64 (length password)) 0)))
  (let ((ipad (mapconcat (lambda (byte)
			   (char-to-string (logxor 54 byte)))
			 password ""))
	(opad (mapconcat (lambda (byte)
			   (char-to-string (logxor 92 byte)))
			 password "")))
    (base64-encode-string
     (canlock-sha1 (concat opad (canlock-sha1 (concat ipad message-id)))))))