Current File : //usr/local/share/emacs/27.2/lisp/net/sasl.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar sasl-mechanisms '("SCRAM-SHA-1" "CRAM-MD5" "DIGEST-MD5" "PLAIN" "LOGIN" "ANONYMOUS" "NTLM"))
(defvar sasl-mechanism-alist '(("CRAM-MD5" sasl-cram) ("DIGEST-MD5" sasl-digest) ("PLAIN" sasl-plain) ("LOGIN" sasl-login) ("ANONYMOUS" sasl-anonymous) ("NTLM" sasl-ntlm) ("SCRAM-SHA-1" sasl-scram-rfc)))
(defvar sasl-unique-id-function 'sasl-unique-id-function)
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put sasl-error error-message "SASL error" error-conditions (sasl-error error)] 4)
(defalias 'sasl-error #[(datum) "\301\302C\"\207" [datum signal sasl-error] 3])
#@189 Return a newly allocated SASL client.
NAME is name of the authorization. SERVICE is name of the service desired.
SERVER is the fully qualified host name of the server to authenticate to.
(defalias 'sasl-make-client #[(mechanism name service server) "\304 \n \305\306!%\207" [mechanism name service server vector make-symbol "sasl-client-properties"] 7 (#$ . 992)])
#@55 Return the authentication mechanism driver of CLIENT.
(defalias 'sasl-client-mechanism #[(client) "\301H\207" [client 0] 2 (#$ . 1365)])
#@52 Return the authorization name of CLIENT, a string.
(defalias 'sasl-client-name #[(client) "\301H\207" [client 1] 2 (#$ . 1509)])
#@46 Return the service name of CLIENT, a string.
(defalias 'sasl-client-service #[(client) "\301H\207" [client 2] 2 (#$ . 1645)])
#@45 Return the server name of CLIENT, a string.
(defalias 'sasl-client-server #[(client) "\301H\207" [client 3] 2 (#$ . 1778)])
#@97 Destructively set the properties of CLIENT.
The second argument PLIST is the new property list.
(defalias 'sasl-client-set-properties #[(client plist) "\302\303H \"\207" [client plist setplist 4] 3 (#$ . 1909)])
#@41 Add the given PROPERTY/VALUE to CLIENT.
(defalias 'sasl-client-set-property #[(client property value) "\303\304H \n#\207" [client property value put 4] 4 (#$ . 2128)])
#@45 Return the value of the PROPERTY of CLIENT.
(defalias 'sasl-client-property #[(client property) "\302H N\207" [client property 4] 2 (#$ . 2303)])
#@34 Return the properties of CLIENT.
(defalias 'sasl-client-properties #[(client) "\301\302H!\207" [client symbol-plist 4] 3 (#$ . 2456)])
#@123 Make an authentication mechanism.
NAME is a IANA registered SASL mechanism name.
STEPS is list of continuation functions.
(defalias 'sasl-make-mechanism #[(name steps) "\302\303\304 \"\"\207" [name steps vector mapcar #[(step) "\302\303!!\211KM\210 )\207" [step symbol make-symbol symbol-name] 4]] 5 (#$ . 2599)])
#@37 Return name of MECHANISM, a string.
(defalias 'sasl-mechanism-name #[(mechanism) "\301H\207" [mechanism 0] 2 (#$ . 2923)])
#@68 Return the authentication steps of MECHANISM, a list of functions.
(defalias 'sasl-mechanism-steps #[(mechanism) "\301H\207" [mechanism 1] 2 (#$ . 3053)])
#@65 Retrieve an appropriate mechanism object from MECHANISMS hints.
(defalias 'sasl-find-mechanism #[(mechanisms) "\3042% \205$ @ \235\203 \305\304\306@\n\"A@\"\210A\211\204\n \3070\211\203. \310 !\210 \311N*\207" [sasl-mechanisms mechanisms sasl-mechanism-alist mechanism done throw assoc nil require sasl-mechanism] 6 (#$ . 3215)])
#@45 Return the data which STEP holds, a string.
(defalias 'sasl-step-data #[(step) "\301H\207" [step 1] 2 (#$ . 3560)])
#@28 Store DATA string to STEP.
(defalias 'sasl-step-set-data #[(step data) "\302 I\207" [step data 1] 3 (#$ . 3683)])
#@270 Evaluate the challenge and prepare an appropriate next response.
The data type of the value and 2nd argument STEP is nil or opaque
authentication step which holds the reference to the next action and
the current challenge. At the first time STEP should be set to nil.
(defalias 'sasl-next-step #[(client step) "\304\305!!\306\n!\203 \n\307H >A@\202 @\211\205$ \310 \211\n\"\"*\207" [client steps step function sasl-mechanism-steps sasl-client-mechanism vectorp 0 vector] 6 (#$ . 3805)])
(defvar sasl-read-passphrase nil)
(defalias 'sasl-read-passphrase #[(prompt) "\204\" \302\303!\203 \303\202\" \304\305\306\"\203 \303\202\" \307\310\311\"\210\310 !\207" [sasl-read-passphrase prompt functionp read-passwd load "passwd" t autoload ange-ftp-read-passwd "ange-ftp"] 3])
#@98 Compute a data string which must be different each time.
It contain at least 64 bits of entropy.
(defalias 'sasl-unique-id #[nil " P\207" [sasl-unique-id-function] 2 (#$ . 4596)])
(defvar sasl-unique-id-char nil)
(defalias 'sasl-unique-id-function #[nil "\206
\302\303 \304\305\306\"S\"T\307\246\310 \311 @\304\312\246\313\"\\\314\"\311 A@\304\312\245\313\"\\\314\"P)\207" [sasl-unique-id-char tm logand random ash 1 20 625 current-time sasl-unique-id-number-base36 25 16 4] 6])
(defalias 'sasl-unique-id-number-base36 #[(num len) "\302W\203\f \302X\202 \302U\203 \303\207\304 \305\245S\"\306\307 \305\246H!P\207" [len num 0 "" sasl-unique-id-number-base36 36 char-to-string "zyxwvutsrqponmlkjihgfedcba9876543210"] 5])
(defconst sasl-plain-steps '(sasl-plain-response))
(defalias 'sasl-plain-response #[(client step) "\304\305\306\307!\"!\310\302\"\307!\311\216\n\203( \n \230\204( \n\312 \312 \260\202- \312 \312 R,\207" [client name authenticator-name passphrase sasl-read-passphrase format "PLAIN passphrase for %s: " sasl-client-name sasl-client-property #[nil "\301\302\"\207" [passphrase fillarray 0] 3] " "] 5])
(byte-code "\301\302\303\304\305\"#\210\306\302!\207" [sasl-plain-steps put sasl-plain sasl-mechanism sasl-make-mechanism "PLAIN" provide] 6)
(defconst sasl-login-steps '(ignore sasl-login-response-1 sasl-login-response-2))
(defalias 'sasl-login-response-1 #[(client step) "\301!\207" [client sasl-client-name] 2])
(defalias 'sasl-login-response-2 #[(client step) "\301\302\303\304!\"!\207" [client sasl-read-passphrase format "LOGIN passphrase for %s: " sasl-client-name] 5])
(byte-code "\301\302\303\304\305\"#\210\306\302!\207" [sasl-login-steps put sasl-login sasl-mechanism sasl-make-mechanism "LOGIN" provide] 6)
(defconst sasl-anonymous-steps '(ignore sasl-anonymous-response))
(defalias 'sasl-anonymous-response #[(client step) "\301\302\"\206\n \303!\207" [client sasl-client-property trace sasl-client-name] 3])
(byte-code "\301\302\303\304\305\"#\210\306\302!\210\306\307!\207" [sasl-anonymous-steps put sasl-anonymous sasl-mechanism sasl-make-mechanism "ANONYMOUS" provide sasl] 6)
Mini Shell