/*	$OpenBSD: sm2evptest.c,v 1.1.1.1 2021/08/18 16:06:56 tb Exp $ */
/*
 * Copyright (c) 2017, 2019 Ribose Inc
 *
 * Permission to use, copy, modify, and/or distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */

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

#include <openssl/ec.h>
#include <openssl/evp.h>
#include <openssl/pem.h>

#include "tests.h"

#ifdef OPENSSL_NO_SM2
int
main(int argc, char *argv[])
{
	printf("No SM2 support\n");
	return (0);
}
#else
static int
test_EVP_SM2_verify(void)
{
	/* From https://tools.ietf.org/html/draft-shen-sm2-ecdsa-02#appendix-A */
	const char *pubkey =
		"-----BEGIN PUBLIC KEY-----\n"
		"MIIBMzCB7AYHKoZIzj0CATCB4AIBATAsBgcqhkjOPQEBAiEAhULWnkwETxjouSQ1\n"
		"v2/33kVyg5FcRVF9ci7biwjx38MwRAQgeHlotPoyw/0kF4Quc7v+/y88hItoMdfg\n"
		"7GUiizk35JgEIGPkxtOyOwyEnPhCQUhL/kj2HVmlsWugbm4S0donxSSaBEEEQh3r\n"
		"1hti6rZ0ZDTrw8wxXjIiCzut1QvcTE5sFH/t1D0GgFEry7QsB9RzSdIVO3DE5df9\n"
		"/L+jbqGoWEG55G4JogIhAIVC1p5MBE8Y6LkkNb9v990pdyBjBIVijVrnTufDLnm3\n"
		"AgEBA0IABArkx3mKoPEZRxvuEYJb5GICu3nipYRElel8BP9N8lSKfAJA+I8c1OFj\n"
		"Uqc8F7fxbwc1PlOhdtaEqf4Ma7eY6Fc=\n"
		"-----END PUBLIC KEY-----\n";

	const char *input = "message digest";
	const char *user_id = "ALICE123@YAHOO.COM";

	const uint8_t signature[] = {
		0x30, 0x44, 0x02, 0x20,
		0x40, 0xF1, 0xEC, 0x59, 0xF7, 0x93, 0xD9, 0xF4, 0x9E, 0x09, 0xDC,
		0xEF, 0x49, 0x13, 0x0D, 0x41, 0x94, 0xF7, 0x9F, 0xB1, 0xEE, 0xD2,
		0xCA, 0xA5, 0x5B, 0xAC, 0xDB, 0x49, 0xC4, 0xE7, 0x55, 0xD1,
		0x02, 0x20,
		0x6F, 0xC6, 0xDA, 0xC3, 0x2C, 0x5D, 0x5C, 0xF1, 0x0C, 0x77, 0xDF,
		0xB2, 0x0F, 0x7C, 0x2E, 0xB6, 0x67, 0xA4, 0x57, 0x87, 0x2F, 0xB0,
		0x9E, 0xC5, 0x63, 0x27, 0xA6, 0x7E, 0xC7, 0xDE, 0xEB, 0xE7
	};

	int rc = 0;
	BIO *bufio = NULL;
	EVP_PKEY *pkey = NULL;
	EVP_MD_CTX *md_ctx_verify = NULL;
	EVP_PKEY_CTX *verify_ctx = NULL;

	bufio = BIO_new_mem_buf(pubkey, strlen(pubkey));
	CHECK_GOTO(bufio != NULL);

	pkey = PEM_read_bio_PUBKEY(bufio, NULL, NULL, NULL);
	CHECK_GOTO(pkey != NULL);

	CHECK_GOTO(EVP_PKEY_set_alias_type(pkey, EVP_PKEY_SM2));

	md_ctx_verify = EVP_MD_CTX_new();
	CHECK_GOTO(md_ctx_verify != NULL);

	CHECK_GOTO(EVP_DigestVerifyInit(md_ctx_verify, &verify_ctx, EVP_sm3(), NULL, pkey));

	CHECK_GOTO(EVP_PKEY_CTX_set_sm2_uid(verify_ctx, user_id, strlen(user_id)) > 0);

	CHECK_GOTO(EVP_PKEY_CTX_hash_sm2_uid(verify_ctx) > 0);

	CHECK_GOTO(EVP_DigestVerifyUpdate(md_ctx_verify, input, strlen(input)));

	CHECK_GOTO(EVP_DigestVerifyFinal(md_ctx_verify, signature, sizeof(signature)));

	rc = 1;
 err:
	BIO_free(bufio);
	EVP_PKEY_free(pkey);
	EVP_MD_CTX_free(md_ctx_verify);
	return rc;
}

static int
test_EVP_SM2(void)
{
	int ret = 0;
	EVP_PKEY *pkey = NULL;
	EVP_PKEY *params = NULL;
	EVP_PKEY_CTX *pctx = NULL;
	EVP_PKEY_CTX *sign_ctx = NULL;
	EVP_PKEY_CTX *verify_ctx = NULL;
	EVP_PKEY_CTX *kctx = NULL;
	size_t sig_len = 0;
	unsigned char *sig = NULL;
	EVP_MD_CTX *md_ctx = NULL;
	EVP_MD_CTX *md_ctx_verify = NULL;
	EVP_PKEY_CTX *cctx = NULL;
	int useid;
	const char *uid_str = "nobody@example.com";
	uint8_t uid_buf[32] = {0};
	size_t uid_len = 0;

	uint8_t ciphertext[128];
	size_t ctext_len = sizeof(ciphertext);

	uint8_t plaintext[8];
	size_t ptext_len = sizeof(plaintext);

	uint8_t kMsg[4] = {1, 2, 3, 4};

	pctx = EVP_PKEY_CTX_new_id(EVP_PKEY_EC, NULL);
	CHECK_GOTO(pctx != NULL);

	CHECK_GOTO(EVP_PKEY_paramgen_init(pctx) == 1);

	CHECK_GOTO(EVP_PKEY_CTX_set_ec_paramgen_curve_nid(pctx, NID_sm2));

	CHECK_GOTO(EVP_PKEY_paramgen(pctx, &params));

	kctx = EVP_PKEY_CTX_new(params, NULL);
	CHECK_GOTO(kctx != NULL);

	CHECK_GOTO(EVP_PKEY_keygen_init(kctx));

	CHECK_GOTO(EVP_PKEY_keygen(kctx, &pkey));

	CHECK_GOTO(EVP_PKEY_set_alias_type(pkey, EVP_PKEY_SM2));

	md_ctx = EVP_MD_CTX_new();
	CHECK_GOTO(md_ctx != NULL);

	md_ctx_verify = EVP_MD_CTX_new();
	CHECK_GOTO(md_ctx_verify != NULL);

	for (useid = 0; useid <= 1; ++useid) {
		CHECK_GOTO(EVP_DigestSignInit(md_ctx, &sign_ctx, EVP_sm3(), NULL, pkey));

		if (useid) {
			CHECK_GOTO(EVP_PKEY_CTX_set_sm2_uid(sign_ctx, uid_str, strlen(uid_str)) > 0);

			CHECK_GOTO(EVP_PKEY_CTX_get_sm2_uid_len(sign_ctx, &uid_len) > 0);

			CHECK_GOTO(uid_len == strlen(uid_str));

			CHECK_GOTO(EVP_PKEY_CTX_get_sm2_uid(sign_ctx, uid_buf) > 0);

			CHECK_GOTO(memcmp(uid_buf, uid_str, uid_len) == 0);

			CHECK_GOTO(EVP_PKEY_CTX_hash_sm2_uid(sign_ctx) > 0);
		}

		CHECK_GOTO(EVP_DigestSignUpdate(md_ctx, kMsg, sizeof(kMsg)));

		/* Determine the size of the signature. */
		CHECK_GOTO(EVP_DigestSignFinal(md_ctx, NULL, &sig_len));

		CHECK_GOTO(sig_len == (size_t) EVP_PKEY_size(pkey));

		sig = malloc(sig_len);
		CHECK_GOTO(sig != NULL);

		CHECK_GOTO(EVP_DigestSignFinal(md_ctx, sig, &sig_len));

		/* Ensure that the signature round-trips. */

		CHECK_GOTO(EVP_DigestVerifyInit(md_ctx_verify, &verify_ctx, EVP_sm3(), NULL, pkey));

		if (useid) {
			CHECK_GOTO(EVP_PKEY_CTX_set_sm2_uid(verify_ctx, uid_str, strlen(uid_str)) > 0);

			CHECK_GOTO(EVP_PKEY_CTX_get_sm2_uid_len(verify_ctx, &uid_len) > 0);

			CHECK_GOTO(uid_len == strlen(uid_str));

			CHECK_GOTO(EVP_PKEY_CTX_get_sm2_uid(verify_ctx, uid_buf) > 0);

			CHECK_GOTO(memcmp(uid_buf, uid_str, uid_len) == 0);

			CHECK_GOTO(EVP_PKEY_CTX_hash_sm2_uid(verify_ctx) > 0);
		}

		CHECK_GOTO(EVP_DigestVerifyUpdate(md_ctx_verify, kMsg, sizeof(kMsg)));

		CHECK_GOTO(EVP_DigestVerifyFinal(md_ctx_verify, sig, sig_len));

		free(sig);
		sig = NULL;
	}

	/* now check encryption/decryption */

	cctx = EVP_PKEY_CTX_new(pkey, NULL);
	CHECK_GOTO(cctx != NULL);

	CHECK_GOTO(EVP_PKEY_encrypt_init(cctx));

	CHECK_GOTO(EVP_PKEY_encrypt(cctx, ciphertext, &ctext_len, kMsg, sizeof(kMsg)));

	CHECK_GOTO(EVP_PKEY_decrypt_init(cctx));

	CHECK_GOTO(EVP_PKEY_decrypt(cctx, plaintext, &ptext_len, ciphertext, ctext_len));

	CHECK_GOTO(ptext_len == sizeof(kMsg));

	CHECK_GOTO(memcmp(plaintext, kMsg, sizeof(kMsg)) == 0);

	ret = 1;
 err:
	EVP_PKEY_free(params);
	EVP_MD_CTX_free(md_ctx);
	EVP_MD_CTX_free(md_ctx_verify);
	EVP_PKEY_CTX_free(pctx);
	EVP_PKEY_CTX_free(kctx);
	EVP_PKEY_CTX_free(cctx);
	EVP_PKEY_free(pkey);
	free(sig);
	return ret;
}

int
main(int argc, char *argv[])
{
	if (!test_EVP_SM2()) {
		fprintf(stderr, "test_EVP_SM2() failed.\n");
		fflush(stderr);
		return 1;
	}
	if (!test_EVP_SM2_verify()) {
		fprintf(stderr, "test_EVP_SM2_verify() failed.\n");
		fflush(stderr);
		return 1;
	}

	printf("SUCCESS\n");

	return 0;
}

#endif