;ELC ;;; Compiled by root@tweety.build.redhat.com on Tue Dec 14 03:50:01 2004 ;;; from file /usr/src/build/496412-noarch/BUILD/flim-1.14.7/hmac-sha1.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`hmac-sha1.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304!\204\304\305M\210\300\207" [require hex-util sha1 fboundp sha1-binary #[(string) "\301\302!!\207" [string decode-hex-string sha1] 3 "Return the SHA1 of STRING in binary form."]] 2) #@39 Compute HMAC-SHA1 over TEXT with KEY. (defalias 'hmac-sha1 #[(text key) "\306\307\310\"\306\307\311\"G\312\313\216\n\307V\203\314!\315 \nW\203>\f \316 H\310\"I\210 \316 H\311\"I\210 T\211\202\317\216\f P)\320\216\314\f!)\321\216 \fP)\322\216\314 !)\211\260-\207" [key pos len key-xor-opad key-xor-ipad text make-string 64 54 92 0 ((byte-code "\302\303\"\210\302 \303\"\207" [key-xor-ipad key-xor-opad fillarray 0] 3)) sha1-binary 20 logxor ((fillarray key-xor-ipad 0)) ((fillarray key-xor-ipad 0)) ((fillarray key-xor-opad 0)) ((fillarray key-xor-opad 0))] 6 (#$ . 871)]) #@42 Compute HMAC-SHA1-96 over TEXT with KEY. (defalias 'hmac-sha1-96 #[(text key) "\306\307\310\"\306\307\311\"G\312\313\216\n\307V\203\314!\315 \nW\203>\f \316 H\310\"I\210 \316 H\311\"I\210 T\211\202\317\216\f P)\320\216\314\f!)\321\216 \fP)\322\216\314 !)\211\312\323O-\207" [key pos len key-xor-opad key-xor-ipad text make-string 64 54 92 0 ((byte-code "\302\303\"\210\302 \303\"\207" [key-xor-ipad key-xor-opad fillarray 0] 3)) sha1-binary 20 logxor ((fillarray key-xor-ipad 0)) ((fillarray key-xor-ipad 0)) ((fillarray key-xor-opad 0)) ((fillarray key-xor-opad 0)) 12] 6 (#$ . 1472)]) (provide 'hmac-sha1)