ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/net/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/net/sasl-digest.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require sasl hmac-md5] 2)
(defvar sasl-digest-md5-nonce-count 1)
(defvar sasl-digest-md5-unique-id-function sasl-unique-id-function)
#@57 A syntax table for parsing digest-challenge attributes.
(defvar sasl-digest-md5-syntax-table (byte-code "\301 \302\303\304#\210\302\305\304#\210)\207" [table make-syntax-table modify-syntax-entry 61 "." 44] 4) (#$ . 584))
(defconst sasl-digest-md5-steps '(ignore sasl-digest-md5-response ignore))
#@160 Parse STRING and return a property list.
The value is a cons cell of the form (realm nonce qop-options stale maxbuf
charset algorithm cipher-opts auth-param).
(defalias 'sasl-digest-md5-parse-string #[(string) "\303\304!rq\210\305\216\306 !\210\212\nc\210eb\210\307c\210\310 \210m\204) \311\312!\210\313c\210\202 \314c\210\315\316 !,\207" [#1=#:temp-buffer sasl-digest-md5-syntax-table string generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] set-syntax-table "(" forward-sexp delete-char 1 " " ")" read point-min-marker] 2 (#$ . 892)])
(defalias 'sasl-digest-md5-digest-uri #[(serv-type host &optional serv-name) "\303 \n\205 \n\230?\205 \303\nPR\207" [serv-type host serv-name "/"] 5])
(defalias 'sasl-digest-md5-cnonce #[nil "\302 )\207" [sasl-digest-md5-unique-id-function sasl-unique-id-function sasl-unique-id] 1])
(defalias 'sasl-digest-md5-response-value #[(username realm nonce cnonce nonce-count qop digest-uri authzid) "\306\307\310\"!\311\216\312\313\312\313\211\314\n\314 \260!\314 \314\f
\205! \314
P\260!!\314 \314\307\315\"\314\f\314\314\312\313\316\317\235\205@ \320Q!!\260 !!*\207" [username passphrase realm nonce cnonce authzid sasl-read-passphrase format "DIGEST-MD5 passphrase for %s: " #[nil "\301\302\"\207" [passphrase fillarray 0] 3] encode-hex-string md5-binary ":" "%08x" "AUTHENTICATE:" ("auth-int" "auth-conf") ":00000000000000000000000000000000" nonce-count qop digest-uri] 18])
(defalias 'sasl-digest-md5-response #[(client step) "\306\307!!\310\n\303\"\206 \311 \303\"\310\n\305\"\206 \f \310\n\312\"\206# \313 \n\314\315\n!\316\n!\" #\310\n\317\"\2068 \320 \321\n\305
T#\210\n\313\230\204P \322\323\324\n\"!\210\325\326\n!\327\330 \327\331\311 \332\"\327\333\327\323\334
\"\335#\327\336\n\337\340\341\326\n! \311 \332\"
\n#\311 \342\"&\260.\207" [step plist client realm sasl-digest-md5-nonce-count nonce-count sasl-digest-md5-parse-string sasl-step-data sasl-client-property plist-get qop "auth" sasl-digest-md5-digest-uri sasl-client-service sasl-client-server cnonce sasl-digest-md5-cnonce sasl-client-set-property sasl-error format "Unsupported \"qop-value\": %s" "username=\"" sasl-client-name "\"," "realm=\"" "nonce=\"" nonce "cnonce=\"" "nc=%08x," "digest-uri=\"" "qop=" "," "response=" sasl-digest-md5-response-value authzid digest-uri] 31])
(byte-code "\301\302\303\304\305\"#\210\306\302!\207" [sasl-digest-md5-steps put sasl-digest sasl-mechanism sasl-make-mechanism "DIGEST-MD5" provide] 6)
Kontol Shell Bypass