mirror of
git://git.gnupg.org/gnupg.git
synced 2024-10-31 20:08:43 +01:00
74e4dd3668
* g10/options.h (EXPORT_REALCLEAN): New. Also re-assign other values to keep them more in sync with the corresponding import values. * g10/export.c (parse_export_options): Add "export-realclean". (do_export_stream): Call clean_all_uids directly with the options arg. * g10/import.c (import_one_real): Change for direct use of options in clean_all_uids. * g10/key-clean.c (is_trusted_key_sig): New. Stub for now. (clean_sigs_from_uid): Re-purpose self_only to a general options arg. Implement EXPORT_REALCLEAN code path. (clean_one_uid): Re-purpose self_only to a general options arg. (clean_all_uids): Ditto. * g10/keyedit.c (keyedit_menu): Use EXPORT_MINIMAL instead of a simple flag. (menu_clean): Re-purpose self_only to a general options arg. * g10/keyid.c (fpr20_from_pk): Factor code out to .... (fpr20_from_fpr): new. Remove useless case for ARRAY being NULL. * g10/tdbio.c (tdbio_search_trust_byfpr): Add arg fprlen and use fpr20_from_fpr if needed. (tdbio_search_trust_bypk): Pass 20 for the fingerprint length. -- Note that this code has no function yet. Another patch will follow to extract the trusted-keys flag from the trustdb.
646 lines
22 KiB
C
646 lines
22 KiB
C
/* key-clean.c - Functions to clean a keyblock
|
|
* Copyright (C) 1998-2008, 2010-2011 Free Software Foundation, Inc.
|
|
* Copyright (C) 2014, 2016-2018 Werner Koch
|
|
*
|
|
* This file is part of GnuPG.
|
|
*
|
|
* GnuPG is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 3 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* GnuPG is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, see <https://www.gnu.org/licenses/>.
|
|
* SPDX-License-Identifier: GPL-3.0-or-later
|
|
*/
|
|
|
|
#include <config.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
|
|
#include "gpg.h"
|
|
#include "keydb.h"
|
|
#include "../common/util.h"
|
|
#include "../common/host2net.h"
|
|
#include "../common/i18n.h"
|
|
#include "options.h"
|
|
#include "packet.h"
|
|
#include "main.h"
|
|
#include "key-clean.h"
|
|
|
|
|
|
#define NF_USABLE 8 /* Usable signature and not a revocation. */
|
|
#define NF_CONSIDER 9 /* Internal use. */
|
|
#define NF_PROCESSED 10 /* Internal use. */
|
|
#define NF_REVOC 11 /* Usable revocation. */
|
|
#define NF_NOKEY 12 /* Key not available. */
|
|
|
|
/*
|
|
* Mark the signature of the given UID which are used to certify it.
|
|
* To do this, we first remove all signatures which are not valid and
|
|
* from the remaining we look for the latest one. If this is not a
|
|
* certification revocation signature we mark the signature by setting
|
|
* node flag bit NF_USABLE. Revocations are marked with NF_REVOC, and
|
|
* sigs from unavailable keys are marked with NF_NOKEY.
|
|
*/
|
|
void
|
|
mark_usable_uid_certs (ctrl_t ctrl, kbnode_t keyblock, kbnode_t uidnode,
|
|
u32 *main_kid, struct key_item *klist,
|
|
u32 curtime, u32 *next_expire)
|
|
{
|
|
kbnode_t node;
|
|
PKT_signature *sig;
|
|
|
|
/* First check all signatures. */
|
|
for (node=uidnode->next; node; node = node->next)
|
|
{
|
|
int rc;
|
|
|
|
node->flag &= ~(1<<NF_USABLE | 1<<NF_CONSIDER
|
|
| 1<<NF_PROCESSED | 1<<NF_REVOC | 1<<NF_NOKEY);
|
|
if (node->pkt->pkttype == PKT_USER_ID
|
|
|| node->pkt->pkttype == PKT_PUBLIC_SUBKEY
|
|
|| node->pkt->pkttype == PKT_SECRET_SUBKEY)
|
|
break; /* ready */
|
|
if (node->pkt->pkttype != PKT_SIGNATURE)
|
|
continue;
|
|
sig = node->pkt->pkt.signature;
|
|
if (main_kid
|
|
&& sig->keyid[0] == main_kid[0] && sig->keyid[1] == main_kid[1])
|
|
continue; /* ignore self-signatures if we pass in a main_kid */
|
|
if (!IS_UID_SIG(sig) && !IS_UID_REV(sig))
|
|
continue; /* we only look at these signature classes */
|
|
if(sig->sig_class>=0x11 && sig->sig_class<=0x13 &&
|
|
sig->sig_class-0x10<opt.min_cert_level)
|
|
continue; /* treat anything under our min_cert_level as an
|
|
invalid signature */
|
|
if (klist && !is_in_klist (klist, sig))
|
|
continue; /* no need to check it then */
|
|
if ((rc=check_key_signature (ctrl, keyblock, node, NULL)))
|
|
{
|
|
/* we ignore anything that won't verify, but tag the
|
|
no_pubkey case */
|
|
if (gpg_err_code (rc) == GPG_ERR_NO_PUBKEY)
|
|
node->flag |= 1<<NF_NOKEY;
|
|
continue;
|
|
}
|
|
node->flag |= 1<<NF_CONSIDER;
|
|
|
|
}
|
|
/* Reset the remaining flags. */
|
|
for (; node; node = node->next)
|
|
node->flag &= ~(1<<NF_USABLE | 1<<NF_CONSIDER
|
|
| 1<<NF_PROCESSED | 1<<NF_REVOC | 1<<NF_NOKEY);
|
|
|
|
/* kbnode flag usage: bit NF_CONSIDER is here set for signatures to consider,
|
|
* bit NF_PROCESSED will be set by the loop to keep track of keyIDs already
|
|
* processed, bit NF_USABLE will be set for the usable signatures, and bit
|
|
* NF_REVOC will be set for usable revocations. */
|
|
|
|
/* For each cert figure out the latest valid one. */
|
|
for (node=uidnode->next; node; node = node->next)
|
|
{
|
|
KBNODE n, signode;
|
|
u32 kid[2];
|
|
u32 sigdate;
|
|
|
|
if (node->pkt->pkttype == PKT_PUBLIC_SUBKEY
|
|
|| node->pkt->pkttype == PKT_SECRET_SUBKEY)
|
|
break;
|
|
if ( !(node->flag & (1<<NF_CONSIDER)) )
|
|
continue; /* not a node to look at */
|
|
if ( (node->flag & (1<<NF_PROCESSED)) )
|
|
continue; /* signature with a keyID already processed */
|
|
node->flag |= (1<<NF_PROCESSED); /* mark this node as processed */
|
|
sig = node->pkt->pkt.signature;
|
|
signode = node;
|
|
sigdate = sig->timestamp;
|
|
kid[0] = sig->keyid[0]; kid[1] = sig->keyid[1];
|
|
|
|
/* Now find the latest and greatest signature */
|
|
for (n=uidnode->next; n; n = n->next)
|
|
{
|
|
if (n->pkt->pkttype == PKT_PUBLIC_SUBKEY
|
|
|| n->pkt->pkttype == PKT_SECRET_SUBKEY)
|
|
break;
|
|
if ( !(n->flag & (1<<NF_CONSIDER)) )
|
|
continue;
|
|
if ( (n->flag & (1<<NF_PROCESSED)) )
|
|
continue; /* shortcut already processed signatures */
|
|
sig = n->pkt->pkt.signature;
|
|
if (kid[0] != sig->keyid[0] || kid[1] != sig->keyid[1])
|
|
continue;
|
|
n->flag |= (1<<NF_PROCESSED); /* mark this node as processed */
|
|
|
|
/* If signode is nonrevocable and unexpired and n isn't,
|
|
then take signode (skip). It doesn't matter which is
|
|
older: if signode was older then we don't want to take n
|
|
as signode is nonrevocable. If n was older then we're
|
|
automatically fine. */
|
|
|
|
if(((IS_UID_SIG(signode->pkt->pkt.signature) &&
|
|
!signode->pkt->pkt.signature->flags.revocable &&
|
|
(signode->pkt->pkt.signature->expiredate==0 ||
|
|
signode->pkt->pkt.signature->expiredate>curtime))) &&
|
|
(!(IS_UID_SIG(n->pkt->pkt.signature) &&
|
|
!n->pkt->pkt.signature->flags.revocable &&
|
|
(n->pkt->pkt.signature->expiredate==0 ||
|
|
n->pkt->pkt.signature->expiredate>curtime))))
|
|
continue;
|
|
|
|
/* If n is nonrevocable and unexpired and signode isn't,
|
|
then take n. Again, it doesn't matter which is older: if
|
|
n was older then we don't want to take signode as n is
|
|
nonrevocable. If signode was older then we're
|
|
automatically fine. */
|
|
|
|
if((!(IS_UID_SIG(signode->pkt->pkt.signature) &&
|
|
!signode->pkt->pkt.signature->flags.revocable &&
|
|
(signode->pkt->pkt.signature->expiredate==0 ||
|
|
signode->pkt->pkt.signature->expiredate>curtime))) &&
|
|
((IS_UID_SIG(n->pkt->pkt.signature) &&
|
|
!n->pkt->pkt.signature->flags.revocable &&
|
|
(n->pkt->pkt.signature->expiredate==0 ||
|
|
n->pkt->pkt.signature->expiredate>curtime))))
|
|
{
|
|
signode = n;
|
|
sigdate = sig->timestamp;
|
|
continue;
|
|
}
|
|
|
|
/* At this point, if it's newer, it goes in as the only
|
|
remaining possibilities are signode and n are both either
|
|
revocable or expired or both nonrevocable and unexpired.
|
|
If the timestamps are equal take the later ordered
|
|
packet, presuming that the key packets are hopefully in
|
|
their original order. */
|
|
|
|
if (sig->timestamp >= sigdate)
|
|
{
|
|
signode = n;
|
|
sigdate = sig->timestamp;
|
|
}
|
|
}
|
|
|
|
sig = signode->pkt->pkt.signature;
|
|
if (IS_UID_SIG (sig))
|
|
{ /* this seems to be a usable one which is not revoked.
|
|
* Just need to check whether there is an expiration time,
|
|
* We do the expired certification after finding a suitable
|
|
* certification, the assumption is that a signator does not
|
|
* want that after the expiration of his certificate the
|
|
* system falls back to an older certification which has a
|
|
* different expiration time */
|
|
const byte *p;
|
|
u32 expire;
|
|
|
|
p = parse_sig_subpkt (sig, 1, SIGSUBPKT_SIG_EXPIRE, NULL );
|
|
expire = p? sig->timestamp + buf32_to_u32(p) : 0;
|
|
|
|
if (expire==0 || expire > curtime )
|
|
{
|
|
signode->flag |= (1<<NF_USABLE); /* yeah, found a good cert */
|
|
if (next_expire && expire && expire < *next_expire)
|
|
*next_expire = expire;
|
|
}
|
|
}
|
|
else
|
|
signode->flag |= (1<<NF_REVOC);
|
|
}
|
|
}
|
|
|
|
|
|
/* Return true if the signature at NODE has is from a key specified by
|
|
* the --trusted-key option and is exportable. */
|
|
static int
|
|
is_trusted_key_sig (kbnode_t node)
|
|
{
|
|
if (!node->pkt->pkt.signature->flags.exportable)
|
|
return 0;
|
|
/* Not yet implemented. */
|
|
return 0;
|
|
}
|
|
|
|
|
|
/* Note: OPTIONS are from the EXPORT_* set. */
|
|
static int
|
|
clean_sigs_from_uid (ctrl_t ctrl, kbnode_t keyblock, kbnode_t uidnode,
|
|
int noisy, unsigned int options)
|
|
{
|
|
int deleted = 0;
|
|
kbnode_t node;
|
|
u32 keyid[2];
|
|
|
|
log_assert (keyblock->pkt->pkttype == PKT_PUBLIC_KEY
|
|
|| keyblock->pkt->pkttype == PKT_SECRET_KEY);
|
|
|
|
keyid_from_pk (keyblock->pkt->pkt.public_key, keyid);
|
|
|
|
/* Passing in a 0 for current time here means that we'll never weed
|
|
out an expired sig. This is correct behavior since we want to
|
|
keep the most recent expired sig in a series. */
|
|
mark_usable_uid_certs (ctrl, keyblock, uidnode, NULL, NULL, 0, NULL);
|
|
|
|
/* What we want to do here is remove signatures that are not
|
|
considered as part of the trust calculations. Thus, all invalid
|
|
signatures are out, as are any signatures that aren't the last of
|
|
a series of uid sigs or revocations It breaks down like this:
|
|
coming out of mark_usable_uid_certs, if a sig is unflagged, it is
|
|
not even a candidate. If a sig has flag NF_CONSIDER or
|
|
NF_PROCESSED, that means it was selected as a candidate and
|
|
vetted. If a sig has flag NF_USABLE it is a usable signature.
|
|
If a sig has flag NF_REVOC it is a usable revocation. If a sig
|
|
has flag NF_NOKEY it was issued by an unavailable key. "Usable"
|
|
here means the most recent valid signature/revocation in a series
|
|
from a particular signer.
|
|
|
|
Delete everything that isn't a usable uid sig (which might be
|
|
expired), a usable revocation, or a sig from an unavailable
|
|
key. */
|
|
|
|
for (node=uidnode->next;
|
|
node && node->pkt->pkttype==PKT_SIGNATURE;
|
|
node=node->next)
|
|
{
|
|
int keep;
|
|
|
|
if ((options & EXPORT_REALCLEAN))
|
|
keep = ((node->pkt->pkt.signature->keyid[0] == keyid[0]
|
|
&& node->pkt->pkt.signature->keyid[1] == keyid[1])
|
|
|| is_trusted_key_sig (node));
|
|
else if ((options & EXPORT_MINIMAL))
|
|
keep = (node->pkt->pkt.signature->keyid[0] == keyid[0]
|
|
&& node->pkt->pkt.signature->keyid[1] == keyid[1]);
|
|
else
|
|
keep = 1;
|
|
|
|
/* Keep usable uid sigs ... */
|
|
if ((node->flag & (1<<NF_USABLE)) && keep)
|
|
continue;
|
|
|
|
/* ... and usable revocations... */
|
|
if ((node->flag & (1<<NF_REVOC)) && keep)
|
|
continue;
|
|
|
|
/* ... and sigs from unavailable keys. */
|
|
/* disabled for now since more people seem to want sigs from
|
|
unavailable keys removed altogether. */
|
|
/*
|
|
if(node->flag & (1<<NF_NOKEY))
|
|
continue;
|
|
*/
|
|
|
|
/* Everything else we delete */
|
|
|
|
/* At this point, if NF_NOKEY is set, the signing key was
|
|
* unavailable. If NF_CONSIDER or NF_PROCESSED is set, it's
|
|
* superseded. Otherwise, it's invalid. */
|
|
|
|
if (noisy)
|
|
log_info ("removing signature from key %s on user ID \"%s\": %s\n",
|
|
keystr (node->pkt->pkt.signature->keyid),
|
|
uidnode->pkt->pkt.user_id->name,
|
|
node->flag&(1<<NF_NOKEY)? "key unavailable":
|
|
node->flag&(1<<NF_CONSIDER)? "signature superseded"
|
|
/* */ : "invalid signature" );
|
|
|
|
delete_kbnode (node);
|
|
deleted++;
|
|
}
|
|
|
|
return deleted;
|
|
}
|
|
|
|
|
|
/* This is substantially easier than clean_sigs_from_uid since we just
|
|
have to establish if the uid has a valid self-sig, is not revoked,
|
|
and is not expired. Note that this does not take into account
|
|
whether the uid has a trust path to it - just whether the keyholder
|
|
themselves has certified the uid. Returns true if the uid was
|
|
compacted. To "compact" a user ID, we simply remove ALL signatures
|
|
except the self-sig that caused the user ID to be remove-worthy.
|
|
We don't actually remove the user ID packet itself since it might
|
|
be resurrected in a later merge. Note that this function requires
|
|
that the caller has already done a merge_keys_and_selfsig().
|
|
|
|
TODO: change the import code to allow importing a uid with only a
|
|
revocation if the uid already exists on the keyring. */
|
|
|
|
static int
|
|
clean_uid_from_key (kbnode_t keyblock, kbnode_t uidnode, int noisy)
|
|
{
|
|
kbnode_t node;
|
|
PKT_user_id *uid = uidnode->pkt->pkt.user_id;
|
|
int deleted = 0;
|
|
|
|
log_assert (keyblock->pkt->pkttype == PKT_PUBLIC_KEY
|
|
|| keyblock->pkt->pkttype == PKT_SECRET_KEY);
|
|
log_assert (uidnode->pkt->pkttype==PKT_USER_ID);
|
|
|
|
/* Skip valid user IDs, compacted user IDs, and non-self-signed user
|
|
IDs if --allow-non-selfsigned-uid is set. */
|
|
if (uid->created
|
|
|| uid->flags.compacted
|
|
|| (!uid->flags.expired && !uid->flags.revoked && opt.allow_non_selfsigned_uid))
|
|
return 0;
|
|
|
|
for (node=uidnode->next;
|
|
node && node->pkt->pkttype == PKT_SIGNATURE;
|
|
node=node->next)
|
|
{
|
|
if (!node->pkt->pkt.signature->flags.chosen_selfsig)
|
|
{
|
|
delete_kbnode (node);
|
|
deleted = 1;
|
|
uidnode->pkt->pkt.user_id->flags.compacted = 1;
|
|
}
|
|
}
|
|
|
|
if (noisy)
|
|
{
|
|
const char *reason;
|
|
char *user = utf8_to_native (uid->name, uid->len, 0);
|
|
|
|
if (uid->flags.revoked)
|
|
reason = _("revoked");
|
|
else if (uid->flags.expired)
|
|
reason = _("expired");
|
|
else
|
|
reason = _("invalid");
|
|
|
|
log_info ("compacting user ID \"%s\" on key %s: %s\n",
|
|
user, keystr_from_pk (keyblock->pkt->pkt.public_key),
|
|
reason);
|
|
|
|
xfree (user);
|
|
}
|
|
|
|
return deleted;
|
|
}
|
|
|
|
|
|
/* Needs to be called after a merge_keys_and_selfsig().
|
|
* Note: OPTIONS are from the EXPORT_* set. */
|
|
void
|
|
clean_one_uid (ctrl_t ctrl, kbnode_t keyblock, kbnode_t uidnode,
|
|
int noisy, unsigned int options,
|
|
int *uids_cleaned, int *sigs_cleaned)
|
|
{
|
|
int dummy = 0;
|
|
|
|
log_assert (keyblock->pkt->pkttype == PKT_PUBLIC_KEY
|
|
|| keyblock->pkt->pkttype == PKT_SECRET_KEY);
|
|
log_assert (uidnode->pkt->pkttype==PKT_USER_ID);
|
|
|
|
if (!uids_cleaned)
|
|
uids_cleaned = &dummy;
|
|
|
|
if (!sigs_cleaned)
|
|
sigs_cleaned = &dummy;
|
|
|
|
/* Do clean_uid_from_key first since if it fires off, we don't have
|
|
to bother with the other. */
|
|
*uids_cleaned += clean_uid_from_key (keyblock, uidnode, noisy);
|
|
if (!uidnode->pkt->pkt.user_id->flags.compacted)
|
|
*sigs_cleaned += clean_sigs_from_uid (ctrl, keyblock, uidnode,
|
|
noisy, options);
|
|
}
|
|
|
|
|
|
/* NB: This function marks the deleted nodes only and the caller is
|
|
* responsible to skip or remove them. Needs to be called after a
|
|
* merge_keys_and_selfsig. Note: OPTIONS are from the EXPORT_* set. */
|
|
void
|
|
clean_all_uids (ctrl_t ctrl, kbnode_t keyblock, int noisy, unsigned int options,
|
|
int *uids_cleaned, int *sigs_cleaned)
|
|
{
|
|
kbnode_t node;
|
|
|
|
for (node = keyblock->next;
|
|
node && !(node->pkt->pkttype == PKT_PUBLIC_SUBKEY
|
|
|| node->pkt->pkttype == PKT_SECRET_SUBKEY);
|
|
node = node->next)
|
|
{
|
|
if (node->pkt->pkttype == PKT_USER_ID)
|
|
clean_one_uid (ctrl, keyblock, node, noisy, options,
|
|
uids_cleaned, sigs_cleaned);
|
|
}
|
|
|
|
/* Remove bogus subkey binding signatures: The only signatures
|
|
* allowed are of class 0x18 and 0x28. */
|
|
log_assert (!node || (node->pkt->pkttype == PKT_PUBLIC_SUBKEY
|
|
|| node->pkt->pkttype == PKT_SECRET_SUBKEY));
|
|
}
|
|
|
|
|
|
/* Helper for clean_all_subkeys. */
|
|
static int
|
|
clean_one_subkey (ctrl_t ctrl, kbnode_t subkeynode, int noisy, int clean_level)
|
|
{
|
|
kbnode_t node;
|
|
PKT_public_key *pk = subkeynode->pkt->pkt.public_key;
|
|
unsigned int use = pk->pubkey_usage;
|
|
int do_clean = 0;
|
|
|
|
(void)ctrl;
|
|
(void)noisy;
|
|
|
|
log_assert (subkeynode->pkt->pkttype == PKT_PUBLIC_SUBKEY
|
|
|| subkeynode->pkt->pkttype == PKT_SECRET_SUBKEY);
|
|
|
|
if (DBG_LOOKUP)
|
|
log_debug ("\tchecking subkey %08lX [%c%c%c%c%c]\n",
|
|
(ulong) keyid_from_pk (pk, NULL),
|
|
(use & PUBKEY_USAGE_ENC)? 'e':'-',
|
|
(use & PUBKEY_USAGE_SIG)? 's':'-',
|
|
(use & PUBKEY_USAGE_CERT)? 'c':'-',
|
|
(use & PUBKEY_USAGE_AUTH)? 'a':'-',
|
|
(use & PUBKEY_USAGE_UNKNOWN)? '?':'-');
|
|
|
|
if (!pk->flags.valid)
|
|
{
|
|
if (DBG_LOOKUP)
|
|
log_debug ("\tsubkey not valid\n");
|
|
if (clean_level == KEY_CLEAN_INVALID)
|
|
do_clean = 1;
|
|
}
|
|
if (pk->has_expired)
|
|
{
|
|
if (DBG_LOOKUP)
|
|
log_debug ("\tsubkey has expired\n");
|
|
if (clean_level == KEY_CLEAN_ALL)
|
|
do_clean = 1;
|
|
else if (clean_level == KEY_CLEAN_AUTHENCR
|
|
&& (use & (PUBKEY_USAGE_ENC | PUBKEY_USAGE_AUTH))
|
|
&& !(use & (PUBKEY_USAGE_SIG | PUBKEY_USAGE_CERT)))
|
|
do_clean = 1;
|
|
else if (clean_level == KEY_CLEAN_ENCR
|
|
&& (use & PUBKEY_USAGE_ENC)
|
|
&& !(use & (PUBKEY_USAGE_SIG | PUBKEY_USAGE_CERT
|
|
| PUBKEY_USAGE_AUTH)))
|
|
do_clean = 1;
|
|
}
|
|
if (pk->flags.revoked)
|
|
{
|
|
if (DBG_LOOKUP)
|
|
log_debug ("\tsubkey has been revoked (keeping)\n");
|
|
/* Avoid any cleaning because revocations are important. */
|
|
do_clean = 0;
|
|
}
|
|
if (!do_clean)
|
|
return 0;
|
|
|
|
if (DBG_LOOKUP)
|
|
log_debug ("\t=> removing this subkey\n");
|
|
|
|
delete_kbnode (subkeynode);
|
|
for (node = subkeynode->next;
|
|
node && !(node->pkt->pkttype == PKT_PUBLIC_SUBKEY
|
|
|| node->pkt->pkttype == PKT_SECRET_SUBKEY);
|
|
node = node->next)
|
|
delete_kbnode (node);
|
|
|
|
return 1;
|
|
}
|
|
|
|
|
|
/* Helper for clean_all_subkeys. Here duplicate signatures from a
|
|
* subkey are removed. This should in general not happen because
|
|
* import takes care of that. However, sometimes other tools are used
|
|
* to manage a keyring or key has been imported a long time ago. */
|
|
static int
|
|
clean_one_subkey_dupsigs (ctrl_t ctrl, kbnode_t subkeynode)
|
|
{
|
|
kbnode_t node;
|
|
PKT_public_key *pk = subkeynode->pkt->pkt.public_key;
|
|
int any_choosen = 0;
|
|
int count = 0;
|
|
|
|
(void)ctrl;
|
|
|
|
log_assert (subkeynode->pkt->pkttype == PKT_PUBLIC_SUBKEY
|
|
|| subkeynode->pkt->pkttype == PKT_SECRET_SUBKEY);
|
|
|
|
if (DBG_LOOKUP)
|
|
log_debug ("\tchecking subkey %08lX for dupsigs\n",
|
|
(ulong) keyid_from_pk (pk, NULL));
|
|
|
|
/* First check that the chosen flag has been set. Note that we
|
|
* only look at plain signatures so to keep all revocation
|
|
* signatures which may carry important information. */
|
|
for (node = subkeynode->next;
|
|
node && !(node->pkt->pkttype == PKT_PUBLIC_SUBKEY
|
|
|| node->pkt->pkttype == PKT_SECRET_SUBKEY);
|
|
node = node->next)
|
|
{
|
|
if (!is_deleted_kbnode (node)
|
|
&& node->pkt->pkttype == PKT_SIGNATURE
|
|
&& IS_SUBKEY_SIG (node->pkt->pkt.signature)
|
|
&& node->pkt->pkt.signature->flags.chosen_selfsig)
|
|
{
|
|
any_choosen = 1;
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (!any_choosen)
|
|
return 0; /* Ooops no chosen flag set - we can't decide. */
|
|
|
|
for (node = subkeynode->next;
|
|
node && !(node->pkt->pkttype == PKT_PUBLIC_SUBKEY
|
|
|| node->pkt->pkttype == PKT_SECRET_SUBKEY);
|
|
node = node->next)
|
|
{
|
|
if (!is_deleted_kbnode (node)
|
|
&& node->pkt->pkttype == PKT_SIGNATURE
|
|
&& IS_SUBKEY_SIG (node->pkt->pkt.signature)
|
|
&& !node->pkt->pkt.signature->flags.chosen_selfsig)
|
|
{
|
|
delete_kbnode (node);
|
|
count++;
|
|
}
|
|
}
|
|
|
|
return count;
|
|
}
|
|
|
|
|
|
/* This function only marks the deleted nodes and the caller is
|
|
* responsible to skip or remove them. Needs to be called after a
|
|
* merge_keys_and_selfsig. CLEAN_LEVEL is one of the KEY_CLEAN_*
|
|
* values. */
|
|
void
|
|
clean_all_subkeys (ctrl_t ctrl, kbnode_t keyblock, int noisy, int clean_level,
|
|
int *subkeys_cleaned, int *sigs_cleaned)
|
|
{
|
|
kbnode_t first_subkey, node;
|
|
int n;
|
|
|
|
if (DBG_LOOKUP)
|
|
log_debug ("clean_all_subkeys: checking key %08lX\n",
|
|
(ulong) keyid_from_pk (keyblock->pkt->pkt.public_key, NULL));
|
|
|
|
for (node = keyblock->next; node; node = node->next)
|
|
if (!is_deleted_kbnode (node)
|
|
&& (node->pkt->pkttype == PKT_PUBLIC_SUBKEY
|
|
|| node->pkt->pkttype == PKT_SECRET_SUBKEY))
|
|
break;
|
|
first_subkey = node;
|
|
|
|
/* Remove bogus subkey binding signatures: The only signatures
|
|
* allowed are of class 0x18 and 0x28. */
|
|
for (node = first_subkey; node; node = node->next)
|
|
{
|
|
if (is_deleted_kbnode (node))
|
|
continue;
|
|
if (node->pkt->pkttype == PKT_SIGNATURE
|
|
&& !(IS_SUBKEY_SIG (node->pkt->pkt.signature)
|
|
|| IS_SUBKEY_REV (node->pkt->pkt.signature)))
|
|
{
|
|
delete_kbnode (node);
|
|
if (sigs_cleaned)
|
|
++*sigs_cleaned;
|
|
}
|
|
}
|
|
|
|
/* Do the selected cleaning. */
|
|
if (clean_level > KEY_CLEAN_NONE)
|
|
{
|
|
/* Clean enitre subkeys. */
|
|
for (node = first_subkey; node; node = node->next)
|
|
{
|
|
if (is_deleted_kbnode (node))
|
|
continue;
|
|
if (node->pkt->pkttype == PKT_PUBLIC_SUBKEY
|
|
|| node->pkt->pkttype == PKT_SECRET_SUBKEY)
|
|
{
|
|
if (clean_one_subkey (ctrl, node, noisy, clean_level))
|
|
{
|
|
if (subkeys_cleaned)
|
|
++*subkeys_cleaned;
|
|
}
|
|
}
|
|
}
|
|
|
|
/* Clean duplicate signatures from a subkey. */
|
|
for (node = first_subkey; node; node = node->next)
|
|
{
|
|
if (is_deleted_kbnode (node))
|
|
continue;
|
|
if (node->pkt->pkttype == PKT_PUBLIC_SUBKEY
|
|
|| node->pkt->pkttype == PKT_SECRET_SUBKEY)
|
|
{
|
|
n = clean_one_subkey_dupsigs (ctrl, node);
|
|
if (sigs_cleaned)
|
|
*sigs_cleaned += n;
|
|
}
|
|
}
|
|
}
|
|
}
|