%PDF-
%PDF-
Mini Shell
Mini Shell
;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 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) (#$ . 582))
(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 (#$ . 890)])
(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\311 \331\"\332\333\323\334
\"\335\"\336\n\337\340\326\n! \311 \331\"
\n\"\311 \341\"&\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] 26])
(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)
Zerion Mini Shell 1.0