--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/ssl/tsrc/crypto_test/src/dhtest.c Tue Feb 02 02:01:42 2010 +0200
@@ -0,0 +1,489 @@
+/* crypto/dh/dhtest.c */
+/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
+ * All rights reserved.
+ *
+ * This package is an SSL implementation written
+ * by Eric Young (eay@cryptsoft.com).
+ * The implementation was written so as to conform with Netscapes SSL.
+ *
+ * This library is free for commercial and non-commercial use as long as
+ * the following conditions are aheared to. The following conditions
+ * apply to all code found in this distribution, be it the RC4, RSA,
+ * lhash, DES, etc., code; not just the SSL code. The SSL documentation
+ * included with this distribution is covered by the same copyright terms
+ * except that the holder is Tim Hudson (tjh@cryptsoft.com).
+ *
+ * Copyright remains Eric Young's, and as such any Copyright notices in
+ * the code are not to be removed.
+ * If this package is used in a product, Eric Young should be given attribution
+ * as the author of the parts of the library used.
+ * This can be in the form of a textual message at program startup or
+ * in documentation (online or textual) provided with the package.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the copyright
+ * notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ * notice, this list of conditions and the following disclaimer in the
+ * documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ * must display the following acknowledgement:
+ * "This product includes cryptographic software written by
+ * Eric Young (eay@cryptsoft.com)"
+ * The word 'cryptographic' can be left out if the rouines from the library
+ * being used are not cryptographic related :-).
+ * 4. If you include any Windows specific code (or a derivative thereof) from
+ * the apps directory (application code) you must include an acknowledgement:
+ * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
+ *
+ * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ * The licence and distribution terms for any publically available version or
+ * derivative of this code cannot be changed. i.e. this code cannot simply be
+ * copied and put under another distribution licence
+ * [including the GNU Public Licence.]
+ */
+/*
+ © Portions copyright (c) 2006 Nokia Corporation. All rights reserved.
+ */
+/* Until the key-gen callbacks are modified to use newer prototypes, we allow
+ * deprecated functions for openssl-internal code */
+ #ifndef SYMBIAN
+#ifdef OPENSSL_NO_DEPRECATED
+#undef OPENSSL_NO_DEPRECATED
+#endif
+#endif
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#ifndef SYMBIAN
+#include "../e_os.h"
+#else
+#include "e_os.h"
+#endif
+
+#include <openssl/crypto.h>
+#include <openssl/bio.h>
+#include <openssl/bn.h>
+#include <openssl/rand.h>
+#include <openssl/err.h>
+
+#ifdef SYMBIAN
+#ifdef stdin
+#undef stdin
+#endif
+#ifdef stdout
+#undef stdout
+#endif
+#ifdef stderr
+#undef stderr
+#endif
+
+#define stdin fp_stdin
+#define stdout fp_stdout
+#define stderr fp_stderr
+
+extern FILE *fp_stdout;
+extern FILE *fp_stderr;
+#endif
+#ifdef OPENSSL_NO_DH
+int main(int argc, char *argv[])
+{
+ fprintf(stdout,"No DH support\n");
+ return(0);
+}
+#else
+#include <openssl/dh.h>
+
+#ifdef OPENSSL_SYS_WIN16
+#define MS_CALLBACK _far _loadds
+#else
+#define MS_CALLBACK
+#endif
+
+static int MS_CALLBACK cb(int p, int n, BN_GENCB *arg);
+
+static const char rnd_seed[] = "string to make the random number generator think it has entropy";
+
+#ifndef SYMBIAN
+int main(int argc, char *argv[])
+#else
+int dh_main(int argc, char *argv[])
+#endif
+ {
+ BN_GENCB _cb;
+ DH *a;
+ DH *b=NULL;
+ char buf[12];
+ unsigned char *abuf=NULL,*bbuf=NULL;
+ int i,alen,blen,aout,bout,ret=1;
+ BIO *out;
+
+ //CRYPTO_malloc_debug_init();
+ //CRYPTO_dbg_set_options(V_CRYPTO_MDEBUG_ALL);
+ //CRYPTO_mem_ctrl(CRYPTO_MEM_CHECK_ON);
+
+#ifdef OPENSSL_SYS_WIN32
+ CRYPTO_malloc_init();
+#endif
+
+ RAND_seed(rnd_seed, sizeof rnd_seed);
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ out=BIO_new(BIO_s_file());
+ if( out == NULL&& errno==ENOMEM)
+ {
+ return 1;
+ }
+ if (out == NULL)
+ return 1;
+ //EXIT(1);
+ BIO_set_fp(out,stdout,BIO_NOCLOSE);
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+
+ BN_GENCB_set(&_cb, &cb, out);
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ if(((a = DH_new()) == NULL))
+ {
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ goto err;
+ }
+ if( !DH_generate_parameters_ex(a, 64,
+ DH_GENERATOR_5, &_cb))
+ {
+ if(a != NULL) DH_free(a);
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+
+ }
+ if (!DH_check(a, &i))
+ {
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ goto err;
+ }
+ if (i & DH_CHECK_P_NOT_PRIME)
+ BIO_puts(out, "p value is not prime\n");
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+
+ if (i & DH_CHECK_P_NOT_SAFE_PRIME)
+ BIO_puts(out, "p value is not a safe prime\n");
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+
+ if (i & DH_UNABLE_TO_CHECK_GENERATOR)
+ BIO_puts(out, "unable to check the generator value\n");
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+
+ if (i & DH_NOT_SUITABLE_GENERATOR)
+ BIO_puts(out, "the g value is not a generator\n");
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+
+ BIO_puts(out,"\np =");
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+
+ BN_print(out,a->p);
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+
+ BIO_puts(out,"\ng =");
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+
+ BN_print(out,a->g);
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+
+ BIO_puts(out,"\n");
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+
+ b=DH_new();
+ if( b == NULL&& errno==ENOMEM)
+ {
+ return 1;
+ }
+ if (b == NULL) goto err;
+
+ b->p=BN_dup(a->p);
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ b->g=BN_dup(a->g);
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ if ((b->p == NULL) || (b->g == NULL))
+ {
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ goto err;
+ }
+
+ /* Set a to run with normal modexp and b to use constant time */
+ a->flags &= ~DH_FLAG_NO_EXP_CONSTTIME;
+ b->flags |= DH_FLAG_NO_EXP_CONSTTIME;
+
+ if (!DH_generate_key(a))
+ {
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ goto err;
+ }
+ BIO_puts(out,"pri 1=");
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ BN_print(out,a->priv_key);
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ BIO_puts(out,"\npub 1=");
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ BN_print(out,a->pub_key);
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ BIO_puts(out,"\n");
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ if (!DH_generate_key(b))
+ {
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ goto err;
+ }
+ BIO_puts(out,"pri 2=");
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ BN_print(out,b->priv_key);
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ BIO_puts(out,"\npub 2=");
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ BN_print(out,b->pub_key);
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ BIO_puts(out,"\n");
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+
+ alen=DH_size(a);
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ abuf=(unsigned char *)OPENSSL_malloc(alen);
+ if(abuf== NULL&& errno==ENOMEM)
+ {
+ return 1;
+ }
+ aout=DH_compute_key(abuf,b->pub_key,a);
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ BIO_puts(out,"key1 =");
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ for (i=0; i<aout; i++)
+ {
+ sprintf(buf,"%02X",abuf[i]);
+ BIO_puts(out,buf);
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ }
+ BIO_puts(out,"\n");
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+
+ blen=DH_size(b);
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ bbuf=(unsigned char *)OPENSSL_malloc(blen);
+ if(bbuf== NULL&& errno==ENOMEM)
+ {
+ return 1;
+ }
+ bout=DH_compute_key(bbuf,a->pub_key,b);
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+
+ BIO_puts(out,"key2 =");
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+
+ for (i=0; i<bout; i++)
+ {
+ sprintf(buf,"%02X",bbuf[i]);
+ BIO_puts(out,buf);
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+
+ }
+ BIO_puts(out,"\n");
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+
+ if ((aout < 4) || (bout != aout) || (memcmp(abuf,bbuf,aout) != 0))
+ {
+ fprintf(stderr,"Error in DH routines\n");
+ ret=1;
+ }
+ else
+ ret=0;
+err:
+ ERR_print_errors_fp(stderr);
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ ERR_remove_state(0);
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ ERR_free_strings();
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+ if (abuf != NULL) OPENSSL_free(abuf);
+ if (bbuf != NULL) OPENSSL_free(bbuf);
+ if(b != NULL) DH_free(b);
+ if(a != NULL) DH_free(a);
+ BIO_free(out);
+#ifdef SYMBIAN
+ CRYPTO_cleanup_all_ex_data();
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+
+#endif
+#ifdef OPENSSL_SYS_NETWARE
+ if (ret) fprintf(stdout,"ERROR: %d\n", ret);
+#endif
+ fprintf(stdout,"Test case passed\n");
+ //EXIT(ret);
+ return(ret);
+ }
+
+static int MS_CALLBACK cb(int p, int n, BN_GENCB *arg)
+ {
+ char c='*';
+
+ if (p == 0) c='.';
+ if (p == 1) c='+';
+ if (p == 2) c='*';
+ if (p == 3) c='\n';
+ BIO_write(arg->arg,&c,1);
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+
+ (void)BIO_flush(arg->arg);
+ if(errno==ENOMEM)
+ {
+ return 1;
+ }
+
+#ifdef LINT
+ p=n;
+#endif
+ return 1;
+ }
+#endif