ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/net/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/net/nsm.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'cl-lib)
(defvar nsm-permanent-host-settings nil)
(defvar nsm-temporary-host-settings nil)
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\304\305\306\301\314\315& \210\310\316\317\320\304\305\306\301\314\321& \210\310\322\302\323\304\305\306\301\314\324& \207" [custom-declare-group nsm nil "Network Security Manager" :version "25.1" :group comm custom-declare-variable network-security-level 'medium "How secure the network should be.\nIf a potential problem with the security of the network\nconnection is found, the user is asked to give input into how the\nconnection should be handled.\n\nThe following values are possible:\n\n`low': Absolutely no checks are performed.\n`medium': This is the default level, should be reasonable for most usage.\n`high': This warns about additional things that many people would\nnot find useful.\n`paranoid': On this level, the user is queried for most new connections.\n\nSee the Emacs manual for a description of all things that are\nchecked and warned against." :type (choice (const :tag "Low" low) (const :tag "Medium" medium) (const :tag "High" high) (const :tag "Paranoid" paranoid)) nsm-settings-file (expand-file-name "network-security.data" user-emacs-directory) "The file the security manager settings will be stored in." file nsm-save-host-names "If non-nil, always save host names in the structures in `nsm-settings-file'.\nBy default, only hosts that have exceptions have their names\nstored in plain text." boolean] 10)
#@116 If non-nil, the connection is opened in a non-interactive context.
This means that no queries should be performed.
(defvar nsm-noninteractive nil (#$ . 1913))
#@713 Verify the security status of PROCESS that's connected to HOST:PORT.
If PROCESS is a gnutls connection, the certificate validity will
be examined. If it's a non-TLS connection, it may be compared
against previous connections. If the function determines that
there is something odd about the connection, the user will be
queried about what to do about it.
The process is returned if everything is OK, and otherwise, the
process will be deleted and nil is returned.
If SAVE-FINGERPRINT, always save the fingerprint of the
server (if the connection is a TLS connection). This is useful
to keep track of the TLS status of STARTTLS servers.
If WARN-UNENCRYPTED, query the user if the connection is
unencrypted.
(defalias 'nsm-verify-connection #[(process host port &optional save-fingerprint warn-unencrypted) "\306=\203 \207\307 !\310 \f\" \311
! \312 !\204 \313\202R \n\2040 \314 \f%\202R \315 \f\n%\211\203P \203P \311
!\204P \316 \f\n\317\320%\210 )+\207" [network-security-level process status host port id low gnutls-peer-status nsm-id nsm-host-settings process-live-p nil nsm-check-plain-connection nsm-check-tls-connection nsm-save-host fingerprint always settings warn-unencrypted save-fingerprint] 7 (#$ . 2079)])
(defalias 'nsm-check-tls-connection #[(process host port status settings) "\306 \n \f%\211\203 \307
!\307\310!Y\203 \311 \n \f%\202! )\207" [process host port status settings network-security-level nsm-check-certificate nsm-level high nsm-check-protocol] 7])
(defalias 'nsm-check-certificate #[(process host port status settings) "\306\307\"\211\204h \310\n!\310\311!W\203 \202\260 \310\n!\310\311!Y\2033 \312\f
$\2043 \313 !\210\314\202\260 \n\315=\203N \204N \316\f
#\204N \313 !\210\314\202\260 \310\n!\310\311!Y\203d \317\f
\320\321%\210 \202\260 \202\260 \n\322\232?\205\260 \312\f
$\204\201 \313 !\210\314\202\260 \323 \"\204\257 \324\f
\325\326\f
G\327V\203\234 \330\202\235 \331\332\333 \334#& \204\257 \313 !\210\314\202\260 )\207" [status warnings network-security-level process host port plist-get :warnings nsm-level high nsm-fingerprint-ok-p delete-process nil paranoid nsm-new-fingerprint-ok-p nsm-save-host fingerprint always low nsm-warnings-ok-p nsm-query conditions "The TLS connection to %s:%s is insecure for the following reason%s:\n\n%s" 1 "s" "" mapconcat gnutls-peer-status-warning-describe "\n" settings] 14])
(defalias 'nsm-check-protocol #[(process host port status settings) "\306\307\"\306\211\310\"\311\"\312\313\306\314\"\306\315\"\306\316\"$\306\317\"\211 \203Q \f\320W\203Q \307\306
\321\">\204Q \322 !\307\323\f !\320& \204Q \324\"!\210\325\202\330 \326\327\n\"\203| \330\306
\321\">\204| \322 !\330\331 !\n&\204| \324\"!\210\325\202\330 \326\332 \"\203\247 \333\306
\321\">\204\247 \322 !\333\334 ! &\204\247 \324\"!\210\325\202\330 \203\326 \326\335 \"\203\326 \336\306
\321\">\204\326 \322 !\336\337 ! &\204\326 \324\"!\210\325\202\330 \",\207" [status protocol encryption signature-algorithm prime-bits settings plist-get :diffie-hellman-prime-bits :certificate :signature-algorithm format "%s-%s-%s" :key-exchange :cipher :mac :protocol 1024 :conditions nsm-query "The Diffie-Hellman prime bits (%s) used for this connection to %s:%s is less than what is considered safe (%s)." delete-process nil string-match "\\bRC4\\b" :rc4 "The connection to %s:%s uses the RC4 algorithm (%s), which is believed to be unsafe." "\\bSHA1\\b" :signature-sha1 "The certificate used to verify the connection to %s:%s uses the SHA1 algorithm (%s), which is believed to be unsafe." "SSL" :ssl "The connection to %s:%s uses the %s protocol, which is believed to be unsafe." host port process] 11])
(defalias 'nsm-fingerprint #[(status) "\301\211\302\"\303\"\207" [status plist-get :certificate :public-key-id] 4])
(defalias 'nsm-fingerprint-ok-p #[(host port status settings) "\305 \2050 \306 \307\"\310=?\2050 \311\n!\306 \307\"\232?\2050 \312 \f\n\313\314 \f\306 \307\"\311\n!& \211??\205? \203> \315 \316\305#\210\317)\207" [did-query settings status host port nil plist-get :fingerprint :none nsm-fingerprint nsm-query fingerprint "The fingerprint for the connection to %s:%s has changed from %s to %s" plist-put :conditions t] 11])
(defalias 'nsm-new-fingerprint-ok-p #[(host port status) "\303 \n\304\305 \306\n!&\207" [host port status nsm-query fingerprint "The fingerprint for the connection to %s:%s is new: %s" nsm-fingerprint] 10])
(defalias 'nsm-check-plain-connection #[(process host port settings warn-unencrypted) "\305\306\"\203# \305\306\"\307=\204# \310 \n\311\312\313 \n&\204# \314 !\210\311\207\f\203C \315\305\316\">\204C \310 \n\311\312\317 \n&\204C \314 !\210\311\207 \207" [settings host port process warn-unencrypted plist-get :fingerprint :none nsm-query nil conditions "The connection to %s:%s used to be an encrypted connection, but is now unencrypted. This might mean that there's a man-in-the-middle tapping this connection." delete-process :unencrypted :conditions "The connection to %s:%s is unencrypted."] 8])
(defalias 'nsm-query #[(host port status what message &rest args) "\206 ?\205: \3061# \3071 \310\n \311\f!#00\202% 0\210\312\202% \210\312\211 \312=?\2059 \313
\f
%\210\314)\207" [noninteractive nsm-noninteractive message args status response (error) (quit) nsm-query-user nsm-format-certificate no nsm-save-host t host port what] 7])
(defalias 'nsm-query-user #[(message args cert) "\306\307!\310 \311\216\n\312\211\223\210\313 B\314\fB \315 \"\316\"!\211 # $\312\211 % &rq\210\317 \210'G\320V\203@ '\321\261\210` (\322\323)*#c\210(b\210\324`\325 \"*&r#q\210\326#\312\"%)\327\330!\203u \330%&\"\210\202x &\210.\331\332\333\312 + , - .+\204\245 \334-\335P!\227.\236A\211+\204\206 \336 \210\337-\202\206 \340!\210\341 \210+.\207" [buffer #1=#:wconfig help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame get-buffer-create "*Network Security Manager*" current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] nil help-mode-setup help-mode-finish selected-frame temp-buffer-window-setup erase-buffer 0 "\n" apply format-message fill-region line-end-position temp-buffer-window-show functionp help-window-setup ((110 . no) (115 . session) (97 . always)) "" t read-char "Continue connecting? (No, Session only, Always) " ding "Invalid choice. " kill-buffer clear-this-command-keys #2=#:vbuffer-or-name #3=#:buffer standard-output #4=#:window #5=#:value cert start message args response cursor-in-echo-area prefix responses] 5])
(defalias 'nsm-save-host #[(host port status what permanency) "\306 \"\307\n\310\311 !\206 \312F
\313=\204 \203& \f\314\315\316 #D\244\210
\313=\203J \2047 \f\317\244\210\202v \320 \321\"\203v \f\322\320 \321\"D\244\210\202v
\323=\204v \324\n!\211 \203\\ \320\f\322\"\203n \320\f\322\"
C\244\210\202u \f\322
CD\244\210)\325=\203\220 \326\n!\210\327\n!\210\f B \330 \202\233 \326\n!\210\f B\211 *\207" [host port id status saved what nsm-id :id :fingerprint nsm-fingerprint :none conditions :host format "%s:%s" (:conditions (:unencrypted)) plist-get :warnings :conditions fingerprint nsm-host-settings always nsm-remove-temporary-setting nsm-remove-permanent-setting nsm-write-settings nsm-save-host-names settings permanency nsm-permanent-host-settings nsm-temporary-host-settings] 7])
(defalias 'nsm-write-settings #[nil "\306\307\310!!\311\216r q\210\312c\210 \313 \211 \203.
@\314c\210\315\fp\"\210\316c\210
A\211\204 *\317c)r q\210\320\313\211\n\313\321%\210,\207" [nsm-settings-file #1=#:temp-buffer #2=#:temp-file nsm-permanent-host-settings setting --dolist-tail-- get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] "(\n" nil " " prin1 "\n" ")\n" write-region 0] 8])
(defalias 'nsm-read-settings #[nil "\303\304!rq\210\305\216\306 !\210eb\210\3071 \310p!0\202 \210\311+\211\207" [#1=#:temp-buffer nsm-settings-file nsm-permanent-host-settings generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents (error) read nil] 2])
(defalias 'nsm-id #[(host port) "\302\303\304\305 #!P\207" [host port "sha1:" sha1 format "%s:%s"] 6])
(defalias 'nsm-host-settings #[(id) "\204
\306 !\203
\307 \210\310\311 \"\310 \211 \2034
@\n\204- \312\f\313\"\f\232\203- \f
A\211\204 *\n)\207" [nsm-permanent-host-settings nsm-settings-file result nsm-temporary-host-settings elem --dolist-tail-- file-exists-p nsm-read-settings nil append plist-get :id id] 4])
(defalias 'nsm-warnings-ok-p #[(status settings) "\306\307\310\"\307 \311\"\312 \211 \203$
@\211 >\204 \312
A\211\204 *\n*\207" [settings conditions ok status warning --dolist-tail-- t plist-get :conditions :warnings nil] 5])
(defalias 'nsm-remove-permanent-setting #[(id) "\301\302\"\211\207" [nsm-permanent-host-settings cl-delete-if #[(elem) "\302\303\" \232\207" [elem id plist-get :id] 3]] 3])
(defalias 'nsm-remove-temporary-setting #[(id) "\301\302\"\211\207" [nsm-temporary-host-settings cl-delete-if #[(elem) "\302\303\" \232\207" [elem id plist-get :id] 3]] 3])
(defalias 'nsm-format-certificate #[(status) "\303\304\"\211\205\312 \305\306!r\nq\210\307\216\310\311\312\303 \313\"\314\315#\316\317\312\303 \320\"\321\"\2061 \312\303 \320\"\322\315#\316\323\312\303 \320\"\314\315#\316\261\n\210\303 \324\"\203[ \303 \325\"\203[ \326\303 \324\"\327\303 \325\"\316\261\210\303\330\"\203\217 \303\331\"\203\217 \303\332\"\203\217 \303\333\"\203\217 \334\303\333\"\335\303\330\"\336\303\331\"\337\303\332\"\316\261 \210\303 \340\"\203\243 \341\342\303 \340\"\343\344#\316\261\210\345\303 \346\"\347\303 \350\"\351\261\210eb\210\352\353\354\315#\203\307 \355\356iZ\357\"c\210\202\264 \360 +)\207" [status cert #1=#:temp-buffer plist-get :certificate generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] "Certificate information\n" "Issued by:" nsm-certificate-part :issuer "CN" t "\n" "Issued to:" :subject "O" "OU" "Hostname:" :public-key-algorithm :signature-algorithm "Public key:" ", signature: " :key-exchange :cipher :mac :protocol "Protocol:" ", key: " ", cipher: " ", mac: " :certificate-security-level "Security level:" propertize face bold "Valid:From " :valid-from " to " :valid-to "\n\n" re-search-forward "^[^:]+:" nil make-string 20 32 buffer-string] 13])
(defalias 'nsm-certificate-part #[(string part &optional full) "\303\304 !\"A@\211\203 \202 \n\203 \202 \305)\207" [part string full assoc nsm-parse-subject nil] 5])
(defalias 'nsm-parse-subject #[(string) "\304\305!rq\210\306\216 c\210eb\210`\307m\2044 \310\311\312 \313\314\307\315#\203) `S\202* `{#\nB`\202 \316\317\n\237\"-\207" [#1=#:temp-buffer string result start generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] nil replace-regexp-in-string "[\\]\\(.\\)" "\\1" re-search-forward "[^\\]," move mapcar #[(elem) "\302\303\"\211\203 \304 O T\305OD\202 )\207" [elem pos cl-position 61 0 nil] 5]] 8])
#@60 Return a numerical level for SYMBOL for easier comparison.
(defalias 'nsm-level #[(symbol) "\301=\203 \302\207\303=\203 \304\207\305=\203 \306\207\307\207" [symbol low 0 medium 1 high 2 3] 2 (#$ . 13240)])
(provide 'nsm)
Kontol Shell Bypass