HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/net/tls.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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\302\303\304\"\210\302\305\304\"\210\306\307\310\311\312\313%\210\314\315\316\317\320\321\322\323\312\307&	\210\314\324\325\326\322\327\320\330\312\307&	\210\314\331\310\332\320\333\322\334\312\307&	\210\314\335\336\337\320\333\322\323\312\307&	\210\314\340\310\341\322\342\320\343\312\307&	\210\314\344\345\346\322\323\320\343\312\307&	\210\314\347\350\351\322\323\320\343\312\307&	\210\314\352\353\354\320\333\322\355\312\307&	\210\356\357\360\361!\203\212\361\202\213\362\"\207" [require gnutls autoload format-spec "format-spec" format-spec-make custom-declare-group tls nil "Transport Layer Security (TLS) parameters." :group comm custom-declare-variable tls-end-of-info (concat "\\(" "^    Verify return code: .+\n---\n\\|" "^- Simple Client Mode:\n" "\\(\n\\|" "^\\*\\*\\* Starting TLS handshake\n\\)*" "\\)") "Regexp matching end of TLS client informational messages.\nClient data stream begins after the last character this matches.\nThe default matches the output of \"gnutls-cli\" (version 2.0.1)." :version "22.2" :type regexp tls-program '("gnutls-cli --x509cafile %t -p %p %h" "gnutls-cli --x509cafile %t -p %p %h --protocols ssl3") "List of strings containing commands to start TLS stream to a host.\nEach entry in the list is tried until a connection is successful.\n%h is replaced with the server hostname, %p with the port to\nconnect to, and %t with a file name containing trusted certificates.\nThe program should read input on stdin and write output to stdout.\n\nSee `tls-checktrust' on how to check trusted root certs.\n\nAlso see `tls-success' for what the program should output after\nsuccessful negotiation." (choice (const :tag "Default list of commands" ("gnutls-cli --x509cafile %t -p %p %h" "gnutls-cli --x509cafile %t -p %p %h --protocols ssl3")) (list :tag "Choose commands" :value ("gnutls-cli --x509cafile %t -p %p %h" "gnutls-cli --x509cafile %t -p %p %h --protocols ssl3") (set :inline t (const "gnutls-cli --insecure -p %p %h") (const "gnutls-cli --insecure -p %p %h --protocols ssl3")) (repeat :inline t :tag "Other" (string))) (list :tag "List of commands" (repeat :tag "Command" (string)))) "26.1" tls-process-connection-type "Value for `process-connection-type' to use when starting TLS process." "22.1" boolean tls-success "- Handshake was completed\\|SSL handshake has read " "Regular expression indicating completed TLS handshakes.\nThe default is what GnuTLS's \"gnutls-cli\" outputs." tls-checktrust "Indicate if certificates should be checked against trusted root certs.\nIf this is `ask', the user can decide whether to accept an\nuntrusted certificate.  You may have to adapt `tls-program' in\norder to make this feature work properly, i.e., to ensure that\nthe external program knows about the root certificates you\nconsider trustworthy, e.g.:\n\n(setq tls-program\n      \\='(\"gnutls-cli --x509cafile /etc/ssl/certs/ca-certificates.crt -p %p %h\"\n	\"gnutls-cli --x509cafile /etc/ssl/certs/ca-certificates.crt -p %p %h --protocols ssl3\"))" (choice (const :tag "Always" t) (const :tag "Never" nil) (const :tag "Ask" ask)) "23.1" tls-untrusted "- Peer's certificate is NOT trusted\\|Verify return code: \\([^0] \\|.[^ ]\\)" "Regular expression indicating failure of TLS certificate verification.\nThe default is what GnuTLS's \"gnutls-cli\" returns in the event of\nunsuccessful verification." tls-hostmismatch "# The hostname in the certificate does NOT match" "Regular expression indicating a host name mismatch in certificate.\nWhen the host name specified in the certificate doesn't match the\nname of the host you are connecting to, gnutls-cli issues a\nwarning to this effect.  There is no such feature in openssl.  Set\nthis to nil if you want to ignore host name mismatches." tls-certtool-program "certtool" "Name of GnuTLS certtool.\nUsed by `tls-certificate-information'." string defalias tls-format-message fboundp format-message format] 10)
#@59 Parse X.509 certificate in DER format into an assoc list.
(defalias 'tls-certificate-information #[(der) "\305\306!\307Q\310r\311\312!q\210\313 \210\nc\210\3141)\315ed\316p\317D\316\320&0\202+\210\321\211\310U\205O\317eb\210\322\323\317\316#\203L\324\325!\324\326!B\fB\2027\f\237)+\207" [der exit-code certificate tls-certtool-program vals "-----BEGIN CERTIFICATE-----\n" base64-encode-string "\n-----END CERTIFICATE-----\n" 0 get-buffer-create " *certtool*" erase-buffer (error) call-process-region t nil "--certificate-info" -1 re-search-forward "^\\([^:]+\\): \\(.*\\)" match-string 1 2] 9 (#$ . 4340)])
#@665 Open a TLS connection for a port to a host.
Returns a subprocess-object to represent the connection.
Input and output work as for subprocesses; `delete-process' closes it.
Args are NAME BUFFER HOST PORT.
NAME is name for process.  It is modified if necessary to make it unique.
BUFFER is the buffer (or buffer name) to associate with the process.
 Process output goes at end of that buffer, unless you specify
 a filter function to handle the output.
 BUFFER may be also nil, meaning that this process is not associated
 with any buffer
Third arg is name of the host to connect to, or its IP address.
Fourth arg PORT is an integer specifying a port to connect to.
(defalias 'open-tls-stream #[(name buffer host port) "	?\306\211\211,
\203\307\310!\202)\311	!\203%\312\311	!!\204)\307	!\210r	q\210\313\314-\"\210\n\204\350,\211A,\242\211\203\350.\315\316\317\320 @\321-\322/\250\203]\323/!\202_/&\"01\313\3240\"\210\3252	340%\f\203\240\326\f!\327>\203\240eb\210\3305\306\331#\211\204\240\332\f\333\"\204x\334\333!\210\202x\313\3350\n\203\254\336\202\255\337#\210\n\204\272\340\f!\210\202\344\3066\212\3307\306\331#\205\311\341\225)\2116\204\330\332\f\333\"\210\202\2756\203\3416b\210)\f*\2023\n\203;8\203\212eb\210\3309\306\331#)\2038\342=\204\313\343-\"\2045\344\345\346-\"!\2035:\203;\212eb\210\330:\306\331#)\203;\344\347\350-\"!\204;\306\340\f!\210e`|\210)\313\351-\n\203L\336\202M\337#\210
\203`\n\203\\\352\f\306\"\210\353	!\210\n-\207" [tls-program buffer done cmd process use-temp-buffer nil generate-new-buffer " TLS" get-buffer buffer-name message "Opening TLS connection to `%s'..." format-spec format-spec-make 116 gnutls-trustfiles 104 112 int-to-string "Opening TLS connection with `%s'..." start-process process-status (open run) re-search-forward t accept-process-output 1 sit-for "Opening TLS connection with `%s'...%s" "done" "failed" delete-process 0 ask "The certificate presented by `%s' is NOT trusted." yes-or-no-p tls-format-message "The certificate presented by `%s' is NOT trusted. Accept anyway? " format "Host name in certificate doesn't match `%s'. Connect anyway? " "Opening TLS connection to `%s'...%s" set-process-buffer kill-buffer cmds host tls-process-connection-type port formatted-cmd process-connection-type name shell-file-name shell-command-switch tls-success start-of-data tls-end-of-info tls-checktrust tls-untrusted tls-hostmismatch] 11 (#$ . 4967)])
(provide 'tls)