Gecko [ 122.154.134.11 ]

Name	Size	Permission
ange-ftp.elc	116.81 KB	-rw-r--r--
browse-url.el.xdg	57.99 KB	-rw-r--r--
browse-url.elc	46.94 KB	-rw-r--r--
dbus.elc	28.38 KB	-rw-r--r--
dig.elc	5.08 KB	-rw-r--r--
dns.elc	11.33 KB	-rw-r--r--
eudc-bob.elc	9.11 KB	-rw-r--r--
eudc-export.elc	5.9 KB	-rw-r--r--
eudc-hotlist.elc	5.71 KB	-rw-r--r--
eudc-vars.elc	14.61 KB	-rw-r--r--
eudc.elc	32.17 KB	-rw-r--r--
eudcb-bbdb.elc	5.41 KB	-rw-r--r--
eudcb-ldap.elc	5.18 KB	-rw-r--r--
eudcb-mab.elc	2.88 KB	-rw-r--r--
eudcb-ph.elc	6.44 KB	-rw-r--r--
goto-addr.elc	9.28 KB	-rw-r--r--
hmac-def.elc	2.07 KB	-rw-r--r--
hmac-md5.elc	2.15 KB	-rw-r--r--
imap.elc	104.58 KB	-rw-r--r--
ldap.elc	14.29 KB	-rw-r--r--
mairix.elc	24.37 KB	-rw-r--r--
net-utils.elc	25.21 KB	-rw-r--r--
netrc.elc	4.79 KB	-rw-r--r--
newst-backend.elc	66.66 KB	-rw-r--r--
newst-plainview.elc	51.17 KB	-rw-r--r--
newst-reader.elc	28.81 KB	-rw-r--r--
newst-ticker.elc	7.82 KB	-rw-r--r--
newst-treeview.elc	67.9 KB	-rw-r--r--
newsticker.elc	1.01 KB	-rw-r--r--
ntlm.elc	12.39 KB	-rw-r--r--
quickurl.elc	16.54 KB	-rw-r--r--
rcirc.elc	89.27 KB	-rw-r--r--
rcompile.elc	3.51 KB	-rw-r--r--
rlogin.elc	10.63 KB	-rw-r--r--
sasl-cram.elc	1.25 KB	-rw-r--r--
sasl-digest.elc	3.75 KB	-rw-r--r--
sasl-ntlm.elc	1.82 KB	-rw-r--r--
sasl.elc	7.39 KB	-rw-r--r--
snmp-mode.elc	15.08 KB	-rw-r--r--
socks.elc	16.21 KB	-rw-r--r--
telnet.elc	9.03 KB	-rw-r--r--
tls.elc	8.04 KB	-rw-r--r--
tramp-cache.elc	8.96 KB	-rw-r--r--
tramp-cmds.elc	9.4 KB	-rw-r--r--
tramp-compat.elc	6 KB	-rw-r--r--
tramp-fish.elc	54.2 KB	-rw-r--r--
tramp-ftp.elc	5.33 KB	-rw-r--r--
tramp-gw.elc	13.27 KB	-rw-r--r--
tramp-smb.elc	50.78 KB	-rw-r--r--
tramp-uu.elc	1.88 KB	-rw-r--r--
tramp.elc	278.99 KB	-rw-r--r--
trampver.elc	1.06 KB	-rw-r--r--
webjump.elc	13.86 KB	-rw-r--r--
xesam.elc	24.5 KB	-rw-r--r--
zeroconf.elc	17.98 KB	-rw-r--r--

Code Editor : sasl.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:33 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/net/sasl.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`sasl.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\306\"\210\307B\302\307!\204-�\303\307\211\"\210\310\311\312\313#\210\310\311\314\315#\207" [current-load-list sasl-mechanisms default-boundp set-default ("CRAM-MD5" "DIGEST-MD5" "PLAIN" "LOGIN" "ANONYMOUS" "NTLM" "SCRAM-MD5") sasl-mechanism-alist (("CRAM-MD5" sasl-cram) ("DIGEST-MD5" sasl-digest) ("PLAIN" sasl-plain) ("LOGIN" sasl-login) ("ANONYMOUS" sasl-anonymous) ("NTLM" sasl-ntlm) ("SCRAM-MD5" sasl-scram)) sasl-unique-id-function 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 (#$ . 1290)])
#@55 Return the authentication mechanism driver of CLIENT.
(defalias 'sasl-client-mechanism #[(client) "\301H\207" [client 0] 2 (#$ . 1664)])
#@52 Return the authorization name of CLIENT, a string.
(defalias 'sasl-client-name #[(client) "\301H\207" [client 1] 2 (#$ . 1808)])
#@46 Return the service name of CLIENT, a string.
(defalias 'sasl-client-service #[(client) "\301H\207" [client 2] 2 (#$ . 1944)])
#@45 Return the server name of CLIENT, a string.
(defalias 'sasl-client-server #[(client) "\301H\207" [client 3] 2 (#$ . 2077)])
#@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 (#$ . 2208)])
#@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 (#$ . 2427)])
#@45 Return the value of the PROPERTY of CLIENT.
(defalias 'sasl-client-property #[(client property) "\302H	N\207" [client property 4] 2 (#$ . 2602)])
#@34 Return the properties of CLIENT.
(defalias 'sasl-client-properties #[(client) "\301\302H!\207" [client symbol-plist 4] 3 (#$ . 2755)])
#@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 (#$ . 2898)])
#@37 Return name of MECHANISM, a string.
(defalias 'sasl-mechanism-name #[(mechanism) "\301H\207" [mechanism 0] 2 (#$ . 3222)])
#@68 Return the authentication steps of MECHANISM, a list of functions.
(defalias 'sasl-mechanism-steps #[(mechanism) "\301H\207" [mechanism 1] 2 (#$ . 3352)])
#@65 Retrieve an appropriate mechanism object from MECHANISMS hints.
(defalias 'sasl-find-mechanism #[(mechanisms) "\302\303\215\211\203�\304	!\210	\305N*\207" [sasl-mechanisms mechanism done (byte-code "\205�@	\235\203�\303\304\305@\n\"A@\"\210A\211\204�\306\207" [sasl-mechanisms mechanisms sasl-mechanism-alist throw done assoc nil] 6) require sasl-mechanism] 3 (#$ . 3514)])
#@45 Return the data which STEP holds, a string.
(defalias 'sasl-step-data #[(step) "\301H\207" [step 1] 2 (#$ . 3906)])
#@28 Store DATA string to STEP.
(defalias 'sasl-step-set-data #[(step data) "\302	I\207" [step data 1] 3 (#$ . 4029)])
#@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 (#$ . 4151)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list sasl-read-passphrase default-boundp set-default nil] 3)
(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 (#$ . 5045)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list sasl-unique-id-char default-boundp set-default nil] 3)
(defalias 'sasl-unique-id-function #[nil "\206�\302\303\304!\305\306\307\"S\"T\310\246\311 \312	@\305\313\246\314\"\\\315\"\312	A@\305\313\245\314\"\\\315\"P)\207" [sasl-unique-id-char tm logand random t lsh 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])
(byte-code "\301B\302\303!\207" [current-load-list sasl-plain-steps (lambda (#1=#:defconst-tmp-var) (defconst sasl-plain-steps #1#)) (sasl-plain-response)] 2)
(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	\312R,\207" [client name authenticator-name passphrase sasl-read-passphrase format "PLAIN passphrase for %s: " sasl-client-name sasl-client-property ((fillarray passphrase 0)) "�"] 5])
(byte-code "\302\303\304\305\306\"#\210\307\303!\210\310	B\311\312!\207" [sasl-plain-steps current-load-list put sasl-plain sasl-mechanism sasl-make-mechanism "PLAIN" provide sasl-login-steps (lambda (#1=#:defconst-tmp-var) (defconst sasl-login-steps #1#)) (ignore sasl-login-response-1 sasl-login-response-2)] 6)
(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 "\302\303\304\305\306\"#\210\307\303!\210\310	B\311\312!\207" [sasl-login-steps current-load-list put sasl-login sasl-mechanism sasl-make-mechanism "LOGIN" provide sasl-anonymous-steps (lambda (#1=#:defconst-tmp-var) (defconst sasl-anonymous-steps #1#)) (ignore sasl-anonymous-response)] 6)
(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)

${this.title}

Code Editor : sasl.elc