gpg: Replace remaining uses of stdio by estream.
[gnupg.git] / g10 / sig-check.c
index 63bdda2..f8ba98b 100644 (file)
@@ -1,21 +1,21 @@
 /* sig-check.c -  Check a signature
- *     Copyright (C) 1998 Free Software Foundation, Inc.
+ * Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003,
+ *               2004, 2006 Free Software Foundation, Inc.
  *
- * This file is part of GNUPG.
+ * This file is part of GnuPG.
  *
- * GNUPG is free software; you can redistribute it and/or modify
+ * 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 2 of the License, or
+ * 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,
+ * 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, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+ * along with this program; if not, see <http://www.gnu.org/licenses/>.
  */
 
 #include <config.h>
 #include <stdlib.h>
 #include <string.h>
 #include <assert.h>
+
+#include "gpg.h"
 #include "util.h"
 #include "packet.h"
-#include "memory.h"
-#include "mpi.h"
 #include "keydb.h"
-#include "cipher.h"
 #include "main.h"
 #include "status.h"
 #include "i18n.h"
+#include "options.h"
+#include "pkglue.h"
 
-struct cmp_help_context_s {
-    PKT_signature *sig;
-    MD_HANDLE md;
+/* Context used by the compare function. */
+struct cmp_help_context_s
+{
+  PKT_signature *sig;
+  gcry_md_hd_t md;
 };
 
 
-static int do_check( PKT_public_key *pk, PKT_signature *sig,
-                                               MD_HANDLE digest );
 
+static int do_check( PKT_public_key *pk, PKT_signature *sig,
+                     gcry_md_hd_t digest,
+                    int *r_expired, int *r_revoked, PKT_public_key *ret_pk);
 
 /****************
  * Check the signature which is contained in SIG.
- * The md5handle should be currently open, so that this function
+ * The MD_HANDLE should be currently open, so that this function
  * is able to append some data, before finalizing the digest.
  */
 int
-signature_check( PKT_signature *sig, MD_HANDLE digest )
+signature_check (PKT_signature *sig, gcry_md_hd_t digest)
 {
-    PKT_public_key *pk = m_alloc_clear( sizeof *pk );
-    int rc=0;
-
+    return signature_check2( sig, digest, NULL, NULL, NULL, NULL );
+}
 
-    if( is_RSA(sig->pubkey_algo) )
-       write_status(STATUS_RSA_OR_IDEA);
+int
+signature_check2 (PKT_signature *sig, gcry_md_hd_t digest, u32 *r_expiredate,
+                 int *r_expired, int *r_revoked, PKT_public_key *ret_pk )
+{
+    PKT_public_key *pk = xmalloc_clear( sizeof *pk );
+    int rc=0;
 
-    if( get_pubkey( pk, sig->keyid ) )
-       rc = G10ERR_NO_PUBKEY;
+    if ( (rc=openpgp_md_test_algo(sig->digest_algo)) )
+      ; /* We don't have this digest. */
+    else if ((rc=openpgp_pk_test_algo(sig->pubkey_algo)))
+      ; /* We don't have this pubkey algo. */
+    else if (!gcry_md_is_enabled (digest,sig->digest_algo))
+      {
+       /* Sanity check that the md has a context for the hash that the
+          sig is expecting.  This can happen if a onepass sig header does
+          not match the actual sig, and also if the clearsign "Hash:"
+          header is missing or does not match the actual sig. */
+
+        log_info(_("WARNING: signature digest conflict in message\n"));
+       rc = GPG_ERR_GENERAL;
+      }
+    else if( get_pubkey( pk, sig->keyid ) )
+       rc = GPG_ERR_NO_PUBKEY;
+    else if(!pk->flags.valid && !pk->flags.primary)
+      {
+        /* You cannot have a good sig from an invalid subkey.  */
+        rc = GPG_ERR_BAD_PUBKEY;
+      }
     else
-       rc = do_check( pk, sig, digest );
+      {
+        if(r_expiredate)
+         *r_expiredate = pk->expiredate;
+
+       rc = do_check( pk, sig, digest, r_expired, r_revoked, ret_pk );
+
+       /* Check the backsig.  This is a 0x19 signature from the
+          subkey on the primary key.  The idea here is that it should
+          not be possible for someone to "steal" subkeys and claim
+          them as their own.  The attacker couldn't actually use the
+          subkey, but they could try and claim ownership of any
+          signaures issued by it. */
+       if(rc==0 && !pk->flags.primary && pk->flags.backsig < 2)
+         {
+           if (!pk->flags.backsig)
+             {
+               log_info(_("WARNING: signing subkey %s is not"
+                          " cross-certified\n"),keystr_from_pk(pk));
+               log_info(_("please see %s for more information\n"),
+                        "https://gnupg.org/faq/subkey-cross-certify.html");
+               /* --require-cross-certification makes this warning an
+                     error.  TODO: change the default to require this
+                     after more keys have backsigs. */
+               if(opt.flags.require_cross_cert)
+                 rc = GPG_ERR_GENERAL;
+             }
+           else if(pk->flags.backsig == 1)
+             {
+               log_info(_("WARNING: signing subkey %s has an invalid"
+                          " cross-certification\n"),keystr_from_pk(pk));
+               rc = GPG_ERR_GENERAL;
+             }
+         }
+      }
 
     free_public_key( pk );
-    return rc;
-}
-
-
-/****************
- * This function gets called by pubkey_verify() if the algorithm needs it.
- */
-static int
-cmp_help( void *opaque, MPI result )
-{
-  #if 0 /* we do not use this anymore */
-    int rc=0, i, j, c, old_enc;
-    byte *dp;
-    const byte *asn;
-    size_t mdlen, asnlen;
-    struct cmp_help_context_s *ctx = opaque;
-    PKT_signature *sig = ctx->sig;
-    MD_HANDLE digest = ctx->md;
-
-    old_enc = 0;
-    for(i=j=0; (c=mpi_getbyte(result, i)) != -1; i++ ) {
-       if( !j ) {
-           if( !i && c != 1 )
-               break;
-           else if( i && c == 0xff )
-               ; /* skip the padding */
-           else if( i && !c )
-               j++;
-           else
-               break;
-       }
-       else if( ++j == 18 && c != 1 )
-           break;
-       else if( j == 19 && c == 0 ) {
-           old_enc++;
-           break;
-       }
-    }
-    if( old_enc ) {
-       log_error("old encoding scheme is not supported\n");
-       return G10ERR_GENERAL;
-    }
 
-    if( (rc=check_digest_algo(sig->digest_algo)) )
-       return rc; /* unsupported algo */
-    asn = md_asn_oid( sig->digest_algo, &asnlen, &mdlen );
-
-    for(i=mdlen,j=asnlen-1; (c=mpi_getbyte(result, i)) != -1 && j >= 0;
-                                                          i++, j-- )
-       if( asn[j] != c )
-           break;
-    if( j != -1 || mpi_getbyte(result, i) )
-       return G10ERR_BAD_PUBKEY;  /* ASN is wrong */
-    for(i++; (c=mpi_getbyte(result, i)) != -1; i++ )
-       if( c != 0xff  )
-           break;
-    i++;
-    if( c != sig->digest_algo || mpi_getbyte(result, i) ) {
-       /* Padding or leading bytes in signature is wrong */
-       return G10ERR_BAD_PUBKEY;
-    }
-    if( mpi_getbyte(result, mdlen-1) != sig->digest_start[0]
-       || mpi_getbyte(result, mdlen-2) != sig->digest_start[1] ) {
-       /* Wrong key used to check the signature */
-       return G10ERR_BAD_PUBKEY;
+    if( !rc && sig->sig_class < 2 && is_status_enabled() ) {
+       /* This signature id works best with DLP algorithms because
+        * they use a random parameter for every signature.  Instead of
+        * this sig-id we could have also used the hash of the document
+        * and the timestamp, but the drawback of this is, that it is
+        * not possible to sign more than one identical document within
+        * one second.  Some remote batch processing applications might
+        * like this feature here.
+         *
+         * Note that before 2.0.10, we used RIPE-MD160 for the hash
+         * and accidently didn't include the timestamp and algorithm
+         * information in the hash.  Given that this feature is not
+         * commonly used and that a replay attacks detection should
+         * not solely be based on this feature (because it does not
+         * work with RSA), we take the freedom and switch to SHA-1
+         * with 2.0.10 to take advantage of hardware supported SHA-1
+         * implementations.  We also include the missing information
+         * in the hash.  Note also the SIG_ID as computed by gpg 1.x
+         * and gpg 2.x didn't matched either because 2.x used to print
+         * MPIs not in PGP format.  */
+       u32 a = sig->timestamp;
+       int nsig = pubkey_get_nsig( sig->pubkey_algo );
+       unsigned char *p, *buffer;
+        size_t n, nbytes;
+        int i;
+        char hashbuf[20];
+
+        nbytes = 6;
+       for (i=0; i < nsig; i++ )
+          {
+           if (gcry_mpi_print (GCRYMPI_FMT_USG, NULL, 0, &n, sig->data[i]))
+              BUG();
+            nbytes += n;
+          }
+
+        /* Make buffer large enough to be later used as output buffer.  */
+        if (nbytes < 100)
+          nbytes = 100;
+        nbytes += 10;  /* Safety margin.  */
+
+        /* Fill and hash buffer.  */
+        buffer = p = xmalloc (nbytes);
+       *p++ = sig->pubkey_algo;
+       *p++ = sig->digest_algo;
+       *p++ = (a >> 24) & 0xff;
+       *p++ = (a >> 16) & 0xff;
+       *p++ = (a >>  8) & 0xff;
+       *p++ =  a & 0xff;
+        nbytes -= 6;
+       for (i=0; i < nsig; i++ )
+          {
+           if (gcry_mpi_print (GCRYMPI_FMT_PGP, p, nbytes, &n, sig->data[i]))
+              BUG();
+            p += n;
+            nbytes -= n;
+          }
+        gcry_md_hash_buffer (GCRY_MD_SHA1, hashbuf, buffer, p-buffer);
+
+       p = make_radix64_string (hashbuf, 20);
+       sprintf (buffer, "%s %s %lu",
+                p, strtimestamp (sig->timestamp), (ulong)sig->timestamp);
+       xfree (p);
+       write_status_text (STATUS_SIG_ID, buffer);
+       xfree (buffer);
     }
 
-    dp = md_read( digest, sig->digest_algo );
-    for(i=mdlen-1; i >= 0; i--, dp++ ) {
-       if( mpi_getbyte( result, i ) != *dp )
-           return G10ERR_BAD_SIGN;
-    }
-    return 0;
-  #else
-    return -1;
-  #endif
+    return rc;
 }
 
 
 static int
-do_check( PKT_public_key *pk, PKT_signature *sig, MD_HANDLE digest )
+do_check_messages( PKT_public_key *pk, PKT_signature *sig,
+                  int *r_expired, int *r_revoked )
 {
-    MPI result = NULL;
-    int rc=0;
-    struct cmp_help_context_s ctx;
     u32 cur_time;
 
-    if( pk->version == 4 && pk->pubkey_algo == PUBKEY_ALGO_ELGAMAL_E ) {
-       log_info(_("this is a PGP generated "
-                 "ElGamal key which is NOT secure for signatures!\n"));
-       return G10ERR_PUBKEY_ALGO;
-    }
+    if(r_expired)
+      *r_expired = 0;
+    if(r_revoked)
+      *r_revoked = 0;
 
     if( pk->timestamp > sig->timestamp )
-       return G10ERR_TIME_CONFLICT; /* pubkey newer than signature */
+      {
+       ulong d = pk->timestamp - sig->timestamp;
+       log_info(d==1
+                ?_("public key %s is %lu second newer than the signature\n")
+                :_("public key %s is %lu seconds newer than the signature\n"),
+                keystr_from_pk(pk),d );
+       if( !opt.ignore_time_conflict )
+         return GPG_ERR_TIME_CONFLICT; /* pubkey newer than signature.  */
+      }
 
     cur_time = make_timestamp();
-    if( pk->timestamp > cur_time ) {
-       log_info(_("public key created in future (time warp or clock problem)\n"));
-       return G10ERR_TIME_CONFLICT;
+    if( pk->timestamp > cur_time )
+      {
+       ulong d = pk->timestamp - cur_time;
+       log_info( d==1
+                 ? _("key %s was created %lu second"
+                     " in the future (time warp or clock problem)\n")
+                 : _("key %s was created %lu seconds"
+                     " in the future (time warp or clock problem)\n"),
+                 keystr_from_pk(pk),d );
+       if( !opt.ignore_time_conflict )
+         return GPG_ERR_TIME_CONFLICT;
+      }
+
+    /* Check whether the key has expired.  We check the has_expired
+       flag which is set after a full evaluation of the key (getkey.c)
+       as well as a simple compare to the current time in case the
+       merge has for whatever reasons not been done.  */
+    if( pk->has_expired || (pk->expiredate && pk->expiredate < cur_time)) {
+        char buf[11];
+        if (opt.verbose)
+         log_info(_("Note: signature key %s expired %s\n"),
+                  keystr_from_pk(pk), asctimestamp( pk->expiredate ) );
+       sprintf(buf,"%lu",(ulong)pk->expiredate);
+       write_status_text(STATUS_KEYEXPIRED,buf);
+       if(r_expired)
+         *r_expired = 1;
     }
 
-    if( pk->expiredate && pk->expiredate < cur_time ) {
-       log_info(_("NOTE: signature key expired %s\n"),
-                                       asctimestamp( pk->expiredate ) );
-       write_status(STATUS_SIGEXPIRED);
-    }
+    if (pk->flags.revoked)
+      {
+        if (opt.verbose)
+         log_info (_("Note: signature key %s has been revoked\n"),
+                    keystr_from_pk(pk));
+        if (r_revoked)
+          *r_revoked=1;
+      }
 
+    return 0;
+}
 
-    if( (rc=check_digest_algo(sig->digest_algo)) )
-       return rc;
-    if( (rc=check_pubkey_algo(sig->pubkey_algo)) )
-       return rc;
 
-    /* make sure the digest algo is enabled (in case of a detached signature)*/
-    md_enable( digest, sig->digest_algo );
+static int
+do_check( PKT_public_key *pk, PKT_signature *sig, gcry_md_hd_t digest,
+         int *r_expired, int *r_revoked, PKT_public_key *ret_pk )
+{
+    gcry_mpi_t result = NULL;
+    int rc = 0;
 
-    /* complete the digest */
+    if( (rc=do_check_messages(pk,sig,r_expired,r_revoked)) )
+        return rc;
+
+    if (sig->digest_algo == GCRY_MD_MD5
+        && !opt.flags.allow_weak_digest_algos)
+      {
+        print_md5_rejected_note ();
+        return GPG_ERR_DIGEST_ALGO;
+      }
+
+    /* Make sure the digest algo is enabled (in case of a detached
+       signature).  */
+    gcry_md_enable (digest, sig->digest_algo);
+
+    /* Complete the digest. */
     if( sig->version >= 4 )
-       md_putc( digest, sig->version );
-    md_putc( digest, sig->sig_class );
+       gcry_md_putc( digest, sig->version );
+    gcry_md_putc( digest, sig->sig_class );
     if( sig->version < 4 ) {
        u32 a = sig->timestamp;
-       md_putc( digest, (a >> 24) & 0xff );
-       md_putc( digest, (a >> 16) & 0xff );
-       md_putc( digest, (a >>  8) & 0xff );
-       md_putc( digest,  a        & 0xff );
+       gcry_md_putc( digest, (a >> 24) & 0xff );
+       gcry_md_putc( digest, (a >> 16) & 0xff );
+       gcry_md_putc( digest, (a >>     8) & 0xff );
+       gcry_md_putc( digest,  a           & 0xff );
     }
     else {
        byte buf[6];
        size_t n;
-       md_putc( digest, sig->pubkey_algo );
-       md_putc( digest, sig->digest_algo );
-       if( sig->hashed_data ) {
-           n = (sig->hashed_data[0] << 8) | sig->hashed_data[1];
-           md_write( digest, sig->hashed_data, n+2 );
+       gcry_md_putc( digest, sig->pubkey_algo );
+       gcry_md_putc( digest, sig->digest_algo );
+       if( sig->hashed ) {
+           n = sig->hashed->len;
+            gcry_md_putc (digest, (n >> 8) );
+            gcry_md_putc (digest,  n       );
+           gcry_md_write (digest, sig->hashed->data, n);
            n += 6;
        }
-       else
-           n = 6;
+       else {
+         /* Two octets for the (empty) length of the hashed
+             section. */
+          gcry_md_putc (digest, 0);
+         gcry_md_putc (digest, 0);
+         n = 6;
+       }
        /* add some magic */
        buf[0] = sig->version;
        buf[1] = 0xff;
@@ -211,46 +316,185 @@ do_check( PKT_public_key *pk, PKT_signature *sig, MD_HANDLE digest )
        buf[3] = n >> 16;
        buf[4] = n >>  8;
        buf[5] = n;
-       md_write( digest, buf, 6 );
-    }
-    md_final( digest );
-
-    result = encode_md_value( pk->pubkey_algo, digest, sig->digest_algo,
-                                     mpi_get_nbits(pk->pkey[0]));
-    ctx.sig = sig;
-    ctx.md = digest;
-    rc = pubkey_verify( pk->pubkey_algo, result, sig->data, pk->pkey,
-                       cmp_help, &ctx );
-    mpi_free( result );
-    if( !rc && sig->flags.unknown_critical ) {
-       log_info(_("assuming bad signature due to an unknown critical bit\n"));
-       rc = G10ERR_BAD_SIGN;
+       gcry_md_write( digest, buf, 6 );
     }
-    sig->flags.checked = 1;
-    sig->flags.valid = !rc;
+    gcry_md_final( digest );
+
+    result = encode_md_value (pk, digest, sig->digest_algo );
+    if (!result)
+        return GPG_ERR_GENERAL;
+    rc = pk_verify( pk->pubkey_algo, result, sig->data, pk->pkey );
+    gcry_mpi_release (result);
+
+    if( !rc && sig->flags.unknown_critical )
+      {
+       log_info(_("assuming bad signature from key %s"
+                  " due to an unknown critical bit\n"),keystr_from_pk(pk));
+       rc = GPG_ERR_BAD_SIGNATURE;
+      }
+
+    if(!rc && ret_pk)
+      copy_public_key(ret_pk,pk);
 
     return rc;
 }
 
 
+
 static void
-hash_uid_node( KBNODE unode, MD_HANDLE md, PKT_signature *sig )
+hash_uid_node( KBNODE unode, gcry_md_hd_t md, PKT_signature *sig )
 {
     PKT_user_id *uid = unode->pkt->pkt.user_id;
 
     assert( unode->pkt->pkttype == PKT_USER_ID );
-    if( sig->version >=4 ) {
-       byte buf[5];
-       buf[0] = 0xb4; /* indicates a userid packet */
-       buf[1] = uid->len >> 24;  /* always use 4 length bytes */
-       buf[2] = uid->len >> 16;
-       buf[3] = uid->len >>  8;
-       buf[4] = uid->len;
-       md_write( md, buf, 5 );
+    if( uid->attrib_data ) {
+       if( sig->version >=4 ) {
+           byte buf[5];
+           buf[0] = 0xd1;                   /* packet of type 17 */
+           buf[1] = uid->attrib_len >> 24;  /* always use 4 length bytes */
+           buf[2] = uid->attrib_len >> 16;
+           buf[3] = uid->attrib_len >>  8;
+           buf[4] = uid->attrib_len;
+           gcry_md_write( md, buf, 5 );
+       }
+       gcry_md_write( md, uid->attrib_data, uid->attrib_len );
+    }
+    else {
+       if( sig->version >=4 ) {
+           byte buf[5];
+           buf[0] = 0xb4;            /* indicates a userid packet */
+           buf[1] = uid->len >> 24;  /* always use 4 length bytes */
+           buf[2] = uid->len >> 16;
+           buf[3] = uid->len >>  8;
+           buf[4] = uid->len;
+           gcry_md_write( md, buf, 5 );
+       }
+       gcry_md_write( md, uid->name, uid->len );
+    }
+}
+
+static void
+cache_sig_result ( PKT_signature *sig, int result )
+{
+    if ( !result ) {
+        sig->flags.checked = 1;
+        sig->flags.valid = 1;
+    }
+    else if ( gpg_err_code (result) == GPG_ERR_BAD_SIGNATURE ) {
+        sig->flags.checked = 1;
+        sig->flags.valid = 0;
+    }
+    else {
+        sig->flags.checked = 0;
+        sig->flags.valid = 0;
+    }
+}
+
+/* Check the revocation keys to see if any of them have revoked our
+   pk.  sig is the revocation sig.  pk is the key it is on.  This code
+   will need to be modified if gpg ever becomes multi-threaded.  Note
+   that this guarantees that a designated revocation sig will never be
+   considered valid unless it is actually valid, as well as being
+   issued by a revocation key in a valid direct signature.  Note also
+   that this is written so that a revoked revoker can still issue
+   revocations: i.e. If A revokes B, but A is revoked, B is still
+   revoked.  I'm not completely convinced this is the proper behavior,
+   but it matches how PGP does it. -dms */
+
+/* Returns 0 if sig is valid (i.e. pk is revoked), non-0 if not
+   revoked.  It is important that GPG_ERR_NO_PUBKEY is only returned
+   when a revocation signature is from a valid revocation key
+   designated in a revkey subpacket, but the revocation key itself
+   isn't present. */
+int
+check_revocation_keys(PKT_public_key *pk,PKT_signature *sig)
+{
+  static int busy=0;
+  int i;
+  int rc = GPG_ERR_GENERAL;
+
+  assert(IS_KEY_REV(sig));
+  assert((sig->keyid[0]!=pk->keyid[0]) || (sig->keyid[0]!=pk->keyid[1]));
+
+  if (busy)
+    {
+      /* Return an error (i.e. not revoked), but mark the pk as
+         uncacheable as we don't really know its revocation status
+         until it is checked directly.  */
+      pk->flags.dont_cache = 1;
+      return rc;
+    }
+
+  busy=1;
+
+  /*  es_printf("looking at %08lX with a sig from %08lX\n",(ulong)pk->keyid[1],
+      (ulong)sig->keyid[1]); */
+
+  /* is the issuer of the sig one of our revokers? */
+  if( !pk->revkey && pk->numrevkeys )
+     BUG();
+  else
+      for(i=0;i<pk->numrevkeys;i++)
+       {
+          u32 keyid[2];
+
+          keyid_from_fingerprint(pk->revkey[i].fpr,MAX_FINGERPRINT_LEN,keyid);
+
+          if(keyid[0]==sig->keyid[0] && keyid[1]==sig->keyid[1])
+           {
+              gcry_md_hd_t md;
+
+              if (gcry_md_open (&md, sig->digest_algo, 0))
+                BUG ();
+              hash_public_key(md,pk);
+              rc=signature_check(sig,md);
+             cache_sig_result(sig,rc);
+              gcry_md_close (md);
+             break;
+           }
+       }
+
+  busy=0;
+
+  return rc;
+}
+
+/* Backsigs (0x19) have the same format as binding sigs (0x18), but
+   this function is simpler than check_key_signature in a few ways.
+   For example, there is no support for expiring backsigs since it is
+   questionable what such a thing actually means.  Note also that the
+   sig cache check here, unlike other sig caches in GnuPG, is not
+   persistent. */
+int
+check_backsig(PKT_public_key *main_pk,PKT_public_key *sub_pk,
+             PKT_signature *backsig)
+{
+  gcry_md_hd_t md;
+  int rc;
+
+  /* Always check whether the algorithm is available.  Although
+     gcry_md_open woyuld throw an error, some libgcrypt versions will
+     print a debug message in that case too. */
+  if ((rc=openpgp_md_test_algo (backsig->digest_algo)))
+    return rc;
+
+  if(!opt.no_sig_cache && backsig->flags.checked)
+    return backsig->flags.valid? 0 : gpg_error (GPG_ERR_BAD_SIGNATURE);
+
+  rc = gcry_md_open (&md, backsig->digest_algo,0);
+  if (!rc)
+    {
+      hash_public_key(md,main_pk);
+      hash_public_key(md,sub_pk);
+      rc=do_check(sub_pk,backsig,md,NULL,NULL,NULL);
+      cache_sig_result(backsig,rc);
+      gcry_md_close(md);
     }
-    md_write( md, uid->name, uid->len );
+
+  return rc;
 }
 
+
 /****************
  * check the signature pointed to by NODE. This is a key signature.
  * If the function detects a self-signature, it uses the PK from
@@ -259,7 +503,21 @@ hash_uid_node( KBNODE unode, MD_HANDLE md, PKT_signature *sig )
 int
 check_key_signature( KBNODE root, KBNODE node, int *is_selfsig )
 {
-    MD_HANDLE md;
+  return check_key_signature2(root, node, NULL, NULL, is_selfsig, NULL, NULL );
+}
+
+/* If check_pk is set, then use it to check the signature in node
+   rather than getting it from root or the keydb.  If ret_pk is set,
+   fill in the public key that was used to verify the signature.
+   ret_pk is only meaningful when the verification was successful. */
+/* TODO: add r_revoked here as well.  It has the same problems as
+   r_expiredate and r_expired and the cache. */
+int
+check_key_signature2( KBNODE root, KBNODE node, PKT_public_key *check_pk,
+                     PKT_public_key *ret_pk, int *is_selfsig,
+                     u32 *r_expiredate, int *r_expired )
+{
+    gcry_md_hd_t md;
     PKT_public_key *pk;
     PKT_signature *sig;
     int algo;
@@ -267,37 +525,81 @@ check_key_signature( KBNODE root, KBNODE node, int *is_selfsig )
 
     if( is_selfsig )
        *is_selfsig = 0;
+    if( r_expiredate )
+        *r_expiredate = 0;
+    if( r_expired )
+        *r_expired = 0;
     assert( node->pkt->pkttype == PKT_SIGNATURE );
     assert( root->pkt->pkttype == PKT_PUBLIC_KEY );
 
     pk = root->pkt->pkt.public_key;
     sig = node->pkt->pkt.signature;
     algo = sig->digest_algo;
-    if( (rc=check_digest_algo(algo)) )
+
+    /* Check whether we have cached the result of a previous signature
+       check.  Note that we may no longer have the pubkey or hash
+       needed to verify a sig, but can still use the cached value.  A
+       cache refresh detects and clears these cases. */
+    if ( !opt.no_sig_cache ) {
+        if (sig->flags.checked) { /*cached status available*/
+           if( is_selfsig ) {
+               u32 keyid[2];
+
+               keyid_from_pk( pk, keyid );
+               if( keyid[0] == sig->keyid[0] && keyid[1] == sig->keyid[1] )
+                   *is_selfsig = 1;
+           }
+           /* BUG: This is wrong for non-self-sigs.. needs to be the
+              actual pk */
+           if((rc=do_check_messages(pk,sig,r_expired,NULL)))
+             return rc;
+            return sig->flags.valid? 0 : gpg_error (GPG_ERR_BAD_SIGNATURE);
+        }
+    }
+
+    if( (rc=openpgp_pk_test_algo(sig->pubkey_algo)) )
+       return rc;
+    if( (rc=openpgp_md_test_algo(algo)) )
        return rc;
 
-    if( sig->sig_class == 0x20 ) {
-       md = md_open( algo, 0 );
-       hash_public_key( md, pk );
-       rc = do_check( pk, sig, md );
-       md_close(md);
+    if( sig->sig_class == 0x20 ) { /* key revocation */
+        u32 keyid[2];
+       keyid_from_pk( pk, keyid );
+
+       /* is it a designated revoker? */
+        if(keyid[0]!=sig->keyid[0] || keyid[1]!=sig->keyid[1])
+         rc=check_revocation_keys(pk,sig);
+       else
+         {
+           if (gcry_md_open (&md, algo, 0 ))
+              BUG ();
+           hash_public_key( md, pk );
+           rc = do_check( pk, sig, md, r_expired, NULL, ret_pk );
+           cache_sig_result ( sig, rc );
+           gcry_md_close(md);
+         }
     }
     else if( sig->sig_class == 0x28 ) { /* subkey revocation */
        KBNODE snode = find_prev_kbnode( root, node, PKT_PUBLIC_SUBKEY );
 
        if( snode ) {
-           md = md_open( algo, 0 );
+            if (gcry_md_open (&md, algo, 0))
+              BUG ();
            hash_public_key( md, pk );
            hash_public_key( md, snode->pkt->pkt.public_key );
-           rc = do_check( pk, sig, md );
-           md_close(md);
-       }
-       else {
-           log_error("no subkey for subkey revocation packet\n");
-           rc = G10ERR_SIG_CLASS;
+           rc = do_check( pk, sig, md, r_expired, NULL, ret_pk );
+            cache_sig_result ( sig, rc );
+           gcry_md_close(md);
        }
+       else
+         {
+            if (opt.verbose)
+             log_info (_("key %s: no subkey for subkey"
+                         " revocation signature\n"),keystr_from_pk(pk));
+           rc = GPG_ERR_SIG_CLASS;
+         }
     }
-    else if( sig->sig_class == 0x18 ) {
+    else if( sig->sig_class == 0x18 ) { /* key binding */
        KBNODE snode = find_prev_kbnode( root, node, PKT_PUBLIC_SUBKEY );
 
        if( snode ) {
@@ -308,44 +610,63 @@ check_key_signature( KBNODE root, KBNODE node, int *is_selfsig )
                if( keyid[0] == sig->keyid[0] && keyid[1] == sig->keyid[1] )
                    *is_selfsig = 1;
            }
-           md = md_open( algo, 0 );
+           if (gcry_md_open (&md, algo, 0))
+              BUG ();
            hash_public_key( md, pk );
            hash_public_key( md, snode->pkt->pkt.public_key );
-           rc = do_check( pk, sig, md );
-           md_close(md);
-       }
-       else {
-           log_error("no subkey for key signature packet\n");
-           rc = G10ERR_SIG_CLASS;
+           rc = do_check( pk, sig, md, r_expired, NULL, ret_pk );
+            cache_sig_result ( sig, rc );
+           gcry_md_close(md);
        }
+       else
+         {
+            if (opt.verbose)
+             log_info(_("key %s: no subkey for subkey"
+                        " binding signature\n"),keystr_from_pk(pk));
+           rc = GPG_ERR_SIG_CLASS;
+         }
     }
-    else {
+    else if( sig->sig_class == 0x1f ) { /* direct key signature */
+        if (gcry_md_open (&md, algo, 0 ))
+          BUG ();
+       hash_public_key( md, pk );
+       rc = do_check( pk, sig, md, r_expired, NULL, ret_pk );
+        cache_sig_result ( sig, rc );
+       gcry_md_close(md);
+    }
+    else { /* all other classes */
        KBNODE unode = find_prev_kbnode( root, node, PKT_USER_ID );
 
        if( unode ) {
            u32 keyid[2];
 
            keyid_from_pk( pk, keyid );
-           md = md_open( algo, 0 );
-           /*md_start_debug(md, "check");*/
+           if (gcry_md_open (&md, algo, 0 ))
+              BUG ();
            hash_public_key( md, pk );
            hash_uid_node( unode, md, sig );
-           if( keyid[0] == sig->keyid[0] && keyid[1] == sig->keyid[1] ) {
+           if( keyid[0] == sig->keyid[0] && keyid[1] == sig->keyid[1] )
+             {
                if( is_selfsig )
-                   *is_selfsig = 1;
-               rc = do_check( pk, sig, md );
-           }
+                 *is_selfsig = 1;
+               rc = do_check( pk, sig, md, r_expired, NULL, ret_pk );
+             }
+           else if (check_pk)
+             rc=do_check(check_pk,sig,md,r_expired,NULL,ret_pk);
            else
-               rc = signature_check( sig, md );
-           md_close(md);
-       }
-       else {
-           log_error("no user id for key signature packet\n");
-           rc = G10ERR_SIG_CLASS;
+             rc=signature_check2(sig,md,r_expiredate,r_expired,NULL,ret_pk);
+
+            cache_sig_result ( sig, rc );
+           gcry_md_close(md);
        }
+       else
+         {
+            if (!opt.quiet)
+             log_info ("key %s: no user ID for key signature packet"
+                       " of class %02x\n",keystr_from_pk(pk),sig->sig_class);
+           rc = GPG_ERR_SIG_CLASS;
+         }
     }
 
     return rc;
 }
-
-