;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:34 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/sasl-digest.el
;;; in Emacs version 24.3.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) (#$ . 732))
(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*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) set-syntax-table "(" forward-sexp delete-char 1 " " ")" read point-min-marker] 2 (#$ . 1040)])
(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: " ((fillarray passphrase 0)) 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)