Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
calc
[ DIR ]
drwxr-xr-x
calendar
[ DIR ]
drwxr-xr-x
emacs-lisp
[ DIR ]
drwxr-xr-x
emulation
[ DIR ]
drwxr-xr-x
erc
[ DIR ]
drwxr-xr-x
eshell
[ DIR ]
drwxr-xr-x
gnus
[ DIR ]
drwxr-xr-x
international
[ DIR ]
drwxr-xr-x
language
[ DIR ]
drwxr-xr-x
mail
[ DIR ]
drwxr-xr-x
mh-e
[ DIR ]
drwxr-xr-x
net
[ DIR ]
drwxr-xr-x
nxml
[ DIR ]
drwxr-xr-x
obsolete
[ DIR ]
drwxr-xr-x
org
[ DIR ]
drwxr-xr-x
play
[ DIR ]
drwxr-xr-x
progmodes
[ DIR ]
drwxr-xr-x
term
[ DIR ]
drwxr-xr-x
textmodes
[ DIR ]
drwxr-xr-x
url
[ DIR ]
drwxr-xr-x
COPYING
34.32
KB
-rw-r--r--
README
538
B
-rw-r--r--
abbrev.elc
29.69
KB
-rw-r--r--
abbrevlist.elc
1.12
KB
-rw-r--r--
add-log.elc
35.21
KB
-rw-r--r--
align.elc
38.38
KB
-rw-r--r--
allout.elc
208.3
KB
-rw-r--r--
ansi-color.elc
16.3
KB
-rw-r--r--
apropos.elc
31.93
KB
-rw-r--r--
arc-mode.elc
54.72
KB
-rw-r--r--
array.elc
25.83
KB
-rw-r--r--
autoarg.elc
5.98
KB
-rw-r--r--
autoinsert.elc
12.01
KB
-rw-r--r--
autorevert.elc
18.25
KB
-rw-r--r--
avoid.elc
10.17
KB
-rw-r--r--
battery.elc
17.98
KB
-rw-r--r--
bindings.elc
39.04
KB
-rw-r--r--
bookmark.elc
55.9
KB
-rw-r--r--
bs.elc
48.34
KB
-rw-r--r--
buff-menu.elc
28
KB
-rw-r--r--
button.elc
13.92
KB
-rw-r--r--
calculator.elc
49.18
KB
-rw-r--r--
case-table.elc
4.42
KB
-rw-r--r--
cdl.elc
1.26
KB
-rw-r--r--
chistory.elc
5.75
KB
-rw-r--r--
cmuscheme.elc
17.43
KB
-rw-r--r--
comint.elc
100.97
KB
-rw-r--r--
compare-w.elc
10.98
KB
-rw-r--r--
complete.elc
23.62
KB
-rw-r--r--
completion.elc
45.06
KB
-rw-r--r--
composite.elc
29.39
KB
-rw-r--r--
cus-dep.elc
5.04
KB
-rw-r--r--
cus-edit.elc
129.67
KB
-rw-r--r--
cus-face.elc
10.46
KB
-rw-r--r--
cus-load.el
63.45
KB
-rw-r--r--
cus-start.elc
10.67
KB
-rw-r--r--
cus-theme.elc
13.7
KB
-rw-r--r--
custom.elc
36.46
KB
-rw-r--r--
cvs-status.elc
23
KB
-rw-r--r--
dabbrev.elc
23.08
KB
-rw-r--r--
delim-col.elc
8.41
KB
-rw-r--r--
delsel.elc
5.24
KB
-rw-r--r--
descr-text.elc
20.69
KB
-rw-r--r--
desktop.elc
34.52
KB
-rw-r--r--
dframe.elc
22.51
KB
-rw-r--r--
diff-mode.elc
55.58
KB
-rw-r--r--
diff.elc
5.51
KB
-rw-r--r--
dired-aux.elc
67.5
KB
-rw-r--r--
dired-x.elc
44.96
KB
-rw-r--r--
dired.elc
96.48
KB
-rw-r--r--
dirtrack.elc
7.39
KB
-rw-r--r--
disp-table.elc
8.33
KB
-rw-r--r--
dnd.elc
7.04
KB
-rw-r--r--
doc-view.elc
36.01
KB
-rw-r--r--
dos-fns.elc
5.53
KB
-rw-r--r--
dos-vars.elc
1.24
KB
-rw-r--r--
dos-w32.elc
11.12
KB
-rw-r--r--
double.elc
4.13
KB
-rw-r--r--
ebuff-menu.elc
9.11
KB
-rw-r--r--
echistory.elc
4.93
KB
-rw-r--r--
ediff-diff.elc
35.54
KB
-rw-r--r--
ediff-help.elc
11.47
KB
-rw-r--r--
ediff-hook.elc
5.89
KB
-rw-r--r--
ediff-init.elc
60.88
KB
-rw-r--r--
ediff-merg.elc
10.04
KB
-rw-r--r--
ediff-mult.elc
58.31
KB
-rw-r--r--
ediff-ptch.elc
18.63
KB
-rw-r--r--
ediff-util.elc
118.44
KB
-rw-r--r--
ediff-vers.elc
4.74
KB
-rw-r--r--
ediff-wind.elc
30.56
KB
-rw-r--r--
ediff.elc
36.28
KB
-rw-r--r--
edmacro.elc
21.45
KB
-rw-r--r--
ehelp.elc
11.03
KB
-rw-r--r--
electric.elc
2.81
KB
-rw-r--r--
elide-head.elc
2.8
KB
-rw-r--r--
emacs-lock.elc
2.77
KB
-rw-r--r--
emerge.elc
80.16
KB
-rw-r--r--
env.elc
5.69
KB
-rw-r--r--
epa-dired.elc
1.87
KB
-rw-r--r--
epa-file.elc
6.77
KB
-rw-r--r--
epa-hook.elc
4.28
KB
-rw-r--r--
epa-mail.elc
7.04
KB
-rw-r--r--
epa.elc
34.03
KB
-rw-r--r--
epg-config.elc
4.01
KB
-rw-r--r--
epg.elc
85.05
KB
-rw-r--r--
expand.elc
9.42
KB
-rw-r--r--
ezimage.elc
9.2
KB
-rw-r--r--
face-remap.elc
13.15
KB
-rw-r--r--
facemenu.elc
23.61
KB
-rw-r--r--
faces.elc
81.51
KB
-rw-r--r--
ffap.elc
46.14
KB
-rw-r--r--
filecache.elc
16.1
KB
-rw-r--r--
files.elc
175.25
KB
-rw-r--r--
filesets.elc
73.03
KB
-rw-r--r--
find-cmd.elc
4.94
KB
-rw-r--r--
find-dired.elc
7.4
KB
-rw-r--r--
find-file.elc
18.68
KB
-rw-r--r--
find-lisp.elc
7.42
KB
-rw-r--r--
finder-inf.el
93.47
KB
-rw-r--r--
finder.elc
12.11
KB
-rw-r--r--
flow-ctrl.elc
2.44
KB
-rw-r--r--
foldout.elc
7.6
KB
-rw-r--r--
follow.elc
37.11
KB
-rw-r--r--
font-core.elc
12.92
KB
-rw-r--r--
font-lock.elc
61.1
KB
-rw-r--r--
format-spec.elc
1.98
KB
-rw-r--r--
format.elc
27.73
KB
-rw-r--r--
forms-d2.el
3.13
KB
-rw-r--r--
forms-pass.el
742
B
-rw-r--r--
forms.elc
35.13
KB
-rw-r--r--
frame.elc
48.66
KB
-rw-r--r--
fringe.elc
8.01
KB
-rw-r--r--
generic-x.elc
44.25
KB
-rw-r--r--
gs.elc
3.93
KB
-rw-r--r--
help-at-pt.elc
11.27
KB
-rw-r--r--
help-fns.elc
21.77
KB
-rw-r--r--
help-macro.elc
4.37
KB
-rw-r--r--
help-mode.elc
19.38
KB
-rw-r--r--
help.elc
40.91
KB
-rw-r--r--
hex-util.elc
1.48
KB
-rw-r--r--
hexl.elc
32.06
KB
-rw-r--r--
hi-lock.elc
23.27
KB
-rw-r--r--
hilit-chg.elc
28.02
KB
-rw-r--r--
hippie-exp.elc
23.39
KB
-rw-r--r--
hl-line.elc
7.71
KB
-rw-r--r--
ibuf-ext.elc
54.62
KB
-rw-r--r--
ibuf-macs.elc
11.65
KB
-rw-r--r--
ibuffer.elc
91.96
KB
-rw-r--r--
icomplete.elc
10.36
KB
-rw-r--r--
ido.elc
110.93
KB
-rw-r--r--
ielm.elc
17.67
KB
-rw-r--r--
iimage.elc
4.06
KB
-rw-r--r--
image-dired.elc
82.24
KB
-rw-r--r--
image-file.elc
6.11
KB
-rw-r--r--
image-mode.elc
14.54
KB
-rw-r--r--
image.elc
17.09
KB
-rw-r--r--
imenu.elc
24.8
KB
-rw-r--r--
indent.elc
17
KB
-rw-r--r--
info-look.elc
26.13
KB
-rw-r--r--
info-xref.elc
7.04
KB
-rw-r--r--
info.elc
119.11
KB
-rw-r--r--
informat.elc
9.69
KB
-rw-r--r--
isearch.elc
76.23
KB
-rw-r--r--
isearchb.elc
4.92
KB
-rw-r--r--
iswitchb.elc
32.11
KB
-rw-r--r--
jit-lock.elc
17.93
KB
-rw-r--r--
jka-cmpr-hook.elc
11.67
KB
-rw-r--r--
jka-compr.elc
12.64
KB
-rw-r--r--
json.elc
13.04
KB
-rw-r--r--
kermit.elc
2.96
KB
-rw-r--r--
kmacro.elc
31.07
KB
-rw-r--r--
ldefs-boot.el
1.17
MB
-rw-r--r--
ledit.elc
4.74
KB
-rw-r--r--
linum.elc
9.56
KB
-rw-r--r--
loaddefs.el
1.17
MB
-rw-r--r--
loadhist.elc
8.65
KB
-rw-r--r--
loadup.el
12.67
KB
-rw-r--r--
locate.elc
17.81
KB
-rw-r--r--
log-edit.elc
24.93
KB
-rw-r--r--
log-view.elc
14.06
KB
-rw-r--r--
longlines.elc
14.94
KB
-rw-r--r--
lpr.elc
8.61
KB
-rw-r--r--
ls-lisp.elc
17.35
KB
-rw-r--r--
macros.elc
6.99
KB
-rw-r--r--
makesum.elc
2.16
KB
-rw-r--r--
man.elc
40.03
KB
-rw-r--r--
master.elc
4.52
KB
-rw-r--r--
mb-depth.elc
3.12
KB
-rw-r--r--
md4.elc
8.14
KB
-rw-r--r--
menu-bar.elc
67.01
KB
-rw-r--r--
midnight.elc
8.92
KB
-rw-r--r--
minibuf-eldef.elc
5.15
KB
-rw-r--r--
minibuffer.elc
42.75
KB
-rw-r--r--
misc.elc
3.67
KB
-rw-r--r--
misearch.elc
8.96
KB
-rw-r--r--
mouse-copy.elc
4.07
KB
-rw-r--r--
mouse-drag.elc
7.33
KB
-rw-r--r--
mouse-sel.elc
20.93
KB
-rw-r--r--
mouse.elc
60.03
KB
-rw-r--r--
msb.elc
27.27
KB
-rw-r--r--
mwheel.elc
9.41
KB
-rw-r--r--
newcomment.elc
32.76
KB
-rw-r--r--
novice.elc
4.75
KB
-rw-r--r--
outline.elc
34.54
KB
-rw-r--r--
paren.elc
6.43
KB
-rw-r--r--
password-cache.elc
3.58
KB
-rw-r--r--
patcomp.el
775
B
-rw-r--r--
paths.el
7.28
KB
-rw-r--r--
pcmpl-cvs.elc
6
KB
-rw-r--r--
pcmpl-gnu.elc
8.21
KB
-rw-r--r--
pcmpl-linux.elc
3.17
KB
-rw-r--r--
pcmpl-rpm.elc
7.5
KB
-rw-r--r--
pcmpl-unix.elc
5.44
KB
-rw-r--r--
pcomplete.elc
34.1
KB
-rw-r--r--
pcvs-defs.elc
16.27
KB
-rw-r--r--
pcvs-info.elc
25.83
KB
-rw-r--r--
pcvs-parse.elc
15.34
KB
-rw-r--r--
pcvs-util.elc
26.8
KB
-rw-r--r--
pcvs.elc
85.52
KB
-rw-r--r--
pgg-def.elc
2.78
KB
-rw-r--r--
pgg-gpg.elc
13.09
KB
-rw-r--r--
pgg-parse.elc
13.45
KB
-rw-r--r--
pgg-pgp.elc
7.64
KB
-rw-r--r--
pgg-pgp5.elc
7.68
KB
-rw-r--r--
pgg.elc
18.01
KB
-rw-r--r--
printing.elc
157.56
KB
-rw-r--r--
proced.elc
57.95
KB
-rw-r--r--
ps-bdf.elc
13.34
KB
-rw-r--r--
ps-def.elc
3.09
KB
-rw-r--r--
ps-mule.elc
36.17
KB
-rw-r--r--
ps-print.elc
145.59
KB
-rw-r--r--
ps-samp.elc
5.5
KB
-rw-r--r--
recentf.elc
49.04
KB
-rw-r--r--
rect.elc
10.79
KB
-rw-r--r--
register.elc
10.69
KB
-rw-r--r--
repeat.elc
6.05
KB
-rw-r--r--
replace.elc
55.02
KB
-rw-r--r--
reposition.elc
2.88
KB
-rw-r--r--
reveal.elc
6.61
KB
-rw-r--r--
rfn-eshadow.elc
7.12
KB
-rw-r--r--
rot13.elc
2.6
KB
-rw-r--r--
ruler-mode.elc
22.48
KB
-rw-r--r--
s-region.elc
3.3
KB
-rw-r--r--
savehist.elc
10.57
KB
-rw-r--r--
saveplace.elc
7.51
KB
-rw-r--r--
sb-image.elc
2.51
KB
-rw-r--r--
scroll-all.elc
4.05
KB
-rw-r--r--
scroll-bar.elc
11.47
KB
-rw-r--r--
scroll-lock.elc
4.64
KB
-rw-r--r--
select.elc
11.8
KB
-rw-r--r--
server.elc
39.79
KB
-rw-r--r--
ses.elc
87.39
KB
-rw-r--r--
sha1.elc
8
KB
-rw-r--r--
shadowfile.elc
22.61
KB
-rw-r--r--
shell.elc
34.08
KB
-rw-r--r--
simple.elc
196.35
KB
-rw-r--r--
skeleton.elc
15.78
KB
-rw-r--r--
smerge-mode.elc
33.61
KB
-rw-r--r--
sort.elc
12.94
KB
-rw-r--r--
soundex.elc
1.34
KB
-rw-r--r--
speedbar.elc
115.06
KB
-rw-r--r--
startup.elc
60.78
KB
-rw-r--r--
strokes.elc
44.11
KB
-rw-r--r--
subdirs.el
426
B
-rw-r--r--
subr.elc
113.48
KB
-rw-r--r--
t-mouse.elc
3.38
KB
-rw-r--r--
tabify.elc
2
KB
-rw-r--r--
talk.elc
3.19
KB
-rw-r--r--
tar-mode.elc
52.24
KB
-rw-r--r--
tempo.elc
18.63
KB
-rw-r--r--
term.elc
99.67
KB
-rw-r--r--
terminal.elc
31.36
KB
-rw-r--r--
thingatpt.elc
10.84
KB
-rw-r--r--
thumbs.elc
26.23
KB
-rw-r--r--
time-stamp.elc
21.03
KB
-rw-r--r--
time.elc
18.2
KB
-rw-r--r--
timezone.elc
10.99
KB
-rw-r--r--
tmm.elc
13.9
KB
-rw-r--r--
tool-bar.elc
9.69
KB
-rw-r--r--
tooltip.elc
12.35
KB
-rw-r--r--
tree-widget.elc
20.87
KB
-rw-r--r--
tutorial.elc
21.41
KB
-rw-r--r--
type-break.elc
35.61
KB
-rw-r--r--
uniquify.elc
19.91
KB
-rw-r--r--
userlock.elc
4.69
KB
-rw-r--r--
vc-annotate.elc
22.68
KB
-rw-r--r--
vc-arch.elc
17.58
KB
-rw-r--r--
vc-bzr.elc
26.84
KB
-rw-r--r--
vc-cvs.elc
32.19
KB
-rw-r--r--
vc-dav.elc
5.3
KB
-rw-r--r--
vc-dir.elc
39.5
KB
-rw-r--r--
vc-dispatcher.elc
14.61
KB
-rw-r--r--
vc-git.elc
32.75
KB
-rw-r--r--
vc-hg.elc
25.95
KB
-rw-r--r--
vc-hooks.elc
32.75
KB
-rw-r--r--
vc-mtn.elc
10.95
KB
-rw-r--r--
vc-rcs.elc
34.99
KB
-rw-r--r--
vc-sccs.elc
13.24
KB
-rw-r--r--
vc-svn.elc
20.57
KB
-rw-r--r--
vc.elc
59.4
KB
-rw-r--r--
vcursor.elc
23.44
KB
-rw-r--r--
version.el
3.37
KB
-rw-r--r--
view.elc
35.96
KB
-rw-r--r--
vt-control.elc
2.06
KB
-rw-r--r--
vt100-led.elc
1.53
KB
-rw-r--r--
w32-fns.elc
15.82
KB
-rw-r--r--
w32-vars.elc
5.53
KB
-rw-r--r--
wdired.elc
21.69
KB
-rw-r--r--
whitespace.elc
59.83
KB
-rw-r--r--
wid-browse.elc
7.89
KB
-rw-r--r--
wid-edit.elc
104.76
KB
-rw-r--r--
widget.elc
1.37
KB
-rw-r--r--
windmove.elc
9.57
KB
-rw-r--r--
window.elc
57.4
KB
-rw-r--r--
winner.elc
11.61
KB
-rw-r--r--
woman.elc
107.73
KB
-rw-r--r--
x-dnd.elc
19.35
KB
-rw-r--r--
xml.elc
18.38
KB
-rw-r--r--
xt-mouse.elc
7.43
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : epa.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:00 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/epa.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 "`epa.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\313\301&\207" [require epg font-lock widget derived custom-declare-group epa nil "The EasyPG Assistant" :version "23.1" :group] 8) #@87 If non-nil, status information from epa commands is displayed on the separate window. (custom-declare-variable 'epa-popup-info-window 't '(#$ . 818) :type 'boolean :group 'epa) #@53 Number of lines used to display status information. (custom-declare-variable 'epa-info-window-height '5 '(#$ . 1001) :type 'integer :group 'epa) (byte-code "\301\302\303\304\305\306\307\310&\210\311\312\313\314\315\316\236\203 \317\202 \320BBD\321\316\236\203) \322\202* \323DD\324\307\302%\210\311\325\326\314\315\327\236\203@ \330\202A \331BBD\321\327\236\203O \332\202P \333DD\334\307\302%\210\311\335\321\327\236\203d \336\202e \337DC\340\307\302%\210\311\341\321\342\327\236\203z \343\202{ \344\345\"DC\346\307\302%\210\311\347\350\351\307\302%\210\311\352\353\314\354\316\236\203\233 \355\202\234 \356BBD\357\314\360\316\236\203\254 \361\202\255 \362BBD\321\316\236\203\273 \363\202\274 \364DE\324\307\302%\210\311\365\366\314\315\316\236\203\322 \367\202\323 \370BBD\321\316\236\203\341 \371\202\342 \372DD\373\307\310%\210\311\374\375\314\376\327\236\203\370 \377\202\373 \201@ BBD\321\327\236\203 \201A \202\201B DD\201C \307\310%\207" [custom-face-attributes custom-declare-group epa-faces nil "Faces for epa-mode." :version "23.1" :group epa custom-declare-face epa-validity-high ((class color) (background dark)) :foreground "PaleTurquoise" :weight (:weight bold) (:bold t) t (:weight bold) (:bold t) "Face used for displaying the high validity." epa-validity-medium ((class color) (background dark)) :slant (:slant italic) (:italic t) (:slant italic) (:italic t) "Face used for displaying the medium validity." epa-validity-low (:slant italic) (:italic t) "Face used for displaying the low validity." epa-validity-disabled append (:slant italic) (:italic t) (:inverse-video t) "Face used for displaying the disabled validity." epa-string ((((class color) (background dark)) (:foreground "lightyellow")) (((class color) (background light)) (:foreground "blue4"))) "Face used for displaying the string." epa-mark ((class color) (background dark)) "orange" (:weight bold) (:bold t) ((class color) (background light)) "red" (:weight bold) (:bold t) (:weight bold) (:bold t) epa-field-name ((class color) (background dark)) (:weight bold) (:bold t) (:weight bold) (:bold t) "Face for the name of the attribute field." epa-field-body ((class color) (background dark)) "turquoise" (:slant italic) (:italic t) (:slant italic) (:italic t) "Face for the body of the attribute field."] 8) #@44 An alist mapping validity values to faces. (custom-declare-variable 'epa-validity-face-alist ''((unknown . epa-validity-disabled) (invalid . epa-validity-disabled) (disabled . epa-validity-disabled) (revoked . epa-validity-disabled) (expired . epa-validity-disabled) (none . epa-validity-low) (undefined . epa-validity-low) (never . epa-validity-low) (marginal . epa-validity-medium) (full . epa-validity-high) (ultimate . epa-validity-high)) '(#$ . 3317) :type '(repeat (cons symbol face)) :group 'epa) #@43 Default expressions to addon in epa-mode. (defvar epa-font-lock-keywords '(("^\\*" (0 'epa-mark)) ("^ \\([^ :]+:\\)[ ]*\\(.*\\)$" (1 'epa-field-name) (2 'epa-field-body))) (#$ . 3827)) (byte-code "\301B\302\303!\207" [current-load-list epa-pubkey-algorithm-letter-alist (lambda (#1=#:defconst-tmp-var) (defconst epa-pubkey-algorithm-letter-alist #1#)) ((1 . 82) (2 . 114) (3 . 115) (16 . 103) (17 . 68) (20 . 71))] 2) #@135 *The default protocol. The value can be either OpenPGP or CMS. You should bind this variable with `let', but do not set it globally. (defvar epa-protocol 'OpenPGP (#$ . -4255)) #@127 *If non-nil, epa commands create ASCII armored output. You should bind this variable with `let', but do not set it globally. (defvar epa-armor nil (#$ . -4440)) #@125 *If non-nil, epa commands treat input files as text. You should bind this variable with `let', but do not set it globally. (defvar epa-textmode nil (#$ . -4609)) (byte-code "\303B\304\303!\204 \305\303\306\"\210\307B\304\307!\204 \305\307\306\"\210\310B\304\310!\204- \305\310\306\"\210\311B\304\311!\204< \305\311\306\"\210\312B\304\312!\204K \305\312\306\"\210\313B\304\313!\204Z \305\313\306\"\210\314B\304\314!\204 \305\314\315 \315 \316\n\317\320#\210\316\n\321\322#\210\316\n\323\324#\210\316\n\325\326#\210\316\n\327\330#\210\316\n\331\332#\210\316\n\333\334#\210\316\n\335\336#\210\316\n\337\340#\210\316\n\341\342#\210\316\n\343\344#\210\316\n\345\346#\210\316\n\347\350#\210\316\n\351\352#\210\316\n\353\354#\210\316\n\355\356 B#\210\316 \357\360#\210\316 \361\362#\210\316 \363\364#\210\316 \365\366#\210\316 \367\370#\210\316 \371\372#\210\316 \373\374#\210\316 \375\376#\210\316 \377\201@ #\210\316 \201A \201B #\210\316 \201C \201D #\210\n*\"\210\201E B\304\201E !\204=\305\201E \315 \316\n\353\354#\210\n)\"\210\201F B\304\201F !\204^\305\201F \315 \316\n\353\201G #\210\n)\"\210\201H B\304\201H !\204u\305\201H \201I \"\210\201J \310\201K \201L \201M \201N \201O \201P \201Q \201R \201S \201T \201U \201V & \207" [current-load-list menu-map keymap epa-keys-buffer default-boundp set-default nil epa-key-buffer-alist epa-key epa-list-keys-arguments epa-info-buffer epa-last-coding-system-specified epa-key-list-mode-map make-sparse-keymap define-key "m" epa-mark-key "u" epa-unmark-key "d" epa-decrypt-file "v" epa-verify-file "s" epa-sign-file "e" epa-encrypt-file "r" epa-delete-keys "i" epa-import-keys "o" epa-export-keys "g" revert-buffer "n" next-line "p" previous-line " " scroll-up [delete] scroll-down "q" epa-exit-buffer [menu-bar epa-key-list-mode] "Keys" [epa-key-list-unmark-key] (menu-item "Unmark Key" epa-unmark-key :help "Unmark a key") [epa-key-list-mark-key] (menu-item "Mark Key" epa-mark-key :help "Mark a key") [separator-epa-file] (menu-item "--") [epa-verify-file] (menu-item "Verify File..." epa-verify-file :help "Verify FILE") [epa-sign-file] (menu-item "Sign File..." epa-sign-file :help "Sign FILE by SIGNERS keys selected") [epa-decrypt-file] (menu-item "Decrypt File..." epa-decrypt-file :help "Decrypt FILE") [epa-encrypt-file] (menu-item "Encrypt File.." epa-encrypt-file :help "Encrypt FILE for RECIPIENTS") [separator-epa-key-list] (menu-item "--") [epa-key-list-delete-keys] (menu-item "Delete keys" epa-delete-keys :help "Delete Marked Keys") [epa-key-list-import-keys] (menu-item "Import Keys" epa-import-keys :help "Import keys from a file") [epa-key-list-export-keys] (menu-item "Export Keys" epa-export-keys :help "Export marked keys to a file") epa-key-mode-map epa-info-mode-map delete-window epa-exit-buffer-function bury-buffer define-widget push-button "Button for representing a epg-key object." :format "%[%v%]" :button-face-get epa--key-widget-button-face-get :value-create epa--key-widget-value-create :action epa--key-widget-action :help-echo epa--key-widget-help-echo] 14) (defalias 'epa--key-widget-action #[(widget &optional event) "\303 \304\305\306 \"r\307\216\310\311\n\312\"!,\207" [save-selected-window-alist save-selected-window-window widget selected-window mapcar #[(frame) "\301!B\207" [frame frame-selected-window] 3] frame-list ((byte-code "\304\211\203( \n@\305 @!\203! \306 A!\203! \307 @ A\310#\210\nA\211\204 *\306 !\2034 \311 \310\"\210\304\207" [save-selected-window-alist elt --dolist-tail-- save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) epa--show-key widget-get :value] 4]) (defalias 'epa--key-widget-value-create #[(widget) "\305\306\"\307 !@\310 !@\311\312\313\n!\203! \314\313\n!\f\"@\202\" \315\"\316\n!\317 \203@ \320 !;\2038 \320 !\202A \321\320 !!\202A \322\261+\207" [widget key primary-sub-key primary-user-id epg-key-validity-alist widget-get :value epg-key-sub-key-list epg-key-user-id-list format "%c " epg-sub-key-validity rassq 32 epg-sub-key-id " " epg-user-id-string epg-decode-dn ""] 6]) (defalias 'epa--key-widget-button-face-get #[(widget) "\303\304\305\306\"!@!\211\203 \n\236A\202 \307)\207" [widget validity epa-validity-face-alist epg-sub-key-validity epg-key-sub-key-list widget-get :value default] 6]) (defalias 'epa--key-widget-help-echo #[(widget) "\301\302\303\304\305\306\"!@!\"\207" [widget format "Show %s" epg-sub-key-id epg-key-sub-key-list widget-get :value] 7]) (byte-code "\300\301!\203 \302\303\301\"\210\202 \302\303\304\"\210\300\305!\203! \302\306\305\"\210\202& \302\306\304\"\210\300\207" [fboundp encode-coding-string defalias epa--encode-coding-string identity decode-coding-string epa--decode-coding-string] 3) #@33 Major mode for `epa-list-keys'. (defalias 'epa-key-list-mode #[nil "\306 \210\307 \210\310\311\312\211\313\f!\210\314\305!\210\315\316 \210\314\317!\210\314\320!\210\321\322\323!\207" [major-mode mode-name truncate-lines buffer-read-only epa-key-list-mode-map font-lock-defaults kill-all-local-variables buffer-disable-undo epa-key-list-mode "Keys" t use-local-map make-local-variable (epa-font-lock-keywords t) font-lock-set-defaults epa-exit-buffer-function revert-buffer-function epa--key-list-revert-buffer run-mode-hooks epa-key-list-mode-hook] 3 (#$ . 9380)]) #@35 Major mode for a key description. (defalias 'epa-key-mode #[nil "\306 \210\307 \210\310\311\312\211\313\f!\210\314\305!\210\315\316 \210\314\317!\210\320\321!\207" [major-mode mode-name truncate-lines buffer-read-only epa-key-mode-map font-lock-defaults kill-all-local-variables buffer-disable-undo epa-key-mode "Key" t use-local-map make-local-variable (epa-font-lock-keywords t) font-lock-set-defaults epa-exit-buffer-function run-mode-hooks epa-key-mode-hook] 3 (#$ . 9959)]) #@35 Major mode for `epa-info-buffer'. (defalias 'epa-info-mode #[nil "\305 \210\306 \210\307\310\311\211\312\f!\210\313\314!\207" [major-mode mode-name truncate-lines buffer-read-only epa-info-mode-map kill-all-local-variables buffer-disable-undo epa-info-mode "Info" t use-local-map run-mode-hooks epa-info-mode-hook] 3 (#$ . 10449)]) #@68 Mark a key on the current line. If ARG is non-nil, unmark the key. (defalias 'epa-mark-key #[(&optional arg) "\304\305\211\306 \210\307`\310\"\204 \311\312!\210\313`!\314\315!\210 \203$ \316\202% \317c\210\320`S`#\210\305y+\207" [properties buffer-read-only inhibit-read-only arg t nil beginning-of-line get-text-property epa-key error "No key on this line" text-properties-at delete-char 1 " " "*" set-text-properties] 4 (#$ . 10791) "P"]) #@68 Unmark a key on the current line. If ARG is non-nil, mark the key. (defalias 'epa-unmark-key #[(&optional arg) "\301?!\207" [arg epa-mark-key] 2 (#$ . 11244) "P"]) #@77 Exit the current buffer. `epa-exit-buffer-function' is called if it is set. (defalias 'epa-exit-buffer #[nil " \207" [epa-exit-buffer-function] 1 (#$ . 11415) nil]) (defalias 'epa--insert-keys #[(keys) "\212\214``}\210\302 \2034 `\303c\210\304`\305 @\306\302\307\310\311\310\312\310\257\n#\210\313\305\314 @#\210\315c\210 A\211\204\f )\304ed\316\310\306\302\307\310\311\310\312\310\257\n#*\207" [point keys nil " " add-text-properties epa-key front-sticky rear-nonsticky t start-open end-open widget-create :value "\n" epa-list-keys] 14]) (defalias 'epa--list-keys #[(name secret) "\203\n \306!\204 \307\310!q\210\311 \210\312\313e\314 ! \315 \316\"\204* \317 \316\" \203< \317 \316\"\2067 d|\210 b\210\320\321\n#!\210\322 \210\323\324 \"\210,\325\326!\210Deb\210\327p!\207" [epa-keys-buffer epa-protocol context point buffer-read-only inhibit-read-only buffer-live-p generate-new-buffer "*Keys*" epa-key-list-mode t nil epg-make-context get-text-property epa-list-keys next-single-property-change epa--insert-keys epg-list-keys widget-setup set-keymap-parent current-local-map make-local-variable epa-list-keys-arguments pop-to-buffer name secret widget-keymap] 5]) #@58 List all keys matched with NAME from the public keyring. (defalias 'epa-list-keys #[(&optional name) "\301\302\"\207" [name epa--list-keys nil] 3 (#$ . 12616) (byte-code "\203 \303\304 \205\f @\"\211\305\232?\205 \n)C\207\306C\207" [current-prefix-arg epa-list-keys-arguments name read-string "Pattern: " "" nil] 4)]) #@59 List all keys matched with NAME from the private keyring. (defalias 'epa-list-secret-keys #[(&optional name) "\301\302\"\207" [name epa--list-keys t] 3 (#$ . 12946) (byte-code "\203 \303\304 \205\f @\"\211\305\232?\205 \n)C\207\306C\207" [current-prefix-arg epa-list-keys-arguments name read-string "Pattern: " "" nil] 4)]) (defalias 'epa--key-list-revert-buffer #[(&optional ignore-auto noconfirm) "\301\302\"\207" [epa-list-keys-arguments apply epa--list-keys] 3]) (defalias 'epa--marked-keys #[nil "\212q\210eb\210\303\211\304\305\303\306#\203$ \307\310\224\311\"\211\203 \nB\202 \n\237+\206: \212\312 \210\307`\311\"\211\2059 C*\207" [epa-keys-buffer key keys nil re-search-forward "^\\*" t get-text-property 0 epa-key beginning-of-line] 5]) (defalias 'epa--select-keys #[(prompt keys) "\212\203 \306!\204 \307\310!q\210\311 \210\312\313\314 \210 \315\316\317!\261\210\320\321\322\323\324\316\325!\326&\210\320\321\322\327\324\316\330!\331&\210\332c\210\333\f!\210\334 \210\335\336 \"\210\337$eb\210\340p!\210*\341\216\342 \210\343 *\207" [epa-keys-buffer buffer-read-only inhibit-read-only prompt keys widget-keymap buffer-live-p generate-new-buffer "*Keys*" epa-key-list-mode t nil erase-buffer "\n" substitute-command-keys "- `\\[epa-mark-key]' to mark a key on the line\n- `\\[epa-unmark-key]' to unmark a key on the line\n" widget-create link :notify #[(&rest ignore) "\300 \207" [abort-recursive-edit] 1] :help-echo "Click here or \\[abort-recursive-edit] to cancel" "Cancel" #[(&rest ignore) "\300 \207" [exit-recursive-edit] 1] "Click here or \\[exit-recursive-edit] to finish" "OK" "\n\n" epa--insert-keys widget-setup set-keymap-parent current-local-map abort-recursive-edit pop-to-buffer ((byte-code "\301!\203\f \302\301!!\210\303!\207" [epa-keys-buffer get-buffer-window delete-window kill-buffer] 3)) recursive-edit epa--marked-keys epa-exit-buffer-function] 7]) #@271 Display a user's keyring and ask him to select keys. CONTEXT is an epg-context. PROMPT is a string to prompt with. NAMES is a list of strings to be matched with keys. If it is nil, all the keys are listed. If SECRET is non-nil, list secret keys instead of public keys. (defalias 'epa-select-keys #[(context prompt &optional names secret) "\305 \n#\306\f \")\207" [context names secret keys prompt epg-list-keys epa--select-keys] 4 (#$ . 14867)]) (defalias 'epa--show-key #[(key) "\306!@\307\310 !\n\"\311 \312\211 1 \204! \310 !\312B\211\nB A\203- \313 A!\2048 \314\315\316\310 !\"!\241\210 Aq\210\317 \210\320\321!\210\322 \210\323!\2111\203\227 1@\203\216 \324\3251@!\203p \326\327\3251@!2\"@!\202q \324\324\3301@!;\203\203 \3301@!\202\212 \331\3301@!!\332\261\2101A\2111\204R \306!\2111\203\324\3331@!\203\270 \326\327\3331@!2\"@!\202\271 \324\324\3101@!\324\315\334\3351@!\"\324\3361@!3\236A\337\312\340\341\217\3421@!\203\371 \315\343\344 \3421@!\"\203\360 \345\202\361 \346\312\347\350\217\"\202\372 \351\352\353\354\3551@!\324#\356\3571@!\332\261\2101A\2111\204\240 eb\210\360p!-\207" [key primary-sub-key epa-key-buffer-alist entry inhibit-read-only buffer-read-only epg-key-sub-key-list assoc epg-sub-key-id t nil buffer-live-p generate-new-buffer format "*Key*%s" epa-key-mode make-local-variable epa-key erase-buffer epg-key-user-id-list " " epg-user-id-validity char-to-string rassq epg-user-id-string epg-decode-dn "\n" epg-sub-key-validity "%dbits" epg-sub-key-length epg-sub-key-algorithm "\n Created: " (byte-code "\301\302\303@!\"\207" [pointer format-time-string "%Y-%m-%d" epg-sub-key-creation-time] 4) ((error "????-??-??")) epg-sub-key-expiration-time time-less-p current-time "\n Expires: %s" "\n Expired: %s" (byte-code "\301\302\303@!\"\207" [pointer format-time-string "%Y-%m-%d" epg-sub-key-expiration-time] 4) ((error "????-??-??")) "" "\n Capabilities: " mapconcat symbol-name epg-sub-key-capability "\n Fingerprint: " epg-sub-key-fingerprint pop-to-buffer pointer epg-key-validity-alist epg-pubkey-algorithm-alist] 17]) (defalias 'epa-display-info #[(info) "\203l \306 \307\310\311 \"r\312\216 \203 \313 !\204 \314\315!\316 !\203* \317\316 !!\210\212 q\210\320\321 \322 \210c\210*\323 \210eb\210)\324 V\203W \325\326\321\324 Z\" \"\202j \327 !\210\324 V\205j \330\324 Z!,\207\331\332\"\207" [epa-popup-info-window save-selected-window-alist save-selected-window-window epa-info-buffer buffer-read-only inhibit-read-only selected-window mapcar #[(frame) "\301!B\207" [frame frame-selected-window] 3] frame-list ((byte-code "\304\211\203( \n@\305 @!\203! \306 A!\203! \307 @ A\310#\210\nA\211\204 *\306 !\2034 \311 \310\"\210\304\207" [save-selected-window-alist elt --dolist-tail-- save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) buffer-live-p generate-new-buffer "*Info*" get-buffer-window delete-window t nil erase-buffer epa-info-mode window-height set-window-buffer split-window pop-to-buffer shrink-window message "%s" info epa-info-window-height] 5]) (defalias 'epa-display-verify-result #[(verify-result) "\301\302!!\207" [verify-result epa-display-info epg-verify-result-to-string] 3]) (make-obsolete 'epa-display-verify-result 'epa-display-info) (defalias 'epa-passphrase-callback-function #[(context key-id handback) "\304=\203 \305\306\307 !\310=\"\207\305\311=\203 \312\2021 \313\n\"\211\203, \314\315 A#\2020 \314\316\")!\207" [key-id context epg-user-id-alist entry SYM read-passwd "Passphrase for symmetric encryption: " epg-context-operation encrypt PIN "Passphrase for PIN: " assoc format "Passphrase for %s %s: " "Passphrase for %s: "] 6]) (defalias 'epa-progress-callback-function #[(context what char current total handback) "\304\305\206 \306P\n\307V\203 \310 \311\n!\245\312_!\202 \307 \n%\207" [handback what total current message "%s%d%% (%d/%d)" ": " 0 floor float 100] 7]) #@15 Decrypt FILE. (defalias 'epa-decrypt-file #[(file) "\305!\306!\305\307\310\311 !\312Q\313 ! #!\314 ! \315\f\316\"\210\317\f\320\321\322\311!\"B\"\210\323\322\311!\"\210\324\f\n#\210\323\325\311!\311\n!#\210\326\f\327\"\205R \330\331\326\f\327\"!!+\207" [file default-name plain epa-protocol context expand-file-name file-name-sans-extension read-file-name "To file (default " file-name-nondirectory ") " file-name-directory epg-make-context epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function format "Decrypting %s..." message epg-decrypt-file "Decrypting %s...wrote %s" epg-context-result-for verify epa-display-info epg-verify-result-to-string] 7 (#$ . 18851) "fFile: "]) #@14 Verify FILE. (defalias 'epa-verify-file #[(file) "\304!\305 !\306!\307\232\205 \310!\311\n\312\313\314\315!\"B\"\210\316\314\315!\"\210\317\n #\210\316\320\315!\"\210\321\n\322\"\205C \323\324\321\n\322\"!!*\207" [file epa-protocol context plain expand-file-name epg-make-context file-name-extension "sig" file-name-sans-extension epg-context-set-progress-callback epa-progress-callback-function format "Verifying %s..." file-name-nondirectory message epg-verify-file "Verifying %s...done" epg-context-result-for verify epa-display-info epg-verify-result-to-string] 7 (#$ . 19622) "fFile: "]) (defalias 'epa--read-signature-type #[nil "\303\211 \204A \304\305!\210\306 \211\307=\203 \310\211\202 \311=\203' \312\211\202 \313=\203; \314\220\212\nq\210\315c)\221\210\202 \316\211\203 *\207" [c type standard-output nil message "Signature type (n,c,d,?) " read-char 99 clear 100 detached 63 "*Help*" "n - Create a normal signature\nc - Create a cleartext signature\nd - Create a detached signature\n? - Show this help\n" normal] 3]) #@37 Sign FILE by SIGNERS keys selected. (defalias 'epa-sign-file #[(file signers mode) " \306=\203# \n\204 \307>\204 \310\202. \311>\203 \312\202. \313\202. \314>\203- \315\202. \316P\317 ! \320\f\n\"\210\321\f \"\210\322\f \"\210\323\f\324\"\210\325\f\326\327\330\331!\"B\"\210\332\330\331!\"\210\333\f $\210\332\334\331!\331 !#*\207" [file epa-protocol epa-armor mode context signature OpenPGP (nil t normal detached) ".asc" (t detached) ".sig" ".gpg" (t detached) ".p7s" ".p7m" epg-make-context epg-context-set-armor epg-context-set-textmode epg-context-set-signers epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function format "Signing %s..." file-name-nondirectory message epg-sign-file "Signing %s...wrote %s" epa-textmode signers] 7 (#$ . 20683) (let ((verbose current-prefix-arg)) (list (expand-file-name (read-file-name "File: ")) (if verbose (epa-select-keys (epg-make-context epa-protocol) "Select keys for signing.\nIf no one is selected, default secret key is used. " nil t)) (if verbose (epa--read-signature-type) 'clear)))]) #@30 Encrypt FILE for RECIPIENTS. (defalias 'epa-encrypt-file #[(file recipients) " \306=\203 \n\203 \307\202 \310\202 \311P\312 ! \313 \n\"\210\314 \"\210\315 \316\"\210\317 \320\321\322\323!\"B\"\210\324\322\323!\"\210\325 \f$\210\324\326\323!\323\f!#*\207" [file epa-protocol epa-armor context cipher epa-textmode OpenPGP ".asc" ".gpg" ".p7m" epg-make-context epg-context-set-armor epg-context-set-textmode epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function format "Encrypting %s..." file-name-nondirectory message epg-encrypt-file "Encrypting %s...wrote %s" recipients] 7 (#$ . 21820) (list (expand-file-name (read-file-name "File: ")) (epa-select-keys (epg-make-context epa-protocol) "Select recipients for encryption.\nIf no one is selected, symmetric encryption will be performed. "))]) #@577 Decrypt the current region between START and END. Don't use this command in Lisp programs! Since this function operates on regions, it does some tricks such as coding-system detection and unibyte/multibyte conversion. If you are sure how the data in the region should be treated, you should consider using the string based counterpart `epg-decrypt-string', or the file based counterpart `epg-decrypt-file' instead. For example: (let ((context (epg-make-context 'OpenPGP))) (decode-coding-string (epg-decrypt-string context (buffer-substring start end)) 'utf-8)) (defalias 'epa-decrypt-region #[(start end) "\212\306!\307\310\n\311\"\210\312\n\313\314B\"\210\315\314!\210\316\n \f{\"\315\317!\210\320 \2060 \321 \322\"\2060 \323\"\324\325!\203L \326\307 \f|\210 b\210 c\210*\202Y \327\220 q\210 c\210\330 \221\210\331\n\332\"\205h \333\334\331\n\332\"!!+\207" [epa-protocol plain context start end coding-system-for-read epg-make-context nil epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function "Decrypting..." message epg-decrypt-string "Decrypting...done" epa--decode-coding-string get-text-property epa-coding-system-used undecided y-or-n-p "Replace the original text? " t "*Temp*" epa-info-mode epg-context-result-for verify epa-display-info epg-verify-result-to-string buffer-read-only inhibit-read-only standard-output] 5 (#$ . 22713) "r"]) (defalias 'epa--find-coding-system-for-mime-charset #[(mime-charset) "\302 \211\203 \303@\301\" =\203 A\211\204 )\207" [pointer mime-charset coding-system-list coding-system-get] 4]) #@179 Decrypt OpenPGP armors in the current region between START and END. Don't use this command in Lisp programs! See the reason described in the `epa-decrypt-region' documentation. (defalias 'epa-decrypt-armor-in-region #[(start end) "\212\214 }\210b\210\305\211\306\307\305\310#\205J \311\224\306\312\305\310#\211\204& \313\314!\210 b\210\f\206= \306\315\n\310#\205= \316\317\320\321!\227!! \nb\210\322 \n\"\210)\202 ,\207" [start end armor-end armor-start coding-system-for-read nil re-search-forward "-----BEGIN PGP MESSAGE-----$" t 0 "^-----END PGP MESSAGE-----$" error "No armor tail" "^Charset: \\(.*\\)" epa--find-coding-system-for-mime-charset intern match-string 1 epa-decrypt-region] 5 (#$ . 24363) "r"]) #@573 Verify the current region between START and END. Don't use this command in Lisp programs! Since this function operates on regions, it does some tricks such as coding-system detection and unibyte/multibyte conversion. If you are sure how the data in the region should be treated, you should consider using the string based counterpart `epg-verify-string', or the file based counterpart `epg-verify-file' instead. For example: (let ((context (epg-make-context 'OpenPGP))) (decode-coding-string (epg-verify-string context (buffer-substring start end)) 'utf-8)) (defalias 'epa-verify-region #[(start end) "\306!\307\310\n\311\312B\"\210\313\312!\210\314\n\315 \f{ \206 \316 \317\"\"\"\313\320!\210\321 \2065 \316 \317\"\2065 \322\"\323\324!\203Q \325\307 \f|\210 b\210 c\210*\202^ \326\220 q\210 c\210\327 \221\210\330\n\331\"\205m \332\333\330\n\331\"!!*\207" [epa-protocol plain context start end coding-system-for-write epg-make-context nil epg-context-set-progress-callback epa-progress-callback-function "Verifying..." message epg-verify-string epa--encode-coding-string get-text-property epa-coding-system-used "Verifying...done" epa--decode-coding-string undecided y-or-n-p "Replace the original text? " t "*Temp*" epa-info-mode epg-context-result-for verify epa-display-info epg-verify-result-to-string coding-system-for-read buffer-read-only inhibit-read-only standard-output] 7 (#$ . 25089) "r"]) #@196 Verify OpenPGP cleartext signed messages in the current region between START and END. Don't use this command in Lisp programs! See the reason described in the `epa-verify-region' documentation. (defalias 'epa-verify-cleartext-in-region #[(start end) "\212\214 }\210b\210\304\211\305\306\304\307#\205: \310\224\305\311\304\307#\204$ \312\313!\210\305\314\304\307#\211\2042 \312\315!\210\316 \n\"\210\202 ,\207" [start end cleartext-end cleartext-start nil re-search-forward "-----BEGIN PGP SIGNED MESSAGE-----$" t 0 "^-----BEGIN PGP SIGNATURE-----$" error "Invalid cleartext signed message" "^-----END PGP SIGNATURE-----$" "No cleartext tail" epa-verify-region] 5 (#$ . 26526) "r"]) (byte-code "\300\301!\203 \302\303\301\"\210\202 \302\303\304\"\210\300\207" [fboundp select-safe-coding-system defalias epa--select-safe-coding-system #[(from to) "\207" [buffer-file-coding-system] 1]] 3) #@576 Sign the current region between START and END by SIGNERS keys selected. Don't use this command in Lisp programs! Since this function operates on regions, it does some tricks such as coding-system detection and unibyte/multibyte conversion. If you are sure how the data should be treated, you should consider using the string based counterpart `epg-sign-string', or the file based counterpart `epg-sign-file' instead. For example: (let ((context (epg-make-context 'OpenPGP))) (epg-sign-string context (encode-coding-string (buffer-substring start end) 'utf-8))) (defalias 'epa-sign-region #[(start end signers mode) "\212\306!\307\310\n\311\"\210\312\n\311\"\210\313\n \"\210\314\n\315\"\210\316\n\317\320B\"\210\321\320!\210\322\n\323\f { \" #\321\324!\210\f |\210\fb\210\325`\326 \206I \"c\210`\327 \330\307\331\311\332\311\333\311\257\n#+\207" [epa-protocol signature context signers start end epg-make-context nil epg-context-set-armor t epg-context-set-textmode epg-context-set-signers epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function "Signing..." message epg-sign-string epa--encode-coding-string "Signing...done" add-text-properties epa--decode-coding-string epa-coding-system-used front-sticky rear-nonsticky start-open end-open epa-last-coding-system-specified mode coding-system-for-read] 13 (#$ . 27432) (let ((verbose current-prefix-arg)) (setq epa-last-coding-system-specified (or coding-system-for-write (epa--select-safe-coding-system (region-beginning) (region-end)))) (list (region-beginning) (region-end) (if verbose (epa-select-keys (epg-make-context epa-protocol) "Select keys for signing.\nIf no one is selected, default secret key is used. " nil t)) (if verbose (epa--read-signature-type) 'clear)))]) (byte-code "\300\301!\203 \302\303\301\"\210\202 \302\303\304\"\210\300\207" [fboundp derived-mode-p defalias epa--derived-mode-p #[(&rest modes) " \n>\204 \303N\211\204 )\207" [major-mode parent modes derived-mode-parent] 2 "Non-nil if the current major mode is derived from one of MODES.\nUses the `derived-mode-parent' property of the symbol to trace backwards."]] 3) #@586 Encrypt the current region between START and END for RECIPIENTS. Don't use this command in Lisp programs! Since this function operates on regions, it does some tricks such as coding-system detection and unibyte/multibyte conversion. If you are sure how the data should be treated, you should consider using the string based counterpart `epg-encrypt-string', or the file based counterpart `epg-encrypt-file' instead. For example: (let ((context (epg-make-context 'OpenPGP))) (epg-encrypt-string context (encode-coding-string (buffer-substring start end) 'utf-8) nil)) (defalias 'epa-encrypt-region #[(start end recipients sign signers) "\212\306!\307\310\n\311\"\210\312\n\311\"\210 \203 \313\n\f\"\210\314\n\315\"\210\316\n\317\320B\"\210\321\320!\210\322\n\323 { \" $\321\324!\210 |\210 b\210\325` c\210`\326 \327\307\330\311\331\311\332\311\257\n#+\207" [epa-protocol cipher context sign signers start epg-make-context nil epg-context-set-armor t epg-context-set-textmode epg-context-set-signers epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function "Encrypting..." message epg-encrypt-string epa--encode-coding-string "Encrypting...done" add-text-properties epa-coding-system-used front-sticky rear-nonsticky start-open end-open end epa-last-coding-system-specified recipients] 13 (#$ . 29652) (let ((verbose current-prefix-arg) (context (epg-make-context epa-protocol)) sign) (setq epa-last-coding-system-specified (or coding-system-for-write (epa--select-safe-coding-system (region-beginning) (region-end)))) (list (region-beginning) (region-end) (epa-select-keys context "Select recipients for encryption.\nIf no one is selected, symmetric encryption will be performed. ") (setq sign (if verbose (y-or-n-p "Sign? "))) (if sign (epa-select-keys context "Select keys for signing. "))))]) #@23 Delete selected KEYS. (defalias 'epa-delete-keys #[(keys &optional allow-secret) "\305!\306\307!\210\310 \n #\210\306\311!\210\312\313\f\")\207" [epa-protocol context keys allow-secret epa-list-keys-arguments epg-make-context message "Deleting..." epg-delete-keys "Deleting...done" apply epa--list-keys] 4 (#$ . 31563) (let ((keys (epa--marked-keys))) (unless keys (error "No keys selected")) (list keys (eq (nth 1 epa-list-keys-arguments) t)))]) #@24 Import keys from FILE. (defalias 'epa-import-keys #[(file) "\305!\306 !\307\310\311!\"\210\312\313\314\217\210\315\n\316\"\203$ \317\320\315\n\316\"!!\210 \321=\205. \322\323\f\")\207" [file epa-protocol context major-mode epa-list-keys-arguments expand-file-name epg-make-context message "Importing %s..." file-name-nondirectory nil (byte-code "\302 \"\210\303\304\305 !\"\207" [context file epg-import-keys-from-file message "Importing %s...done" file-name-nondirectory] 4) ((error (byte-code "\301\302\303!\"\207" [file message "Importing %s...failed" file-name-nondirectory] 4))) epg-context-result-for import epa-display-info epg-import-result-to-string epa-key-list-mode apply epa--list-keys] 5 (#$ . 32018) "fFile: "]) #@30 Import keys from the region. (defalias 'epa-import-keys-region #[(start end) "\302!\303\304!\210\305\306\307\217\210\310 \311\"\205 \312\313\310 \311\"!!)\207" [epa-protocol context epg-make-context message "Importing..." nil (byte-code "\303 \n{\"\210\304\305!\207" [context start end epg-import-keys-from-string message "Importing...done"] 4) ((error (message "Importing...failed"))) epg-context-result-for import epa-display-info epg-import-result-to-string] 5 (#$ . 32756) "r"]) #@86 Import keys in the OpenPGP armor format in the current region between START and END. (defalias 'epa-import-armor-in-region #[(start end) "\212\214 }\210b\210\304\211\305\306\304\307#\2053 \310\224\305\311\312\313!\314Q\304\307#\211\204+ \315\316!\210\317 \n\"\210\202 ,\207" [start end armor-end armor-start nil re-search-forward "-----BEGIN \\(PGP \\(PUBLIC\\|PRIVATE\\) KEY BLOCK\\)-----$" t 0 "^-----END " match-string 1 "-----$" error "No armor tail" epa-import-keys-region] 5 (#$ . 33249) "r"]) #@31 Export selected KEYS to FILE. (defalias 'epa-export-keys #[(keys file) "\305!\306 \n\"\210\307\310\311 !\"\210\312 \f #\210\307\313\311 !\")\207" [epa-protocol context epa-armor file keys epg-make-context epg-context-set-armor message "Exporting to %s..." file-name-nondirectory epg-export-keys-to-file "Exporting to %s...done"] 4 (#$ . 33762) (let ((keys (epa--marked-keys)) default-name) (unless keys (error "No keys selected")) (setq default-name (expand-file-name (concat (epg-sub-key-id (car (epg-key-sub-key-list (car keys)))) (if epa-armor ".asc" ".gpg")) default-directory)) (list keys (expand-file-name (read-file-name (concat "To file (default " (file-name-nondirectory default-name) ") ") (file-name-directory default-name) default-name))))]) #@39 Insert selected KEYS after the point. (defalias 'epa-insert-keys #[(keys) "\303!\304 \305\"\210\306 \n\"c)\207" [epa-protocol context keys epg-make-context epg-context-set-armor t epg-export-keys-to-string] 3 (#$ . 34524) (list (epa-select-keys (epg-make-context epa-protocol) "Select keys to export. "))]) (provide 'epa)
Close
