Lines Matching defs:key
45 (defcustom pgg-parse-public-key-algorithm-alist
47 "Alist of the assigned number to the public key algorithm."
52 (defcustom pgg-parse-symmetric-key-algorithm-alist
54 "Alist of the assigned number to the simmetric key algorithm."
85 (31 . "Signature directly on a key")
112 (defmacro pgg-format-key-identifier (string)
160 (defmacro pgg-set-alist (alist key value)
161 `(setq ,alist (nconc ,alist (list (cons ,key ,value)))))
230 (pgg-parse-public-key-encrypted-session-key-packet ptag))
234 (pgg-parse-symmetric-key-encrypted-session-key-packet ptag))
238 (pgg-parse-public-key-packet ptag))
299 (9 ;key expiration time
300 (cons 'key-expiry
305 (cons 'preferred-symmetric-key-algorithm
307 pgg-parse-symmetric-key-algorithm-alist))))
308 (12 ;revocation key
310 (16 ;issuer key ID
311 (cons 'key-identifier
312 (pgg-format-key-identifier (pgg-read-body-string ptag))))
332 (23 ;key server preferences
333 (cons 'key-server-preferences
335 (24 ;preferred key server
336 (cons 'preferred-key-server
341 ;; 27 = key flags
363 'key-identifier
364 (pgg-format-key-identifier
367 'public-key-algorithm (pgg-read-byte))
377 'public-key-algorithm
403 (setcdr (setq field (assq 'public-key-algorithm
406 pgg-parse-public-key-algorithm-alist)))
413 (defun pgg-parse-public-key-encrypted-session-key-packet (ptag)
418 'key-identifier
419 (pgg-format-key-identifier
422 'public-key-algorithm
424 pgg-parse-public-key-algorithm-alist)))
427 (defun pgg-parse-symmetric-key-encrypted-session-key-packet (ptag)
433 'symmetric-key-algorithm
435 pgg-parse-symmetric-key-algorithm-alist)))
438 (defun pgg-parse-public-key-packet (ptag)
439 (let* ((key-version (pgg-read-byte))
440 (result (list (cons 'version key-version)))
443 ((= 3 key-version)
449 'key-expiry (pgg-read-bytes 2))
451 'public-key-algorithm (pgg-read-byte)))
452 ((= 4 key-version)
458 'public-key-algorithm (pgg-read-byte))))
460 (setcdr (setq field (assq 'public-key-algorithm
463 pgg-parse-public-key-algorithm-alist)))