HOME


sh-3ll 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/net/
Upload File :
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/net/rfc2104.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defconst rfc2104-ipad 54)
(defconst rfc2104-opad 92)
(defconst rfc2104-nybbles (byte-code "\302\303\304\"\305\203	@@@AI\210A\211\204	*\207" [ls v make-vector 103 nil ((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))] 4))
(defalias 'rfc2104-hash #[(hash block-length hash-length key text) "G	V\203
\n!\202\211G\306	\f\"\306	
\\\"\307\211\310U\204UH
\311\f\"I\210\311\"I\210T\202*)\312\n
P!!\310	
\313_U\204\230HH\314_THH\\I\210\313\\T\202f*\312\n!!.\207" [key block-length hash len rfc2104-ipad ipad make-string nil 0 logxor string-make-unibyte 2 16 hash-length rfc2104-opad opad c partial i text w r rfc2104-nybbles] 7])
(provide 'rfc2104)