| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/net/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
(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 "\300 \301\302\303#\210\301\304\303#\210\207" [make-syntax-table modify-syntax-entry 61 "." 44] 5) (#$ . 258))
(defconst sasl-digest-md5-steps '(ignore sasl-digest-md5-response ignore))
#@173 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).
(fn STRING)
(defalias 'sasl-digest-md5-parse-string #[257 "\301\302\303\"r\211q\210\304\305\"\216\306!\210\212c\210eb\210\307c\210\310 \210m\204, \311\312!\210\313c\210\202 \314c\210\315\316 !+\207" [sasl-digest-md5-syntax-table generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] set-syntax-table "(" forward-sexp delete-char 1 " " ")" read point-min-marker] 5 (#$ . 557)])
#@43
(fn SERV-TYPE HOST &optional SERV-NAME)
(defalias 'sasl-digest-md5-digest-uri #[770 "\300\205 \230?\205 \300PR\207" ["/"] 8 (#$ . 1162)])
(defalias 'sasl-digest-md5-cnonce #[0 "\302 )\207" [sasl-digest-md5-unique-id-function sasl-unique-id-function sasl-unique-id] 1])
#@71
(fn USERNAME REALM NONCE CNONCE NONCE-COUNT QOP DIGEST-URI AUTHZID)
(defalias 'sasl-digest-md5-response-value #[2056 "\300\301\302\n\"!\303\304\"\216\305\306\305\306\211
\307\307 \260!\307\f\307
\n\205+ \307 P\260!!\307\n\307\301\310\f\"\307
\307
\307\305\306\311\312\235\205L \313Q!!\260 !!)\207" [sasl-read-passphrase format "DIGEST-MD5 passphrase for %s: " make-closure #[0 "\301\300\302\"\207" [V0 fillarray 0] 3] encode-hex-string md5-binary ":" "%08x" "AUTHENTICATE:" ("auth-int" "auth-conf") ":00000000000000000000000000000000"] 27 (#$ . 1449)])
#@20
(fn CLIENT STEP)
(defalias 'sasl-digest-md5-response #[514 "\301\302!!\303\304\"\206 \305\304\"\303\306\"\206 \303\307\"\206 \310\311\312!\313!\"\303\314\"\2064 \315 \316\306T#\210\310\230\204J \317\320\321\"!\210\322\323 !\324\325\305 \326\"\327\330\320\331\"\332\f\333\334\335\323!\305\326\"\305 \336\"&\260\207" [sasl-digest-md5-nonce-count sasl-digest-md5-parse-string sasl-step-data sasl-client-property realm plist-get nonce-count 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] 34 (#$ . 2030)])
(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)