/*      $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