65 lines
1.8 KiB
EmacsLisp
65 lines
1.8 KiB
EmacsLisp
;;; sha1.el --- SHA1 Secure Hash Algorithm.
|
|
|
|
;; Copyright (C) 1999, 2001 Free Software Foundation, Inc.
|
|
|
|
;; Author: Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
|
|
;; Keywords: SHA1, FIPS 180-1
|
|
|
|
;; This file is part of FLIM (Faithful Library about Internet Message).
|
|
|
|
;; 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.
|
|
|
|
;; 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.
|
|
|
|
;; 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., 51 Franklin Street, Fifth Floor,
|
|
;; Boston, MA 02110-1301, USA.
|
|
|
|
;;; Commentary:
|
|
|
|
;; Examples from FIPS PUB 180-1.
|
|
;; <URL:http://www.itl.nist.gov/div897/pubs/fip180-1.htm>
|
|
;;
|
|
;; (sha1 "abc")
|
|
;; => a9993e364706816aba3e25717850c26c9cd0d89d
|
|
;;
|
|
;; (sha1 "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq")
|
|
;; => 84983e441c3bd26ebaae4aa1f95129e5e54670f1
|
|
;;
|
|
;; (sha1 (make-string 1000000 ?a))
|
|
;; => 34aa973cd4c4daa4f61eeb2bdbad27316534016f
|
|
|
|
;;; Code:
|
|
|
|
(defvar sha1-dl-module
|
|
(cond
|
|
((and (fboundp 'sha1)
|
|
(subrp (symbol-function 'sha1)))
|
|
nil)
|
|
((fboundp 'dynamic-link)
|
|
;; Should we take care of `dynamic-link-path'?
|
|
(let ((path (expand-file-name "sha1.so" exec-directory)))
|
|
(if (file-exists-p path)
|
|
path
|
|
nil)))
|
|
(t
|
|
nil)))
|
|
|
|
(cond
|
|
((and (stringp sha1-dl-module)
|
|
(file-exists-p sha1-dl-module))
|
|
(require 'sha1-dl))
|
|
(t
|
|
(require 'sha1-el)))
|
|
|
|
(provide 'sha1)
|
|
|
|
;;; sha1.el ends here
|