| Current Path : /usr/share/emacs/24.3/lisp/obsolete/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/obsolete/pgg-parse.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:09 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/obsolete/pgg-parse.el
;;; in Emacs version 24.3.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%\210\306\307\310\311\304\301\312\313&\210\306\314\315\316\304\301\312\317&\210\306\320\321\322\304\301\312\323&\210\306\324\325\326\304\301\312\327&\210\306\330\331\332\304\301\312\333&\210\306\334\335\336\304\301\312\337&\207" [custom-declare-group pgg-parse nil "OpenPGP packet parsing." :group pgg custom-declare-variable pgg-parse-public-key-algorithm-alist '((1 . RSA) (2 . RSA-E) (3 . RSA-S) (16 . ELG-E) (17 . DSA) (20 . ELG)) "Alist of the assigned number to the public key algorithm." :type (repeat (cons (sexp :tag "Number") (sexp :tag "Type"))) pgg-parse-symmetric-key-algorithm-alist '((1 . IDEA) (2 . 3DES) (4 . CAST5) (5 . SAFER-SK128)) "Alist of the assigned number to the symmetric key algorithm." (repeat (cons (sexp :tag "Number") (sexp :tag "Type"))) pgg-parse-hash-algorithm-alist '((1 . MD5) (2 . SHA1) (3 . RIPEMD160) (5 . MD2) (8 . SHA256) (9 . SHA384) (10 . SHA512)) "Alist of the assigned number to the cryptographic hash algorithm." (repeat (cons (sexp :tag "Number") (sexp :tag "Type"))) pgg-parse-compression-algorithm-alist '((0) (1 . ZIP) (2 . ZLIB)) "Alist of the assigned number to the compression algorithm." (repeat (cons (sexp :tag "Number") (sexp :tag "Type"))) pgg-parse-signature-type-alist '((0 . "Signature of a binary document") (1 . "Signature of a canonical text document") (2 . "Standalone signature") (16 . "Generic certification of a User ID and Public Key packet") (17 . "Persona certification of a User ID and Public Key packet") (18 . "Casual certification of a User ID and Public Key packet") (19 . "Positive certification of a User ID and Public Key packet") (24 . "Subkey Binding Signature") (31 . "Signature directly on a key") (32 . "Key revocation signature") (40 . "Subkey revocation signature") (48 . "Certification revocation signature") (64 . "Timestamp signature.")) "Alist of the assigned number to the signature type." (repeat (cons (sexp :tag "Number") (sexp :tag "Type"))) pgg-ignore-packet-checksum t "If non-nil checksum of each ascii armored packet will be ignored." boolean] 8)
#@16 Armor headers.
(defvar pgg-armor-header-lines '("^-----BEGIN PGP MESSAGE\\(, PART [0-9]+\\(/[0-9]+\\)?\\)?-----
?$" "^-----BEGIN PGP PUBLIC KEY BLOCK-----
?$" "^-----BEGIN PGP PRIVATE KEY BLOCK-----
?$" "^-----BEGIN PGP SIGNATURE-----
?$") (#$ . 2650))
(byte-code "\300\301\302\303!\203\f \303\202
\304\"\207" [defalias pgg-char-int fboundp char-int identity] 4)
(defalias 'pgg-format-key-identifier '(macro . #[(string) "\301\302\303BBB\207" [string mapconcat (lambda (c) (format "%02X" (pgg-char-int c))) ("")] 4]))
(defalias 'pgg-parse-time-field '(macro . #[(bytes) "\301\302\303\304D\305BB\306\307EE\302\303\306\310E\311BB\306\312EE\313BBB\207" [bytes list logior lsh car (8) nth 1 2 (8) 3 (0)] 7]))
(defalias 'pgg-byte-after '(macro . #[(&optional pos) "\301\302\206 \303DD\207" [pos pgg-char-int char-after (point)] 3]))
(defalias 'pgg-read-byte '(macro . #[nil "\300\207" [(pgg-char-int (char-after (prog1 (point) (forward-char))))] 1]))
(defalias 'pgg-read-bytes-string '(macro . #[(nbytes) "\301\302\303\304\305BB\306DEE\207" [nbytes buffer-substring (point) prog1 + ((point)) forward-char] 6]))
(defalias 'pgg-read-bytes '(macro . #[(nbytes) "\301\302\303DE\207" [nbytes mapcar #'pgg-char-int pgg-read-bytes-string] 4]))
(defalias 'pgg-read-body-string '(macro . #[(ptag) "\301\302\303E\304\302\303ED\305BBB\207" [ptag if nth 1 pgg-read-bytes-string ((pgg-read-bytes-string (- (point-max) (point))))] 6]))
(defalias 'pgg-read-body '(macro . #[(ptag) "\301\302\303DE\207" [ptag mapcar #'pgg-char-int pgg-read-body-string] 4]))
(defalias 'pgg-skip-bytes 'forward-char)
(defalias 'pgg-skip-header '(macro . #[(ptag) "\301\302\303ED\207" [ptag pgg-skip-bytes nth 2] 4]))
(defalias 'pgg-skip-body '(macro . #[(ptag) "\301\302\303ED\207" [ptag pgg-skip-bytes nth 1] 4]))
(defalias 'pgg-set-alist '(macro . #[(alist key value) "\303\304\305\306 \nEDEE\207" [alist key value setq nconc list cons] 8]))
(byte-code "\301\302!\203 \303\304!\210\305\306\307\310\306\"#\210)\311\312\313\"\210\301\207" [prog fboundp define-ccl-program [1 30 14 114744 114775 0 161 131127 1 148217 15 82167 1 1848 131159 1 1595 5 256 114743 390 114775 19707 1467 16 7 183 1 -5628 -7164 22] (lambda (#1=#:def-tmp-var) (defconst pgg-parse-crc24 #1# nil)) put pgg-parse-crc24 ccl-program-idx register-ccl-program defalias pgg-parse-crc24-string #[(string) "\303\304\305\306\304\211\211\211\211\211& \307 \n#\210\310\311\312\313H\314\"\312\315\316H\317\"\314\"\312\316H\314\"$)\207" [h pgg-parse-crc24 string vector nil 183 1230 ccl-execute-on-string format "%c%c%c" logand 1 255 lsh 2 -8] 10]] 6)
(defalias 'pgg-parse-length-type '(macro . #[(c) "\301\302\303BB\304\305BBD\302\306BB\304\307\310\311\312BB\313BB\314BB\315BBD\316\317BB\320B\321BBBB\207" [c cond < (192) cons (1) (224) + lsh - (192) (8) ((pgg-byte-after (+ 2 (point))) 192) (2) = (255) ((cons (cons (logior (lsh (pgg-byte-after (+ 2 (point))) 8) (pgg-byte-after (+ 3 (point)))) (logior (lsh (pgg-byte-after (+ 4 (point))) 8) (pgg-byte-after (+ 5 (point))))) 5)) ((t '(0 . 0)))] 9]))
(defalias 'pgg-parse-packet-header #[nil "`f\306\211\211\211 \307\310\f\311\"!\203Y \310\f\312\"\211\312U\203# \313\202' \314\315 \"\310\314\f\316\"\317\"\313 T \313
W\203U \320\314 \321\"\322\315
`#f\"
T\211\202; *\202\273 \310\f\323\"`Tf\324W\203n `Tf\315B\202\263 `Tf\325W\203\212 \322\314`Tf\324Z\321\"\326`\\f\324#\326B\202\263 `Tf\327U\203\262 \320\314\326`\\f\321\"\312`\\f\"\320\314\330`\\f\321\"\331`\\f\"B\331B\202\263 \332\211@ AT\n E-\207" [header-bytes packet-bytes content-tag length-type ptag i nil zerop logand 64 3 0 lsh 1 -2 15 logior 8 + 63 192 224 2 255 4 5 (0 . 0) --dotimes-limit--] 7])
(defalias 'pgg-parse-packet #[(ptag) "\301@\302\"\203\f \303!\207\301@\304\"\203 \305!\207\301@\306\"\203$ \307!\207\301@\310\"\2030 \311!\207\301@\312\"\203X A@\203K `A@`\\A@u\210{\207`d`Z`\\d`Zu\210{\207\301@\313\"\203\200 A@\203s `A@`\\A@u\210{\207`d`Z`\\d`Zu\210{\207\301@\314\"\203\250 A@\203\233 `A@`\\A@u\210{\207`d`Z`\\d`Zu\210{\207\301@\315\"\205\317 A@\203\303 `A@`\\A@u\210{\207`d`Z`\\d`Zu\210{\207" [ptag eql 1 pgg-parse-public-key-encrypted-session-key-packet 2 pgg-parse-signature-packet 3 pgg-parse-symmetric-key-encrypted-session-key-packet 6 pgg-parse-public-key-packet 9 10 11 13] 4])
(defalias 'pgg-parse-packets #[(&optional header-parser body-parser) "\206 \304 \206\n \305\306\211d`TV\203A \307\310\n8!\210\n@\212 \n!)B B\311\nA@!\2039 db\210\202 \nA@u\210\202 ,\207" [header-parser body-parser ptag result pgg-parse-packet-header pgg-parse-packet nil pgg-skip-bytes 2 zerop] 4])
(defalias 'pgg-parse-signature-subpacket-header #[nil "`f\301W\203 `f\302B\202P `f\303W\203( \304\305`f\301Z\306\"\307`\\f\301#\307B\202P `f\310U\203O \311\305\307`\\f\306\"\312`\\f\"\311\305\313`\\f\306\"\314`\\f\"B\314B\202P \315\211A`\\f@SATE)\207" [length-type 192 1 224 + lsh 8 2 255 logior 3 4 5 (0 . 0)] 6])
(defalias 'pgg-parse-signature-subpacket #[(ptag) "\306@\307\"\203/ \310\311\312`\313`\\\313u\210{\"\314\315 @\316\" A@\"\314\315\307 8\316\"\317 8\"\320E)B\207\306@\317\"\203^ \321\311\312`\313`\\\313u\210{\"\314\315 @\316\" A@\"\314\315\307 8\316\"\317 8\"\320E)B\207\306@\313\"\203n \322`\323u\210fB\207\306@\324\"\203~ \325`\323u\210fB\207\306@\326\"\203\252 \327A@\203\234 `A@`\\A@u\210{\202\250 `d`Z`\\d`Zu\210{B\207\306@\330\"\203\272 \331`\323u\210fB\207\306@\332\"\203\351 \333\311\312`\313`\\\313u\210{\"\314\315 @\316\" A@\"\314\315\307 8\316\"\317 8\"\320E)B\207\306@\334\"\203\374 \335`\323u\210f\n\236AB\207\306@\336\"\203\323\207\306@\337\"\2036\340\341\342A@\203&`A@`\\A@u\210{\2022`d`Z`\\d`Zu\210{\343#B\207\306@\344\"\203\223\345\313!\210\346\311\312`\307`\\\307u\210{\"\311\312`\307`\\\307u\210{\" `\314\315\f@\316\"\fA@\"`\\\314\315\f@\316\"\fA@\"u\210{`\314\315 @\316\" A@\"`\\\314\315 @\316\" A@\"u\210{*BB\207\306@\347\"\203\246\350`\323u\210f
\236AB\207\306@\351\"\203\272\352`\323u\210f1\236AB\207\306@\353\"\203\351\354\311\312A@\203\332`A@`\\A@u\210{\202\346`d`Z`\\d`Zu\210{\"B\207\306@\355\"\203\356A@\203`A@`\\A@u\210{\202`d`Z`\\d`Zu\210{B\207\306@\357\"\205@\360A@\2033`A@`\\A@u\210{\202?`d`Z`\\d`Zu\210{B\207" [ptag bytes pgg-parse-symmetric-key-algorithm-alist value-bytes name-bytes pgg-parse-hash-algorithm-alist eql 2 creation-time mapcar pgg-char-int 4 logior lsh 8 3 0 signature-expiry exportability nil 5 trust-level 6 regular-expression 7 revocability 9 key-expiry 11 preferred-symmetric-key-algorithm 12 16 key-identifier mapconcat #[(c) "\301\302\"\207" [c format "%02X"] 3] "" 20 pgg-skip-bytes notation 21 preferred-hash-algorithm 22 preferred-compression-algorithm 23 key-server-preferences 24 preferred-key-server 26 policy-url pgg-parse-compression-algorithm-alist] 8])
(defalias 'pgg-parse-signature-packet #[(ptag) "`f\306BC\307\211\307 \310U\203z \311\312!\210\313\314`\315`\\\315u\210{\" \316\n\211A@
\236ABC\244\211\317\320\321\n@\322\"\nA@\"\320\321\312\n8\322\"\310\n8\"\323EBC\244\211\324\325\326`\322`\\\322u\210{\327#BC\244\211\330`\307u\210fBC\244\211\331`\307u\210fBC\244\202 \332U\203 \311\333!\210 \316`\307u\210f
\236ABC\244\211\330`\307u\210fBC\244\211\331`\307u\210fBC\244\334\313\314`\312`\\\312u\210{\"\320\321\f@\322\"\fA@\"\211Y\203\332 \214`\f`\\}\210 \313\335\336\337\340\"\"\244\210db\210)\334\313\314`\312`\\\312u\210{\"\320\321\f@\322\"\fA@\"\211Y\203 \214`\f`\\}\210 \313\335\336\337\340\"\"\244\210)\330 \236\211\211A!\236A\241\210\331 \236\211\211A\"\236A\241\210 -\207" [signature-version result hashed-material field n pgg-parse-signature-type-alist version nil 3 pgg-skip-bytes 2 mapcar pgg-char-int 5 signature-type creation-time logior lsh 8 0 key-identifier mapconcat #[(c) "\301\302\"\207" [c format "%02X"] 3] "" public-key-algorithm hash-algorithm 4 1 10000 cdr pgg-parse-packets pgg-parse-signature-subpacket-header pgg-parse-signature-subpacket pgg-parse-public-key-algorithm-alist pgg-parse-hash-algorithm-alist] 8])
(defalias 'pgg-parse-public-key-encrypted-session-key-packet #[(ptag) "\302\211\303`\302u\210fBC\244\211\304\305\306`\307`\\\307u\210{\310#BC\244\211\311`\302u\210f \236ABC\244\211)\207" [result pgg-parse-public-key-algorithm-alist nil version key-identifier mapconcat #[(c) "\301\302\"\207" [c format "%02X"] 3] 8 "" public-key-algorithm] 8])
(defalias 'pgg-parse-symmetric-key-encrypted-session-key-packet #[(ptag) "\302\211\303`\302u\210fBC\244\211\304`\302u\210f \236ABC\244\211)\207" [result pgg-parse-symmetric-key-algorithm-alist nil version symmetric-key-algorithm] 5])
(defalias 'pgg-parse-public-key-packet #[(ptag) "`\305u\210f\306BC\305\307U\203\\ \310\311\312`\313`\\\313u\210{\"\314\315 @\316\" A@\"\314\315\317 8\316\"\307 8\"\320E)BC\244\211\321\311\312`\317`\\\317u\210{\"BC\244\211\322`\305u\210fBC\244\202\227 \313U\203\227 \310\311\312`\313`\\\313u\210{\"\314\315 @\316\" A@\"\314\315\317 8\316\"\307 8\"\320E)BC\244\211\322`\305u\210fBC\244\322 \236\211\211A\f\236A\241\210 +\207" [key-version result field bytes pgg-parse-public-key-algorithm-alist nil version 3 creation-time mapcar pgg-char-int 4 logior lsh 8 2 0 key-expiry public-key-algorithm] 8])
(defalias 'pgg-decode-packets #[nil "\303\304\305\306#\203? \307\224\310\311!\211d|\210\305\312\313\217\2038 \314\315!?\206= \n\206= \316\315\317 !!\230\206= \320\321!\210\305\202= \320\322!\210\305*\207\320\323!\210\305\207" [checksum p pgg-ignore-packet-checksum re-search-forward "^=\\([A-Za-z0-9+/]\\{4\\}\\)$" nil t 0 match-string 1 (byte-code "\301e\"\207" [p base64-decode-region] 3) ((error)) fboundp pgg-parse-crc24-string base64-encode-string buffer-string message "PGP packet checksum does not match" "PGP packet contain invalid base64" "PGP packet checksum not found"] 5])
(defalias 'pgg-decode-armor-region #[(start end) "\214 }\210eb\210\302\303\304\305#\210e\306\307!\205 \310\225|\210\311 \205# eb\210\312 )\207" [start end re-search-forward "^-+BEGIN PGP" nil t search-forward "\n\n" 0 pgg-decode-packets pgg-parse-packets] 4])
(defalias 'pgg-parse-armor #[(string) "\302\303!rq\210\304\216\305 \210\306\307!\210 c\210\310e`\"+\207" [#1=#:temp-buffer string generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) buffer-disable-undo set-buffer-multibyte nil pgg-decode-armor-region] 3])
(byte-code "\300\301\302\303!\203\f \303\202
\304\"\207" [defalias pgg-string-as-unibyte fboundp string-as-unibyte identity] 4)
(defalias 'pgg-parse-armor-region #[(start end) "\302\303 {!!\207" [start end pgg-parse-armor pgg-string-as-unibyte] 4])
(provide 'pgg-parse)