From 3ed75c6f423721c537f0db3261de4655292cbe9e Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Sat, 23 Sep 2000 17:14:06 +0000 Subject: [PATCH] Add SHA-1 example. --- lisp/ChangeLog | 4 ++++ lisp/rfc2104.el | 9 ++++++++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 113432189..53b76aa35 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2000-09-23 Simon Josefsson + + * rfc2104.el: Add SHA-1 example. + 2000-09-22 Simon Josefsson * imap.el (imap-parse-body): Work around bug in Sun SIMS. diff --git a/lisp/rfc2104.el b/lisp/rfc2104.el index c7ce5ab5a..c825d8bc4 100644 --- a/lisp/rfc2104.el +++ b/lisp/rfc2104.el @@ -1,5 +1,5 @@ ;;; rfc2104.el --- RFC2104 Hashed Message Authentication Codes -;; Copyright (C) 1998,1999 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc. ;; Author: Simon Josefsson ;; Keywords: mail @@ -31,10 +31,16 @@ ;;; (rfc2104-hash 'md5 64 16 "Jefe" "what do ya want for nothing?") ;;; "750c783e6ab0b503eaa86e310a5db738" ;;; +;;; (require 'sha-1) +;;; (rfc2104-hash 'sha1-encode 64 20 "Jefe" "what do ya want for nothing?") +;;; "effcdf6ae5eb2fa2d27416d5f184df9c259a7c79" +;;; ;;; 64 is block length of hash function (64 for MD5 and SHA), 16 is ;;; resulting hash length (16 for MD5, 20 for SHA). ;;; ;;; Tested with Emacs 20.2 and XEmacs 20.3. +;;; +;;; Test case reference: RFC 2202. ;;; Release history: ;;; @@ -43,6 +49,7 @@ ;;; 1998-08-26 don't require hexl ;;; 1998-09-25 renamed from hmac.el to rfc2104.el, also renamed functions ;;; 1999-10-23 included in pgnus +;;; 2000-05-12 added sha-1 example, added test case reference (eval-when-compile (require 'cl)) -- 2.25.1