;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\"\313T\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\"\203XA@\203K`A@`\\A@u\210{\207`d`Z`\\d`Zu\210{\207\301@\313\"\203\200A@\203s`A@`\\A@u\210{\207`d`Z`\\d`Zu\210{\207\301@\314\"\203\250A@\203\233`A@`\\A@u\210{\207`d`Z`\\d`Zu\210{\207\301@\315\"\205\317A@\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!)BB\311\nA@!\2039db\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\3178\316\"\3078\"\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\3178\316\"\3078\"\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)