ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/net/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/net/sasl-scram-rfc.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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!\210\300\303!\210\300\304!\207" [require cl-lib sasl hex-util rfc2104] 2)
(defalias 'sasl-scram-client-first-message #[514 "\300 \301\302#\266\303\304\305!Q\207" [sasl-unique-id sasl-client-set-property c-nonce "n," "," sasl-scram--client-first-message-bare] 7 "\n\n(fn CLIENT STEP)"])
(defalias 'sasl-scram--client-first-message-bare #[257 "\300\301\"\302\303!\304\305\260\207" [sasl-client-property c-nonce "n=" sasl-client-name "," "r="] 7 "\n\n(fn CLIENT)"])
(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!\322\323\260\324\325\326\327\330!!\331!#!\332!\211\333\334\211\211\307$P\335\334\211W\203\212 \211 %\262\204x \202\200 \336\333\337$\262\210\211T\262\202Z \211\262\266\202\266\202\n\340%\341!!\342!\322
\322 \260
\343\344\"%\336\333\337$\322\345\321!R\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 "\n\n(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 "\n\n(fn HASH-FUN BLOCK-LENGTH HASH-LENGTH CLIENT STEP)"])
(defconst sasl-scram-sha-1-steps '(sasl-scram-client-first-message sasl-scram-sha-1-client-final-message sasl-scram-sha-1-authenticate-server))
(defalias 'sasl-scram-sha-1-client-final-message #[514 "\300\301\302\303%\207" [sasl-scram--client-final-message sha1 64 20] 8 "\n\n(fn CLIENT STEP)"])
(defalias 'sasl-scram-sha-1-authenticate-server #[514 "\300\301\302\303%\207" [sasl-scram--authenticate-server sha1 64 20] 8 "\n\n(fn CLIENT STEP)"])
(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)
Kontol Shell Bypass