%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/net/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/net/hmac-md5.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.

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


(byte-code "\300\301!\210\300\302!\207" [require hex-util md5] 2)
#@42 Return the MD5 of STRING in binary form.
(defalias 'md5-binary #[(string) "\3011\302\303\304\211\305$0\202\210\202\203\306\302\304\211\305$!\207\306\302!!\207" [string (wrong-number-of-arguments) md5 "" nil binary decode-hex-string] 6 (#$ . 474)])
#@38 Compute HMAC-MD5 over TEXT with KEY.
(defalias 'hmac-md5 #[(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 #[nil "\302\303\"\210\302	\303\"\207" [key-xor-ipad key-xor-opad fillarray 0] 3] md5-binary 16 logxor #[nil "\301\302\"\207" [key-xor-ipad fillarray 0] 3] #[nil "\301\302\"\207" [key-xor-ipad fillarray 0] 3] #[nil "\301\302\"\207" [key-xor-opad fillarray 0] 3] #[nil "\301\302\"\207" [key-xor-opad fillarray 0] 3]] 6 (#$ . 738)])
#@41 Compute HMAC-MD5-96 over TEXT with KEY.
(defalias 'hmac-md5-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!)\323\312\324#-\207" [key pos len key-xor-opad key-xor-ipad text make-string 64 54 92 0 #[nil "\302\303\"\210\302	\303\"\207" [key-xor-ipad key-xor-opad fillarray 0] 3] md5-binary 16 logxor #[nil "\301\302\"\207" [key-xor-ipad fillarray 0] 3] #[nil "\301\302\"\207" [key-xor-ipad fillarray 0] 3] #[nil "\301\302\"\207" [key-xor-opad fillarray 0] 3] #[nil "\301\302\"\207" [key-xor-opad fillarray 0] 3] substring 12] 6 (#$ . 1429)])
(provide 'hmac-md5)

Zerion Mini Shell 1.0