;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@477 Define a function NAME(TEXT KEY) which computes HMAC with function H.

HMAC function is H(KEY XOR opad, H(KEY XOR ipad, TEXT)):

H is a cryptographic hash function, such as SHA1 and MD5, which takes
a string and return a digest of it (in binary form).
B is a byte length of a block size of H. (B=64 for both SHA1 and MD5.)
L is a byte length of hash outputs.  (L=16 for MD5, L=20 for SHA1.)
If BIT is non-nil, truncate output to specified bits.

(fn NAME H B L &optional BIT)
(defalias 'define-hmac-function '(macro . #[1284 "\300\301\302\303	!\226\304Q\305\306\307	\310BBD\311\307\n\312BBD\313BB\314\315\316\317\320
E\321\322\323B\320\257E\324\321\306\325\306\314\326B\327BB\311\330\311\314\331B\332BB\257	\203g\333\245
W\203g\334\311\335\333\245F\202h\336\257\337BBE\257\207" [defun (text key) "Compute " symbol-name " over TEXT with KEY." let key-xor-ipad make-string (54) key-xor-opad (92) ((len (length key)) (pos 0)) unwind-protect progn if > len setq key (key) (while (< pos len) (aset key-xor-ipad pos (logxor (aref key pos) 54)) (aset key-xor-opad pos (logxor (aref key pos) 92)) (setq pos (1+ pos))) (unwind-protect (concat key-xor-ipad text) (fillarray key-xor-ipad 0)) (key-xor-ipad) ((fillarray key-xor-ipad 0)) (unwind-protect (concat key-xor-opad key-xor-ipad) (fillarray key-xor-opad 0)) (key-xor-opad) ((fillarray key-xor-opad 0)) 8 substring 0 (concat key-xor-opad) ((fillarray key-xor-ipad 0) (fillarray key-xor-opad 0))] 26 (#$ . 85)]))
(provide 'hmac-def)