|
|
|
@ -26,29 +26,8 @@
|
|
|
|
#include <assert.h>
|
|
|
|
#include <assert.h>
|
|
|
|
#include <stdarg.h>
|
|
|
|
#include <stdarg.h>
|
|
|
|
|
|
|
|
|
|
|
|
#include "../src/gcrypt-int.h"
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#define PGM "t-mpi-point"
|
|
|
|
#define PGM "t-mpi-point"
|
|
|
|
|
|
|
|
#include "t-common.h"
|
|
|
|
static const char *wherestr;
|
|
|
|
|
|
|
|
static int verbose;
|
|
|
|
|
|
|
|
static int debug;
|
|
|
|
|
|
|
|
static int error_count;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#define my_isascii(c) (!((c) & 0x80))
|
|
|
|
|
|
|
|
#define digitp(p) (*(p) >= '0' && *(p) <= '9')
|
|
|
|
|
|
|
|
#define hexdigitp(a) (digitp (a) \
|
|
|
|
|
|
|
|
|| (*(a) >= 'A' && *(a) <= 'F') \
|
|
|
|
|
|
|
|
|| (*(a) >= 'a' && *(a) <= 'f'))
|
|
|
|
|
|
|
|
#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 xmalloc(a) gcry_xmalloc ((a))
|
|
|
|
|
|
|
|
#define xcalloc(a,b) gcry_xcalloc ((a),(b))
|
|
|
|
|
|
|
|
#define xfree(a) gcry_free ((a))
|
|
|
|
|
|
|
|
#define pass() do { ; } while (0)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
static struct
|
|
|
|
static struct
|
|
|
|
{
|
|
|
|
{
|
|
|
|
@ -57,8 +36,20 @@ static struct
|
|
|
|
const char *a, *b; /* The coefficients. */
|
|
|
|
const char *a, *b; /* The coefficients. */
|
|
|
|
const char *n; /* The order of the base point. */
|
|
|
|
const char *n; /* The order of the base point. */
|
|
|
|
const char *g_x, *g_y; /* Base point. */
|
|
|
|
const char *g_x, *g_y; /* Base point. */
|
|
|
|
|
|
|
|
const char *h; /* Cofactor. */
|
|
|
|
} test_curve[] =
|
|
|
|
} test_curve[] =
|
|
|
|
{
|
|
|
|
{
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
"NIST P-224",
|
|
|
|
|
|
|
|
"0xffffffffffffffffffffffffffffffff000000000000000000000001",
|
|
|
|
|
|
|
|
"0xfffffffffffffffffffffffffffffffefffffffffffffffffffffffe",
|
|
|
|
|
|
|
|
"0xb4050a850c04b3abf54132565044b0b7d7bfd8ba270b39432355ffb4",
|
|
|
|
|
|
|
|
"0xffffffffffffffffffffffffffff16a2e0b8f03e13dd29455c5c2a3d" ,
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
"0xb70e0cbd6bb4bf7f321390b94a03c1d356c21122343280d6115c1d21",
|
|
|
|
|
|
|
|
"0xbd376388b5f723fb4c22dfe6cd4375a05a07476444d5819985007e34",
|
|
|
|
|
|
|
|
"0x01"
|
|
|
|
|
|
|
|
},
|
|
|
|
{
|
|
|
|
{
|
|
|
|
"NIST P-256",
|
|
|
|
"NIST P-256",
|
|
|
|
"0xffffffff00000001000000000000000000000000ffffffffffffffffffffffff",
|
|
|
|
"0xffffffff00000001000000000000000000000000ffffffffffffffffffffffff",
|
|
|
|
@ -67,7 +58,8 @@ static struct
|
|
|
|
"0xffffffff00000000ffffffffffffffffbce6faada7179e84f3b9cac2fc632551",
|
|
|
|
"0xffffffff00000000ffffffffffffffffbce6faada7179e84f3b9cac2fc632551",
|
|
|
|
|
|
|
|
|
|
|
|
"0x6b17d1f2e12c4247f8bce6e563a440f277037d812deb33a0f4a13945d898c296",
|
|
|
|
"0x6b17d1f2e12c4247f8bce6e563a440f277037d812deb33a0f4a13945d898c296",
|
|
|
|
"0x4fe342e2fe1a7f9b8ee7eb4a7c0f9e162bce33576b315ececbb6406837bf51f5"
|
|
|
|
"0x4fe342e2fe1a7f9b8ee7eb4a7c0f9e162bce33576b315ececbb6406837bf51f5",
|
|
|
|
|
|
|
|
"0x01"
|
|
|
|
},
|
|
|
|
},
|
|
|
|
{
|
|
|
|
{
|
|
|
|
"NIST P-384",
|
|
|
|
"NIST P-384",
|
|
|
|
@ -83,7 +75,8 @@ static struct
|
|
|
|
"0xaa87ca22be8b05378eb1c71ef320ad746e1d3b628ba79b9859f741e082542a38"
|
|
|
|
"0xaa87ca22be8b05378eb1c71ef320ad746e1d3b628ba79b9859f741e082542a38"
|
|
|
|
"5502f25dbf55296c3a545e3872760ab7",
|
|
|
|
"5502f25dbf55296c3a545e3872760ab7",
|
|
|
|
"0x3617de4a96262c6f5d9e98bf9292dc29f8f41dbd289a147ce9da3113b5f0b8c0"
|
|
|
|
"0x3617de4a96262c6f5d9e98bf9292dc29f8f41dbd289a147ce9da3113b5f0b8c0"
|
|
|
|
"0a60b1ce1d7e819d7a431d7c90ea0e5f"
|
|
|
|
"0a60b1ce1d7e819d7a431d7c90ea0e5f",
|
|
|
|
|
|
|
|
"0x01"
|
|
|
|
},
|
|
|
|
},
|
|
|
|
{
|
|
|
|
{
|
|
|
|
"NIST P-521",
|
|
|
|
"NIST P-521",
|
|
|
|
@ -99,18 +92,20 @@ static struct
|
|
|
|
"0xc6858e06b70404e9cd9e3ecb662395b4429c648139053fb521f828af606b4d3d"
|
|
|
|
"0xc6858e06b70404e9cd9e3ecb662395b4429c648139053fb521f828af606b4d3d"
|
|
|
|
"baa14b5e77efe75928fe1dc127a2ffa8de3348b3c1856a429bf97e7e31c2e5bd66",
|
|
|
|
"baa14b5e77efe75928fe1dc127a2ffa8de3348b3c1856a429bf97e7e31c2e5bd66",
|
|
|
|
"0x11839296a789a3bc0045c8a5fb42c7d1bd998f54449579b446817afbd17273e6"
|
|
|
|
"0x11839296a789a3bc0045c8a5fb42c7d1bd998f54449579b446817afbd17273e6"
|
|
|
|
"62c97ee72995ef42640c550b9013fad0761353c7086a272c24088be94769fd16650"
|
|
|
|
"62c97ee72995ef42640c550b9013fad0761353c7086a272c24088be94769fd16650",
|
|
|
|
|
|
|
|
"0x01"
|
|
|
|
},
|
|
|
|
},
|
|
|
|
{
|
|
|
|
{
|
|
|
|
"Ed25519",
|
|
|
|
"Ed25519",
|
|
|
|
"0x7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFED",
|
|
|
|
"0x7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFED",
|
|
|
|
"-0x01",
|
|
|
|
"0x7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEC",
|
|
|
|
"-0x2DFC9311D490018C7338BF8688861767FF8FF5B2BEBE27548A14B235ECA6874A",
|
|
|
|
"0x52036CEE2B6FFE738CC740797779E89800700A4D4141D8AB75EB4DCA135978A3",
|
|
|
|
"0x1000000000000000000000000000000014DEF9DEA2F79CD65812631A5CF5D3ED",
|
|
|
|
"0x1000000000000000000000000000000014DEF9DEA2F79CD65812631A5CF5D3ED",
|
|
|
|
"0x216936D3CD6E53FEC0A4E231FDD6DC5C692CC7609525A7B2C9562D608F25D51A",
|
|
|
|
"0x216936D3CD6E53FEC0A4E231FDD6DC5C692CC7609525A7B2C9562D608F25D51A",
|
|
|
|
"0x6666666666666666666666666666666666666666666666666666666666666658"
|
|
|
|
"0x6666666666666666666666666666666666666666666666666666666666666658",
|
|
|
|
|
|
|
|
"0x08"
|
|
|
|
},
|
|
|
|
},
|
|
|
|
{ NULL, NULL, NULL, NULL, NULL }
|
|
|
|
{ NULL, NULL, NULL, NULL, NULL, NULL }
|
|
|
|
};
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
/* A sample public key for NIST P-256. */
|
|
|
|
/* A sample public key for NIST P-256. */
|
|
|
|
@ -139,50 +134,6 @@ static const char sample_ed25519_d[] =
|
|
|
|
"9d61b19deffd5a60ba844af492ec2cc44449c5697b326919703bac031cae7f60";
|
|
|
|
"9d61b19deffd5a60ba844af492ec2cc44449c5697b326919703bac031cae7f60";
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
|
|
|
show (const char *format, ...)
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
va_list arg_ptr;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if (!verbose)
|
|
|
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
fprintf (stderr, "%s: ", PGM);
|
|
|
|
|
|
|
|
va_start (arg_ptr, format);
|
|
|
|
|
|
|
|
vfprintf (stderr, format, arg_ptr);
|
|
|
|
|
|
|
|
va_end (arg_ptr);
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
|
|
|
fail (const char *format, ...)
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
va_list arg_ptr;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
fflush (stdout);
|
|
|
|
|
|
|
|
fprintf (stderr, "%s: ", PGM);
|
|
|
|
|
|
|
|
if (wherestr)
|
|
|
|
|
|
|
|
fprintf (stderr, "%s: ", wherestr);
|
|
|
|
|
|
|
|
va_start (arg_ptr, format);
|
|
|
|
|
|
|
|
vfprintf (stderr, format, arg_ptr);
|
|
|
|
|
|
|
|
va_end (arg_ptr);
|
|
|
|
|
|
|
|
error_count++;
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
|
|
|
die (const char *format, ...)
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
va_list arg_ptr;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
fflush (stdout);
|
|
|
|
|
|
|
|
fprintf (stderr, "%s: ", PGM);
|
|
|
|
|
|
|
|
if (wherestr)
|
|
|
|
|
|
|
|
fprintf (stderr, "%s: ", wherestr);
|
|
|
|
|
|
|
|
va_start (arg_ptr, format);
|
|
|
|
|
|
|
|
vfprintf (stderr, format, arg_ptr);
|
|
|
|
|
|
|
|
va_end (arg_ptr);
|
|
|
|
|
|
|
|
exit (1);
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
static void
|
|
|
|
print_mpi_2 (const char *text, const char *text2, gcry_mpi_t a)
|
|
|
|
print_mpi_2 (const char *text, const char *text2, gcry_mpi_t a)
|
|
|
|
{
|
|
|
|
{
|
|
|
|
@ -294,7 +245,7 @@ hex2mpiopa (const char *string)
|
|
|
|
die ("hex2mpiopa '%s' failed: parser error\n", string);
|
|
|
|
die ("hex2mpiopa '%s' failed: parser error\n", string);
|
|
|
|
val = gcry_mpi_set_opaque (NULL, buffer, buflen*8);
|
|
|
|
val = gcry_mpi_set_opaque (NULL, buffer, buflen*8);
|
|
|
|
if (!buffer)
|
|
|
|
if (!buffer)
|
|
|
|
die ("hex2mpiopa '%s' failed: set_opaque error%s\n", string);
|
|
|
|
die ("hex2mpiopa '%s' failed: set_opaque error\n", string);
|
|
|
|
return val;
|
|
|
|
return val;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
@ -344,11 +295,11 @@ ec_p_new (gcry_ctx_t *r_ctx, gcry_mpi_t p, gcry_mpi_t a)
|
|
|
|
static void
|
|
|
|
static void
|
|
|
|
set_get_point (void)
|
|
|
|
set_get_point (void)
|
|
|
|
{
|
|
|
|
{
|
|
|
|
gcry_mpi_point_t point;
|
|
|
|
gcry_mpi_point_t point, point2;
|
|
|
|
gcry_mpi_t x, y, z;
|
|
|
|
gcry_mpi_t x, y, z;
|
|
|
|
|
|
|
|
|
|
|
|
wherestr = "set_get_point";
|
|
|
|
wherestr = "set_get_point";
|
|
|
|
show ("checking point setting functions\n");
|
|
|
|
info ("checking point setting functions\n");
|
|
|
|
|
|
|
|
|
|
|
|
point = gcry_mpi_point_new (0);
|
|
|
|
point = gcry_mpi_point_new (0);
|
|
|
|
x = gcry_mpi_set_ui (NULL, 17);
|
|
|
|
x = gcry_mpi_set_ui (NULL, 17);
|
|
|
|
@ -388,7 +339,22 @@ set_get_point (void)
|
|
|
|
|| gcry_mpi_cmp_ui (y, 42) || gcry_mpi_cmp_ui (z, 11371))
|
|
|
|
|| gcry_mpi_cmp_ui (y, 42) || gcry_mpi_cmp_ui (z, 11371))
|
|
|
|
fail ("point_snatch_set/point_get failed\n");
|
|
|
|
fail ("point_snatch_set/point_get failed\n");
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
point2 = gcry_mpi_point_copy (point);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
gcry_mpi_point_get (x, y, z, point2);
|
|
|
|
|
|
|
|
if (gcry_mpi_cmp_ui (x, 17)
|
|
|
|
|
|
|
|
|| gcry_mpi_cmp_ui (y, 42) || gcry_mpi_cmp_ui (z, 11371))
|
|
|
|
|
|
|
|
fail ("point_copy failed (1)\n");
|
|
|
|
|
|
|
|
|
|
|
|
gcry_mpi_point_release (point);
|
|
|
|
gcry_mpi_point_release (point);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
gcry_mpi_point_get (x, y, z, point2);
|
|
|
|
|
|
|
|
if (gcry_mpi_cmp_ui (x, 17)
|
|
|
|
|
|
|
|
|| gcry_mpi_cmp_ui (y, 42) || gcry_mpi_cmp_ui (z, 11371))
|
|
|
|
|
|
|
|
fail ("point_copy failed (2)\n");
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
gcry_mpi_point_release (point2);
|
|
|
|
|
|
|
|
|
|
|
|
gcry_mpi_release (x);
|
|
|
|
gcry_mpi_release (x);
|
|
|
|
gcry_mpi_release (y);
|
|
|
|
gcry_mpi_release (y);
|
|
|
|
gcry_mpi_release (z);
|
|
|
|
gcry_mpi_release (z);
|
|
|
|
@ -403,7 +369,7 @@ context_alloc (void)
|
|
|
|
gcry_mpi_t p, a;
|
|
|
|
gcry_mpi_t p, a;
|
|
|
|
|
|
|
|
|
|
|
|
wherestr = "context_alloc";
|
|
|
|
wherestr = "context_alloc";
|
|
|
|
show ("checking context functions\n");
|
|
|
|
info ("checking context functions\n");
|
|
|
|
|
|
|
|
|
|
|
|
p = gcry_mpi_set_ui (NULL, 1);
|
|
|
|
p = gcry_mpi_set_ui (NULL, 1);
|
|
|
|
a = gcry_mpi_set_ui (NULL, 1);
|
|
|
|
a = gcry_mpi_set_ui (NULL, 1);
|
|
|
|
@ -414,28 +380,18 @@ context_alloc (void)
|
|
|
|
gcry_mpi_release (a);
|
|
|
|
gcry_mpi_release (a);
|
|
|
|
gcry_ctx_release (ctx);
|
|
|
|
gcry_ctx_release (ctx);
|
|
|
|
|
|
|
|
|
|
|
|
p = gcry_mpi_set_ui (NULL, 0);
|
|
|
|
p = NULL;
|
|
|
|
a = gcry_mpi_set_ui (NULL, 0);
|
|
|
|
a = gcry_mpi_set_ui (NULL, 0);
|
|
|
|
err = ec_p_new (&ctx, p, a);
|
|
|
|
|
|
|
|
if (!err || gpg_err_code (err) != GPG_ERR_EINVAL)
|
|
|
|
|
|
|
|
fail ("ec_p_new: bad parameter detection failed (1)\n");
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
gcry_mpi_set_ui (p, 1);
|
|
|
|
|
|
|
|
err = ec_p_new (&ctx, p, a);
|
|
|
|
err = ec_p_new (&ctx, p, a);
|
|
|
|
if (!err || gpg_err_code (err) != GPG_ERR_EINVAL)
|
|
|
|
if (!err || gpg_err_code (err) != GPG_ERR_EINVAL)
|
|
|
|
fail ("ec_p_new: bad parameter detection failed (2)\n");
|
|
|
|
fail ("ec_p_new: bad parameter detection failed (1)\n");
|
|
|
|
|
|
|
|
|
|
|
|
gcry_mpi_release (p);
|
|
|
|
|
|
|
|
p = NULL;
|
|
|
|
|
|
|
|
err = ec_p_new (&ctx, p, a);
|
|
|
|
|
|
|
|
if (!err || gpg_err_code (err) != GPG_ERR_EINVAL)
|
|
|
|
|
|
|
|
fail ("ec_p_new: bad parameter detection failed (3)\n");
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
gcry_mpi_release (a);
|
|
|
|
gcry_mpi_release (a);
|
|
|
|
a = NULL;
|
|
|
|
a = NULL;
|
|
|
|
err = ec_p_new (&ctx, p, a);
|
|
|
|
err = ec_p_new (&ctx, p, a);
|
|
|
|
if (!err || gpg_err_code (err) != GPG_ERR_EINVAL)
|
|
|
|
if (!err || gpg_err_code (err) != GPG_ERR_EINVAL)
|
|
|
|
fail ("ec_p_new: bad parameter detection failed (4)\n");
|
|
|
|
fail ("ec_p_new: bad parameter detection failed (2)\n");
|
|
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
@ -520,9 +476,20 @@ context_param (void)
|
|
|
|
|
|
|
|
|
|
|
|
wherestr = "context_param";
|
|
|
|
wherestr = "context_param";
|
|
|
|
|
|
|
|
|
|
|
|
show ("checking standard curves\n");
|
|
|
|
info ("checking standard curves\n");
|
|
|
|
for (idx=0; test_curve[idx].desc; idx++)
|
|
|
|
for (idx=0; test_curve[idx].desc; idx++)
|
|
|
|
{
|
|
|
|
{
|
|
|
|
|
|
|
|
/* P-192 and Ed25519 are not supported in fips mode */
|
|
|
|
|
|
|
|
if (gcry_fips_mode_active())
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
if (!strcmp(test_curve[idx].desc, "NIST P-192")
|
|
|
|
|
|
|
|
|| !strcmp(test_curve[idx].desc, "Ed25519"))
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
info ("skipping %s in fips mode\n", test_curve[idx].desc );
|
|
|
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
gcry_ctx_release (ctx);
|
|
|
|
gcry_ctx_release (ctx);
|
|
|
|
err = gcry_mpi_ec_new (&ctx, NULL, test_curve[idx].desc);
|
|
|
|
err = gcry_mpi_ec_new (&ctx, NULL, test_curve[idx].desc);
|
|
|
|
if (err)
|
|
|
|
if (err)
|
|
|
|
@ -546,10 +513,12 @@ context_param (void)
|
|
|
|
if (get_and_cmp_point ("g", test_curve[idx].g_x, test_curve[idx].g_y,
|
|
|
|
if (get_and_cmp_point ("g", test_curve[idx].g_x, test_curve[idx].g_y,
|
|
|
|
test_curve[idx].desc, ctx))
|
|
|
|
test_curve[idx].desc, ctx))
|
|
|
|
continue;
|
|
|
|
continue;
|
|
|
|
|
|
|
|
if (get_and_cmp_mpi ("h", test_curve[idx].h, test_curve[idx].desc, ctx))
|
|
|
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
show ("checking sample public key (nistp256)\n");
|
|
|
|
info ("checking sample public key (nistp256)\n");
|
|
|
|
q = hex2mpi (sample_p256_q);
|
|
|
|
q = hex2mpi (sample_p256_q);
|
|
|
|
err = gcry_sexp_build (&keyparam, NULL,
|
|
|
|
err = gcry_sexp_build (&keyparam, NULL,
|
|
|
|
"(public-key(ecc(curve %s)(q %m)))",
|
|
|
|
"(public-key(ecc(curve %s)(q %m)))",
|
|
|
|
@ -616,7 +585,11 @@ context_param (void)
|
|
|
|
gcry_sexp_release (sexp);
|
|
|
|
gcry_sexp_release (sexp);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
show ("checking sample public key (Ed25519)\n");
|
|
|
|
/* Skipping Ed25519 if in FIPS mode (it isn't supported) */
|
|
|
|
|
|
|
|
if (gcry_fips_mode_active())
|
|
|
|
|
|
|
|
goto cleanup;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
info ("checking sample public key (Ed25519)\n");
|
|
|
|
q = hex2mpi (sample_ed25519_q);
|
|
|
|
q = hex2mpi (sample_ed25519_q);
|
|
|
|
gcry_sexp_release (keyparam);
|
|
|
|
gcry_sexp_release (keyparam);
|
|
|
|
err = gcry_sexp_build (&keyparam, NULL,
|
|
|
|
err = gcry_sexp_build (&keyparam, NULL,
|
|
|
|
@ -703,6 +676,7 @@ context_param (void)
|
|
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
cleanup:
|
|
|
|
gcry_ctx_release (ctx);
|
|
|
|
gcry_ctx_release (ctx);
|
|
|
|
gcry_sexp_release (keyparam);
|
|
|
|
gcry_sexp_release (keyparam);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
@ -737,7 +711,7 @@ basic_ec_math (void)
|
|
|
|
gcry_mpi_t x, y, z;
|
|
|
|
gcry_mpi_t x, y, z;
|
|
|
|
|
|
|
|
|
|
|
|
wherestr = "basic_ec_math";
|
|
|
|
wherestr = "basic_ec_math";
|
|
|
|
show ("checking basic math functions for EC\n");
|
|
|
|
info ("checking basic math functions for EC\n");
|
|
|
|
|
|
|
|
|
|
|
|
P = hex2mpi ("0xfffffffffffffffffffffffffffffffeffffffffffffffff");
|
|
|
|
P = hex2mpi ("0xfffffffffffffffffffffffffffffffeffffffffffffffff");
|
|
|
|
A = hex2mpi ("0xfffffffffffffffffffffffffffffffefffffffffffffffc");
|
|
|
|
A = hex2mpi ("0xfffffffffffffffffffffffffffffffefffffffffffffffc");
|
|
|
|
@ -804,6 +778,14 @@ basic_ec_math (void)
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* This is the same as basic_ec_math but uses more advanced
|
|
|
|
|
|
|
|
features. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
|
|
|
basic_ec_math_simplified (void)
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Check the math used with Twisted Edwards curves. */
|
|
|
|
/* Check the math used with Twisted Edwards curves. */
|
|
|
|
static void
|
|
|
|
static void
|
|
|
|
twistededwards_math (void)
|
|
|
|
twistededwards_math (void)
|
|
|
|
@ -815,7 +797,7 @@ twistededwards_math (void)
|
|
|
|
gcry_mpi_t w, a, x, y, z, p, n, b, I;
|
|
|
|
gcry_mpi_t w, a, x, y, z, p, n, b, I;
|
|
|
|
|
|
|
|
|
|
|
|
wherestr = "twistededwards_math";
|
|
|
|
wherestr = "twistededwards_math";
|
|
|
|
show ("checking basic Twisted Edwards math\n");
|
|
|
|
info ("checking basic Twisted Edwards math\n");
|
|
|
|
|
|
|
|
|
|
|
|
err = gcry_mpi_ec_new (&ctx, NULL, "Ed25519");
|
|
|
|
err = gcry_mpi_ec_new (&ctx, NULL, "Ed25519");
|
|
|
|
if (err)
|
|
|
|
if (err)
|
|
|
|
@ -849,7 +831,7 @@ twistededwards_math (void)
|
|
|
|
/* Check: p % 4 == 1 */
|
|
|
|
/* Check: p % 4 == 1 */
|
|
|
|
gcry_mpi_mod (w, p, GCRYMPI_CONST_FOUR);
|
|
|
|
gcry_mpi_mod (w, p, GCRYMPI_CONST_FOUR);
|
|
|
|
if (gcry_mpi_cmp_ui (w, 1))
|
|
|
|
if (gcry_mpi_cmp_ui (w, 1))
|
|
|
|
fail ("failed assertion: p % 4 == 1\n");
|
|
|
|
fail ("failed assertion: p %% 4 == 1\n");
|
|
|
|
|
|
|
|
|
|
|
|
/* Check: 2^{n-1} mod n == 1 */
|
|
|
|
/* Check: 2^{n-1} mod n == 1 */
|
|
|
|
gcry_mpi_sub_ui (a, n, 1);
|
|
|
|
gcry_mpi_sub_ui (a, n, 1);
|
|
|
|
@ -941,6 +923,271 @@ twistededwards_math (void)
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Check the point on curve function. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
|
|
|
point_on_curve (void)
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
static struct {
|
|
|
|
|
|
|
|
const char *curve;
|
|
|
|
|
|
|
|
int oncurve; /* Point below is on the curve. */
|
|
|
|
|
|
|
|
const char *qx;
|
|
|
|
|
|
|
|
const char *qy;
|
|
|
|
|
|
|
|
} t[] = {
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
"NIST P-256", 0,
|
|
|
|
|
|
|
|
"015B4F6775D68D4D2E2192C6B8027FC5A3D49957E453CB251155AA3FF5D3EC9974",
|
|
|
|
|
|
|
|
"4BC4C87B57A25E1056831208AB5B8F091142F891E9FF19F1E090B030DF1087B3"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-256", 0,
|
|
|
|
|
|
|
|
"D22C316E7EBE7B293BD66808E000806F0754398A5D72A4F9BBC21C26EAC0A651",
|
|
|
|
|
|
|
|
"3C8DB80CC3CDE5E530D040536E6A58AAB41C33FA70B30896943513FF3690132D"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-256", 0,
|
|
|
|
|
|
|
|
"0130F7E7BC52854CA493A0DE87DC4AB3B4343758F2B634F15B10D70DBC0A5A5291",
|
|
|
|
|
|
|
|
"86F9CA73C25CE86D54CB21C181AECBB52A5971334FF5040F76CAE9845ED46023"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-256", 1,
|
|
|
|
|
|
|
|
"14957B602C7849F28858C7407696F014BC091D6D68C449560B7A38147D6E6A9B",
|
|
|
|
|
|
|
|
"A8E09EFEECFE00C797A0848F38B61992D30C61FAB13021E88C8BD3545B3A6C63"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-256", 0,
|
|
|
|
|
|
|
|
"923DE4957241DD97780841C76294DB0D4F5DC04C3045081174764D2D32AD2D53",
|
|
|
|
|
|
|
|
"01B4B1A2027C02F0F520A3B01E4CE3C668BF481346A74499C5D1044A53E210B600"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-256", 1,
|
|
|
|
|
|
|
|
"9021DFAB8B4DAEAADA634AAA26D6E5FFDF8C0476FF5CA31606C870A1B933FB36",
|
|
|
|
|
|
|
|
"9AFC65EEB24E46C7B75712EF29A981CB09FAC56E2B81D3ED024748CCAB1CB77E"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-256", 0,
|
|
|
|
|
|
|
|
"011529F0B26DE5E0EB2DA4BFB6C149C802CB52EE479DD666553286928A4005E990",
|
|
|
|
|
|
|
|
"0EBC63DB2104884456DC0AA81A3F4E99D93B7AE2CD4B1489655EA9BE6289CF9E"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-256", 1,
|
|
|
|
|
|
|
|
"216EC5DE8CA989199D31F0DFCD381DCC9270A0785365EC3E34CA347C070A87BE",
|
|
|
|
|
|
|
|
"87A88897BA763509ECC1DBE28D9D37F6F4E70E3B99B1CD3C0B934D4190968A6D"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-256", 1,
|
|
|
|
|
|
|
|
"7ABAA44ACBC6016FDB52A6F45F6178E65CBFC35F9920D99149CA9999612CE945",
|
|
|
|
|
|
|
|
"88F7684BDCDA31EAFB6CAD859F8AB29B5D921D7DB2B34DF7E40CE36235F45B63"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-256", 0,
|
|
|
|
|
|
|
|
"E765B4272D211DD0064189B55421FB76BB3A7756364A6CB1627FAED848157A84",
|
|
|
|
|
|
|
|
"C13171CFFB243E06B203F0996BBDD16F52292AD11F2DA81106E9C2FD87F4FA0F"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-256", 0,
|
|
|
|
|
|
|
|
"EE4999DFC3A1871EE7A592BE26A09BEC9D9B561613EE9EFB6ED42F17985C9CDC",
|
|
|
|
|
|
|
|
"8399E967338A7A618336AF70DA67D9CAC1C19267809652F5C5183C8B129E0902"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-256", 0,
|
|
|
|
|
|
|
|
"F755D0CF2642A2C7FBACCC8E9E442B8B047A99C6E052B2FA5AB0544B36B4D51C",
|
|
|
|
|
|
|
|
"AA080F17657B6565D9A4D94BD260B54D92FEE8DC4A78C4FC9C19209933AF39B0"
|
|
|
|
|
|
|
|
} , {
|
|
|
|
|
|
|
|
"NIST P-384", 0,
|
|
|
|
|
|
|
|
"CBFC7DBEBF15BEAD682549757F9BBA0E3F67669DF13FCE0EBE8024B725B38B00"
|
|
|
|
|
|
|
|
"83EC46A8F2FF3203C5C7F8C7E722A5EF",
|
|
|
|
|
|
|
|
"0548FE281BEAB18FD1AB86F59B0CA524479A4A81373C83B78AFFD801FAC75922"
|
|
|
|
|
|
|
|
"96470753DCF46173C9AA4A8A4C2FBE51"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-384", 0,
|
|
|
|
|
|
|
|
"1DC8E054A883DB81EAEDE6C487B26816C927B8196780525A6CA8F675D2557752"
|
|
|
|
|
|
|
|
"02CE06CCBE705EA8A38AA2894D4BEEE6",
|
|
|
|
|
|
|
|
"010191050E867AFAA96A199FE9C591CF8B853D81486786DA889124881FB39D2F"
|
|
|
|
|
|
|
|
"8E0875F4C4BB1E3D0F8535C7A52306FB82"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-384", 1,
|
|
|
|
|
|
|
|
"2539FC368CE1D5E464B6C0FBB12D557B712327DB086975255AD7D17F7E7E4F23"
|
|
|
|
|
|
|
|
"D719ED4116E2CC907AEB92CF22331A60",
|
|
|
|
|
|
|
|
"8843FDBA742CB64323E49CEBE8DD74908CFC9C3AA0015662DFBB7219E92CF32E"
|
|
|
|
|
|
|
|
"9FC63F61EF19DE9B3CEA98D163ABF254"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-384", 0,
|
|
|
|
|
|
|
|
"0B786DACF400D43575394349EDD9F9CD145FC7EF737A3C5F69B253BE7639DB24"
|
|
|
|
|
|
|
|
"EC2F0CA62FF1F90B6515DE356EC2A404",
|
|
|
|
|
|
|
|
"225D6B2939CC7F7133F43353946A682C68DAC6BB75EE9CF6BD9A1609FA915692"
|
|
|
|
|
|
|
|
"72F4D3A87E88529754E109BB9B61B03B"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-384", 0,
|
|
|
|
|
|
|
|
"76C660C9F58CF2051F9F8B06049694AB6FE418009DE6F0A0833BC690CEC06CC2"
|
|
|
|
|
|
|
|
"9A440AD51C94CF5BC28817C8C6E2D302",
|
|
|
|
|
|
|
|
"012974E5D9E55304ED294AB6C7A3C65B663E67ABC5E6F6C0F6498B519F2F6CA1"
|
|
|
|
|
|
|
|
"8306976291F3ADC0B5ABA42DED376EA9A5"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-384", 0,
|
|
|
|
|
|
|
|
"23D758B1EDB8E12E9E707C53C131A19D9464B20EE05C99766F5ABDF9F906AD03"
|
|
|
|
|
|
|
|
"B958BF28B022E54E320672C4BAD4EEC0",
|
|
|
|
|
|
|
|
"01E9E72870C88F4C82A5AB3CC8A3398E8F006BF3EC05FFBB1EFF8AEE88020FEA"
|
|
|
|
|
|
|
|
"9E558E9F58ED1D324C9DCBCB4E8F2A5970"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-384", 0,
|
|
|
|
|
|
|
|
"D062B96D5A10F715ACF361F99262ABF0F7693A8BB60ECB1DF459CF95750E4293"
|
|
|
|
|
|
|
|
"18BCB9FC60499D009F949298F3F9F47B",
|
|
|
|
|
|
|
|
"9089C6328E4B39A73D7EE6FAE1A77E48CE354B83BBCE432082C32C8FD6784B86"
|
|
|
|
|
|
|
|
"CFE9C552E2E720F5DA5806503D3784CD"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-384", 0,
|
|
|
|
|
|
|
|
"2A951D4D6EB35C43D94866280D37365B82441BC84D62CBFF3365CAB1FD0A3E20"
|
|
|
|
|
|
|
|
"823CA8F84D2BBF4EA687885437DE7839",
|
|
|
|
|
|
|
|
"01CC7D762AFE613F7B5568BC516568A421159C40599E8D52DE10E8F9488931E1"
|
|
|
|
|
|
|
|
"69F3656C322DE45C4A70DC6DB9A661E599"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-384", 1,
|
|
|
|
|
|
|
|
"A4BAEE6CDAF3AEB69032B3FBA811707C54F5753670DA5173D891547E8CBAEEF3"
|
|
|
|
|
|
|
|
"89B92C9A55573A596123415FBFA26991",
|
|
|
|
|
|
|
|
"3241EA716583C11C71BB30AF6C5E3A6637956F17ADBBE641BAB52E8539F9FC7B"
|
|
|
|
|
|
|
|
"F3B04F46DBFFE08151E0F0950CC70081"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-384", 0,
|
|
|
|
|
|
|
|
"5C0E18B0DE3261BCBCFC7B702C2D75CF481336BFBADF420BADC616235C1966AB"
|
|
|
|
|
|
|
|
"4C0F876575DDEC1BDB3F3F04061C9AE4",
|
|
|
|
|
|
|
|
"E90C78550D1C922F1D8161D8C9C0576E29BD09CA665376FA887D13FA8DF48352"
|
|
|
|
|
|
|
|
"D7BBEEFB803F6CC8FC7895E47F348D33"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-384", 1,
|
|
|
|
|
|
|
|
"2015864CD50F0A1A50E6401F44191665C19E4AD4B4903EA9EB464E95D1070E36"
|
|
|
|
|
|
|
|
"F1D8325E45734D5A0FDD103F4DF6F83E",
|
|
|
|
|
|
|
|
"5FB3E9A5C59DD5C5262A8176CB7032A00AE33AED08485884A3E5D68D9EEB990B"
|
|
|
|
|
|
|
|
"F26E8D87EC175577E782AD51A6A12C02"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-384", 1,
|
|
|
|
|
|
|
|
"56EBF5310EEF5A5D8D001F570A18625383ECD4882B3FC738A69874E7C9D8F89C"
|
|
|
|
|
|
|
|
"187BECA23369DFD6C15CC0DA0629958F",
|
|
|
|
|
|
|
|
"C1230B349FB662CB762563DB8F9FCB32D5CCA16120681C474D67D279CCA6F6DB"
|
|
|
|
|
|
|
|
"73DE6AA96140B5C457B7486E06D318CE"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-521", 0,
|
|
|
|
|
|
|
|
"01E4D82EE5CD6DA37080252295EFA273BBBA6952012D0120EAF131E73F1E5024"
|
|
|
|
|
|
|
|
"36E3324624471040030E1C345D65490ECEE9B64E03B15B6C7EB69A39C618BAFEED70",
|
|
|
|
|
|
|
|
"03EE3A3C88A6933B7B16016BE4CC4E3BF5EA0625CB3DB2604CDCBBD02CABBC90"
|
|
|
|
|
|
|
|
"8904D9DB42998F6C5101D4D4318ACFC9643C9CD641F636D1810ED86F1840EA74F3C0"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-521", 0,
|
|
|
|
|
|
|
|
"01F3DFCB5433387B6B2E3F74177F4F3D7300F05E1AD49DE112630E27B1C8A437"
|
|
|
|
|
|
|
|
"1E742CB020E0039B5477FC897D17332034F9660B3066764EFF5FB440EB8856E782E3",
|
|
|
|
|
|
|
|
"02D337616C9D202DC5E290C486F5855CBD6A8470AE62CA96245834CF49257D8D"
|
|
|
|
|
|
|
|
"96D4041B15007650DEE668C00DDBF749054256C571F60980AC74D0DBCA7FB96C2F48"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-521", 1,
|
|
|
|
|
|
|
|
"822A846606DC9E96452CAC373567A8B57D9ACA15B177F75DD7EF10C635F52CE4"
|
|
|
|
|
|
|
|
"EF6ABEEDB90D3F48F50A0C9015A95C955A25C45DE8413DE3BF899B6B1E62CF7CB8",
|
|
|
|
|
|
|
|
"0102771B5F3EC8C36838CEC04DCBC28AD1E38C37DAB0EA89B5EE92D21F7A35CE"
|
|
|
|
|
|
|
|
"ABC8B155EDC70154D6DFA2E77EC1D8C4A3406A6BD0ECF8F1EE2AC33A02464CB70C97"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-521", 0,
|
|
|
|
|
|
|
|
"F733D48467912D1FFE46CF442F27FDD218D190E7B8A829D822DA3B6BAF9B987E"
|
|
|
|
|
|
|
|
"5B4BCCE34499248F59EEAF74F63ED15FF73F243C6FC3FD5E5842F6A3BA34C2022D",
|
|
|
|
|
|
|
|
"0281AAAD1B7EEBABEB6EC67932CB7E95717AFA3B4CF7A2DB151CD537C419C3A5"
|
|
|
|
|
|
|
|
"156ED9160758190B47696CDC15E81BBAD12975283907A571604DB23F702AEA4B38FF"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-521", 0,
|
|
|
|
|
|
|
|
"03B1B274175AAEB5907152E5114CCAEADA28A7ADD4A2B1831C3D8302E8596489"
|
|
|
|
|
|
|
|
"E2C98B9B8D0CAE98C03BB11E28CE66D4736449758AF58BAFE40EF5A5FA22C9A43117",
|
|
|
|
|
|
|
|
"94C5951F81D544E959EDFC5DC1D5F42FE427871D4FB91A43A0B4A6BEA6B35B9E"
|
|
|
|
|
|
|
|
"BC5FB444C70BE4FD47B4ED16704F8C86EF019FC47C7FF2271F8B0DDEA9E2D3BCDD"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-521", 1,
|
|
|
|
|
|
|
|
"F2248C318055DE37CD706D4FCAF7E7D96737A4A7B6B8067A66DCD58B6B8DFC55"
|
|
|
|
|
|
|
|
"90ECE67F6AA67F9C51B57E7B023075F2F42909BF47361CB6881C10F55FB7215B56",
|
|
|
|
|
|
|
|
"0162F735CE6A2ADA54CAF96A12D6888C02DE0A74638CF34CE39DABBACA4D651B"
|
|
|
|
|
|
|
|
"7E6ED1A65B551B36BAE7BE474BB6E6905ED0E33C7BA2021885027C7C6E40C5613004"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-521", 0,
|
|
|
|
|
|
|
|
"9F08E97FEADCF0A391CA1EA4D97B5FE62D3B164593E12027EB967BD6E1FA841A"
|
|
|
|
|
|
|
|
"9831158DF164BCAD0BF3ADA96127745E25F349BDDD52EEA1654892B35960C9C023",
|
|
|
|
|
|
|
|
"AE2A25F5440F258AFACA6925C4C9F7AEAD3CB67153C4FACB31AC33F58B43A78C"
|
|
|
|
|
|
|
|
"B14F682FF726CEE2A6B6F6B481AEEB29A9B3150F02D1CFB764672BA8294C477291"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-521", 0,
|
|
|
|
|
|
|
|
"01047B52014748C904980716953206A93F0D01B34CA94A997407FA93FE304F86"
|
|
|
|
|
|
|
|
"17BB6E402B2BB8B434C2671ECE953ABE7BADB75713CD9DF950943A33A9A19ACCDABE",
|
|
|
|
|
|
|
|
"7433533F098037DEA616337986887D01C5CC8DEC3DC1FDB9CDF7287EF27CC125"
|
|
|
|
|
|
|
|
"54FCF3A5E212DF9DAD9F8A3A7173B23FC6E15930704F3AEE1B074BDDB0ED6823E4"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-521", 0,
|
|
|
|
|
|
|
|
"01C2A9EBF51592FE6589F618EAADA1697D9B2EC7CE5D48C9E80FC597642B23F1"
|
|
|
|
|
|
|
|
"F0EBE953449762BD3F094F57791D9850AFE98BBDA9872BE399B7BDD617860076BB03",
|
|
|
|
|
|
|
|
"0B822E27692F63DB8E12C59BB3CCA172B9BBF613CAE5F9D1474186E45E8B26FF"
|
|
|
|
|
|
|
|
"962084E1C6BE74821EDBB60941A3B75516F603719563433383812BFEA89EC14B89"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-521", 0,
|
|
|
|
|
|
|
|
"99390F342C3F0D46E80C5B65C61E8AA8ACA0B6D4E1352404586364A05D8398E9"
|
|
|
|
|
|
|
|
"2BC71A644E8663F0A9B87D0B3ACAEE32F2AB9B321317AD23059D045EBAB91C5D93",
|
|
|
|
|
|
|
|
"82FCF93AE4467EB57766F2B150E736636727E7282500CD482DA70D153D195F2B"
|
|
|
|
|
|
|
|
"DF9B96D689A0DC1BB9137B41557A33F202F1B71840544CBEFF03072E77E4BB6F0B"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-521", 1,
|
|
|
|
|
|
|
|
"018E48E80594FF5496D8CC7DF8A19D6AA18805A4EF4490038AED6A1E9AA18056"
|
|
|
|
|
|
|
|
"D0244A97DCF6D132C6804E3F4F369922119544B4C057D783C848FB798B48730A382C",
|
|
|
|
|
|
|
|
"01AF510B4F5E1C40BC9C110216D35E7C6D7A2BEE52914FC98258676288449901"
|
|
|
|
|
|
|
|
"F27A07EE91DF2D5D79259712906C3E18A990CBF35BCAC41A952820CE2BA8D0220080"
|
|
|
|
|
|
|
|
}, {
|
|
|
|
|
|
|
|
"NIST P-521", 1,
|
|
|
|
|
|
|
|
"ADCEF3539B4BC831DC0AFD173137A4426152058AFBAE06A17FCB89F4DB6E48B5"
|
|
|
|
|
|
|
|
"335CB88F8E4DB475A1E390E5656072F06605BFB84CBF9795B7992ECA04A8E10CA1",
|
|
|
|
|
|
|
|
"01BCB985AFD6404B9EDA49B6190AAA346BF7D5909CA440C0F7E505C62FAC8635"
|
|
|
|
|
|
|
|
"31D3EB7B2AC4DD4F4404E4B12E9D6D3C596179587F3724B1EFFF684CFDB4B21826B9"
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
};
|
|
|
|
|
|
|
|
gpg_error_t err;
|
|
|
|
|
|
|
|
int tidx;
|
|
|
|
|
|
|
|
const char *lastcurve = NULL;
|
|
|
|
|
|
|
|
gcry_ctx_t ctx = NULL;
|
|
|
|
|
|
|
|
gcry_mpi_t qx = NULL;
|
|
|
|
|
|
|
|
gcry_mpi_t qy = NULL;
|
|
|
|
|
|
|
|
gcry_mpi_point_t Q;
|
|
|
|
|
|
|
|
int oncurve;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
wherestr = "point_on_curve";
|
|
|
|
|
|
|
|
for (tidx=0; tidx < DIM (t); tidx++)
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
if (!t[tidx].curve)
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
if (!lastcurve || !ctx)
|
|
|
|
|
|
|
|
die ("invalid test vectors at idx %d\n", tidx);
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
else if (!ctx || !lastcurve || strcmp (t[tidx].curve, lastcurve))
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
lastcurve = t[tidx].curve;
|
|
|
|
|
|
|
|
gcry_ctx_release (ctx);
|
|
|
|
|
|
|
|
err = gcry_mpi_ec_new (&ctx, NULL, lastcurve);
|
|
|
|
|
|
|
|
if (err)
|
|
|
|
|
|
|
|
die ("error creating context for curve %s at idx %d: %s\n",
|
|
|
|
|
|
|
|
lastcurve, tidx, gpg_strerror (err));
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
info ("checking points on curve %s\n", lastcurve);
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
gcry_mpi_release (qx);
|
|
|
|
|
|
|
|
gcry_mpi_release (qy);
|
|
|
|
|
|
|
|
qx = hex2mpi (t[tidx].qx);
|
|
|
|
|
|
|
|
qy = hex2mpi (t[tidx].qy);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Q = gcry_mpi_point_set (NULL, qx, qy, GCRYMPI_CONST_ONE);
|
|
|
|
|
|
|
|
if (!Q)
|
|
|
|
|
|
|
|
die ("gcry_mpi_point_set(Q) failed at idx %d\n", tidx);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
oncurve = gcry_mpi_ec_curve_point (Q, ctx);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if (t[tidx].oncurve && !oncurve)
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
fail ("point expected on curve but not identified as such (i=%d):\n",
|
|
|
|
|
|
|
|
tidx);
|
|
|
|
|
|
|
|
print_point (" Q", Q);
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
else if (!t[tidx].oncurve && oncurve)
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
fail ("point not expected on curve but identified as such (i=%d):\n",
|
|
|
|
|
|
|
|
tidx);
|
|
|
|
|
|
|
|
print_point (" Q", Q);
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
gcry_mpi_point_release (Q);
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
gcry_mpi_release (qx);
|
|
|
|
|
|
|
|
gcry_mpi_release (qy);
|
|
|
|
|
|
|
|
gcry_ctx_release (ctx);
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
int
|
|
|
|
int
|
|
|
|
main (int argc, char **argv)
|
|
|
|
main (int argc, char **argv)
|
|
|
|
{
|
|
|
|
{
|
|
|
|
@ -953,18 +1200,26 @@ main (int argc, char **argv)
|
|
|
|
if (!gcry_check_version (GCRYPT_VERSION))
|
|
|
|
if (!gcry_check_version (GCRYPT_VERSION))
|
|
|
|
die ("version mismatch\n");
|
|
|
|
die ("version mismatch\n");
|
|
|
|
|
|
|
|
|
|
|
|
gcry_control (GCRYCTL_DISABLE_SECMEM, 0);
|
|
|
|
xgcry_control (GCRYCTL_DISABLE_SECMEM, 0);
|
|
|
|
gcry_control (GCRYCTL_ENABLE_QUICK_RANDOM, 0);
|
|
|
|
xgcry_control (GCRYCTL_ENABLE_QUICK_RANDOM, 0);
|
|
|
|
if (debug)
|
|
|
|
if (debug)
|
|
|
|
gcry_control (GCRYCTL_SET_DEBUG_FLAGS, 1u, 0);
|
|
|
|
xgcry_control (GCRYCTL_SET_DEBUG_FLAGS, 1u, 0);
|
|
|
|
gcry_control (GCRYCTL_INITIALIZATION_FINISHED, 0);
|
|
|
|
xgcry_control (GCRYCTL_INITIALIZATION_FINISHED, 0);
|
|
|
|
|
|
|
|
|
|
|
|
set_get_point ();
|
|
|
|
set_get_point ();
|
|
|
|
context_alloc ();
|
|
|
|
context_alloc ();
|
|
|
|
context_param ();
|
|
|
|
context_param ();
|
|
|
|
basic_ec_math ();
|
|
|
|
basic_ec_math ();
|
|
|
|
|
|
|
|
point_on_curve ();
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* The tests are for P-192 and ed25519 which are not supported in
|
|
|
|
|
|
|
|
FIPS mode. */
|
|
|
|
|
|
|
|
if (!gcry_fips_mode_active())
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
basic_ec_math_simplified ();
|
|
|
|
twistededwards_math ();
|
|
|
|
twistededwards_math ();
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
show ("All tests completed. Errors: %d\n", error_count);
|
|
|
|
info ("All tests completed. Errors: %d\n", error_count);
|
|
|
|
return error_count ? 1 : 0;
|
|
|
|
return error_count ? 1 : 0;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
Christophe Fergeau
7 years ago