projects
/
elisp
/
lemi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Modify comments.
[elisp/lemi.git]
/
mail
/
hmac-sha1.el
diff --git
a/mail/hmac-sha1.el
b/mail/hmac-sha1.el
index
9992694
..
00fe338
100644
(file)
--- a/
mail/hmac-sha1.el
+++ b/
mail/hmac-sha1.el
@@
-44,6
+44,7
@@
;; (encode-hex-string
;; (hmac-sha1 "Test With Truncation" (make-string 20 ?\x0c)))
;; => "4c1a03424b55e07fe7f27be1d58bb9324a9a5a04"
;; (encode-hex-string
;; (hmac-sha1 "Test With Truncation" (make-string 20 ?\x0c)))
;; => "4c1a03424b55e07fe7f27be1d58bb9324a9a5a04"
+;;
;; (encode-hex-string
;; (hmac-sha1-96 "Test With Truncation" (make-string 20 ?\x0c)))
;; => "4c1a03424b55e07fe7f27be1"
;; (encode-hex-string
;; (hmac-sha1-96 "Test With Truncation" (make-string 20 ?\x0c)))
;; => "4c1a03424b55e07fe7f27be1"
@@
-64,11
+65,11
@@
(eval-when-compile (require 'hmac-def))
(require 'hex-util) ; (decode-hex-string STRING)
(eval-when-compile (require 'hmac-def))
(require 'hex-util) ; (decode-hex-string STRING)
-(require 'sha1) ; expects (sha1 STRING)
+(require 'sha1) ; expects (sha1-binary STRING)
-(defun sha1-binary (string)
- "Return the SHA1 of STRING in binary form."
- (decode-hex-string (sha1 string)))
+;;; (defun sha1-binary (string)
+;;; "Return the SHA1 of STRING in binary form."
+;;; (decode-hex-string (sha1 string)))
(define-hmac-function hmac-sha1 sha1-binary 64 20) ; => (hmac-sha1 TEXT KEY)
;; (define-hmac-function hmac-sha1-96 sha1-binary 64 20 96)
(define-hmac-function hmac-sha1 sha1-binary 64 20) ; => (hmac-sha1 TEXT KEY)
;; (define-hmac-function hmac-sha1-96 sha1-binary 64 20 96)