new cryptplug function importCertificateFromMem()
[gpgme.git] / gpgmeplug / gpgmeplug.c
index d56a6fc..f603008 100644 (file)
@@ -6,6 +6,7 @@
               the common CRYPTPLUG specification.
 
   Copyright (C) 2001 by Klarälvdalens Datakonsult AB
+  Copyright (C) 2002 g10 Code GmbH
 
   GPGMEPLUG is free software; you can redistribute it and/or modify
   it under the terms of GNU General Public License as published by
@@ -62,7 +63,7 @@
 #endif
 
 /* definitions for signing */
-// 1. opaque signatures (only used for S/MIME)
+/* 1. opaque signatures (only used for S/MIME). */
 #ifndef GPGMEPLUG_OPA_SIGN_MAKE_MIME_OBJECT
 #define GPGMEPLUG_OPA_SIGN_INCLUDE_CLEARTEXT false
 #define GPGMEPLUG_OPA_SIGN_MAKE_MIME_OBJECT  false
@@ -81,7 +82,7 @@
 #define GPGMEPLUG_OPA_SIGN_FLAT_SEPARATOR    ""
 #define GPGMEPLUG_OPA_SIGN_FLAT_POSTFIX      ""
 #endif
-// 2. detached signatures (used for S/MIME and for OpenPGP)
+/* 2. detached signatures (used for S/MIME and for OpenPGP) */
 #ifndef GPGMEPLUG_DET_SIGN_MAKE_MIME_OBJECT
 #define GPGMEPLUG_DET_SIGN_INCLUDE_CLEARTEXT true
 #define GPGMEPLUG_DET_SIGN_MAKE_MIME_OBJECT  true
 #define GPGMEPLUG_DET_SIGN_FLAT_SEPARATOR    ""
 #define GPGMEPLUG_DET_SIGN_FLAT_POSTFIX      ""
 #endif
-// 3. common definitions for opaque and detached signing
+/* 3. common definitions for opaque and detached signing */
 #ifndef __GPGMEPLUG_SIGNATURE_CODE_IS_BINARY
 #define __GPGMEPLUG_SIGNATURE_CODE_IS_BINARY false
 #endif
 #include "cryptplug.h"
 
 
+#define days_from_seconds(x) ((x)/86400)
+
+
 typedef struct {
   const char*             bugURL;
   const char*             signatureKeyCertificate;
@@ -192,7 +196,7 @@ typedef struct {
   bool                    certificateInChainExpiryNearWarning;
   int                     certificateInChainExpiryNearWarningInterval;
   bool                    receiverEmailAddressNotInCertificateWarning;
-  const char* libVersion; // a statically allocated string with the GPGME Version used
+  const char* libVersion; /* a statically allocated string with the GPGME Version used */
 } Config;
 
 
@@ -200,6 +204,48 @@ Config config;
 
 #define NEAR_EXPIRY 14
 
+/* Max number of parts in a DN */
+#define MAX_GPGME_IDX 20
+
+/* some macros to replace ctype ones and avoid locale problems */
+#define spacep(p)   (*(p) == ' ' || *(p) == '\t')
+#define digitp(p)   (*(p) >= '0' && *(p) <= '9')
+#define hexdigitp(a) (digitp (a)                     \
+                      || (*(a) >= 'A' && *(a) <= 'F')  \
+                      || (*(a) >= 'a' && *(a) <= 'f'))
+/* the atoi macros assume that the buffer has only valid digits */
+#define atoi_1(p)   (*(p) - '0' )
+#define atoi_2(p)   ((atoi_1(p) * 10) + atoi_1((p)+1))
+#define atoi_4(p)   ((atoi_2(p) * 100) + atoi_2((p)+2))
+#define xtoi_1(p)   (*(p) <= '9'? (*(p)- '0'): \
+                     *(p) <= 'F'? (*(p)-'A'+10):(*(p)-'a'+10))
+#define xtoi_2(p)   ((xtoi_1(p) * 16) + xtoi_1((p)+1))
+
+static void *
+xmalloc (size_t n)
+{
+  char *p = malloc (n);
+  if (!p)
+    { 
+      fputs ("\nfatal: out of core\n", stderr);
+      exit (4);
+    }
+  return p;
+}
+
+/* Please: Don't call an allocation function xfoo when it may return NULL. */
+/* Wrong: #define xstrdup( x ) (x)?strdup(x):0 */
+/* Right: */
+static char *
+xstrdup (const char *string)
+{
+  char *p = xmalloc (strlen (string)+1);
+  strcpy (p, string);
+  return p;
+}
+
+
+
 bool initialize()
 {
   config.bugURL                               = malloc( strlen( BUG_URL ) + 1 );
@@ -512,9 +558,7 @@ int signatureCertificateDaysLeftToExpiry( const char* certificate )
       time_t expire_time = gpgme_key_get_ulong_attr(
                              rKey,GPGME_ATTR_EXPIRE, NULL, 0 );
       time_t cur_time = time (NULL);
-      daysLeft = expire_time - cur_time;
-      // convert seconds into days
-      daysLeft /= 43200;
+      daysLeft = days_from_seconds(expire_time - cur_time);
       gpgme_key_release( rKey );
     }
   }
@@ -576,9 +620,7 @@ int caCertificateDaysLeftToExpiry( const char* certificate )
                              
                              NULL, 0 );
       time_t cur_time = time (NULL);
-      daysLeft = expire_time - cur_time;
-      // convert seconds into days
-      daysLeft /= 43200;
+      daysLeft = days_from_seconds(expire_time - cur_time);
       gpgme_key_release( rKey );
     }
   }
@@ -640,9 +682,7 @@ int rootCertificateDaysLeftToExpiry( const char* certificate )
                              
                              NULL, 0 );
       time_t cur_time = time (NULL);
-      daysLeft = expire_time - cur_time;
-      // convert seconds into days
-      daysLeft /= 43200;
+      daysLeft = days_from_seconds(expire_time - cur_time);
       gpgme_key_release( rKey );
     }
   }
@@ -803,9 +843,7 @@ int receiverCertificateDaysLeftToExpiry( const char* certificate )
       time_t expire_time = gpgme_key_get_ulong_attr(
                              rKey,GPGME_ATTR_EXPIRE, NULL, 0 );
       time_t cur_time = time (NULL);
-      daysLeft = expire_time - cur_time;
-      // convert seconds into days
-      daysLeft /= 43200;
+      daysLeft = days_from_seconds(expire_time - cur_time);
       gpgme_key_release( rKey );
     }
   }
@@ -1023,9 +1061,8 @@ bool certificateValidity( const char* certificate,
 void storeNewCharPtr( char** dest, const char* src )
 {
   int sLen = strlen( src );
-  *dest = malloc( sLen + 1 );
+  *dest = xmalloc( sLen + 1 );
   strcpy( *dest, src );
-  (*dest)[sLen] = '\0';
 }
 
 
@@ -1081,17 +1118,27 @@ bool signMessage( const char*  cleartext,
   /* select the signer's key if provided */
   if (certificate != 0) {
       err = gpgme_op_keylist_start(ctx, certificate, 0);
-      if (err == GPGME_No_Error) {
-         /* we only support one signer for now */
-         err = gpgme_op_keylist_next(ctx, &rKey);
-         if (err == GPGME_No_Error) {
-             /* clear existing signers */
-             gpgme_signers_clear(ctx);
-             /* set the signing key */
-             gpgme_signers_add(ctx, rKey);
-         }
-         gpgme_op_keylist_end(ctx);
+      while (err == GPGME_No_Error) {
+          err = gpgme_op_keylist_next(ctx, &rKey);
+          if (err == GPGME_No_Error) {
+              unsigned long u;
+              u = gpgme_key_get_ulong_attr(rKey, GPGME_ATTR_CAN_SIGN, 0, 0);
+              if( u ) {
+
+//                const char* s;
+//                s = gpgme_key_get_string_attr(rKey, GPGME_ATTR_FPR, 0, 0);
+//                fprintf( stderr, "gpgmeplug signMessage signing with key: %s\n", s );
+
+                  /* clear existing signers */
+                  gpgme_signers_clear(ctx);
+                  /* set the signing key */
+                  gpgme_signers_add(ctx, rKey);
+                  /* we only support one signer for now */
+                  break;
+              }
+          }
       }
+      gpgme_op_keylist_end(ctx);
   }
 
   /* PENDING(g10) Implement this
@@ -1104,8 +1151,8 @@ bool signMessage( const char*  cleartext,
                             strlen( cleartext ), 1 );
   gpgme_data_new ( &sig );
 
-  // NOTE: Currently we support Opaque signed messages only for S/MIME,
-  //       but not for OpenPGP mode!
+  /* NOTE: Currently we support Opaque signed messages only for S/MIME,
+     but not for OpenPGP mode! */
   if( GPGMEPLUG_PROTOCOL == GPGME_PROTOCOL_CMS )
     bIsOpaque = (SignatureCompoundMode_Opaque == signatureCompoundMode());
   else
@@ -1239,429 +1286,232 @@ err = 0;
 }
 
 
-static const char*
-sig_status_to_string( GpgmeSigStat status )
+
+bool storeCertificatesFromMessage(
+        const char* ciphertext ){ return true; }
+
+
+/* returns address if address doesn't contain a <xxx> part
+ * else it returns a new string xxx and frees address
+ */
+static char* parseAddress( char* address )
 {
-  const char *result;
+  char* result = address;
+  char* i;
+  char* j;
+  if( !result ) return result;
+  i = index( address, '<' );
+  if( i ) {
+    j = index( i+1, '>' );
+    if( j == NULL ) j = address+strlen(address);
+    result = xmalloc( j-i );
+    strncpy( result, i+1, j-i-1 );
+    result[j-i-1] = '\0';
+    free( address );
+  } else {
+    i = address;
+    j = i+strlen(address);
+  }
+  {
+    /* remove surrounding whitespace */
+    char* k = result+(j-i-1);
+    char* l = result;
+    while( isspace( *l ) ) ++l;
+    while( isspace( *k ) ) --k;
+    if( l != result || k != result+(j-i-1) ) {
+      char* result2 = xmalloc( k-l+2 );
+      strncpy( result2, l, k-l+1 );
+      result2[k-l+1] = '\0';
+      free(result);
+      result = result2;
+    }
+  }
+  return result;
+}
 
-  switch (status) {
-    case GPGME_SIG_STAT_NONE:
-      result = "Oops: Signature not verified";
-      break;
-    case GPGME_SIG_STAT_NOSIG:
-      result = "No signature found";
-      break;
-    case GPGME_SIG_STAT_GOOD:
-      result = "Good signature";
-      break;
-    case GPGME_SIG_STAT_BAD:
-      result = "BAD signature";
+static char* nextAddress( const char** address )
+{
+  const char *start = *address;
+  char* result = NULL;
+  int quote = 0;
+  int comment = 0;
+  int found = 0;
+  if( *address == NULL ) return NULL;
+  while( **address ) {
+
+    switch( **address ) {
+    case '\\': /* escaped character */
+      ++(*address);
       break;
-    case GPGME_SIG_STAT_NOKEY:
-      result = "No public key to verify the signature";
+    case '"':
+      if( comment == 0 ) {
+        if( quote > 0 ) --quote;
+        else ++quote;
+      }
       break;
-    case GPGME_SIG_STAT_ERROR:
-      result = "Error verifying the signature";
+    case '(': /* comment start */
+      if( quote == 0 ) ++comment;
       break;
-    case GPGME_SIG_STAT_DIFF:
-      result = "Different results for signatures";
+    case ')': /* comment end */
+      if( quote == 0 ) --comment;
       break;
-    default:
-      result = "Error: Unknown status";
+    case '\0':
+    case '\1': /* delimiter */
+      if( quote == 0 && comment == 0 ) {
+        found = 1;
+      }
       break;
+    }
+    ++(*address);
+    if( found ) break;
   }
-
-  return result;
+  if( found || **address == 0 ) {
+    size_t len;
+    len = *address - start;
+    if( len > 0 ) {
+      if( **address != 0 ) --len;
+      result = xmalloc( len*sizeof(char)+1 );
+      strncpy( result, start, len );
+      result[len] = '\0';
+    }
+  }
+  return parseAddress(result);
 }
 
-
-bool checkMessageSignature( char** cleartext,
-                            const char* signaturetext,
-                            bool signatureIsBinary,
-                            int signatureLen,
-                            struct SignatureMetaData* sigmeta )
+bool encryptMessage( const char*  cleartext,
+                     const char** ciphertext,
+                     const size_t* cipherLen,
+                     const char*  certificate,
+                     struct StructuringInfo* structuring,
+                     int* errId,
+                     char** errTxt )
 {
   GpgmeCtx ctx;
-  GpgmeSigStat status;
-  unsigned long sumGPGME;
-  SigStatusFlags sumPlug;
-  GpgmeData datapart, sigpart;
-  char* rClear = 0;
-  size_t clearLen;
   GpgmeError err;
-  GpgmeKey key;
-  time_t created;
-  int sig_idx = 0;
-  const char* statusStr;
-  const char* fpr;
-  bool isOpaqueSigned;
-
-  if( !cleartext ) {
-    if( sigmeta )
-      storeNewCharPtr( &sigmeta->status,
-                        __GPGMEPLUG_ERROR_CLEARTEXT_IS_ZERO );
-
-    return false;
-  }
+  GpgmeData gCiphertext, gPlaintext;
+  GpgmeRecipients rset;
+  char*  rCiph = 0;
+  bool   bOk   = false;
 
-  isOpaqueSigned = !*cleartext;
+  init_StructuringInfo( structuring );
 
-  gpgme_new( &ctx );
+  gpgme_new (&ctx);
   gpgme_set_protocol (ctx, GPGMEPLUG_PROTOCOL);
-  gpgme_set_armor (ctx,    signatureIsBinary ? 0 : 1);
-  /*  gpgme_set_textmode (ctx, signatureIsBinary ? 0 : 1); */
 
-  if( isOpaqueSigned )
-    gpgme_data_new( &datapart );
-  else
-    gpgme_data_new_from_mem( &datapart, *cleartext,
-                             strlen( *cleartext ), 1 );
+  gpgme_set_armor (ctx, __GPGMEPLUG_ENCRYPTED_CODE_IS_BINARY ? 0 : 1);
+  /*  gpgme_set_textmode (ctx, 1); */
 
-  gpgme_data_new_from_mem( &sigpart,
-                           signaturetext,
-                           signatureIsBinary
-                           ? signatureLen
-                           : strlen( signaturetext ),
-                           1 );
+  gpgme_data_new_from_mem (&gPlaintext, cleartext,
+                            1+strlen( cleartext ), 1 );
+  err = gpgme_data_new ( &gCiphertext );
 
-  gpgme_op_verify( ctx, sigpart, datapart, &status );
+  gpgme_recipients_new (&rset);
 
-  if( isOpaqueSigned ) {
-    rClear = gpgme_data_release_and_get_mem( datapart, &clearLen );
-    *cleartext = malloc( clearLen + 1 );
-    if( *cleartext ) {
-      if( clearLen )
-        strncpy(*cleartext, rClear, clearLen );
-      (*cleartext)[clearLen] = '\0';
-    }
-    free( rClear );
+  /*
+  if( GPGMEPLUG_PROTOCOL == GPGME_PROTOCOL_CMS )
+  {
+    gpgme_recipients_add_name (rset,
+      "/CN=test cert 1,OU=Aegypten Project,O=g10 Code GmbH,L=DÃ?sseldorf,C=DE" );
+
+    fputs( "\nGPGSMPLUG encryptMessage() using test key of Aegypten Project\n", stderr );
   }
   else
-    gpgme_data_release( datapart );
+  */
+  {
+    const char* p = certificate;
+    char* tok;
+    while( (tok = nextAddress( &p ) ) != 0 ) {
+      gpgme_recipients_add_name (rset, tok );
+      fprintf( stderr, "\nGPGMEPLUG encryptMessage() using addressee %s\n", tok );
+      free(tok);
+    }
+  }
 
-  gpgme_data_release( sigpart );
+  /* PENDING(g10) Implement this
+     Possible values: RSA = 1, SHA1 = 2, TripleDES = 3
+     gpgme_set_encryption_algorithm( ctx, config.encryptionAlgorithm );
 
-  /* Provide information in the sigmeta struct */
-  /* the status string */
-  statusStr = sig_status_to_string( status );
-  sigmeta->status = malloc( strlen( statusStr ) + 1 );
-  if( sigmeta->status ) {
-    strcpy( sigmeta->status, statusStr );
-    sigmeta->status[strlen( statusStr )] = '\0';
-  } else
-    ; /* nothing to do, is already 0 */
+     -> Your are mixing public key and symmetric algorithms.  The
+     latter may be configured but the sphix specifications do opnly
+     allow 3-DES so this is not nothing we need to do.  The proper way
+     to select the symmetric algorithm is anyway by looking at the
+     capabilities of the certificate because this is the only way to
+     know what the recipient can accept. [wk 2002-03-23]
 
-  /* Extended information for any number of signatures. */
-  fpr = gpgme_get_sig_status( ctx, sig_idx, &status, &created );
-  sigmeta->extended_info = 0;
-  while( fpr != NULL ) {
-    struct tm* ctime_val;
-    const char* sig_status;
+     PENDING(g10) Implement this
+     gpgme_set_encryption_check_certificate_path(
+     config.checkCertificatePath )
 
-    void* realloc_return = realloc( sigmeta->extended_info,
-                                    sizeof( struct SignatureMetaDataExtendedInfo ) * ( sig_idx + 1 ) );
-    if( realloc_return ) {
-      sigmeta->extended_info = realloc_return;
+     PENDING(g10) Implement this
+     gpgme_set_encryption_check_certificate_path_to_root(
+     config.checkEncryptionCertificatePathToRoot )
 
-      /* clear the data area */
-      memset( &sigmeta->extended_info[sig_idx], 0, sizeof (struct SignatureMetaDataExtendedInfo) );
-
-      /* the creation time */
-      sigmeta->extended_info[sig_idx].creation_time = malloc( sizeof( struct tm ) );
-      if( sigmeta->extended_info[sig_idx].creation_time ) {
-        ctime_val = localtime( &created );
-        memcpy( sigmeta->extended_info[sig_idx].creation_time,
-                ctime_val, sizeof( struct tm ) );
-      }
-
-      /* the extended signature verification status */
-      sumGPGME = gpgme_get_sig_ulong_attr( ctx,
-                                           sig_idx,
-                                           GPGME_ATTR_SIG_SUMMARY,
-                                           0 );
-      // translate GPGME status flags to common CryptPlug status flags
-      sumPlug = 0;
-      if( sumGPGME & GPGME_SIGSUM_VALID       ) sumPlug |= SigStat_VALID      ;
-      if( sumGPGME & GPGME_SIGSUM_GREEN       ) sumPlug |= SigStat_GREEN      ;
-      if( sumGPGME & GPGME_SIGSUM_RED         ) sumPlug |= SigStat_RED        ;
-      if( sumGPGME & GPGME_SIGSUM_KEY_REVOKED ) sumPlug |= SigStat_KEY_REVOKED;
-      if( sumGPGME & GPGME_SIGSUM_KEY_EXPIRED ) sumPlug |= SigStat_KEY_EXPIRED;
-      if( sumGPGME & GPGME_SIGSUM_SIG_EXPIRED ) sumPlug |= SigStat_SIG_EXPIRED;
-      if( sumGPGME & GPGME_SIGSUM_KEY_MISSING ) sumPlug |= SigStat_KEY_MISSING;
-      if( sumGPGME & GPGME_SIGSUM_CRL_MISSING ) sumPlug |= SigStat_CRL_MISSING;
-      if( sumGPGME & GPGME_SIGSUM_CRL_TOO_OLD ) sumPlug |= SigStat_CRL_TOO_OLD;
-      if( sumGPGME & GPGME_SIGSUM_BAD_POLICY  ) sumPlug |= SigStat_BAD_POLICY ;
-      if( sumGPGME & GPGME_SIGSUM_SYS_ERROR   ) sumPlug |= SigStat_SYS_ERROR  ;
-      if( !sumPlug )
-        sumPlug = SigStat_NUMERICAL_CODE | sumGPGME;
-      sigmeta->extended_info[sig_idx].sigStatusFlags = sumPlug;
-
-      sigmeta->extended_info[sig_idx].validity = GPGME_VALIDITY_UNKNOWN;
-
-      err = gpgme_get_sig_key (ctx, sig_idx, &key);
-
-      if ( err == GPGME_No_Error) {
-        const char* attr_string;
-        unsigned long attr_ulong;
-
-        /* extract key identidy */
-        attr_string = gpgme_key_get_string_attr(key, GPGME_ATTR_KEYID, 0, 0);
-        if (attr_string != 0)
-            storeNewCharPtr( &sigmeta->extended_info[sig_idx].keyid, attr_string );
-
-        /* extract finger print */
-        attr_string = gpgme_key_get_string_attr(key, GPGME_ATTR_FPR, 0, 0);
-        if (attr_string != 0)
-            storeNewCharPtr( &sigmeta->extended_info[sig_idx].fingerprint,
-                            attr_string );
-
-        /* algorithms useable with this key */
-        attr_string = gpgme_key_get_string_attr(key, GPGME_ATTR_ALGO, 0, 0);
-        if (attr_string != 0)
-            storeNewCharPtr( &sigmeta->extended_info[sig_idx].algo,
-                            attr_string );
-        attr_ulong = gpgme_key_get_ulong_attr(key, GPGME_ATTR_ALGO, 0, 0);
-        sigmeta->extended_info[sig_idx].algo_num = attr_ulong;
-
-        /* extract key validity */
-        attr_ulong = gpgme_key_get_ulong_attr(key, GPGME_ATTR_VALIDITY, 0, 0);
-        sigmeta->extended_info[sig_idx].validity = attr_ulong;
-
-        /* extract user id, according to the documentation it's representable
-        * as a number, but it seems that it also has a string representation
-        */
-        attr_string = gpgme_key_get_string_attr(key, GPGME_ATTR_USERID, 0, 0);
-        if (attr_string != 0)
-            storeNewCharPtr( &sigmeta->extended_info[sig_idx].userid,
-                            attr_string );
-        attr_ulong = gpgme_key_get_ulong_attr(key, GPGME_ATTR_USERID, 0, 0);
-        sigmeta->extended_info[sig_idx].userid_num = attr_ulong;
-
-        /* extract the length */
-        attr_ulong = gpgme_key_get_ulong_attr(key, GPGME_ATTR_LEN, 0, 0);
-        sigmeta->extended_info[sig_idx].keylen = attr_ulong;
-
-        /* extract the creation time of the key */
-        attr_ulong = gpgme_key_get_ulong_attr(key, GPGME_ATTR_CREATED, 0, 0);
-        sigmeta->extended_info[sig_idx].key_created = attr_ulong;
-
-        /* extract the expiration time of the key */
-        attr_ulong = gpgme_key_get_ulong_attr(key, GPGME_ATTR_EXPIRE, 0, 0);
-        sigmeta->extended_info[sig_idx].key_expires = attr_ulong;
-
-        /* extract user name */
-        attr_string = gpgme_key_get_string_attr(key, GPGME_ATTR_NAME, 0, 0);
-        if (attr_string != 0)
-            storeNewCharPtr( &sigmeta->extended_info[sig_idx].name,
-                            attr_string );
-
-        /* extract email */
-        attr_string = gpgme_key_get_string_attr(key, GPGME_ATTR_EMAIL, 0, 0);
-        if (attr_string != 0)
-            storeNewCharPtr( &sigmeta->extended_info[sig_idx].email,
-                            attr_string );
-
-        /* extract the comment */
-        attr_string = gpgme_key_get_string_attr(key, GPGME_ATTR_COMMENT, 0, 0);
-        if (attr_string != 0)
-            storeNewCharPtr( &sigmeta->extended_info[sig_idx].comment,
-                            attr_string );
-      }
-      else
-        storeNewCharPtr( &sigmeta->extended_info[sig_idx].fingerprint, fpr );
-
-      sig_status = sig_status_to_string( status );
-      storeNewCharPtr( &sigmeta->extended_info[sig_idx].status_text,
-                       sig_status );
-
-    } else
-      break; /* if allocation fails once, it isn't likely to
-                succeed the next time either */
-
-    fpr = gpgme_get_sig_status (ctx, ++sig_idx, &status, &created);
-  }
-  sigmeta->extended_info_count = sig_idx;
-  sigmeta->nota_xml = gpgme_get_notation( ctx );
-  sigmeta->status_code = status;
-
-  gpgme_release( ctx );
-  return ( status == GPGME_SIG_STAT_GOOD );
-}
-
-bool storeCertificatesFromMessage(
-        const char* ciphertext ){ return true; }
-
-
-/* returns address if address doesn't contain a <xxx> part
- * else it returns a new string xxx and frees address
- */
-static char* parseAddress( char* address )
-{
-  char* result = address;
-  char* i;
-  char* j;
-  if( !result ) return result;
-  i = index( address, '<' );
-  if( i ) {
-    j = index( i+1, '>' );
-    if( j == NULL ) j = address+strlen(address);
-    result = malloc( j-i );
-    strncpy( result, i+1, j-i-1 );
-    result[j-i-1] = '\0';
-    free( address );
-  } else {
-    i = address;
-    j = i+strlen(address);
-  }
-  {
-    /* remove surrounding whitespace */
-    char* k = result+(j-i-1);
-    char* l = result;
-    while( isspace( *l ) ) ++l;
-    while( isspace( *k ) ) --k;
-    if( l != result || k != result+(j-i-1) ) {
-      char* result2 = malloc( k-l+2 );
-      strncpy( result2, l, k-l+1 );
-      result2[k-l+1] = '\0';
-      free(result);
-      result = result2;
-    }
-  }
-  return result;
-}
-
-static char* nextAddress( const char** address )
-{
-  const char *start = *address;
-  char* result = NULL;
-  int quote = 0;
-  int comment = 0;
-  int found = 0;
-  if( *address == NULL ) return NULL;
-  while( **address ) {
-
-    switch( **address ) {
-    case '\\': /* escaped character */
-      ++(*address);
-      break;
-    case '"':
-      if( comment == 0 ) {
-        if( quote > 0 ) --quote;
-        else ++quote;
-      }
-      break;
-    case '(': /* comment start */
-      if( quote == 0 ) ++comment;
-      break;
-    case ')': /* comment end */
-      if( quote == 0 ) --comment;
-      break;
-    case '\0':
-    case '\1': /* delimiter */
-      if( quote == 0 && comment == 0 ) {
-        found = 1;
-      }
-      break;
-    }
-    ++(*address);
-    if( found ) break;
-  }
-  if( found || **address == 0 ) {
-    size_t len;
-    len = *address - start;
-    if( len > 0 ) {
-      if( **address != 0 ) --len;
-      result = malloc( len*sizeof(char)+1 );
-      strncpy( result, start, len );
-      result[len] = '\0';
-    }
-  }
-  return parseAddress(result);
-}
-
-bool encryptMessage( const char*  cleartext,
-                     const char** ciphertext,
-                     const size_t* cipherLen,
-                     const char*  certificate,
-                     struct StructuringInfo* structuring,
-                     int* errId,
-                     char** errTxt )
-{
-  GpgmeCtx ctx;
-  GpgmeError err;
-  GpgmeData gCiphertext, gPlaintext;
-  GpgmeRecipients rset;
-  char*  rCiph = 0;
-  bool   bOk   = false;
-
-  init_StructuringInfo( structuring );
-
-  gpgme_new (&ctx);
-  gpgme_set_protocol (ctx, GPGMEPLUG_PROTOCOL);
-
-  gpgme_set_armor (ctx, __GPGMEPLUG_ENCRYPTED_CODE_IS_BINARY ? 0 : 1);
-  /*  gpgme_set_textmode (ctx, 1); */
-
-  gpgme_data_new_from_mem (&gPlaintext, cleartext,
-                            1+strlen( cleartext ), 1 );
-  err = gpgme_data_new ( &gCiphertext );
-
-  gpgme_recipients_new (&rset);
-
-  /*
-  if( GPGMEPLUG_PROTOCOL == GPGME_PROTOCOL_CMS )
-  {
-    gpgme_recipients_add_name (rset,
-      "/CN=test cert 1,OU=Aegypten Project,O=g10 Code GmbH,L=DÃ?sseldorf,C=DE" );
-
-    fputs( "\nGPGSMPLUG encryptMessage() using test key of Aegypten Project\n", stderr );
-  }
-  else
-  */
-  {
-    const char* p = certificate;
-    char* tok;
-    while( (tok = nextAddress( &p ) ) != 0 ) {
-      gpgme_recipients_add_name (rset, tok );
-      fprintf( stderr, "\nGPGMEPLUG encryptMessage() using addressee %s\n", tok );
-      free(tok);
-    }
-  }
-
-  /* PENDING(g10) Implement this
-     Possible values: RSA = 1, SHA1 = 2, TripleDES = 3
-     gpgme_set_encryption_algorithm( ctx, config.encryptionAlgorithm );
-
-     -> Your are mixing public key and symmetric algorithms.  The
-     latter may be configured but the sphix specifications do opnly
-     allow 3-DES so this is not nothing we need to do.  The proper way
-     to select the symmetric algorithm is anyway by looking at the
-     capabilities of the certificate because this is the only way to
-     know what the recipient can accept. [wk 2002-03-23]
-
-     PENDING(g10) Implement this
-     gpgme_set_encryption_check_certificate_path(
-     config.checkCertificatePath )
-
-     PENDING(g10) Implement this
-     gpgme_set_encryption_check_certificate_path_to_root(
-     config.checkEncryptionCertificatePathToRoot )
-
-     -> Not checking a certificate up to the ROOT CA is dangerous and
-     stupid. There is no need for those options.  [wk 2002-03-23] */
+     -> Not checking a certificate up to the ROOT CA is dangerous and
+     stupid. There is no need for those options.  [wk 2002-03-23] */
 
 
 
   err = gpgme_op_encrypt (ctx, rset, gPlaintext, gCiphertext );
   if( err ) {
-    fprintf( stderr, "\ngpgme_op_encrypt() returned this error code:  %i\n\n", err );
+    fprintf( stderr, "\ngpgme_op_encrypt() returned this error code:  %i\n", err );
     if( errId )
       *errId = err;
     if( errTxt ) {
       const char* _errTxt = gpgme_strerror( err );
-      *errTxt = malloc( strlen( _errTxt ) + 1 );
-      if( *errTxt )
+      *errTxt = malloc( strlen( _errTxt ) + 100 ); // leave room for reason string
+      if( *errTxt ) {
+        char* opInfo;
         strcpy(*errTxt, _errTxt );
+        opInfo = gpgme_get_op_info(ctx, 0);
+        if( NULL != opInfo && *opInfo ){
+          const int opLen = strlen( opInfo );
+          const int reasonLen = 8;
+          char reason[ 1+reasonLen ];
+          char* pos1;
+          strcpy( reason, "<reason>" );
+          pos1 = strstr( opInfo, reason );
+          if( NULL != pos1 && 
+              opLen > reasonLen + (pos1 - opInfo) ){
+            char* pos2;
+            pos1 += reasonLen;
+            pos2 = strchr( pos1, '<' );
+            if( NULL != pos2 &&
+                pos1 < pos2 ){
+              long int reasonId;
+              strcat( *errTxt, " - " );
+              *pos2 = '\0';
+              fprintf( stderr, "                        and this reason code:  %s\n\n", pos1 );
+              reasonId = strtol( pos1, NULL, 10 );
+              switch( reasonId ) {
+                case  0: strcat( *errTxt, "No specific reason given" );
+                         break;
+                case  1: strcat( *errTxt, "Not Found" );
+                         break;
+                case  2: strcat( *errTxt, "Ambigious specification" );
+                         break;
+                case  3: strcat( *errTxt, "Key can't be used for operation" );
+                         break;
+                case  4: strcat( *errTxt, "Key has been revoked" );
+                         break;
+                case  5: strcat( *errTxt, "Key has expired" );
+                         break;
+                case  6: strcat( *errTxt, "No CRL known for certificate" );
+                         break;
+                case  7: strcat( *errTxt, "No current CRL available" );
+                         break;
+                case  8: strcat( *errTxt, "Contraints not matched" );
+                         break;
+                default: {
+                           strcat( *errTxt, "Extended error Id: #" );
+                           strcat( *errTxt, pos1 );
+                         }  
+              }
+              *pos2 = '<';
+            }
+          }
+          free( opInfo );
+        }
+      }
     }
   }
 
@@ -1797,7 +1647,9 @@ bool decryptMessage( const char* ciphertext,
                      bool        cipherIsBinary,
                      int         cipherLen,
                      const char** cleartext,
-                     const char* certificate )
+                     const char* certificate,
+                     int* errId,
+                     char** errTxt )
 {
   GpgmeCtx ctx;
   GpgmeError err;
@@ -1827,7 +1679,19 @@ bool decryptMessage( const char* ciphertext,
 
   gpgme_data_new( &gPlaintext );
 
-  gpgme_op_decrypt( ctx, gCiphertext, gPlaintext );
+  err = err = gpgme_op_decrypt( ctx, gCiphertext, gPlaintext );
+  if( err ) {
+    fprintf( stderr, "\ngpgme_op_decrypt() returned this error code:  %i\n\n", err );
+    if( errId )
+      *errId = err;
+    if( errTxt ) {
+      const char* _errTxt = gpgme_strerror( err );
+      *errTxt = malloc( strlen( _errTxt ) + 1 );
+      if( *errTxt )
+        strcpy(*errTxt, _errTxt );
+    }
+  }
+  
   gpgme_data_release( gCiphertext );
 
   rCiph = gpgme_data_release_and_get_mem( gPlaintext,  &rCLen );
@@ -1853,6 +1717,9 @@ bool decryptAndCheckMessage( const char* ciphertext,
 
 const char* requestCertificateDialog(){ return 0; }
 
+
+/* The buffer generatedKey contains the LEN bytes you want.
+   Caller is responsible for freeing. */
 bool requestDecentralCertificate( const char* certparms, 
                                   char** generatedKey, int* length )
 {
@@ -1888,8 +1755,6 @@ bool requestDecentralCertificate( const char* certparms,
     *generatedKey = gpgme_data_release_and_get_mem (pub, &len);
     *length = len;
 
-    /* The buffer generatedKey contains the LEN bytes you want */
-    // Caller is responsible for freeing
     return true;
 }
 
@@ -1915,53 +1780,7 @@ const char* displayCRL(){ return 0; }
 
 void updateCRL(){}
 
-/*
- * Copyright (C) 2002 g10 Code GmbH
- * 
- *     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., 59 Temple Place - Suite 330,
- *     Boston, MA  02111, USA.
- */
-
-/* Max number of parts in a DN */
-#define MAX_GPGME_IDX 20
-
-/* some macros to replace ctype ones and avoid locale problems */
-#define spacep(p)   (*(p) == ' ' || *(p) == '\t')
-#define digitp(p)   (*(p) >= '0' && *(p) <= '9')
-#define hexdigitp(a) (digitp (a)                     \
-                      || (*(a) >= 'A' && *(a) <= 'F')  \
-                      || (*(a) >= 'a' && *(a) <= 'f'))
-/* the atoi macros assume that the buffer has only valid digits */
-#define atoi_1(p)   (*(p) - '0' )
-#define atoi_2(p)   ((atoi_1(p) * 10) + atoi_1((p)+1))
-#define atoi_4(p)   ((atoi_2(p) * 100) + atoi_2((p)+2))
-#define xtoi_1(p)   (*(p) <= '9'? (*(p)- '0'): \
-                     *(p) <= 'F'? (*(p)-'A'+10):(*(p)-'a'+10))
-#define xtoi_2(p)   ((xtoi_1(p) * 16) + xtoi_1((p)+1))
-
-#define safe_malloc( x ) malloc( x )
-#define xstrdup( x ) (x)?strdup(x):0
 
-static void 
-safe_free( void** x ) 
-{
-  free( *x );
-  *x = 0;
-}
 char *
 trim_trailing_spaces( char *string )
 {
@@ -1980,7 +1799,6 @@ trim_trailing_spaces( char *string )
 
     return string ;
 }
-/*#define safe_free( x ) free( x )*/
 
 /* Parse a DN and return an array-ized one.  This is not a validating
    parser and it does not support any old-stylish syntax; gpgme is
@@ -2000,7 +1818,7 @@ parse_dn_part (struct DnPair *array, const unsigned char *string)
   n = s - string;
   if (!n)
     return NULL; /* empty key */
-  array->key = p = safe_malloc (n+1);
+  array->key = p = xmalloc (n+1);
   
   
   memcpy (p, string, n);
@@ -2019,7 +1837,7 @@ parse_dn_part (struct DnPair *array, const unsigned char *string)
       if (!n || (n & 1))
         return NULL; /* empty or odd number of digits */
       n /= 2;
-      array->value = p = safe_malloc (n+1);
+      array->value = p = xmalloc (n+1);
       
       
       for (s1=string; n; s1 += 2, n--)
@@ -2054,7 +1872,7 @@ parse_dn_part (struct DnPair *array, const unsigned char *string)
             n++;
         }
 
-      array->value = p = safe_malloc (n+1);
+      array->value = p = xmalloc (n+1);
       
       
       for (s=string; n; s++, n--)
@@ -2094,7 +1912,7 @@ parse_dn (const unsigned char *string)
 
   arraysize = 7; /* C,ST,L,O,OU,CN,email */
   arrayidx = 0;
-  array = safe_malloc ((arraysize+1) * sizeof *array);
+  array = xmalloc ((arraysize+1) * sizeof *array);
   
   
   while (*string)
@@ -2108,13 +1926,13 @@ parse_dn (const unsigned char *string)
           struct DnPair *a2;
 
           arraysize += 5;
-          a2 = safe_malloc ((arraysize+1) * sizeof *array);
+          a2 = xmalloc ((arraysize+1) * sizeof *array);
           for (i=0; i < arrayidx; i++)
             {
               a2[i].key = array[i].key;
               a2[i].value = array[i].value;
             }
-          safe_free ((void **)&array);
+          free (array);
           array = a2;
         }
       array[arrayidx].key = NULL;
@@ -2137,10 +1955,10 @@ parse_dn (const unsigned char *string)
  failure:
   for (i=0; i < arrayidx; i++)
     {
-      safe_free ((void**)&array[i].key);
-      safe_free ((void**)&array[i].value);
+      free (array[i].key);
+      free (array[i].value);
     }
-  safe_free ((void**)&array);
+  free (array);
   return NULL;
 }
 
@@ -2168,7 +1986,7 @@ add_dn_part( char* result, struct DnPair* dn, const char* part )
 static char* 
 reorder_dn( struct DnPair *dn )
 {
-  // note: The must parts are: CN, L, OU, O, C
+  /* note: The must parts are: CN, L, OU, O, C */
   const char* stdpart[] = {
     "CN", "S", "SN", "GN", "T", "UID",
           "MAIL", "EMAIL", "MOBILE", "TEL", "FAX", "STREET",
@@ -2187,7 +2005,7 @@ reorder_dn( struct DnPair *dn )
       len += 4; /* ',' and '=', and possibly "(" and ")" */
     }
   }
-  result = (char*)safe_malloc( (len+1)*sizeof(char) );
+  result = xmalloc( (len+1)*sizeof(char) );
   *result = 0;
 
   /* add standard parts */
@@ -2228,9 +2046,10 @@ startListCertificates( const char* pattern, int remote )
 {
     GpgmeError err;
     struct CertIterator* it;
-    /*fprintf( stderr,  "startListCertificates()" );*/
+    const char* patterns[] = { pattern, NULL };
+    fprintf( stderr,  "startListCertificates( \"%s\", %d )\n", pattern, remote );
 
-    it = (struct CertIterator*)safe_malloc( sizeof( struct CertIterator ) );
+    it = xmalloc( sizeof( struct CertIterator ) );
 
     err = gpgme_new (&(it->ctx));
     /*fprintf( stderr,  "2: gpgme returned %d\n", err );*/
@@ -2242,8 +2061,9 @@ startListCertificates( const char* pattern, int remote )
     gpgme_set_protocol (it->ctx, GPGME_PROTOCOL_CMS);
     if( remote ) gpgme_set_keylist_mode ( it->ctx, GPGME_KEYLIST_MODE_EXTERN ); 
     else gpgme_set_keylist_mode ( it->ctx, GPGME_KEYLIST_MODE_LOCAL );
-    err =  gpgme_op_keylist_start ( it->ctx, pattern, 0);
+    err =  gpgme_op_keylist_ext_start ( it->ctx, patterns, 0, 0);
     if( err != GPGME_No_Error ) {
+      fprintf( stderr,  "gpgme_op_keylist_ext_start returned %d", err );
       endListCertificates( it );
       return NULL;
     }
@@ -2256,12 +2076,13 @@ static void
 freeStringArray( char** c )
 {
     char** _c = c;
+
     while( c && *c ) {
       /*fprintf( stderr, "freeing \"%s\"\n", *c );*/
-      safe_free( (void**)&(*c) );
+      free( *c );
       ++c;
     }
-    safe_free( (void**)&_c );
+    free( _c );
 }
 
 /* free all malloc'ed data in a struct CertificateInfo */
@@ -2270,29 +2091,29 @@ freeInfo( struct CertificateInfo* info )
 {
   struct DnPair* a = info->dnarray;
   assert( info );
-  if( info->userid ) freeStringArray( info->userid );
-  if( info->serial ) safe_free( (void**)&(info->serial) );
-  if( info->fingerprint ) safe_free( (void**)&(info->fingerprint) );
-  if( info->issuer ) safe_free( (void**)&(info->issuer) );
-  if( info->chainid ) safe_free( (void**)&(info->chainid) );
-  if( info->caps ) safe_free( (void**)&(info->caps) );
+  freeStringArray( info->userid );
+  free( info->serial);
+  free( info->fingerprint );
+  free( info->issuer );
+  free( info->chainid );
+  free( info->caps );
   while( a && a->key && a->value ) {
-    safe_free ((void**)&(a->key));
-    safe_free ((void**)&(a->value));
+    free (a->key);
+    free (a->value);
     ++a;
   }
-  if( info->dnarray ) safe_free ((void**)&(info->dnarray));
+  free (info->dnarray);
   memset( info, 0, sizeof( *info ) );
 }
 
 /* Format the fingerprint nicely. The caller should
-   free the returned value with safe_free() */
+   free the returned value using free() */
 static char* make_fingerprint( const char* fpr )
 {
   int len = strlen(fpr);
   int i = 0;
-  char* result = safe_malloc( (len + len/2 + 1)*sizeof(char) );
-  if( !result ) return NULL;
+  char* result = xmalloc( (len + len/2 + 1)*sizeof(char) );
+
   for(; *fpr; ++fpr, ++i ) {
     if( i%3 == 2) {
       result[i] = ':'; ++i;
@@ -2310,6 +2131,7 @@ nextCertificate( struct CertIterator* it, struct CertificateInfo** result )
   GpgmeKey   key;
   int retval = GPGME_No_Error;
   assert( it );
+  fprintf( stderr,  "nextCertificates( %p, %p )\n", it, result );
   err = gpgme_op_keylist_next ( it->ctx, &key);
   if( err != GPGME_EOF ) {   
     int idx;
@@ -2326,7 +2148,7 @@ nextCertificate( struct CertIterator* it, struct CertificateInfo** result )
       names[idx] = xstrdup( s );
     }
     
-    it->info.userid = safe_malloc( sizeof( char* ) * (idx+1) );
+    it->info.userid = xmalloc( sizeof( char* ) * (idx+1) );
     memset( it->info.userid, 0, sizeof( char* ) * (idx+1) );
     it->info.dnarray = 0;
     for( idx = 0; names[idx] != 0; ++idx ) {
@@ -2334,7 +2156,8 @@ nextCertificate( struct CertIterator* it, struct CertificateInfo** result )
       if( idx == 0 ) {
        it->info.userid[idx] = reorder_dn( a );
        it->info.dnarray = a;
-       safe_free( (void **)&(names[idx]) );
+       free (names[idx]);
+        names[idx] = NULL;
       } else {
        it->info.userid[idx] = names[idx];
       }
@@ -2342,7 +2165,7 @@ nextCertificate( struct CertIterator* it, struct CertificateInfo** result )
     it->info.userid[idx] = 0;
 
     s = gpgme_key_get_string_attr (key, GPGME_ATTR_SERIAL, 0, 0); 
-    it->info.serial = xstrdup(s);
+    it->info.serial = s? xstrdup(s) : NULL;
 
     s = gpgme_key_get_string_attr (key, GPGME_ATTR_FPR, 0, 0); 
     it->info.fingerprint = make_fingerprint( s );
@@ -2353,19 +2176,20 @@ nextCertificate( struct CertIterator* it, struct CertificateInfo** result )
       /*it->info.issuer = xstrdup(s);*/
       it->info.issuer = reorder_dn( issuer_dn );
       while( tmp_dn->key ) {
-       safe_free( (void**)&issuer_dn->key );
-       safe_free( (void**)&issuer_dn->value );
+       free( tmp_dn->key );
+       free( tmp_dn->value );
        ++tmp_dn;
       }
-      safe_free( (void**)&issuer_dn );
+      free( issuer_dn );
+      issuer_dn = tmp_dn = NULL;
     } else {
       it->info.issuer = NULL;
     }
     s = gpgme_key_get_string_attr (key, GPGME_ATTR_CHAINID, 0, 0); 
-    it->info.chainid = xstrdup(s);
+    it->info.chainid = s? xstrdup(s): NULL;
 
     s = gpgme_key_get_string_attr (key, GPGME_ATTR_KEY_CAPS, 0, 0); 
-    it->info.caps = xstrdup(s);
+    it->info.caps = s? xstrdup(s) : NULL;
 
     u = gpgme_key_get_ulong_attr (key, GPGME_ATTR_CREATED, 0, 0); 
     it->info.created = u;
@@ -2388,23 +2212,29 @@ nextCertificate( struct CertIterator* it, struct CertificateInfo** result )
     gpgme_key_release (key);
     /*return &(it->info);*/
     *result =  &(it->info);
-  } else *result = NULL;
+  } else {
+    *result = NULL;
+  }
   return retval;
 }
 
-void 
+int
 endListCertificates( struct CertIterator* it )
 {
-  /*fprintf( stderr,  "endListCertificates()\n" );*/
+  char *s = gpgme_get_op_info (it->ctx, 0);
+  int truncated = s && strstr (s, "<truncated/>");
+  fprintf( stderr,  "endListCertificates( %p )\n", it );
+  if( s ) free( s );
   assert(it);
   freeInfo( &(it->info) );
   gpgme_op_keylist_end(it->ctx);
   gpgme_release (it->ctx);
   free( it );
+  return truncated;
 }
 
 int
-importCertificate( const char* fingerprint )
+importCertificateWithFPR( const char* fingerprint, char** additional_info )
 {
   GpgmeError err;
   GpgmeCtx  ctx;
@@ -2437,7 +2267,7 @@ importCertificate( const char* fingerprint )
     return err;
   }
   
-  buf = safe_malloc( sizeof(char)*( strlen( fingerprint ) + 1 ) );
+  buf = malloc( sizeof(char)*( strlen( fingerprint ) + 1 ) );
   if( !buf ) {
     gpgme_recipients_release( recips );
     gpgme_data_release( keydata );    
@@ -2455,44 +2285,82 @@ importCertificate( const char* fingerprint )
   err = gpgme_recipients_add_name( recips, buf ); 
   if( err ) {
     fprintf( stderr,  "gpgme_recipients_add_name returned %d\n", err );
-    safe_free( (void**)&buf );
+    free (buf);
     gpgme_recipients_release( recips );
     gpgme_data_release( keydata );    
     gpgme_release( ctx );
     return err;
   }
 
-  err = gpgme_op_export( ctx, recips, keydata );
+  err = gpgme_op_export( ctx, recips, keydata );
+  if( err ) {
+    fprintf( stderr,  "gpgme_op_export returned %d\n", err );
+    free (buf);
+    *additional_info = gpgme_get_op_info( ctx, 0 );
+    gpgme_recipients_release( recips );
+    gpgme_data_release( keydata );    
+    gpgme_release( ctx );
+    return err;
+  }
+  free (buf);
+  buf = NULL;
+
+  err = gpgme_op_import( ctx, keydata );
+  *additional_info = gpgme_get_op_info( ctx, 0 );
+  if( err ) {    
+    fprintf( stderr,  "gpgme_op_import returned %d\n", err );
+    gpgme_recipients_release( recips );
+    gpgme_data_release( keydata );
+    gpgme_release( ctx );
+    return err;
+  }
+
+  gpgme_recipients_release( recips );
+  gpgme_data_release( keydata );    
+  gpgme_release( ctx );
+  return 0;
+}
+int
+importCertificateFromMem( const char* data, size_t length , char** additional_info )
+{
+  GpgmeError err;
+  GpgmeCtx  ctx;
+  GpgmeData keydata;
+
+  err = gpgme_new( &ctx );
+  /*fprintf( stderr,  "2: gpgme returned %d\n", err );*/
+  if( err != GPGME_No_Error ) {
+    return err;
+  }
+  gpgme_set_protocol( ctx, GPGME_PROTOCOL_CMS );
+  gpgme_set_keylist_mode( ctx, GPGME_KEYLIST_MODE_LOCAL );
+
+  err = gpgme_data_new_from_mem( &keydata, data, length, 0 );
   if( err ) {
-    fprintf( stderr,  "gpgme_op_export returned %d\n", err );
-    safe_free( (void**)&buf );
-    gpgme_recipients_release( recips );
-    gpgme_data_release( keydata );    
+    fprintf( stderr,  "gpgme_data_new returned %d\n", err );
     gpgme_release( ctx );
     return err;
   }
-  safe_free( (void**)&buf );
 
   err = gpgme_op_import( ctx, keydata );
+  *additional_info = gpgme_get_op_info( ctx, 0 );
   if( err ) {    
     fprintf( stderr,  "gpgme_op_import returned %d\n", err );
-    gpgme_recipients_release( recips );
     gpgme_data_release( keydata );    
     gpgme_release( ctx );
     return err;
   }
 
-  gpgme_recipients_release( recips );
   gpgme_data_release( keydata );    
   gpgme_release( ctx );
   return 0;
 }
 
-    // // // // // // // // // // // // // // // // // // // // // // // // //
-   //                                                                      //
-  //         Continuation of CryptPlug code                               //
- //                                                                      //
-// // // // // // // // // // // // // // // // // // // // // // // // //
+/*  == == == == == == == == == == == == == == == == == == == == == == == == ==
+   ==                                                                      ==
+  ==         Continuation of CryptPlug code                               ==
+ ==                                                                      ==
+== == == == == == == == == == == == == == == == == == == == == == == == ==  */
 
 
 /*
@@ -2508,8 +2376,8 @@ bool findCertificates( const char* addressee,
                        int* newSize,
                        bool secretOnly )
 {
-  static int maxCerts = 1024;
-  // use const char declarations since all of them are needed twice
+#define MAXCERTS 1024
+  /* use const char declarations since all of them are needed twice */
   const char* delimiter = "\1";
   const char* openBracket = "    (";
   const char* closeBracket = ")";
@@ -2524,8 +2392,8 @@ bool findCertificates( const char* addressee,
   int nFound = 0;
   int iFound = 0;
   int siz = 0;
-  char* DNs[maxCerts];
-  char* FPRs[maxCerts];
+  char* DNs[MAXCERTS];
+  char* FPRs[MAXCERTS];
   
   if( ! certificates ){
     fprintf( stderr, "gpgme: findCertificates called with invalid *certificates pointer\n" );
@@ -2540,9 +2408,7 @@ bool findCertificates( const char* addressee,
   *certificates = 0;
   *newSize = 0;
   
-  // calculate length of buffer needed for certs plus fingerprints
-  memset( DNs,  0, sizeof( DNs  ) );
-  memset( FPRs, 0, sizeof( FPRs ) );
+  /* calculate length of buffer needed for certs plus fingerprints */
   gpgme_new (&ctx);
   gpgme_set_protocol (ctx, GPGMEPLUG_PROTOCOL);
   err = gpgme_op_keylist_start(ctx, addressee, secretOnly ? 1 : 0);
@@ -2563,17 +2429,18 @@ bool findCertificates( const char* addressee,
           siz += strlen( openBracket );
           siz += strlen( s2 );
           siz += strlen( closeBracket );
-          DNs[ nFound ] = xstrdup( dn );
+          DNs[ nFound ] = dn;
+          dn = NULL; /* prevent it from being free'ed below. */
           FPRs[nFound ] = xstrdup( s2 );
           ++nFound;
-          if( nFound >= maxCerts ) {
+          if( nFound >= MAXCERTS ) {
             fprintf( stderr,
                      "gpgme: findCertificates found too many certificates (%d)\n",
-                     maxCerts );
+                     MAXCERTS );
             break;
           }
         }
-        free( dn );
+        free (dn); 
       }
     }
   }
@@ -2582,14 +2449,14 @@ bool findCertificates( const char* addressee,
   
   
   if( 0 < siz ) {
-    // add one for trailing ZERO char
+    /* add one for trailing ZERO char */
     ++siz;
     *newSize = siz;
-    // allocate the buffer
-    *certificates = malloc(   sizeof(char) * siz );
+    /* allocate the buffer */
+    *certificates = xmalloc( sizeof(char) * siz );
     memset( *certificates, 0, sizeof(char) * siz );
-    // fill the buffer
-    for( iFound=0; iFound < nFound; ++iFound ) {
+    /* fill the buffer */
+    for (iFound=0; iFound < nFound; iFound++) {
       if( !iFound )
         strcpy(*certificates, DNs[iFound] );
       else {
@@ -2599,7 +2466,6 @@ bool findCertificates( const char* addressee,
       strcat(  *certificates, openBracket );
       strcat(  *certificates, FPRs[iFound] );
       strcat(  *certificates, closeBracket );
-      ++iFound;
       free( DNs[ iFound ] );
       free( FPRs[iFound ] );
     }
@@ -2607,3 +2473,286 @@ bool findCertificates( const char* addressee,
     
   return ( 0 < nFound );
 }
+
+
+static const char*
+sig_status_to_string( GpgmeSigStat status )
+{
+  const char *result;
+
+  switch (status) {
+    case GPGME_SIG_STAT_NONE:
+      result = "Oops: Signature not verified";
+      break;
+    case GPGME_SIG_STAT_NOSIG:
+      result = "No signature found";
+      break;
+    case GPGME_SIG_STAT_GOOD:
+      result = "Good signature";
+      break;
+    case GPGME_SIG_STAT_BAD:
+      result = "BAD signature";
+      break;
+    case GPGME_SIG_STAT_NOKEY:
+      result = "No public key to verify the signature";
+      break;
+    case GPGME_SIG_STAT_ERROR:
+      result = "Error verifying the signature";
+      break;
+    case GPGME_SIG_STAT_DIFF:
+      result = "Different results for signatures";
+      break;
+    default:
+      result = "Error: Unknown status";
+      break;
+  }
+
+  return result;
+}
+
+
+bool checkMessageSignature( char** cleartext,
+                            const char* signaturetext,
+                            bool signatureIsBinary,
+                            int signatureLen,
+                            struct SignatureMetaData* sigmeta )
+{
+  GpgmeCtx ctx;
+  GpgmeSigStat status;
+  unsigned long sumGPGME;
+  SigStatusFlags sumPlug;
+  GpgmeData datapart, sigpart;
+  char* rClear = 0;
+  size_t clearLen;
+  GpgmeError err;
+  GpgmeKey key;
+  time_t created;
+  struct DnPair* a;
+  int sig_idx=0;
+  int UID_idx=0;
+  const char* statusStr;
+  const char* fpr;
+  bool isOpaqueSigned;
+  
+  if( !cleartext ) {
+    if( sigmeta )
+      storeNewCharPtr( &sigmeta->status,
+                        __GPGMEPLUG_ERROR_CLEARTEXT_IS_ZERO );
+
+    return false;
+  }
+
+  isOpaqueSigned = !*cleartext;
+
+  gpgme_new( &ctx );
+  gpgme_set_protocol (ctx, GPGMEPLUG_PROTOCOL);
+  gpgme_set_armor (ctx,    signatureIsBinary ? 0 : 1);
+  /*  gpgme_set_textmode (ctx, signatureIsBinary ? 0 : 1); */
+
+  if( isOpaqueSigned )
+    gpgme_data_new( &datapart );
+  else
+    gpgme_data_new_from_mem( &datapart, *cleartext,
+                             strlen( *cleartext ), 1 );
+
+  gpgme_data_new_from_mem( &sigpart,
+                           signaturetext,
+                           signatureIsBinary
+                           ? signatureLen
+                           : strlen( signaturetext ),
+                           1 );
+
+  gpgme_op_verify( ctx, sigpart, datapart, &status );
+
+  if( isOpaqueSigned ) {
+    rClear = gpgme_data_release_and_get_mem( datapart, &clearLen );
+    *cleartext = malloc( clearLen + 1 );
+    if( *cleartext ) {
+      if( clearLen )
+        strncpy(*cleartext, rClear, clearLen );
+      (*cleartext)[clearLen] = '\0';
+    }
+    free( rClear );
+  }
+  else
+    gpgme_data_release( datapart );
+
+  gpgme_data_release( sigpart );
+
+  /* Provide information in the sigmeta struct */
+  /* the status string */
+  statusStr = sig_status_to_string( status );
+  sigmeta->status = malloc( strlen( statusStr ) + 1 );
+  if( sigmeta->status ) {
+    strcpy( sigmeta->status, statusStr );
+    sigmeta->status[strlen( statusStr )] = '\0';
+  } else
+    ; /* nothing to do, is already 0 */
+
+  /* Extended information for any number of signatures. */
+  fpr = gpgme_get_sig_status( ctx, sig_idx, &status, &created );
+  sigmeta->extended_info = 0;
+  while( fpr != NULL ) {
+    struct tm* ctime_val;
+    const char* sig_status;
+
+    void* alloc_return = realloc( sigmeta->extended_info,
+                                  sizeof( struct SignatureMetaDataExtendedInfo )
+                                  * ( sig_idx + 1 ) );
+    if( alloc_return ) {
+      sigmeta->extended_info = alloc_return;
+
+      /* clear the data area */
+      memset( &sigmeta->extended_info[sig_idx], 
+              0,
+              sizeof (struct SignatureMetaDataExtendedInfo) );
+
+      /* the creation time */
+      sigmeta->extended_info[sig_idx].creation_time = malloc( sizeof( struct tm ) );
+      if( sigmeta->extended_info[sig_idx].creation_time ) {
+        ctime_val = localtime( &created );
+        memcpy( sigmeta->extended_info[sig_idx].creation_time,
+                ctime_val, sizeof( struct tm ) );
+      }
+
+      /* the extended signature verification status */
+      sumGPGME = gpgme_get_sig_ulong_attr( ctx,
+                                           sig_idx,
+                                           GPGME_ATTR_SIG_SUMMARY,
+                                           0 );
+      fprintf( stderr, "gpgmeplug checkMessageSignature status flags: %lX\n", sumGPGME );
+      /* translate GPGME status flags to common CryptPlug status flags */
+      sumPlug = 0;
+      if( sumGPGME & GPGME_SIGSUM_VALID       ) sumPlug |= SigStat_VALID      ;
+      if( sumGPGME & GPGME_SIGSUM_GREEN       ) sumPlug |= SigStat_GREEN      ;
+      if( sumGPGME & GPGME_SIGSUM_RED         ) sumPlug |= SigStat_RED        ;
+      if( sumGPGME & GPGME_SIGSUM_KEY_REVOKED ) sumPlug |= SigStat_KEY_REVOKED;
+      if( sumGPGME & GPGME_SIGSUM_KEY_EXPIRED ) sumPlug |= SigStat_KEY_EXPIRED;
+      if( sumGPGME & GPGME_SIGSUM_SIG_EXPIRED ) sumPlug |= SigStat_SIG_EXPIRED;
+      if( sumGPGME & GPGME_SIGSUM_KEY_MISSING ) sumPlug |= SigStat_KEY_MISSING;
+      if( sumGPGME & GPGME_SIGSUM_CRL_MISSING ) sumPlug |= SigStat_CRL_MISSING;
+      if( sumGPGME & GPGME_SIGSUM_CRL_TOO_OLD ) sumPlug |= SigStat_CRL_TOO_OLD;
+      if( sumGPGME & GPGME_SIGSUM_BAD_POLICY  ) sumPlug |= SigStat_BAD_POLICY ;
+      if( sumGPGME & GPGME_SIGSUM_SYS_ERROR   ) sumPlug |= SigStat_SYS_ERROR  ;
+      if( !sumPlug )
+        sumPlug = SigStat_NUMERICAL_CODE | sumGPGME;
+      sigmeta->extended_info[sig_idx].sigStatusFlags = sumPlug;
+
+      sigmeta->extended_info[sig_idx].validity = GPGME_VALIDITY_UNKNOWN;
+
+      err = gpgme_get_sig_key (ctx, sig_idx, &key);
+
+      if ( err == GPGME_No_Error) {
+        const char* attr_string;
+        unsigned long attr_ulong;
+
+        /* extract key identidy */
+        attr_string = gpgme_key_get_string_attr(key, GPGME_ATTR_KEYID, 0, 0);
+        if (attr_string != 0)
+            storeNewCharPtr( &sigmeta->extended_info[sig_idx].keyid, attr_string );
+
+        /* extract finger print */
+        attr_string = gpgme_key_get_string_attr(key, GPGME_ATTR_FPR, 0, 0);
+        if (attr_string != 0)
+            storeNewCharPtr( &sigmeta->extended_info[sig_idx].fingerprint,
+                            attr_string );
+
+        /* algorithms useable with this key */
+        attr_string = gpgme_key_get_string_attr(key, GPGME_ATTR_ALGO, 0, 0);
+        if (attr_string != 0)
+            storeNewCharPtr( &sigmeta->extended_info[sig_idx].algo,
+                            attr_string );
+        attr_ulong = gpgme_key_get_ulong_attr(key, GPGME_ATTR_ALGO, 0, 0);
+        sigmeta->extended_info[sig_idx].algo_num = attr_ulong;
+
+        /* extract key validity */
+        attr_ulong = gpgme_key_get_ulong_attr(key, GPGME_ATTR_VALIDITY, 0, 0);
+        sigmeta->extended_info[sig_idx].validity = attr_ulong;
+
+        /* extract user id, according to the documentation it's representable
+        * as a number, but it seems that it also has a string representation
+        */
+        attr_string = gpgme_key_get_string_attr(key, GPGME_ATTR_USERID, 0, 0);
+        if (attr_string != 0) {
+            a = parse_dn( attr_string );
+            sigmeta->extended_info[sig_idx].userid = reorder_dn( a );
+        }
+        
+        attr_ulong = gpgme_key_get_ulong_attr(key, GPGME_ATTR_USERID, 0, 0);
+        sigmeta->extended_info[sig_idx].userid_num = attr_ulong;
+
+        /* extract the length */
+          sigmeta->extended_info[sig_idx].keylen = attr_ulong;
+
+        /* extract the creation time of the key */
+        attr_ulong = gpgme_key_get_ulong_attr(key, GPGME_ATTR_CREATED, 0, 0);
+        sigmeta->extended_info[sig_idx].key_created = attr_ulong;
+
+        /* extract the expiration time of the key */
+        attr_ulong = gpgme_key_get_ulong_attr(key, GPGME_ATTR_EXPIRE, 0, 0);
+        sigmeta->extended_info[sig_idx].key_expires = attr_ulong;
+
+        /* extract user name */
+        attr_string = gpgme_key_get_string_attr(key, GPGME_ATTR_NAME, 0, 0);
+        if (attr_string != 0) {
+            a = parse_dn( attr_string );
+            sigmeta->extended_info[sig_idx].name = reorder_dn( a );
+        }
+
+        /* extract email(s) */
+        sigmeta->extended_info[sig_idx].emailCount = 0;
+        sigmeta->extended_info[sig_idx].emailList = 0;
+        for( UID_idx=0; 
+             (attr_string = gpgme_key_get_string_attr(key,
+                              GPGME_ATTR_EMAIL, 0, UID_idx)); 
+             ++UID_idx ){
+          if (*attr_string) {
+            fprintf( stderr, "gpgmeplug checkMessageSignature found email: %s\n", attr_string );
+            if( !sigmeta->extended_info[sig_idx].emailCount )
+                alloc_return = 
+                    malloc( sizeof( char*) );
+            else
+                alloc_return = 
+                    realloc( sigmeta->extended_info[sig_idx].emailList,
+                             sizeof( char*)
+                             * (sigmeta->extended_info[sig_idx].emailCount + 1) );
+            if( alloc_return ) {
+              sigmeta->extended_info[sig_idx].emailList = alloc_return;
+              storeNewCharPtr( 
+                  &( sigmeta->extended_info[sig_idx].emailList[
+                          sigmeta->extended_info[sig_idx].emailCount ] ),
+                  attr_string );
+              ++sigmeta->extended_info[sig_idx].emailCount;
+            }
+          }
+        }
+        if( !sigmeta->extended_info[sig_idx].emailCount )
+          fprintf( stderr, "gpgmeplug checkMessageSignature found NO EMAIL\n" );
+
+        /* extract the comment */
+        attr_string = gpgme_key_get_string_attr(key, GPGME_ATTR_COMMENT, 0, 0);
+        if (attr_string != 0)
+            storeNewCharPtr( &sigmeta->extended_info[sig_idx].comment,
+                            attr_string );
+      }
+      else
+        storeNewCharPtr( &sigmeta->extended_info[sig_idx].fingerprint, fpr );
+
+      sig_status = sig_status_to_string( status );
+      storeNewCharPtr( &sigmeta->extended_info[sig_idx].status_text,
+                       sig_status );
+
+    } else
+      break; /* if allocation fails once, it isn't likely to
+                succeed the next time either */
+
+    fpr = gpgme_get_sig_status (ctx, ++sig_idx, &status, &created);
+  }
+  sigmeta->extended_info_count = sig_idx;
+  sigmeta->nota_xml = gpgme_get_notation( ctx );
+  sigmeta->status_code = status;
+
+  gpgme_release( ctx );
+  return ( status == GPGME_SIG_STAT_GOOD );
+}
+