/*

 * Copyright (c) 2005-2009 Nokia Corporation and/or its subsidiary(-ies).

 * All rights reserved.

 * This component and the accompanying materials are made available

 * under the terms of the License "Eclipse Public License v1.0"

 * which accompanies this distribution, and is available

 * at the URL "http://www.eclipse.org/legal/epl-v10.html".

 *

 * Initial Contributors:

 * Nokia Corporation - initial contribution.

 *

 * Contributors:

 *

 * Description: 

 *

 */

 /**

  @file

 */

 #include "utils.h"

 #include <openssl/crypto.h>

 #include <openssl/err.h>

 #include <openssl/rand.h>

 void printBN(BIGNUM* bn)

     {

     char* text = BN_bn2hex(bn);

     printf("%s", text);

     OPENSSL_free(text);

     }

 void printBin(char* data, int len)

     {

     BIGNUM* bn = BN_new();

     bn = BN_bin2bn(data, len, bn);

     printBN(bn);

     BN_free(bn);

     }

 static int vectorNumber = 1;

 /**

  * Print the first few lines of the action block.

  */

 void printActionHeader(char* name, char* type)

     {

     printf("<action>\n");

     printf("\t<actionname>%s %i (%s)</actionname>\n", name, vectorNumber++, type);

     printf("\t<actiontype>%s</actiontype>\n", type);

     printf("\t<actionbody>\n");

     } 

 /**

  * Print the last few lines of the action block.

  */

 void printActionFooter(BOOL passes)

     {

     printf("\t</actionbody>\n");

     printf("\t<actionresult>\n");

     printf("\t\t<result>%s</result>\n", passes ? "ETrue" : "EFalse");

     printf("\t</actionresult>\n");

     printf("</action>\n");

     }

 /**

  * Print an element containg hex data.

  */

 void printHexElement(char* name, unsigned char* data, int len)

     {

     printf("\t\t<%s>", name);

     printBin(data, len);

     printf("</%s>\n", name);

     }

 /**

  * Print an element containg hex data.

  */

 void printBNElement(char* name, BIGNUM* num)

     {

     printf("\t\t<%s>", name);

     printBN(num);

     printf("</%s>\n", name);

     }

 /**

  * Scramble some data - used for generating tests that we expect to fail.

  */

 void scramble(unsigned char* data, int len)

     {

     int i;

     for (i = 0 ; i < len ; ++ i)

         data[i] ^= i;

     }

 /**

  * Print an openssl error and exit.

  */

 void processError()

     {

     unsigned long err = ERR_get_error();

     ERR_load_crypto_strings();

     printf("Openssl error: %s\n", ERR_error_string(err, NULL));

     exit(1);

     }

 ////////////////////////////////////////////////////////////////////////////////

 // Random stuff

 ////////////////////////////////////////////////////////////////////////////////

 int random_value = 1;

 void random_seed(const void* buf, int num)

     {

     }

 int random_bytes(unsigned char *buf, int num)

     {

     int i;

     for (i=0; i<num; i++)

 			buf[i]=random_value++;

     return(1);

     }

 void random_cleanup(void)

     {

     }

 void random_add(const void *buf, int num, double entropy)

     {

     }

 int random_pseudorand(unsigned char *buf, int num)

     {

     return 1;

     }

 int random_status(void)

     {

     return 1;

     }

 RAND_METHOD ourRNG = {random_seed, random_bytes, random_cleanup, random_add, random_pseudorand, random_status};

 void testOurRandom()

     {

     char data[16];

     int i;

     RAND_bytes(data, 16);

     for (i = 0 ; i < 16 ; ++i)

         {

         if (data[i] != i + 1)

             {

             printf("Random number generator not crippled\n");

             exit(1);

             }

         }

     }

 void setOurRandom()

     {

     random_value = 1;

     RAND_set_rand_method(&ourRNG);

     }

 /** Print C source for assinging binary data to a variable. */

 void printCBin(char* varname, unsigned char* data, int len)

     {

     int i, j;

     printf("\tunsigned char %s[] =", varname);

     for (i = 0 ; i < len ; i += 16)

         {

         printf("\n\t\t\"");

         for (j = i ; j < len && j < (i + 16) ; ++j)

             {

             printf("\\x%02x", data[j]);

             }

         printf("\"");

         }

     printf(";\n\n");

     printf("\tint %s_len = %i;\n\n", varname, len);

     }

 /** Print C source for assigning the binary form of a BIGNUM to a variable. */

 void printCBN(char* varname, BIGNUM* bignum)

     {

     int len = BN_num_bytes(bignum);

     unsigned char buffer[len];

     BN_bn2bin(bignum, buffer);

     printCBin(varname, buffer, len);

     }