Current File : //usr/local/share/emacs/27.2/lisp/net/sasl-ntlm.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!\207" [require sasl ntlm] 2)
#@119 A list of functions to be called in sequence for the NTLM
authentication steps. They are called by `sasl-next-step'.
(defconst sasl-ntlm-steps '(ignore sasl-ntlm-request sasl-ntlm-response) (#$ . 472))
#@260 SASL step function to generate a NTLM authentication request to the server.
Called from `sasl-next-step'.
CLIENT is a vector [mechanism user service server sasl-client-properties]
STEP is a vector [<previous step function> <result of previous step function>]
(defalias 'sasl-ntlm-request #[(client step) "\302!\303 !)\207" [client user sasl-client-name ntlm-build-auth-request] 2 (#$ . 682)])
#@143 SASL step function to generate a NTLM response against the server
challenge stored in the 2nd element of STEP. Called from `sasl-next-step'.
(defalias 'sasl-ntlm-response #[(client step) "\305!\306\307\310 \"!\311 ! \312\f \313\n!#+\207" [client user passphrase step challenge sasl-client-name sasl-read-passphrase format "NTLM passphrase for %s: " sasl-step-data ntlm-build-auth-response ntlm-get-password-hashes] 5 (#$ . 1084)])
(byte-code "\301\302\303\304\305\"#\210\306\302!\207" [sasl-ntlm-steps put sasl-ntlm sasl-mechanism sasl-make-mechanism "NTLM" provide] 6)
Mini Shell