| Server IP : 217.160.0.212 / Your IP : 216.73.216.71 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 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!\210\300\303!\210\300\304!\207" [require cl-lib sasl hex-util rfc2104] 2) #@20 (fn CLIENT STEP) (defalias 'sasl-scram-client-first-message #[514 "\300 \301\302#\266\303\304!P\207" [sasl-unique-id sasl-client-set-property c-nonce "n,," sasl-scram--client-first-message-bare] 7 (#$ . 192)]) #@15 (fn CLIENT) (defalias 'sasl-scram--client-first-message-bare #[257 "\300\301\"\302\303!\304R\207" [sasl-client-property c-nonce "n=" sasl-client-name ",r="] 6 (#$ . 414)]) #@54 (fn HASH-FUN BLOCK-LENGTH HASH-LENGTH CLIENT STEP) (defalias 'sasl-scram--client-final-message #[1285 "\300\301\302!\"\204 \303\304!\210\305\302!\306\307\"\306\310\"\311\306\312\"!\313\314\"\315\"\204/ \303\316!\210\317\320\321!\322R\323\324\325\326\327 !!\330 !#!\331!\211\332\333\211\211\307$P\334\333\211W\203\203 \334\f\n%\262\204r \202y \335\332\336$\262\210\211T\262\202S \334\262\262\266\202 \337%\340!!\341!\342\f\342 \260\f\343\344\"%\335\332\336$\345\320!Q\346\347#\210\346\350 #\210\207" [string-match "^r=\\([^,]+\\),s=\\([^,]+\\),i=\\([0-9]+\\)\\(?:$\\|,\\)" sasl-step-data sasl-error "Unexpected server response" #[1285 "\300\301%!\207" [decode-hex-string rfc2104-hash] 12 "\n\n(fn HASH-FUN BLOCK-LENGTH HASH-LENGTH TEXT KEY)"] match-string 1 2 string-to-number 3 sasl-client-property c-nonce string-prefix-p "Invalid nonce from server" "c=" base64-encode-string "n,," ",r=" sasl-read-passphrase format "%s passphrase for %s: " sasl-mechanism-name sasl-client-mechanism sasl-client-name base64-decode-string string 0 nil cl-map logxor "Client Key" decode-hex-string sasl-scram--client-first-message-bare "," encode-coding-string utf-8 ",p=" sasl-client-set-property auth-message salted-password] 25 (#$ . 597)]) #@54 (fn HASH-FUN BLOCK-LENGTH HASH-LENGTH CLIENT STEP) (defalias 'sasl-scram--authenticate-server #[1285 "\300\301\302!\"\203 \303\304\305\306\307\302!\"\"!\207\300\310\302!\"\203S \311\312\306\307\302!\"!\313\314\"\313\315\" \316%\n\n\n\317\320\"%\211\230?\205R \303\321!\207\303\322!\207" [string-match "^e=\\([^,]+\\)" sasl-step-data sasl-error format "Server error: %s" match-string 1 "^v=\\([^,]+\\)" #[1285 "\300\301%!\207" [decode-hex-string rfc2104-hash] 12 "\n\n(fn HASH-FUN BLOCK-LENGTH HASH-LENGTH TEXT KEY)"] base64-decode-string sasl-client-property auth-message salted-password "Server Key" encode-coding-string utf-8 "Server not authenticated" "Invalid response from server"] 17 (#$ . 1917)]) (defconst sasl-scram-sha-1-steps '(sasl-scram-client-first-message sasl-scram-sha-1-client-final-message sasl-scram-sha-1-authenticate-server)) #@20 (fn CLIENT STEP) (defalias 'sasl-scram-sha-1-client-final-message #[514 "\300\301\302\303%\207" [sasl-scram--client-final-message sha1 64 20] 8 (#$ . 2805)]) #@20 (fn CLIENT STEP) (defalias 'sasl-scram-sha-1-authenticate-server #[514 "\300\301\302\303%\207" [sasl-scram--authenticate-server sha1 64 20] 8 (#$ . 2973)]) (byte-code "\301\302\303\304\305\"#\210\301\306\303\302\303N#\210\307\302!\210\307\306!\207" [sasl-scram-sha-1-steps put sasl-scram-sha-1 sasl-mechanism sasl-make-mechanism "SCRAM-SHA-1" sasl-scram-rfc provide] 6)