Mainly changes to adjust for the changed KSBA API.
[gnupg.git] / sm / verify.c
index 5b3a5a8..201fc7b 100644 (file)
@@ -1,5 +1,5 @@
 /* verify.c - Verify a messages signature
- *     Copyright (C) 2001 Free Software Foundation, Inc.
+ *     Copyright (C) 2001, 2002, 2003 Free Software Foundation, Inc.
  *
  * This file is part of GnuPG.
  *
 #include <time.h>
 #include <assert.h>
 
+#include "gpgsm.h"
 #include <gcrypt.h>
 #include <ksba.h>
 
-#include "gpgsm.h"
 #include "keydb.h"
 #include "i18n.h"
 
-struct reader_cb_parm_s {
-  FILE *fp;
-};
-
-
-/* FIXME: Move this to jnlib */
 static char *
-strtimestamp (time_t atime)
+strtimestamp_r (ksba_isotime_t atime)
 {
   char *buffer = xmalloc (15);
   
-  if (atime < 0) 
-    {
-      strcpy (buffer, "????" "-??" "-??");
-    }
+  if (!atime || !*atime)
+    strcpy (buffer, "none");
   else
-    {
-      struct tm *tp;
-      
-      tp = gmtime( &atime );
-      sprintf (buffer, "%04d-%02d-%02d",
-               1900+tp->tm_year, tp->tm_mon+1, tp->tm_mday);
-    }
+    sprintf (buffer, "%.4s-%.2s-%.2s", atime, atime+4, atime+6);
   return buffer;
 }
 
 
 
-
-/* FIXME: We need to write a generic reader callback which should be able
-   to detect and convert base-64 */
-static int
-reader_cb (void *cb_value, char *buffer, size_t count, size_t *nread)
-{
-  struct reader_cb_parm_s *parm = cb_value;
-  size_t n;
-  int c = 0;
-
-  *nread = 0;
-  if (!buffer)
-    return -1; /* not supported */
-
-  for (n=0; n < count; n++)
-    {
-      c = getc (parm->fp);
-      if (c == EOF)
-        {
-          if ( ferror (parm->fp) )
-            return -1;
-          if (n)
-            break; /* return what we have before an EOF */
-          return -1;
-        }
-      *(byte *)buffer++ = c;
-    }
-
-  *nread = n;
-  return 0;
-}
-
-/* fixme: duplicated from import.c */
+/* Hash the data for a detached signature */
 static void
-store_cert (KsbaCert cert)
-{
-  KEYDB_HANDLE kh;
-  int rc;
-
-  kh = keydb_new (0);
-  if (!kh)
-    {
-      log_error (_("failed to allocated keyDB handle\n"));
-      return;
-    }
-  rc = keydb_locate_writable (kh, 0);
-  if (rc)
-      log_error (_("error finding writable keyDB: %s\n"), gnupg_strerror (rc));
-
-  rc = keydb_insert_cert (kh, cert);
-  if (rc)
-    {
-      log_error (_("error storing certificate: %s\n"), gnupg_strerror (rc));
-    }
-  keydb_release (kh);               
-}
-
-
-
-static void
-print_integer (unsigned char *p)
-{
-  unsigned long len;
-
-  if (!p)
-    log_printf ("none");
-  else
-    {
-      len = (p[0] << 24) | (p[1] << 16) | (p[2] << 8) | p[3];
-      for (p+=4; len; len--, p++)
-        log_printf ("%02X", *p);
-    }
-}
-
-static void
-print_time (time_t t)
-{
-
-  if (!t)
-    log_printf ("none");
-  else if ( t == (time_t)(-1) )
-    log_printf ("error");
-  else
-    {
-      struct tm *tp;
-
-      tp = gmtime (&t);
-      log_printf ("%04d-%02d-%02d %02d:%02d:%02d",
-                  1900+tp->tm_year, tp->tm_mon+1, tp->tm_mday,
-                  tp->tm_hour, tp->tm_min, tp->tm_sec);
-      assert (!tp->tm_isdst);
-    }
-}
-
-
-
-
-static void
-hash_data (int fd, GCRY_MD_HD md)
+hash_data (int fd, gcry_md_hd_t md)
 {
   FILE *fp;
   char buffer[4096];
@@ -185,87 +75,90 @@ hash_data (int fd, GCRY_MD_HD md)
 }
 
 
+
 \f
 /* Perform a verify operation.  To verify detached signatures, data_fd
-   must be different than -1 */
+   must be different than -1.  With OUT_FP given and a non-detached
+   signature, the signed material is written to that stream. */
 int
-gpgsm_verify (CTRL ctrl, int in_fd, int data_fd)
+gpgsm_verify (CTRL ctrl, int in_fd, int data_fd, FILE *out_fp)
 {
   int i, rc;
+  Base64Context b64reader = NULL;
+  Base64Context b64writer = NULL;
   KsbaError err;
-  KsbaReader reader = NULL;
+  KsbaReader reader;
   KsbaWriter writer = NULL;
   KsbaCMS cms = NULL;
   KsbaStopReason stopreason;
   KsbaCert cert;
   KEYDB_HANDLE kh;
-  GCRY_MD_HD data_md = NULL;
-  struct reader_cb_parm_s rparm;
+  gcry_md_hd_t data_md = NULL;
   int signer;
   const char *algoid;
   int algo;
   int is_detached;
-
-  memset (&rparm, 0, sizeof rparm);
+  FILE *fp = NULL;
+  char *p;
 
   kh = keydb_new (0);
   if (!kh)
     {
       log_error (_("failed to allocated keyDB handle\n"));
-      rc = GNUPG_General_Error;
+      rc = gpg_error (GPG_ERR_GENERAL);
       goto leave;
     }
 
 
-  rparm.fp = fdopen ( dup (in_fd), "rb");
-  if (!rparm.fp)
+  fp = fdopen ( dup (in_fd), "rb");
+  if (!fp)
     {
+      rc = gpg_error (gpg_err_code_from_errno (errno));
       log_error ("fdopen() failed: %s\n", strerror (errno));
-      rc = seterr (IO_Error);
       goto leave;
     }
 
-  /* setup a skaba reader which uses a callback function so that we can 
-     strip off a base64 encoding when necessary */
-  reader = ksba_reader_new ();
-  writer = ksba_writer_new ();
-  if (!reader || !writer)
+  rc = gpgsm_create_reader (&b64reader, ctrl, fp, &reader);
+  if (rc)
     {
-      rc = seterr (Out_Of_Core);
+      log_error ("can't create reader: %s\n", gpg_strerror (rc));
       goto leave;
     }
 
-  rc = ksba_reader_set_cb (reader, reader_cb, &rparm );
-  if (rc)
+  if (out_fp)
     {
-      ksba_reader_release (reader);
-      rc = map_ksba_err (rc);
-      goto leave;
+      rc = gpgsm_create_writer (&b64writer, ctrl, out_fp, &writer);
+      if (rc)
+        {
+          log_error ("can't create writer: %s\n", gpg_strerror (rc));
+          goto leave;
+        }
     }
 
-  cms = ksba_cms_new ();
-  if (!cms)
+  err = ksba_cms_new (&cms);
+  if (err)
     {
-      rc = seterr (Out_Of_Core);
+      rc = gpg_error (GPG_ERR_ENOMEM);
       goto leave;
     }
 
   err = ksba_cms_set_reader_writer (cms, reader, writer);
   if (err)
     {
-      log_debug ("ksba_cms_set_reader_writer failed: %s\n",
-                 ksba_strerror (err));
-      rc = map_ksba_err (err);
+      log_error ("ksba_cms_set_reader_writer failed: %s\n",
+                 gpg_strerror (err));
+      rc = err;
       goto leave;
     }
 
-  data_md = gcry_md_open (0, 0);
-  if (!data_md)
+  rc = gcry_md_open (&data_md, 0, 0);
+  if (rc)
     {
-      rc = map_gcry_err (gcry_errno());
-      log_error ("md_open failed: %s\n", gcry_strerror (-1));
+      log_error ("md_open failed: %s\n", gpg_strerror (rc));
       goto leave;
     }
+  if (DBG_HASHING)
+    gcry_md_start_debug (data_md, "vrfy.data");
 
   is_detached = 0;
   do 
@@ -273,21 +166,16 @@ gpgsm_verify (CTRL ctrl, int in_fd, int data_fd)
       err = ksba_cms_parse (cms, &stopreason);
       if (err)
         {
-          log_debug ("ksba_cms_parse failed: %s\n", ksba_strerror (err));
-          rc = map_ksba_err (err);
+          log_error ("ksba_cms_parse failed: %s\n", gpg_strerror (err));
+          rc = err;
           goto leave;
         }
-      log_debug ("ksba_cms_parse - stop reason %d\n", stopreason);
+
       if (stopreason == KSBA_SR_NEED_HASH)
         {
           is_detached = 1;
-          log_debug ("Detached signature\n");
-        }
-      if (stopreason == KSBA_SR_BEGIN_DATA)
-        {
-          log_error ("error: only detached signatures are supportted\n");
-          rc = GNUPG_Not_Implemented;
-          goto leave;
+          if (opt.verbose)
+            log_info ("detached signature\n");
         }
 
       if (stopreason == KSBA_SR_NEED_HASH
@@ -305,76 +193,147 @@ gpgsm_verify (CTRL ctrl, int in_fd, int data_fd)
           if (is_detached)
             {
               if (data_fd == -1)
-                {
-                  log_error ("detached signature but no data given\n");
-                  rc = GNUPG_Bad_Signature;
-                  goto leave;
-                }
-              hash_data (data_fd, data_md);  
+                log_info ("detached signature w/o data "
+                          "- assuming certs-only\n");
+              else
+                hash_data (data_fd, data_md);  
+            }
+          else
+            {
+              ksba_cms_set_hash_function (cms, HASH_FNC, data_md);
             }
         }
+      else if (stopreason == KSBA_SR_END_DATA)
+        { /* The data bas been hashed */
+
+        }
     }
   while (stopreason != KSBA_SR_READY);   
 
+  if (b64writer)
+    {
+      rc = gpgsm_finish_writer (b64writer);
+      if (rc) 
+        {
+          log_error ("write failed: %s\n", gpg_strerror (rc));
+          goto leave;
+        }
+    }
+
   if (data_fd != -1 && !is_detached)
     {
-      log_error ("data given for a non-detached signature");
-      rc = GNUPG_Conflict;
+      log_error ("data given for a non-detached signature\n");
+      rc = gpg_error (GPG_ERR_CONFLICT);
       goto leave;
     }
 
   for (i=0; (cert=ksba_cms_get_cert (cms, i)); i++)
     {
-      log_debug ("storing certifcate %d\n", i);
-      /* Fixme: we should mark the stored certificates as temporary
-         and put them in a cache first */
-      store_cert (cert);
+      /* Fixme: it might be better to check the validity of the
+         certificate first before entering it into the DB.  This way
+         we would avoid cluttering the DB with invalid
+         certificates. */
+      keydb_store_cert (cert, 0, NULL);
       ksba_cert_release (cert);
     }
 
   cert = NULL;
   err = 0;
-  for (signer=0; signer < 1; signer++)
+  for (signer=0; ; signer++)
     {
       char *issuer = NULL;
-      char *sigval = NULL;
-      time_t sigtime;
-      unsigned char *serial;
+      KsbaSexp sigval = NULL;
+      ksba_isotime_t sigtime, keyexptime;
+      KsbaSexp serial;
       char *msgdigest = NULL;
       size_t msgdigestlen;
+      char *ctattr;
 
       err = ksba_cms_get_issuer_serial (cms, signer, &issuer, &serial);
-      if (err)
-        break;
-      log_debug ("signer %d - issuer: `%s'\n", signer, issuer? issuer:"[NONE]");
-      log_debug ("signer %d - serial: ", signer);
-      print_integer (serial);
-      log_printf ("\n");
-
-      err = ksba_cms_get_signing_time (cms, signer, &sigtime);
+      if (!signer && gpg_err_code (err) == GPG_ERR_NO_DATA
+          && data_fd == -1 && is_detached)
+        {
+          log_info ("certs-only message accepted\n");
+          err = 0;
+          break;
+        }
       if (err)
         {
-          log_debug ("error getting signing time: %s\n", ksba_strerror (err));
-          sigtime = (time_t)-1;
+          if (signer && err == -1)
+            err = 0;
+          break;
+        }
+      if (DBG_X509)
+        {
+          log_debug ("signer %d - issuer: `%s'\n",
+                     signer, issuer? issuer:"[NONE]");
+          log_debug ("signer %d - serial: ", signer);
+          gpgsm_dump_serial (serial);
+          log_printf ("\n");
         }
-      log_debug ("signer %d - sigtime: ", signer);
-      print_time (sigtime);  
-      log_printf ("\n");
 
+      err = ksba_cms_get_signing_time (cms, signer, sigtime);
+      if (gpg_err_code (err) == GPG_ERR_NO_DATA)
+        *sigtime = 0;
+      else if (err)
+        {
+          log_error ("error getting signing time: %s\n", gpg_strerror (err));
+          *sigtime = 0; /* FIXME: we can't encode an error in the time
+                           string. */
+        }
 
       err = ksba_cms_get_message_digest (cms, signer,
                                          &msgdigest, &msgdigestlen);
-      if (err)
+      if (!err)
+        {
+          algoid = ksba_cms_get_digest_algo (cms, signer);
+          algo = gcry_md_map_name (algoid);
+          if (DBG_X509)
+            log_debug ("signer %d - digest algo: %d\n", signer, algo);
+          if ( !gcry_md_info (data_md, GCRYCTL_IS_ALGO_ENABLED, &algo, NULL) )
+            {
+              log_error ("digest algo %d has not been enabled\n", algo);
+              goto next_signer;
+            }
+        }
+      else if (gpg_err_code (err) == GPG_ERR_NO_DATA)
+        {
+          assert (!msgdigest);
+          err = 0;
+          algoid = NULL;
+          algo = 0; 
+        }
+      else /* real error */
         break;
 
-      algoid = ksba_cms_get_digest_algo (cms, signer);
-      algo = gcry_md_map_name (algoid);
-      log_debug ("signer %d - digest algo: %d\n", signer, algo);
-      if ( !gcry_md_info (data_md, GCRYCTL_IS_ALGO_ENABLED, &algo, NULL) )
+      err = ksba_cms_get_sigattr_oids (cms, signer,
+                                       "1.2.840.113549.1.9.3",&ctattr);
+      if (!err) 
         {
-          log_debug ("digest algo %d has not been enabled\n", algo);
+          const char *s;
+
+          if (DBG_X509)
+            log_debug ("signer %d - content-type attribute: %s", signer, ctattr);
+          s = ksba_cms_get_content_oid (cms, 1);
+          if (!s || strcmp (ctattr, s))
+            {
+              log_error ("content-type attribute does not match "
+                         "actual content-type\n");
+              ksba_free (ctattr);
+              ctattr = NULL;
+              goto next_signer;
+            }
+          ksba_free (ctattr);
+          ctattr = NULL;
+        }
+      else if (err != -1)
+        {
+          log_error ("error getting content-type attribute: %s\n",
+                     gpg_strerror (err));
           goto next_signer;
         }
+      err = 0;
+
 
       sigval = ksba_cms_get_sig_val (cms, signer);
       if (!sigval)
@@ -382,28 +341,53 @@ gpgsm_verify (CTRL ctrl, int in_fd, int data_fd)
           log_error ("no signature value available\n");
           goto next_signer;
         }
-      log_debug ("signer %d - signature: `%s'\n", signer, sigval);
+      if (DBG_X509)
+        log_debug ("signer %d - signature available", signer);
 
       /* Find the certificate of the signer */
       keydb_search_reset (kh);
       rc = keydb_search_issuer_sn (kh, issuer, serial);
       if (rc)
         {
-          log_debug ("failed to find the certificate: %s\n",
-                     gnupg_strerror(rc));
+          if (rc == -1)
+            {
+              log_error ("certificate not found\n");
+              rc = gpg_error (GPG_ERR_NO_PUBKEY);
+            }
+          else
+            log_error ("failed to find the certificate: %s\n",
+                       gpg_strerror(rc));
+          {
+            char numbuf[50];
+            sprintf (numbuf, "%d", rc);
+
+            gpgsm_status2 (ctrl, STATUS_ERROR, "verify.findkey",
+                           numbuf, NULL);
+          }
+          /* fixme: we might want to append the issuer and serial
+             using our standard notation */
           goto next_signer;
         }
 
       rc = keydb_get_cert (kh, &cert);
       if (rc)
         {
-          log_debug ("failed to get cert: %s\n", gnupg_strerror (rc));
+          log_error ("failed to get cert: %s\n", gpg_strerror (rc));
           goto next_signer;
         }
 
+      log_info (_("Signature made "));
+      if (*sigtime)
+        gpgsm_dump_time (sigtime);
+      else
+        log_printf (_("[date not given]"));
+      log_printf (_(" using certificate ID %08lX\n"),
+                  gpgsm_get_short_fingerprint (cert));
+
+
       if (msgdigest)
         { /* Signed attributes are available. */
-          GCRY_MD_HD md;
+          gcry_md_hd_t md;
           unsigned char *s;
 
           /* check that the message digest in the signed attributes
@@ -413,24 +397,31 @@ gpgsm_verify (CTRL ctrl, int in_fd, int data_fd)
                || gcry_md_get_algo_dlen (algo) != msgdigestlen
                || !s || memcmp (s, msgdigest, msgdigestlen) )
             {
-              log_error ("message digest attribute does not "
-                         "match calculated one\n");
-              gpgsm_status (ctrl, STATUS_BADSIG, NULL);
+              char *fpr;
+
+              log_error ("invalid signature: message digest attribute "
+                         "does not match calculated one\n");
+              fpr = gpgsm_get_fingerprint_hexstring (cert, GCRY_MD_SHA1);
+              gpgsm_status (ctrl, STATUS_BADSIG, fpr);
+              xfree (fpr);
               goto next_signer; 
             }
             
-          md = gcry_md_open (algo, 0);
-          if (!md)
+          rc = gcry_md_open (&md, algo, 0);
+          if (rc)
             {
-              log_error ("md_open failed: %s\n", gcry_strerror (-1));
+              log_error ("md_open failed: %s\n", gpg_strerror (rc));
               goto next_signer;
             }
+          if (DBG_HASHING)
+            gcry_md_start_debug (md, "vrfy.attr");
+
           ksba_cms_set_hash_function (cms, HASH_FNC, md);
           rc = ksba_cms_hash_signed_attrs (cms, signer);
           if (rc)
             {
-              log_debug ("hashing signed attrs failed: %s\n",
-                         ksba_strerror (rc));
+              log_error ("hashing signed attrs failed: %s\n",
+                         gpg_strerror (rc));
               gcry_md_close (md);
               goto next_signer;
             }
@@ -444,37 +435,72 @@ gpgsm_verify (CTRL ctrl, int in_fd, int data_fd)
 
       if (rc)
         {
-          log_error ("invalid signature: %s\n", gnupg_strerror (rc));
-          gpgsm_status (ctrl, STATUS_BADSIG, NULL);
+          char *fpr;
+
+          log_error ("invalid signature: %s\n", gpg_strerror (rc));
+          fpr = gpgsm_get_fingerprint_hexstring (cert, GCRY_MD_SHA1);
+          gpgsm_status (ctrl, STATUS_BADSIG, fpr);
+          xfree (fpr);
           goto next_signer;
         }
-      log_debug ("signature okay - checking certs\n");
-      gpgsm_status (ctrl, STATUS_GOODSIG, NULL);
+      rc = gpgsm_cert_use_verify_p (cert); /*(this displays an info message)*/
+      if (rc)
+        {
+          gpgsm_status_with_err_code (ctrl, STATUS_ERROR, "verify.keyusage",
+                                      gpg_err_code (rc));
+          rc = 0;
+        }
+
+      if (DBG_X509)
+        log_debug ("signature okay - checking certs\n");
+      rc = gpgsm_validate_chain (ctrl, cert, keyexptime);
+      if (gpg_err_code (rc) == GPG_ERR_CERT_EXPIRED)
+        {
+          gpgsm_status (ctrl, STATUS_EXPKEYSIG, NULL);
+          rc = 0;
+        }
+      else
+        gpgsm_status (ctrl, STATUS_GOODSIG, NULL);
+      
       {
         char *buf, *fpr, *tstr;
 
         fpr = gpgsm_get_fingerprint_hexstring (cert, GCRY_MD_SHA1);
-        tstr = strtimestamp ( 42 /*fixme: get right time */);
-        buf = xmalloc ( strlen(fpr) + strlen (tstr) + 100);
-        sprintf (buf, "%s %s %lu", fpr, tstr, (unsigned long)42 );
+        tstr = strtimestamp_r (sigtime);
+        buf = xmalloc ( strlen(fpr) + strlen (tstr) + 120);
+        sprintf (buf, "%s %s %s %s", fpr, tstr,
+                 sigtime, keyexptime );
         xfree (tstr);
         xfree (fpr);
         gpgsm_status (ctrl, STATUS_VALIDSIG, buf);
         xfree (buf);
       }
 
-      rc = gpgsm_validate_path (cert);
-      if (rc)
+      if (rc) /* of validate_chain */
         {
-          log_error ("invalid certification path: %s\n", gnupg_strerror (rc));
-          if (rc == GNUPG_Bad_Certificate_Path
-              || rc == GNUPG_Bad_Certificate)
-            gpgsm_status (ctrl, STATUS_TRUST_NEVER, NULL);
+          log_error ("invalid certification chain: %s\n", gpg_strerror (rc));
+          if (gpg_err_code (rc) == GPG_ERR_BAD_CERT_CHAIN
+              || gpg_err_code (rc) == GPG_ERR_BAD_CERT
+              || gpg_err_code (rc) == GPG_ERR_BAD_CA_CERT
+              || gpg_err_code (rc) == GPG_ERR_CERT_REVOKED)
+            gpgsm_status_with_err_code (ctrl, STATUS_TRUST_NEVER, NULL,
+                                        gpg_err_code (rc));
           else
-            gpgsm_status (ctrl, STATUS_TRUST_UNDEFINED, NULL);
+            gpgsm_status_with_err_code (ctrl, STATUS_TRUST_UNDEFINED, NULL, 
+                                        gpg_err_code (rc));
           goto next_signer;
         }
-      log_info ("signature is good\n");
+
+      for (i=0; (p = ksba_cert_get_subject (cert, i)); i++)
+        {
+          log_info (!i? _("Good signature from")
+                      : _("                aka"));
+          log_printf (" \"");
+          gpgsm_print_name (log_get_stream (), p);
+          log_printf ("\"\n");
+          ksba_free (p);
+        }
+
       gpgsm_status (ctrl, STATUS_TRUST_FULLY, NULL);
           
 
@@ -489,21 +515,30 @@ gpgsm_verify (CTRL ctrl, int in_fd, int data_fd)
     }
   rc = 0;
   if (err)
-    {
-      log_debug ("ksba error: %s\n", ksba_strerror (err));
-      rc = map_ksba_err (rc);
+    { /* FIXME: still needed? */
+      log_error ("ksba error: %s\n", gpg_strerror (err));
+      rc = err;
     }    
 
 
 
  leave:
   ksba_cms_release (cms);
-  ksba_reader_release (reader);
+  gpgsm_destroy_reader (b64reader);
+  gpgsm_destroy_writer (b64writer);
   keydb_release (kh); 
   gcry_md_close (data_md);
-  if (rparm.fp)
-    fclose (rparm.fp);
+  if (fp)
+    fclose (fp);
+
+  if (rc)
+    {
+      char numbuf[50];
+      sprintf (numbuf, "%d", rc );
+      gpgsm_status2 (ctrl, STATUS_ERROR, "verify.leave",
+                     numbuf, NULL);
+    }
+
   return rc;
 }
 
-