GPG support, first take.

1 files changed, 224 insertions, 0 deletions

diff --git a/gnupgparse.c b/gnupgparse.c
new file mode 100644
index 00000000..38972823
--- /dev/null
+++ b/gnupgparse.c
@@ -0,0 +1,224 @@
+/*
+ * Copyright (C) 1998 Werner Koch <werner.koch@guug.de>
+ *
+ *     This program 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
+ *     (at your option) any later version.
+ *
+ *     This program 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., 675 Mass Ave, Cambridge, MA 02139, USA.
+ */
+
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+#include <time.h>
+
+#include "mutt.h"
+#include "pgp.h"
+
+static const char *
+pkalgbytype(unsigned char type)
+{
+  switch(type)
+  {
+    case 1:
+    case 2:
+    case 3: return "RSA";
+    case 16: /* encrypt only */
+    case 20: return "ElG";
+    case 17: return "DSA";
+    default: return "unk";
+  }
+}
+
+static short canencrypt(unsigned char type)
+{
+  switch(type)
+  {
+    case 1:
+    case 2:
+    case 16:
+    case 20:
+	return 1;
+    default:
+	return 0;
+  }
+}
+
+static short cansign(unsigned char type)
+{
+  switch(type)
+  {
+    case 1:
+    case 3:
+    case 16: /* hmmm: this one can only sign if used in a v3 packet */
+    case 17:
+    case 20:
+	return 1;
+    default:
+	return 0;
+  }
+}
+/* return values:
+ *
+ * 1 = sign only
+ * 2 = encrypt only
+ * 3 = both
+ */
+
+static short get_abilities(unsigned char type)
+{
+  return (canencrypt(type) << 1) | cansign(type);
+}
+
+/****************
+ * Read the GNUPG keys.  For now we read the complete keyring by
+ * calling gnupg in a special mode.
+ *
+ * The output format of gpgm is colon delimited with these fields:
+ *   - record type ("pub","uid","sig","rev" etc.)
+ *   - trust info
+ *   - key length
+ *   - pubkey algo
+ *   - 16 hex digits with the long keyid.
+ *   - timestamp (1998-02-28)
+ *   - Local id
+ *   - ownertrust
+ *   - name
+ *   - signature class
+ */
+
+static KEYINFO *
+parse_pub_line( char *buf )
+{
+    KEYINFO *k=NULL;
+    PGPUID *uid = NULL;
+    int field = 0;
+    char *pend, *p;
+
+    if( !*buf )
+	return NULL;
+    for( p = buf; p; p = pend ) {
+	if( (pend = strchr(p, ':')) )
+	    *pend++ = 0;
+	field++;
+	if( field > 1 && !*p )
+	    continue;
+
+	switch( field ) {
+	  case 1: /* record type */
+	    if( strcmp(p,"pub") )
+		return NULL;
+	    k = safe_malloc( sizeof(KEYINFO) );
+	    k->keyid = NULL;
+	    k->address = NULL;
+	    k->flags = 0;
+	    k->next = NULL;
+	    k->keylen = 0;
+	    break;
+	  case 2: /* trust info */
+	    /* k_>flags |= KEYFLAG_EXPIRED */
+	    break;
+	  case 3: /* key length  */
+	    k->keylen = atoi(p); /* fixme: add validation checks */
+	    break;
+	  case 4: /* pubkey algo */
+	    k->algorithm = pkalgbytype(atoi(p));
+	    k->flags |= get_abilities(atoi(p));
+	    break;
+	  case 5: /* 16 hex digits with the long keyid. */
+	    /* We really should do a check here */
+	    k->keyid = safe_strdup(p);
+	    break;
+	  case 6: /* timestamp (1998-02-28) */
+	    break;
+	  case 7: /* Local id	      */
+	    break;
+	  case 8: /* ownertrust       */
+	    break;
+	  case 9: /* name	      */
+	    k->address = mutt_new_list();
+	    k->address->data = safe_malloc( sizeof(PGPUID) );
+	    uid = (PGPUID *)k->address->data;
+	    uid->addr = safe_strdup(p);
+	    uid->trust = 0;
+	    break;
+	  case 10: /* signature class  */
+	    break;
+	  default:
+	    break;
+	}
+    }
+    return k;
+}
+
+static pid_t gpg_invoke_list_keys(struct pgp_vinfo *pgp,
+				  FILE **pgpin, FILE **pgpout, FILE **pgperr,
+				  int pgpinfd, int pgpoutfd, int pgperrfd,
+				  const char *uids)
+{
+  char cmd[HUGE_STRING];
+  char tmpcmd[HUGE_STRING];
+  char *cp;
+  char *keylist;
+  
+  /* we use gpgm here */
+  snprintf(cmd, sizeof(cmd),
+	   "%sm --no-verbose --batch --with-colons --list-keys ",
+	   NONULL(*pgp->binary));
+
+  keylist = safe_strdup(uids);
+  for(cp = strtok(keylist, " "); cp ; cp = strtok(NULL, " "))
+  {
+    snprintf(tmpcmd, sizeof(tmpcmd), "%s %s",
+	     cmd, cp);
+    strcpy(cmd, tmpcmd);
+  }
+  safe_free((void **) &keylist);
+  
+  return mutt_create_filter_fd(cmd, pgpin, pgpout, pgperr,
+			       pgpinfd, pgpoutfd, pgperrfd);
+}
+
+KEYINFO *gpg_read_pubring(struct pgp_vinfo *pgp)
+{
+    FILE *fp;
+    pid_t thepid;
+    char buf[LONG_STRING];
+    KEYINFO *db = NULL, **kend, *k = NULL;
+
+    thepid = gpg_invoke_list_keys(pgp, NULL, &fp, NULL, -1, -1, -1, NULL);
+    if( thepid == -1 )
+	return NULL;
+
+    kend = &db;
+    k = NULL;
+    while( fgets( buf, sizeof(buf)-1, fp ) ) {
+	if( k )
+	    kend = &k->next;
+	*kend = k = parse_pub_line(buf);
+    }
+
+    fclose( fp );
+    mutt_wait_filter( thepid );
+
+    return db;
+}
+
+
+KEYINFO *gpg_read_secring(struct pgp_vinfo *pgp)
+{
+  mutt_error("gpg_read_secring() has not yet been implemented.");
+  sleep(1);
+  return NULL;
+}