;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:46:13 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/gnus/rfc2104.el ;;; in Emacs version 21.3 ;;; 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 "`rfc2104.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301B\305\302B\306\303B\307\304B\310\301\207" [current-load-list rfc2104-ipad rfc2104-opad rfc2104-zero rfc2104-hex-alist 54 92 0 ((48 . 0) (97 . 10) (65 . 10) (49 . 1) (98 . 11) (66 . 11) (50 . 2) (99 . 12) (67 . 12) (51 . 3) (100 . 13) (68 . 13) (52 . 4) (101 . 14) (69 . 14) (53 . 5) (102 . 15) (70 . 15) (54 . 6) (55 . 7) (56 . 8) (57 . 9))] 2) (defalias 'rfc2104-hex-to-int #[(str) "\203 <\203\302A!\303_\304@ \"A\\\207\302\305\306\307\"!!\207\310\207" [str rfc2104-hex-alist rfc2104-hex-to-int 16 assoc reverse append nil 0] 5]) (defalias 'rfc2104-hexstring-to-bitstring #[(str) "\302\303 GW\203\304 \305\302O!B \303\305O\202\260)\207" [out str nil 0 rfc2104-hex-to-int -2] 4]) (defalias 'rfc2104-hash #[(hash block-length hash-length key text) "G V\203 \n!\202\306\307\"\306\307\" G W\203*\306 C\"\211\202\fG W\203;\306\f C\"\211\202+\310\311 \"\310\312\f\"\n\f\313\n \fP!!P!+\207" [key block-length hash k_ipad k_opad rfc2104-zero append nil mapcar #[(c) "\302 \"\207" [c rfc2104-ipad logxor] 3] #[(c) "\302 \"\207" [c rfc2104-opad logxor] 3] rfc2104-hexstring-to-bitstring text] 7]) (provide 'rfc2104)