CVS update by simon packages/xemacs-packages/ecrypto, encrypt.el ...

User: simon Date: 05/09/23 14:41:48 Modified: packages/xemacs-packages/ecrypto sha1.el md4.el hex-util.el encrypt.el ChangeLog Log: 2005-05-30 Reiner Steib <Reiner.Steib(a)gmx.de&gt; * encrypt.el (encrypt-xor-process-buffer): Replace `string-to-int' by `string-to-number'. 2005-05-17 Katsumi Yamaoka <yamaoka(a)jpl.org&gt; * encrypt.el (encrypt): Add :group. 2005-02-22 Simon Josefsson <jas(a)extundo.com&gt; * encrypt.el (encrypt-password-cache-expiry): Remove (use `password-cache-expiry' instead). Reported by Arne JÞrgensen <arne(a)arnested.dk&gt;. (encrypt): Add password-cache and password-cache-expiry as group members. 2004-01-05 Simon Josefsson <jas(a)extundo.com&gt; * md4.el (print-int32, print-string-hexa): Remove. Suggested by Jesper Harder <harder(a)myrealbox.com&gt;. Revision Changes Path 1.4 +4 -3 XEmacs/packages/xemacs-packages/ecrypto/sha1.el Index: sha1.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ecrypto/sha1.el,v retrieving revision 1.3 retrieving revision 1.4 diff -u -p -r1.3 -r1.4 --- sha1.el 2004/09/16 11:47:15 1.3 +++ sha1.el 2005/09/23 12:41:46 1.4 ＠＠ -1,6 +1,7 ＠＠ ;;; sha1.el --- SHA1 Secure Hash Algorithm in Emacs-Lisp -;; Copyright (C) 1999, 2001, 2003, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Shuhei KOBAYASHI <shuhei(a)aqua.ocn.ne.jp&gt; ;; Keywords: SHA1, FIPS 180-1 ＠＠ -19,8 +20,8 ＠＠ ;; 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. +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. ;;; Commentary: 1.2 +4 -12 XEmacs/packages/xemacs-packages/ecrypto/md4.el Index: md4.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ecrypto/md4.el,v retrieving revision 1.1 retrieving revision 1.2 diff -u -p -r1.1 -r1.2 --- md4.el 2002/08/02 20:15:37 1.1 +++ md4.el 2005/09/23 12:41:46 1.2 ＠＠ -1,5 +1,6 ＠＠ ;;; md4.el --- MD4 Message Digest Algorithm. +;; Copyright (C) 2004 Free Software Foundation, Inc. ;; Copyright (C) 2001 Taro Kawagishi ;; Author: Taro Kawagishi <tarok(a)transpulse.org&gt; ;; Keywords: MD4 ＠＠ -20,24 +21,14 ＠＠ ;; ;; 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. +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. ;;; Code: ;;; ;;; MD4 hash calculation -(defun print-int32 (int32) - "print 32 bits integer in 4 bytes string as little endian" - (let ((h (car int32)) (l (cdr int32))) - (list (logand l 255) (lsh l -8) (logand h 255) (lsh h -8)))) - -(defun print-string-hexa (str) - "print a string in hexadecimal" - (let (out) - (mapcar (function (lambda (x) (concat out (format "%x" x)))) str))) - (defvar md4-buffer (make-vector 4 '(0 . 0)) "work buffer of four 32-bit integers") ＠＠ -235,4 +226,5 ＠＠ integer is represented as a pair of two (provide 'md4) +;;; arch-tag: 99d706fe-089b-42ea-9507-67ae41091e6e ;;; md4.el ends here 1.4 +4 -3 XEmacs/packages/xemacs-packages/ecrypto/hex-util.el Index: hex-util.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ecrypto/hex-util.el,v retrieving revision 1.3 retrieving revision 1.4 diff -u -p -r1.3 -r1.4 --- hex-util.el 2004/09/16 11:49:04 1.3 +++ hex-util.el 2005/09/23 12:41:46 1.4 ＠＠ -1,6 +1,7 ＠＠ ;;; hex-util.el --- Functions to encode/decode hexadecimal string. -;; Copyright (C) 1999, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Shuhei KOBAYASHI <shuhei(a)aqua.ocn.ne.jp&gt; ;; Keywords: data ＠＠ -19,8 +20,8 ＠＠ ;; 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. +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. ;;; Commentary: 1.2 +8 -15 XEmacs/packages/xemacs-packages/ecrypto/encrypt.el Index: encrypt.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ecrypto/encrypt.el,v retrieving revision 1.1 retrieving revision 1.2 diff -u -p -r1.1 -r1.2 --- encrypt.el 2004/11/29 22:04:40 1.1 +++ encrypt.el 2005/09/23 12:41:46 1.2 ＠＠ -1,5 +1,5 ＠＠ ;;; encrypt.el --- file encryption routines -;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Teodor Zlatanov <tzz(a)lifelogs.com&gt; ;; Created: 2003/01/24 ＠＠ -19,8 +19,8 ＠＠ ;; 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., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. ;;; Commentary: ＠＠ -34,18 +34,11 ＠＠ (eval-and-compile (autoload 'password-read "password")) -(defgroup encrypt nil - "File encryption configuration.") +(defgroup encrypt '((password-cache custom-variable) + (password-cache-expiry custom-variable)) + "File encryption configuration." + :group 'applications) -(defcustom encrypt-password-cache-expiry 200 - "Encryption password timeout. -When set, directly sets password-cache-expiry" - :type 'integer - :group 'encrypt - :set (lambda (symbol value) - (set symbol value) - (setq password-cache-expiry value))) - (defcustom encrypt-file-alist nil "List of file names or regexes matched with encryptions. Format example: ＠＠ -220,7 +213,7 ＠＠ Format example: (progn (setq new-list (reverse (split-string bs))) (dolist (x new-list) - (setq x (string-to-int x)) + (setq x (string-to-number x)) (insert (format "%c" (logxor x passphrase-sum)))))) (buffer-substring-no-properties (point-min) (point-max))))) 1.28 +22 -0 XEmacs/packages/xemacs-packages/ecrypto/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ecrypto/ChangeLog,v retrieving revision 1.27 retrieving revision 1.28 diff -u -p -r1.27 -r1.28 --- ChangeLog 2004/11/30 05:55:23 1.27 +++ ChangeLog 2005/09/23 12:41:46 1.28 ＠＠ -1,3 +1,25 ＠＠ +2005-05-30 Reiner Steib <Reiner.Steib(a)gmx.de&gt; + + * encrypt.el (encrypt-xor-process-buffer): Replace `string-to-int' + by `string-to-number'. + +2005-05-17 Katsumi Yamaoka <yamaoka(a)jpl.org&gt; + + * encrypt.el (encrypt): Add :group. + +2005-02-22 Simon Josefsson <jas(a)extundo.com&gt; + + * encrypt.el (encrypt-password-cache-expiry): Remove (use + `password-cache-expiry' instead). Reported by Arne Jørgensen + <arne(a)arnested.dk&gt;. + (encrypt): Add password-cache and password-cache-expiry as group + members. + +2004-01-05 Simon Josefsson <jas(a)extundo.com&gt; + + * md4.el (print-int32, print-string-hexa): Remove. Suggested by + Jesper Harder <harder(a)myrealbox.com&gt;. + 2004-11-30 Norbert Koch <viteno(a)xemacs.org&gt; * Makefile (VERSION): XEmacs package 0.19 released.