X-Git-Url: https://git.distorted.org.uk/u/mdw/catacomb/blobdiff_plain/ab0ca95f6684b62bbcb979aa54dc678401e37a57..4b536f423c90ba7ca41d3f95f31b17729152a403:/keyutil.c

diff --git a/keyutil.c b/keyutil.c
index be8d5f9..174bbfe 100644
--- a/keyutil.c
+++ b/keyutil.c
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
- * $Id: keyutil.c,v 1.7 2000/07/01 11:18:51 mdw Exp $
+ * $Id: keyutil.c,v 1.10 2000/10/08 12:02:21 mdw Exp $
  *
  * Simple key manager program
  *
@@ -30,6 +30,15 @@
 /*----- Revision history --------------------------------------------------* 
  *
  * $Log: keyutil.c,v $
+ * Revision 1.10  2000/10/08 12:02:21  mdw
+ * Use @MP_EQ@ instead of @MP_CMP@.
+ *
+ * Revision 1.9  2000/08/15 21:40:49  mdw
+ * Minor formatting change in listing attributes.
+ *
+ * Revision 1.8  2000/07/29 09:59:13  mdw
+ * Support Lim-Lee primes in Diffie-Hellman parameter generation.
+ *
  * Revision 1.7  2000/07/01 11:18:51  mdw
  * Use new interfaces for key manipulation.
  *
@@ -176,7 +185,9 @@ typedef struct keyopts {
 enum {
   f_bogus = 1,				/* Error in parsing */
   f_lock = 2,				/* Passphrase-lock private key */
-  f_quiet = 4				/* Don't show a progress indicator */
+  f_quiet = 4,				/* Don't show a progress indicator */
+  f_limlee = 8,				/* Generate Lim-Lee primes */
+  f_subgroup = 16			/* Generate a subgroup */
 };
 
 /* --- @dolock@ --- *
@@ -417,7 +428,7 @@ static void alg_rsa(keyopts *k)
     c = rsa_qpubop(&rpp, MP_NEW, m);
     c = rsa_qprivop(&rp, c, c, g);
 
-    if (MP_CMP(c, !=, m))
+    if (!MP_EQ(c, m))
       die(EXIT_FAILURE, "test encryption failed");
     mp_drop(c);
     mp_drop(m);
@@ -470,8 +481,8 @@ static void alg_dsaparam(keyopts *k)
 
     /* --- Allocate the parameters --- */
 
-    if (dsa_seed(&dp, k->qbits, k->bits, 0, p, sz,
-		 (k->f & f_quiet) ? 0 : pgen_ev, 0))
+    if (dsa_gen(&dp, k->qbits, k->bits, 0, p, sz,
+		(k->f & f_quiet) ? 0 : pgen_ev, 0))
       die(EXIT_FAILURE, "DSA parameter generation failed");
 
     /* --- Store the parameters --- */
@@ -535,14 +546,39 @@ static void alg_dhparam(keyopts *k)
   if (!copyparam(k, pl)) {
     dh_param dp;
     key_data *kd = &k->k->k;
+    int rc;
 
     if (!k->bits)
       k->bits = 1024;
 
     /* --- Choose a large safe prime number --- */
 
-    if (dh_gen(&dp, k->qbits, k->bits, 0, &rand_global,
-	       (k->f & f_quiet) ? 0 : pgen_ev, 0))
+    if (k->f & f_limlee) {
+      mp **f;
+      size_t nf;
+      if (!k->qbits)
+	k->qbits = 256;
+      rc = dh_limlee(&dp, k->qbits, k->bits,
+		     (k->f & f_subgroup) ? DH_SUBGROUP : 0,
+		     0, &rand_global, (k->f & f_quiet) ? 0 : pgen_ev, 0,
+		     (k->f & f_quiet) ? 0 : pgen_evspin, 0, &nf, &f);
+      if (!rc) {
+	dstr d = DSTR_INIT;
+	size_t i;
+	for (i = 0; i < nf; i++) {
+	  if (i)
+	    dstr_puts(&d, ", ");
+	  mp_writedstr(f[i], &d, 10);
+	  mp_drop(f[i]);
+	}
+	key_putattr(k->kf, k->k, "factors", d.buf);
+	dstr_destroy(&d);
+      }
+    } else
+      rc = dh_gen(&dp, k->qbits, k->bits, 0, &rand_global,
+		  (k->f & f_quiet) ? 0 : pgen_ev, 0);
+
+    if (rc)
       die(EXIT_FAILURE, "Diffie-Hellman parameter generation failed");
 
     key_structure(kd);
@@ -673,9 +709,11 @@ static int cmd_add(int argc, char *argv[])
       { "rand-id",	OPTF_ARGREQ,	0,	'r' },
       { "lock",		0,		0,	'l' },
       { "quiet",	0,		0,	'q' },
+      { "lim-lee",	0,		0,	'L' },
+      { "subgroup",	0,		0,	'S' },
       { 0,		0,		0,	0 }
     };
-    int i = mdwopt(argc, argv, "+a:b:B:p:e:c:t:r:lq", opt, 0, 0, 0);
+    int i = mdwopt(argc, argv, "+a:b:B:p:e:c:t:r:lqLS", opt, 0, 0, 0);
     if (i < 0)
       break;
 
@@ -772,6 +810,12 @@ static int cmd_add(int argc, char *argv[])
       case 'q':
 	k.f |= f_quiet;
 	break;
+      case 'L':
+	k.f |= f_limlee;
+	break;
+      case 'S':
+	k.f |= f_subgroup;
+	break;
 
       /* --- Other things are bogus --- */
 
@@ -1059,7 +1103,7 @@ static void showkey(key *k, listopts *o)
     o->f &= ~f_attr;
     printf("attributes:");
     for (key_mkattriter(&i, k); key_nextattr(&i, &an, &av); ) {
-      printf("\n\t%s = %s", an, av);
+      printf("\n  %s = %s", an, av);
       o->f |= f_attr;
     }
     if (o->f & f_attr)
@@ -1511,7 +1555,7 @@ static struct cmd {
 } cmds[] = {
   { "add", cmd_add,
     "add [options] type [attr...]\n\
-	Options: [-lq] [-a alg] [-b|-B bits] [-p param] [-r tag]\n\
+	Options: [-lqLS] [-a alg] [-b|-B bits] [-p param] [-r tag]\n\
 	         [-e expire] [-t tag] [-c comment]"
   },
   { "expire", cmd_expire, "expire tag..." },