partial DSA support
[gnupg.git] / g10 / ringedit.c
index adba3db..1ec35b8 100644 (file)
@@ -1,14 +1,14 @@
 /* ringedit.c -  Function for key ring editing
- *     Copyright (c) 1997 by Werner Koch (dd9jn)
+ *     Copyright (C) 1998 Free Software Foundation, Inc.
  *
- * This file is part of G10.
+ * This file is part of GNUPG.
  *
- * G10 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
  * (at your option) any later version.
  *
- * G10 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.
@@ -73,7 +73,8 @@ static RESTBL resource_table[MAX_RESOURCES];
 static int search( PACKET *pkt, KBPOS *kbpos, int secret );
 
 
-static int keyring_search( PACKET *pkt, KBPOS *kbpos, IOBUF iobuf );
+static int keyring_search( PACKET *pkt, KBPOS *kbpos, IOBUF iobuf,
+                                               const char *fname );
 static int keyring_search2( PUBKEY_FIND_INFO info, KBPOS *kbpos,
                                                   const char *fname);
 static int keyring_read( KBPOS *kbpos, KBNODE *ret_root );
@@ -113,9 +114,13 @@ add_keyblock_resource( const char *filename, int force, int secret )
     if( i == MAX_RESOURCES )
        return G10ERR_RESOURCE_LIMIT;
 
+  #if __MINGW32__
+    iobuf = NULL;
+  #else
     iobuf = iobuf_open( filename );
     if( !iobuf && !force )
        return G10ERR_OPEN_FILE;
+  #endif
     resource_table[i].used = 1;
     resource_table[i].secret = !!secret;
     resource_table[i].fname = m_strdup(filename);
@@ -123,10 +128,24 @@ add_keyblock_resource( const char *filename, int force, int secret )
     return 0;
 }
 
+/****************
+ * Return the resource name of the keyblock associated with KBPOS.
+ */
+const char *
+keyblock_resource_name( KBPOS *kbpos )
+{
+    RESTBL *rentry;
+
+    if( !(rentry = check_pos( kbpos )) || !rentry->fname )
+       log_bug("no name for keyblock resource %d\n", kbpos->resno );
+    return rentry->fname;
+}
+
 
 /****************
  * Get a keyblock handle KBPOS from a filename. This can be used
  * to get a handle for insert_keyblock for a new keyblock.
+ * Using a filename of NULL returns the default resource
  */
 int
 get_keyblock_handle( const char *filename, int secret, KBPOS *kbpos )
@@ -136,7 +155,7 @@ get_keyblock_handle( const char *filename, int secret, KBPOS *kbpos )
     for(i=0; i < MAX_RESOURCES; i++ )
        if( resource_table[i].used && !resource_table[i].secret == !secret ) {
            /* fixme: dos needs case insensitive file compare */
-           if( !strcmp( resource_table[i].fname, filename ) ) {
+           if( !filename || !strcmp( resource_table[i].fname, filename ) ) {
                memset( kbpos, 0, sizeof *kbpos );
                kbpos->resno = i;
                return 0;
@@ -162,6 +181,7 @@ find_keyblock( PUBKEY_FIND_INFO info, KBPOS *kbpos )
            rc = keyring_search2( info, kbpos, resource_table[i].fname );
            if( !rc ) {
                kbpos->resno = i;
+               kbpos->fp = NULL;
                return 0;
            }
            if( rc != -1 ) {
@@ -196,9 +216,11 @@ search( PACKET *pkt, KBPOS *kbpos, int secret )
        if( resource_table[i].used && !resource_table[i].secret == !secret ) {
            /* note: here we have to add different search functions,
             * depending on the type of the resource */
-           rc = keyring_search( pkt, kbpos, resource_table[i].iobuf );
+           rc = keyring_search( pkt, kbpos, resource_table[i].iobuf,
+                                            resource_table[i].fname );
            if( !rc ) {
                kbpos->resno = i;
+               kbpos->fp = NULL;
                return 0;
            }
            if( rc != -1 ) {
@@ -237,6 +259,25 @@ find_keyblock_byname( KBPOS *kbpos, const char *username )
     return rc;
 }
 
+
+/****************
+ * Combined function to search for a key and get the position
+ * of the keyblock.
+ */
+int
+find_keyblock_bypkc( KBPOS *kbpos, PKT_public_cert *pkc )
+{
+    PACKET pkt;
+    int rc;
+
+    init_packet( &pkt );
+    pkt.pkttype = PKT_PUBLIC_CERT;
+    pkt.pkt.public_cert = pkc;
+    rc = search( &pkt, kbpos, 0 );
+    return rc;
+}
+
+
 /****************
  * Combined function to search for a username and get the position
  * of the keyblock. This function does not unprotect the secret key.
@@ -263,6 +304,7 @@ find_secret_keyblock_byname( KBPOS *kbpos, const char *username )
 }
 
 
+
 /****************
  * Lock the keyblock; wait until it's available
  * This function may change the internal data in kbpos, in cases
@@ -433,7 +475,7 @@ update_keyblock( KBPOS *kbpos, KBNODE root )
  * search one keyring, return 0 if found, -1 if not found or an errorcode.
  */
 static int
-keyring_search( PACKET *req, KBPOS *kbpos, IOBUF iobuf )
+keyring_search( PACKET *req, KBPOS *kbpos, IOBUF iobuf, const char *fname )
 {
     int rc;
     PACKET pkt;
@@ -446,11 +488,21 @@ keyring_search( PACKET *req, KBPOS *kbpos, IOBUF iobuf )
     init_packet(&pkt);
     save_mode = set_packet_list_mode(0);
 
+  #if __MINGW32__
+    assert(!iobuf);
+    iobuf = iobuf_open( fname );
+    if( !iobuf ) {
+       log_error("%s: can't open keyring file\n", fname);
+       rc = G10ERR_KEYRING_OPEN;
+       goto leave;
+    }
+  #else
     if( iobuf_seek( iobuf, 0 ) ) {
-       log_error("can't rewind keyring file: %s\n", g10_errstr(rc));
+       log_error("can't rewind keyring file\n");
        rc = G10ERR_KEYRING_OPEN;
        goto leave;
     }
+  #endif
 
     while( !(rc=search_packet(iobuf, &pkt, pkttype, &offset)) ) {
        if( pkt.pkttype == PKT_SECRET_CERT ) {
@@ -465,6 +517,13 @@ keyring_search( PACKET *req, KBPOS *kbpos, IOBUF iobuf )
                        && !mpi_cmp( req_skc->d.elg.y, skc->d.elg.y )
                        && !mpi_cmp( req_skc->d.elg.x, skc->d.elg.x )
                      )
+                  || ( skc->pubkey_algo == PUBKEY_ALGO_DSA
+                       && !mpi_cmp( req_skc->d.dsa.p, skc->d.dsa.p )
+                       && !mpi_cmp( req_skc->d.dsa.q, skc->d.dsa.q )
+                       && !mpi_cmp( req_skc->d.dsa.g, skc->d.dsa.g )
+                       && !mpi_cmp( req_skc->d.dsa.y, skc->d.dsa.y )
+                       && !mpi_cmp( req_skc->d.dsa.x, skc->d.dsa.x )
+                     )
                   || ( skc->pubkey_algo == PUBKEY_ALGO_RSA
                        && !mpi_cmp( req_skc->d.rsa.rsa_n, skc->d.rsa.rsa_n )
                        && !mpi_cmp( req_skc->d.rsa.rsa_e, skc->d.rsa.rsa_e )
@@ -485,6 +544,12 @@ keyring_search( PACKET *req, KBPOS *kbpos, IOBUF iobuf )
                        && !mpi_cmp( req_pkc->d.elg.g, pkc->d.elg.g )
                        && !mpi_cmp( req_pkc->d.elg.y, pkc->d.elg.y )
                      )
+                  || ( pkc->pubkey_algo == PUBKEY_ALGO_DSA
+                       && !mpi_cmp( req_pkc->d.dsa.p, pkc->d.dsa.p )
+                       && !mpi_cmp( req_pkc->d.dsa.q, pkc->d.dsa.q )
+                       && !mpi_cmp( req_pkc->d.dsa.g, pkc->d.dsa.g )
+                       && !mpi_cmp( req_pkc->d.dsa.y, pkc->d.dsa.y )
+                     )
                   || ( pkc->pubkey_algo == PUBKEY_ALGO_RSA
                        && !mpi_cmp( req_pkc->d.rsa.rsa_n, pkc->d.rsa.rsa_n )
                        && !mpi_cmp( req_pkc->d.rsa.rsa_e, pkc->d.rsa.rsa_e )
@@ -503,6 +568,9 @@ keyring_search( PACKET *req, KBPOS *kbpos, IOBUF iobuf )
   leave:
     free_packet(&pkt);
     set_packet_list_mode(save_mode);
+  #if __MINGW32__
+    iobuf_close(iobuf);
+  #endif
     return rc;
 }
 
@@ -581,7 +649,7 @@ keyring_read( KBPOS *kbpos, KBNODE *ret_root )
     }
 
     if( iobuf_seek( a, kbpos->offset ) ) {
-       log_error("can't seek to %lu: %s\n", kbpos->offset, g10_errstr(rc));
+       log_error("can't seek to %lu\n", kbpos->offset);
        iobuf_close(a);
        return G10ERR_KEYRING_OPEN;
     }
@@ -598,6 +666,7 @@ keyring_read( KBPOS *kbpos, KBNODE *ret_root )
            }
            kbpos->count++;
            free_packet( pkt );
+           init_packet( pkt );
            continue;
        }
        /* make a linked list of all packets */
@@ -660,6 +729,7 @@ keyring_enum( KBPOS *kbpos, KBNODE *ret_root )
                goto ready;
            }
            free_packet( pkt );
+           init_packet( pkt );
            continue;
        }
        /* make a linked list of all packets */
@@ -708,7 +778,7 @@ keyring_copy( KBPOS *kbpos, int mode, KBNODE root )
 {
     RESTBL *rentry;
     IOBUF fp, newfp;
-    int rc;
+    int rc=0;
     char *bakfname = NULL;
     char *tmpfname = NULL;
 
@@ -834,7 +904,11 @@ keyring_copy( KBPOS *kbpos, int mode, KBNODE root )
     }
 
     /* close both files */
-    iobuf_close(fp);
+    if( iobuf_close(fp) ) {
+       log_error("%s: close failed: %s\n", rentry->fname, strerror(errno) );
+       rc = G10ERR_CLOSE_FILE;
+       goto leave;
+    }
     if( iobuf_close(newfp) ) {
        log_error("%s: close failed: %s\n", tmpfname, strerror(errno) );
        rc = G10ERR_CLOSE_FILE;
@@ -850,12 +924,18 @@ keyring_copy( KBPOS *kbpos, int mode, KBNODE root )
        }
     }
     /* rename and make backup file */
+  #if __MINGW32__
+    remove( bakfname );
+  #endif
     if( rename( rentry->fname, bakfname ) ) {
        log_error("%s: rename to %s failed: %s\n",
                                rentry->fname, bakfname, strerror(errno) );
        rc = G10ERR_RENAME_FILE;
        goto leave;
     }
+  #if __MINGW32__
+    remove( rentry->fname );
+  #endif
     if( rename( tmpfname, rentry->fname ) ) {
        log_error("%s: rename to %s failed: %s\n",
                            tmpfname, rentry->fname,strerror(errno) );