There was a need to support thread ID types that couldn't be reliably cast
[openssl.git] / crypto / ecdh / ecdhtest.c
index 090737f0ffa77417edc430356256c4c39e608364..212a87efa4ef1d3da5db9a9b1b6d2542d6eb6c79 100644 (file)
@@ -9,25 +9,12 @@
  * The ECC Code is licensed pursuant to the OpenSSL open source
  * license provided below.
  *
- * In addition, Sun covenants to all licensees who provide a reciprocal
- * covenant with respect to their own patents if any, not to sue under
- * current and future patent claims necessarily infringed by the making,
- * using, practicing, selling, offering for sale and/or otherwise
- * disposing of the ECC Code as delivered hereunder (or portions thereof),
- * provided that such covenant shall not apply:
- *  1) for code that a licensee deletes from the ECC Code;
- *  2) separates from the ECC Code; or
- *  3) for infringements caused by:
- *       i) the modification of the ECC Code or
- *      ii) the combination of the ECC Code with other software or
- *          devices where such combination causes the infringement.
- *
  * The ECDH software is originally written by Douglas Stebila of
  * Sun Microsystems Laboratories.
  *
  */
 /* ====================================================================
- * Copyright (c) 1998-2002 The OpenSSL Project.  All rights reserved.
+ * Copyright (c) 1998-2003 The OpenSSL Project.  All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
-#ifdef OPENSSL_SYS_WINDOWS
-#include "../bio/bss_file.c" 
-#endif
+
+#include "../e_os.h"
+
+#include <openssl/opensslconf.h>       /* for OPENSSL_NO_ECDH */
 #include <openssl/crypto.h>
 #include <openssl/bio.h>
 #include <openssl/bn.h>
-#include <openssl/ec.h>
 #include <openssl/objects.h>
 #include <openssl/rand.h>
+#include <openssl/sha.h>
 #include <openssl/err.h>
 
 #ifdef OPENSSL_NO_ECDH
@@ -101,6 +89,7 @@ int main(int argc, char *argv[])
     return(0);
 }
 #else
+#include <openssl/ec.h>
 #include <openssl/ecdh.h>
 
 #ifdef OPENSSL_SYS_WIN16
@@ -113,75 +102,111 @@ int main(int argc, char *argv[])
 static void MS_CALLBACK cb(int p, int n, void *arg);
 #endif
 
-#ifdef OPENSSL_NO_STDIO
-#define APPS_WIN16
-#include "bss_file.c"
-#endif
-
 static const char rnd_seed[] = "string to make the random number generator think it has entropy";
 
-int test_ecdh_curve(int , char *, BN_CTX *, BIO *);
 
-int test_ecdh_curve(int nid, char *text, BN_CTX *ctx, BIO *out)
+static const int KDF1_SHA1_len = 20;
+static void *KDF1_SHA1(const void *in, size_t inlen, void *out, size_t *outlen)
+       {
+#ifndef OPENSSL_NO_SHA
+       if (*outlen < SHA_DIGEST_LENGTH)
+               return NULL;
+       else
+               *outlen = SHA_DIGEST_LENGTH;
+       return SHA1(in, inlen, out);
+#else
+       return NULL;
+#endif
+       }
+
+
+static int test_ecdh_curve(int nid, const char *text, BN_CTX *ctx, BIO *out)
        {
        EC_KEY *a=NULL;
        EC_KEY *b=NULL;
-       BIGNUM *x=NULL, *y=NULL;
+       BIGNUM *x_a=NULL, *y_a=NULL,
+              *x_b=NULL, *y_b=NULL;
        char buf[12];
        unsigned char *abuf=NULL,*bbuf=NULL;
        int i,alen,blen,aout,bout,ret=0;
+       const EC_GROUP *group;
 
-       if ((a=EC_KEY_new()) == NULL) goto err;
-       if ((a->group=EC_GROUP_new_by_nid(nid)) == NULL) goto err;
+       a = EC_KEY_new_by_curve_name(nid);
+       b = EC_KEY_new_by_curve_name(nid);
+       if (a == NULL || b == NULL)
+               goto err;
 
-       if ((b=EC_KEY_new()) == NULL) goto err;
-       b->group = a->group;
+       group = EC_KEY_get0_group(a);
 
-       if ((x=BN_new()) == NULL) goto err;
-       if ((y=BN_new()) == NULL) goto err;
+       if ((x_a=BN_new()) == NULL) goto err;
+       if ((y_a=BN_new()) == NULL) goto err;
+       if ((x_b=BN_new()) == NULL) goto err;
+       if ((y_b=BN_new()) == NULL) goto err;
 
        BIO_puts(out,"Testing key generation with ");
        BIO_puts(out,text);
+#ifdef NOISY
        BIO_puts(out,"\n");
+#else
+       (void)BIO_flush(out);
+#endif
 
        if (!EC_KEY_generate_key(a)) goto err;
-       BIO_puts(out,"  pri 1=");
-       BN_print(out,a->priv_key);
-       BIO_puts(out,"\n  pub 1=");
-       if (EC_METHOD_get_field_type(EC_GROUP_method_of(a->group)) == NID_X9_62_prime_field) 
+       
+       if (EC_METHOD_get_field_type(EC_GROUP_method_of(group)) == NID_X9_62_prime_field) 
                {
-               if (!EC_POINT_get_affine_coordinates_GFp(a->group, a->pub_key, x, y, ctx)) goto err;
+               if (!EC_POINT_get_affine_coordinates_GFp(group,
+                       EC_KEY_get0_public_key(a), x_a, y_a, ctx)) goto err;
                }
        else
                {
-               if (!EC_POINT_get_affine_coordinates_GF2m(a->group, a->pub_key, x, y, ctx)) goto err;
+               if (!EC_POINT_get_affine_coordinates_GF2m(group,
+                       EC_KEY_get0_public_key(a), x_a, y_a, ctx)) goto err;
                }
-       BN_print(out,x);
+#ifdef NOISY
+       BIO_puts(out,"  pri 1=");
+       BN_print(out,a->priv_key);
+       BIO_puts(out,"\n  pub 1=");
+       BN_print(out,x_a);
        BIO_puts(out,",");
-       BN_print(out,y);
+       BN_print(out,y_a);
        BIO_puts(out,"\n");
+#else
+       BIO_printf(out," .");
+       (void)BIO_flush(out);
+#endif
 
        if (!EC_KEY_generate_key(b)) goto err;
-       BIO_puts(out,"  pri 2=");
-       BN_print(out,b->priv_key);
-       BIO_puts(out,"\n  pub 2=");
-       if (EC_METHOD_get_field_type(EC_GROUP_method_of(b->group)) == NID_X9_62_prime_field) 
+
+       if (EC_METHOD_get_field_type(EC_GROUP_method_of(group)) == NID_X9_62_prime_field) 
                {
-               if (!EC_POINT_get_affine_coordinates_GFp(b->group, b->pub_key, x, y, ctx)) goto err;
+               if (!EC_POINT_get_affine_coordinates_GFp(group, 
+                       EC_KEY_get0_public_key(b), x_b, y_b, ctx)) goto err;
                }
        else
                {
-               if (!EC_POINT_get_affine_coordinates_GF2m(a->group, b->pub_key, x, y, ctx)) goto err;
+               if (!EC_POINT_get_affine_coordinates_GF2m(group, 
+                       EC_KEY_get0_public_key(b), x_b, y_b, ctx)) goto err;
                }
-       BN_print(out,x);
+
+#ifdef NOISY
+       BIO_puts(out,"  pri 2=");
+       BN_print(out,b->priv_key);
+       BIO_puts(out,"\n  pub 2=");
+       BN_print(out,x_b);
        BIO_puts(out,",");
-       BN_print(out,y);
+       BN_print(out,y_b);
        BIO_puts(out,"\n");
+#else
+       BIO_printf(out,".");
+       (void)BIO_flush(out);
+#endif
 
-       alen=ECDH_size(a);
+       alen=KDF1_SHA1_len;
        abuf=(unsigned char *)OPENSSL_malloc(alen);
-       aout=ECDH_compute_key(abuf,b->pub_key,a);
+       aout=ECDH_compute_key(abuf,alen,EC_KEY_get0_public_key(b),a,KDF1_SHA1);
 
+#ifdef NOISY
        BIO_puts(out,"  key1 =");
        for (i=0; i<aout; i++)
                {
@@ -189,11 +214,16 @@ int test_ecdh_curve(int nid, char *text, BN_CTX *ctx, BIO *out)
                BIO_puts(out,buf);
                }
        BIO_puts(out,"\n");
+#else
+       BIO_printf(out,".");
+       (void)BIO_flush(out);
+#endif
 
-       blen=ECDH_size(b);
+       blen=KDF1_SHA1_len;
        bbuf=(unsigned char *)OPENSSL_malloc(blen);
-       bout=ECDH_compute_key(bbuf,a->pub_key,b);
+       bout=ECDH_compute_key(bbuf,blen,EC_KEY_get0_public_key(a),b,KDF1_SHA1);
 
+#ifdef NOISY
        BIO_puts(out,"  key2 =");
        for (i=0; i<bout; i++)
                {
@@ -201,22 +231,66 @@ int test_ecdh_curve(int nid, char *text, BN_CTX *ctx, BIO *out)
                BIO_puts(out,buf);
                }
        BIO_puts(out,"\n");
+#else
+       BIO_printf(out,".");
+       (void)BIO_flush(out);
+#endif
+
        if ((aout < 4) || (bout != aout) || (memcmp(abuf,bbuf,aout) != 0))
                {
+#ifndef NOISY
+               BIO_printf(out, " failed\n\n");
+               BIO_printf(out, "key a:\n");
+               BIO_printf(out, "private key: ");
+               BN_print(out, EC_KEY_get0_private_key(a));
+               BIO_printf(out, "\n");
+               BIO_printf(out, "public key (x,y): ");
+               BN_print(out, x_a);
+               BIO_printf(out, ",");
+               BN_print(out, y_a);
+               BIO_printf(out, "\nkey b:\n");
+               BIO_printf(out, "private key: ");
+               BN_print(out, EC_KEY_get0_private_key(b));
+               BIO_printf(out, "\n");
+               BIO_printf(out, "public key (x,y): ");
+               BN_print(out, x_b);
+               BIO_printf(out, ",");
+               BN_print(out, y_b);
+               BIO_printf(out, "\n");
+               BIO_printf(out, "generated key a: ");
+               for (i=0; i<bout; i++)
+                       {
+                       sprintf(buf, "%02X", bbuf[i]);
+                       BIO_puts(out, buf);
+                       }
+               BIO_printf(out, "\n");
+               BIO_printf(out, "generated key b: ");
+               for (i=0; i<aout; i++)
+                       {
+                       sprintf(buf, "%02X", abuf[i]);
+                       BIO_puts(out,buf);
+                       }
+               BIO_printf(out, "\n");
+#endif
                fprintf(stderr,"Error in ECDH routines\n");
                ret=0;
                }
        else
+               {
+#ifndef NOISY
+               BIO_printf(out, " ok\n");
+#endif
                ret=1;
+               }
 err:
        ERR_print_errors_fp(stderr);
 
        if (abuf != NULL) OPENSSL_free(abuf);
        if (bbuf != NULL) OPENSSL_free(bbuf);
-       if (x) BN_free(x);
-       if (y) BN_free(y);
-       if (a->group) EC_GROUP_free(a->group);
-       a->group = b->group = NULL;
+       if (x_a) BN_free(x_a);
+       if (y_a) BN_free(y_a);
+       if (x_b) BN_free(x_b);
+       if (y_b) BN_free(y_b);
        if (b) EC_KEY_free(b);
        if (a) EC_KEY_free(a);
        return(ret);
@@ -239,7 +313,7 @@ int main(int argc, char *argv[])
        RAND_seed(rnd_seed, sizeof rnd_seed);
 
        out=BIO_new(BIO_s_file());
-       if (out == NULL) exit(1);
+       if (out == NULL) EXIT(1);
        BIO_set_fp(out,stdout,BIO_NOCLOSE);
 
        if ((ctx=BN_CTX_new()) == NULL) goto err;
@@ -269,9 +343,9 @@ err:
        if (ctx) BN_CTX_free(ctx);
        BIO_free(out);
        CRYPTO_cleanup_all_ex_data();
-       ERR_remove_state(0);
+       ERR_remove_thread_state(NULL);
        CRYPTO_mem_leaks_fp(stderr);
-       exit(ret);
+       EXIT(ret);
        return(ret);
        }