ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/obsolete/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/obsolete/pgg-pgp.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\301%\210\307\310\311\312\306\303\313\314&\210\307\315\316\317\306\303\313\314&\210\307\320\321\322\306\303\313\314&\210\307\323\304\324\306\303\313\325&\207" [require pgg custom-declare-group pgg-pgp nil "PGP 2.* and 6.* interface." :group custom-declare-variable pgg-pgp-program "pgp" "PGP 2.* and 6.* executable." :type string pgg-pgp-shell-file-name "/bin/sh" "File name to load inferior shells from.\nBourne shell or its equivalent (not tcsh) is needed for \"2>\"." pgg-pgp-shell-command-switch "-c" "Switch used to have the shell execute its command line argument." pgg-pgp-extra-args "Extra arguments for every PGP invocation." (choice (const :tag "None" nil) (string :tag "Arguments"))] 8)
#@34 PGP ID of your default identity.
(defvar pgg-pgp-user-id nil (#$ . 1157))
(defalias 'pgg-pgp-process-region #[(start end passphrase program args) "\306\307! \n\310\311!R
45 56 78 9\312\211 : ;\312\211 < =r\3137!q\210\314 \210\315 \210)>\203A \316\317\320\"\210\321\216\322\211 ? @\323\3247A\325 Q#;*\326;\327\"\210>\203j \330;>\331P\"\210\332;BC#\210\333;!\210\334;!\335=\203\212 \336;\337\"\210\202x \334;!<\340;!=\341;!\210r7q\210\342 d\312\223 Deb\210\343\344\345\"\203\306 \312\210\346D!`V\203\335 \347c\210\350y\210\202\261 \343\344\211\"\203\335 \351\352D\353#\203\335 \354\355!\210\202\315 )<\356>\203\355 \357\360A=#\210=\361U\203\372 \357\362A\"\210\3139!q\210\314 \210\315 \210\363!.
\207" [errors-file-name args pgg-pgp-extra-args pgg-pgp-shell-file-name shell-file-name pgg-pgp-shell-command-switch pgg-make-temp-file "pgg-errors" " 2>" shell-quote-argument nil get-buffer-create buffer-disable-undo erase-buffer setenv "PGPPASSFD" "0" #[nil "\203 \302!\303=\203 \304!\210\3051 \306 !0\207\210\307\207" [process errors-file-name process-status run interrupt-process (file-error) delete-file nil] 2] binary start-process-shell-command "*PGP*" " " set-process-sentinel ignore process-send-string "\n" process-send-region process-send-eof process-status run accept-process-output 5 process-exit-status delete-process make-marker eql LF CRLF marker-position "
" 1 re-search-forward "
$" t replace-match "" (stop signal) error "%s exited abnormally: `%s'" 127 "%s could not be found" insert-file-contents shell-command-switch process-environment pgg-output-buffer output-buffer pgg-errors-buffer errors-buffer process-connection-type process status exit-status passphrase coding-system-for-write coding-system-for-read program start end pgg-conversion-end] 7])
#@37 Search keys associated with STRING.
(defalias 'pgg-pgp-lookup-key #[(string &optional type) "\304\305\306Fr\307\n!q\210\310 \210\311 \210\312\313 \314\315\314 &\210eb\210\316\317\314\315#\203/ `\320`\\{\202H \316\321\314\315#\205H \322\323!\210\323\324`\314\210`{!8\323\314O*\207" [string args pgg-output-buffer pgg-pgp-program "+batchmode" "+language=en" "-kv" get-buffer-create buffer-disable-undo erase-buffer apply call-process nil t re-search-forward "^pub\\s +[0-9]+/" 8 "^Type" beginning-of-line 2 split-string] 7 (#$ . 2977)])
#@51 Encrypt the current region between START and END.
(defalias 'pgg-pgp-encrypt-region #[(start end recipients &optional sign passphrase) "\206 \n\206 \205 \306\307\310\"\"\311\f\204
\205, \312\313\314\f
\205) C\"\315# \2055 \316\313!PQ \317\320%\210rq\210\321 \322U?\205R \323,\207" [pgg-pgp-user-id pgg-default-user-id passphrase sign recipients pgg-encrypt-for-me pgg-read-passphrase format "PGP passphrase for %s: " "+encrypttoself=off +verbose=1 +batchmode +language=us -fate " mapconcat shell-quote-argument append " " " -s -u " pgg-pgp-process-region nil buffer-size 0 t args start end pgg-pgp-program pgg-output-buffer] 6 (#$ . 3522)])
#@148 Decrypt the current region between START and END.
If optional PASSPHRASE is not specified, it will be obtained from the
passphrase cache or user.
(defalias 'pgg-pgp-decrypt-region #[(start end &optional passphrase) "\206 \306\307\" \206 \310\311\312\"\n\"\313 \314
\f%\210rq\210\315 \316U?\205; \203: \317\n \"\210\320-\207" [pgg-pgp-user-id pgg-default-user-id key passphrase args start pgg-pgp-lookup-key encrypt pgg-read-passphrase format "PGP passphrase for %s: " "+verbose=1 +batchmode +language=us -f" pgg-pgp-process-region buffer-size 0 pgg-add-passphrase-to-cache t end pgg-pgp-program pgg-output-buffer pgg-cache-passphrase] 6 (#$ . 4195)])
#@155 Make detached signature from text between START and END.
If optional PASSPHRASE is not specified, it will be obtained from the
passphrase cache or user.
(defalias 'pgg-pgp-sign-region #[(start end &optional clearsign passphrase) "\206 \n\206 \306\307\310\"\311\312\"\" \203 \313\202 \314\315\316\317!R \320
\n \f%\210r q\210\321 \322U?\205d eb\210\323\324\325\326#\203c \327\330\331\327!\210`d\"\236A \203b \332\333 \236A\n\"\210)\326,\207" [pgg-pgp-user-id pgg-default-user-id passphrase clearsign args start pgg-read-passphrase format "PGP passphrase for %s: " pgg-pgp-lookup-key sign "-fast" "-fbast" " +verbose=1 +language=us +batchmode" " -u " shell-quote-argument pgg-pgp-process-region buffer-size 0 re-search-forward "^-+BEGIN PGP" nil t 2 pgg-parse-armor-region beginning-of-line pgg-add-passphrase-to-cache key-identifier end pgg-pgp-program pgg-output-buffer packet pgg-cache-passphrase] 6 (#$ . 4872)])
#@74 Verify region between START and END as the detached signature SIGNATURE.
(defalias 'pgg-pgp-verify-region #[(start end &optional signature) "\306\307!\310\311 \312\216\313\314!\210\315\316\211 \317 #\210- ;\2037 \320 \321P\211 \"\210 \322\323 !Q \322\323!Q\324``\316! %\210\325!\210 \203U \325 !\210r\"q\210\326 \327U?\205\221 eb\210\330 #\331\332\316\330#\203| \327\224\333\334!\210`|\210\202h )eb\210\331\335\316\330#\203\220 e\333\334!\210`|\210\330+\207" [orig-file args #1=#:umask jam-zcat-filename-list jka-compr-compression-info-list coding-system-for-write pgg-make-temp-file "pgg" "+verbose=1 +batchmode +language=us" default-file-modes #[nil "\301!\207" [#1# set-default-file-modes] 2] set-default-file-modes 448 binary nil write-region copy-file ".asc" " " shell-quote-argument pgg-pgp-process-region delete-file buffer-size 0 t re-search-forward "^warning: " beginning-of-line 2 "^\\.$" start end signature pgg-pgp-program pgg-output-buffer case-fold-search] 6 (#$ . 5813)])
#@29 Insert public key at point.
(defalias 'pgg-pgp-insert-key #[nil "\206 \305\306!P\307``\310 \n%\210\311\f!*\207" [pgg-pgp-user-id pgg-default-user-id args pgg-pgp-program pgg-output-buffer "+verbose=1 +batchmode +language=us -kxaf " shell-quote-argument pgg-pgp-process-region nil insert-buffer-substring] 6 (#$ . 6829)])
#@69 Add all public keys in region between START and END to the keyring.
(defalias 'pgg-pgp-snarf-keys-region #[(start end) "\206 \306\307!\310\311\n!P\312 \313
\n#\210)\314
\315 %\210\316\n!\210rq\210\317 \320U?\2056 \321,\207" [pgg-pgp-user-id pgg-default-user-id key-file args coding-system-for-write start pgg-make-temp-file "pgg" "+verbose=1 +batchmode +language=us -kaf " shell-quote-argument raw-text-dos write-region pgg-pgp-process-region nil delete-file buffer-size 0 t end pgg-pgp-program pgg-output-buffer] 6 (#$ . 7162)])
(provide 'pgg-pgp)
Kontol Shell Bypass