print N value for rsa-derive.
authorWerner Koch <wk@gnupg.org>
Wed, 21 Jan 2009 18:44:57 +0000 (18:44 +0000)
committerWerner Koch <wk@gnupg.org>
Wed, 21 Jan 2009 18:44:57 +0000 (18:44 +0000)
tests/ChangeLog
tests/cavs_driver.pl
tests/fipsdrv.c

index 5fd9d3d..73bba53 100644 (file)
@@ -1,6 +1,7 @@
 2009-01-21  Werner Koch  <wk@g10code.com>
 
        * fipsdrv.c (run_dsa_verify): Use gcry_mpi_scan again.
+       (run_rsa_derive): Also print N.
 
        * fipsdrv.c (run_dsa_verify): Use hash of the data.
 
index d9e2b6e..bb5d6fc 100755 (executable)
@@ -149,6 +149,7 @@ my $encdec;
 #        is separated from the previous with a \n in the following order:
 #         P\n
 #         Q\n
+#         N\
 #         D\n
 my $rsa_derive;
 
index 06fa348..2bf2804 100644 (file)
@@ -1282,7 +1282,7 @@ run_hmac (int digest_algo, const void *key, size_t keylen,
 /* Derive an RSA key using the S-expression in (DATA,DATALEN).  This
    S-expression is used directly as input to gcry_pk_genkey.  The
    result is printed to stdout with one parameter per line in hex
-   format and in this order: p, q, d.  */
+   format and in this order: p, q, n, d.  */
 static void
 run_rsa_derive (const void *data, size_t datalen)
 {
@@ -1308,13 +1308,13 @@ run_rsa_derive (const void *data, size_t datalen)
 
   /* P and Q might have been swapped but we need to to return them in
      the proper order.  Build the parameter list accordingly.  */
-  parmlist = "pqd";
+  parmlist = "pqnd";
   s_top = gcry_sexp_find_token (s_key, "misc-key-info", 0);
   if (s_top)
     {
       l1 = gcry_sexp_find_token (s_top, "p-q-swapped", 0);
       if (l1)
-        parmlist = "qpd";
+        parmlist = "qpnd";
       gcry_sexp_release (l1);
       gcry_sexp_release (s_top);
     }