/*
 * Copyright (c) 2000-2001 Apple Computer, Inc. All Rights Reserved.
 * 
 * The contents of this file constitute Original Code as defined in and are
 * subject to the Apple Public Source License Version 1.2 (the 'License').
 * You may not use this file except in compliance with the License. Please obtain
 * a copy of the License at http://www.apple.com/publicsource and read it before
 * using this file.
 * 
 * This Original Code and all software distributed under the License are
 * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS
 * OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES, INCLUDING WITHOUT
 * LIMITATION, ANY WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
 * PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT. Please see the License for the
 * specific language governing rights and limitations under the License.
 */


#include <bsafe.h>
#include <aglobal.h>

#include <stdlib.h>
#include <stdio.h>
#include <string.h>


B_ALGORITHM_METHOD *chooser[] = {
  &AM_DSA_KEY_GEN,
  &AM_DSA_PARAM_GEN,
  &AM_SHA_RANDOM,
  NULL
};

void dumpItem(ITEM &item, const char *name);

unsigned char seed[] = { 17, 205, 99, 13, 6, 199 };


#define check(expr) \
  if (status = (expr)) { printf("error %d at %d\n", status, __LINE__); abort(); } else /* ok */

int main(int argc, char *argv[])
{
	int status;

	int keySize = argv[1] ? atoi(argv[1]) : 512;
	printf("Key size = %d bits\n", keySize);

	B_ALGORITHM_OBJ pGen = NULL;
	check(B_CreateAlgorithmObject(&pGen));
	B_DSA_PARAM_GEN_PARAMS gParams;
	gParams.primeBits = keySize;
	check(B_SetAlgorithmInfo(pGen, AI_DSAParamGen, POINTER(&gParams)));

	B_ALGORITHM_OBJ random = NULL; check(B_CreateAlgorithmObject(&random));
	check(B_SetAlgorithmInfo(random, AI_X962Random_V0, NULL));
	check(B_RandomInit(random, chooser, NULL));
	check(B_RandomUpdate(random, seed, sizeof(seed), NULL));

	check(B_GenerateInit(pGen, chooser, NULL));
	B_ALGORITHM_OBJ result = NULL;
	check(B_CreateAlgorithmObject(&result));
	printf("Generating DSA parameters\n");
	check(B_GenerateParameters(pGen, result, random, NULL));
	printf("DSA generate complete, writing...\n");

	A_DSA_PARAMS *dParams;
	memset(&dParams, 0, sizeof(dParams));
	check(B_GetAlgorithmInfo((POINTER *)&dParams, result, AI_DSAKeyGen));
	dumpItem(dParams->prime, "prime");
	dumpItem(dParams->subPrime, "subprime");
	dumpItem(dParams->base, "base");

#if 0
	B_KEY_OBJ pubKey = NULL; check(B_CreateKeyObject(&pubKey));
	B_KEY_OBJ privKey = NULL; check(B_CreateKeyObject(&privKey));

	B_ALGORITHM_OBJ gen = NULL; check(B_CreateAlgorithmObject(&gen));
	A_RSA_KEY_GEN_PARAMS args;
	args.modulusBits = keySize;
	args.publicExponent.data = exponent;
	args.publicExponent.len = sizeof(exponent);
	check(B_SetAlgorithmInfo(gen, AI_RSAStrongKeyGen, POINTER(&args)));
	check(B_GenerateInit(gen, chooser, NULL));
	check(B_GenerateKeypair(gen, pubKey, privKey, random, NULL));

	B_ALGORITHM_OBJ enc = NULL; check(B_CreateAlgorithmObject(&enc));
	check(B_SetAlgorithmInfo(enc, AI_PKCS_RSAPublic, NULL));
	check(B_EncryptInit(enc, pubKey, chooser, NULL));
	unsigned int inLen;
	check(B_EncryptUpdate(enc, crypt, &inLen, sizeof(crypt),
		POINTER(in), sizeof(in), random, NULL));
	printf("EncryptUpdate output = %u\n", inLen);
	check(B_EncryptFinal(enc, crypt, &inLen, sizeof(crypt), random, NULL));
	printf("EncryptFinal output=%u\n", inLen);

	B_ALGORITHM_OBJ dec = NULL; check(B_CreateAlgorithmObject(&dec));
	check(B_SetAlgorithmInfo(dec, AI_PKCS_RSAPrivate, NULL));
	check(B_DecryptInit(dec, privKey, chooser, NULL));
	unsigned int outLen, outLen2;
	check(B_DecryptUpdate(dec, out, &outLen, sizeof(out),
		crypt, inLen, random, NULL));
	printf("DecryptUpdate output = %u\n", outLen);
	check(B_DecryptFinal(dec, out2, &outLen2, sizeof(out2), random, NULL));
	printf("DecryptFinal output=%u %s\n", outLen2, (char*)out2);
	B_DestroyKeyObject(&pubKey);
	B_DestroyKeyObject(&privKey);
#endif

	exit(0);
}

void dumpItem(ITEM &item, const char *name)
{
  printf("%s [%d] ", name, item.len);
  for (unsigned char *p = item.data; p < item.data + item.len; p++)
    printf("%2.2x", *p);
  printf("\n");
}





void T_free(POINTER p)
{ free(p); }

POINTER T_malloc(unsigned int size)
{ return (POINTER)malloc(size); }

POINTER T_realloc(POINTER p, unsigned int size)
{ return (POINTER)realloc(p, size); }

int T_memcmp(POINTER p1, POINTER p2, unsigned int size)
{ return memcmp(p1, p2, size); }
void T_memcpy(POINTER p1, POINTER p2, unsigned int size)
{ memcpy(p1, p2, size); }
void T_memmove(POINTER p1, POINTER p2, unsigned int size)
{ memmove(p1, p2, size); }
void T_memset(POINTER p1, int size, unsigned int val)
{ memset(p1, size, val); }
extern "C" int T_GetDynamicList()
{ printf("GetDynamicList!\n"); abort(); }