| blob | 78d58a48efbd18132904f48ad8ce416d590f43f0 |
1 ;;; sha1.el --- SHA1 Secure Hash Algorithm in Emacs-Lisp
3 ;; Copyright (C) 1999, 2001, 2002, 2003, 2004,
4 ;; 2005, 2006, 2007 Free Software Foundation, Inc.
6 ;; Author: Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
7 ;; Keywords: SHA1, FIPS 180-1
9 ;; This file is part of FLIM (Faithful Library about Internet Message).
11 ;; This program is free software; you can redistribute it and/or
12 ;; modify it under the terms of the GNU General Public License as
13 ;; published by the Free Software Foundation; either version 2, or
14 ;; (at your option) any later version.
16 ;; This program is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with this program; see the file COPYING. If not, write to
23 ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
24 ;; Boston, MA 02110-1301, USA.
26 ;;; Commentary:
28 ;; This program is implemented from the definition of SHA-1 in FIPS PUB
29 ;; 180-1 (Federal Information Processing Standards Publication 180-1),
30 ;; "Announcing the Standard for SECURE HASH STANDARD".
31 ;; <URL:http://www.itl.nist.gov/div897/pubs/fip180-1.htm>
32 ;; (EXCEPTION; two optimizations taken from GnuPG/cipher/sha1.c)
33 ;;
34 ;; Test cases from FIPS PUB 180-1.
35 ;;
36 ;; (sha1 "abc")
37 ;; => a9993e364706816aba3e25717850c26c9cd0d89d
38 ;;
39 ;; (sha1 "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq")
40 ;; => 84983e441c3bd26ebaae4aa1f95129e5e54670f1
41 ;;
42 ;; (sha1 (make-string 1000000 ?a))
43 ;; => 34aa973cd4c4daa4f61eeb2bdbad27316534016f
44 ;;
45 ;; BUGS:
46 ;; * It is assumed that length of input string is less than 2^29 bytes.
47 ;; * It is caller's responsibility to make string (or region) unibyte.
48 ;;
49 ;; TODO:
50 ;; * Rewrite from scratch!
51 ;; This version is much faster than Keiichi Suzuki's another sha1.el,
52 ;; but it is too dirty.
54 ;;; Code:
58 ;;;
59 ;;; external SHA1 function.
60 ;;;
63 "Elisp interface for SHA1 hash computation."
68 "*Maximum length of message to use Lisp version of SHA1 function.
69 If message is longer than this, `sha1-program' is used instead.
71 If this variable is set to 0, use external program only.
72 If this variable is set to nil, use internal function only."
77 "*Name of program to compute SHA1.
78 It must be a string \(program name\) or list of strings \(name and its args\)."
85 "*Use external SHA1 program.
86 If this variable is set to nil, use internal function only."
96 args nil))
101 prog t t nil args)
102 ;; SHA1 is 40 bytes long in hexadecimal form.
106 digest)))
111 ;;;
112 ;;; internal SHA1 function.
113 ;;;
116 ;; optional second arg of string-to-number is new in v20.
126 ;;; original definition of sha1-F0.
127 ;;; (defmacro sha1-F0 (B C D)
128 ;;; (` (logior (logand (, B) (, C))
129 ;;; (logand (lognot (, B)) (, D)))))
130 ;;; a little optimization from GnuPG/cipher/sha1.c.
135 ;;; original definition of sha1-F2.
136 ;;; (defmacro sha1-F2 (B C D)
137 ;;; (` (logior (logand (, B) (, C))
138 ;;; (logand (, B) (, D))
139 ;;; (logand (, C) (, D)))))
140 ;;; a little optimization from GnuPG/cipher/sha1.c.
172 sha1-B-low sha1-C-low sha1-D-low)
173 sha1-E-low
182 S5A-low)))
186 sha1-B-high sha1-C-high sha1-D-high)
187 sha1-E-high
196 S5A-high)
197 carry)
211 carry)
213 )
215 ;;; buffers (H0 H1 H2 H3 H4).
235 ;; step (b).
237 S1W-high S1W-low)
250 ;; step (d).
253 S5A-high S5A-low S30B-high S30B-low carry)
258 ;; step (e).
260 carry)
268 "Return the SHA1 of STRING in binary form."
270 ;; input block is split into two vectors.
271 ;;
272 ;; input block: 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F ...
273 ;; block-high: +-0-+ +-1-+ +-2-+ +-3-+
274 ;; block-low: +-0-+ +-1-+ +-2-+ +-3-+
275 ;;
276 ;; length of each vector is 80, and elements of each vector are
277 ;; 16bit integers. elements 0x10-0x4F of each vector are
278 ;; assigned later in `sha1-block'.
287 ;; initialize buffers (H0 H1 H2 H3 H4).
298 ;; loop for each 64 bytes block.
300 ;; step (a).
311 ;; last block.
324 ;; this is the last (at most) 32bit word.
348 ;; last block has enough room to write the length of string.
350 ;; write bit length of string to last 4 bytes of the block.
354 ;; XXX: It is not practical to compute SHA1 of
355 ;; such a huge message on emacs.
356 ;; (setq len (/ len 65536)) ; for 64bit emacs.
357 ;; (aset block-low 14 (% len 65536))
358 ;; (aset block-high 14 (/ len 65536))
360 ;; need one more block.
364 ;; write bit length of string to last 4 bytes of the block.
368 ;; XXX: It is not practical to compute SHA1 of
369 ;; such a huge message on emacs.
370 ;; (setq len (/ len 65536)) ; for 64bit emacs.
371 ;; (aset block-low 14 (% len 65536))
372 ;; (aset block-high 14 (/ len 65536))
374 ;; make output string (in binary form).
396 result))
397 ;; do not leave a copy of input string.
409 ;;;
410 ;;; application interface.
411 ;;;
415 sha1-maximum-internal-length
422 sha1-maximum-internal-length
427 ;;;###autoload
429 "Return the SHA1 (Secure Hash Algorithm) of an object.
430 OBJECT is either a string or a buffer.
431 Optional arguments BEG and END denote buffer positions for computing the
432 hash of a portion of OBJECT.
433 If BINARY is non-nil, return a string in binary form."
442 ;;; arch-tag: c0f9abd0-ffc1-4557-aac6-ece7f2d4c901
443 ;;; sha1.el ends here