/*

 * Copyright 2017-2019 The OpenSSL Project Authors. All Rights Reserved.

 *

 * Licensed under the OpenSSL license (the "License").  You may not use

 * this file except in compliance with the License.  You can obtain a copy

 * in the file LICENSE in the source distribution or at

 * https://www.openssl.org/source/license.html

 */

/* Tests of the EVP_PKEY_CTX_set_* macro family */

#include <stdio.h>

#include <string.h>

#include <openssl/evp.h>

#include <openssl/kdf.h>

#include "testutil.h"

static int test_kdf_tls1_prf(void)

{

    int ret = 0;

    EVP_PKEY_CTX *pctx;

    unsigned char out[16];

    size_t outlen = sizeof(out);

    if ((pctx = EVP_PKEY_CTX_new_id(EVP_PKEY_TLS1_PRF, NULL)) == NULL) {

        TEST_error("EVP_PKEY_TLS1_PRF");

        goto err;

    }

    if (EVP_PKEY_derive_init(pctx) <= 0) {

        TEST_error("EVP_PKEY_derive_init");

        goto err;

    }

    if (EVP_PKEY_CTX_set_tls1_prf_md(pctx, EVP_sha256()) <= 0) {

        TEST_error("EVP_PKEY_CTX_set_tls1_prf_md");

        goto err;

    }

    if (EVP_PKEY_CTX_set1_tls1_prf_secret(pctx, "secret", 6) <= 0) {

        TEST_error("EVP_PKEY_CTX_set1_tls1_prf_secret");

        goto err;

    }

    if (EVP_PKEY_CTX_add1_tls1_prf_seed(pctx, "seed", 4) <= 0) {

        TEST_error("EVP_PKEY_CTX_add1_tls1_prf_seed");

        goto err;

    }

    if (EVP_PKEY_derive(pctx, out, &outlen) <= 0) {

        TEST_error("EVP_PKEY_derive");

        goto err;

    }

    {

        const unsigned char expected[sizeof(out)] = {

            0x8e, 0x4d, 0x93, 0x25, 0x30, 0xd7, 0x65, 0xa0,

            0xaa, 0xe9, 0x74, 0xc3, 0x04, 0x73, 0x5e, 0xcc

        };

        if (!TEST_mem_eq(out, sizeof(out), expected, sizeof(expected))) {

            goto err;

        }

    }

    ret = 1;

err:

    EVP_PKEY_CTX_free(pctx);

    return ret;

}

static int test_kdf_hkdf(void)

{

    int ret = 0;

    EVP_PKEY_CTX *pctx;

    unsigned char out[10];

    size_t outlen = sizeof(out);

    if ((pctx = EVP_PKEY_CTX_new_id(EVP_PKEY_HKDF, NULL)) == NULL) {

        TEST_error("EVP_PKEY_HKDF");

        goto err;

    }

    if (EVP_PKEY_derive_init(pctx) <= 0) {

        TEST_error("EVP_PKEY_derive_init");

        goto err;

    }

    if (EVP_PKEY_CTX_set_hkdf_md(pctx, EVP_sha256()) <= 0) {

        TEST_error("EVP_PKEY_CTX_set_hkdf_md");

        goto err;

    }

    if (EVP_PKEY_CTX_set1_hkdf_salt(pctx, "salt", 4) <= 0) {

        TEST_error("EVP_PKEY_CTX_set1_hkdf_salt");

        goto err;

    }

    if (EVP_PKEY_CTX_set1_hkdf_key(pctx, "secret", 6) <= 0) {

        TEST_error("EVP_PKEY_CTX_set1_hkdf_key");

        goto err;

    }

    if (EVP_PKEY_CTX_add1_hkdf_info(pctx, "label", 5) <= 0) {

        TEST_error("EVP_PKEY_CTX_set1_hkdf_info");

        goto err;

    }

    if (EVP_PKEY_derive(pctx, out, &outlen) <= 0) {

        TEST_error("EVP_PKEY_derive");

        goto err;

    }

    {

        const unsigned char expected[sizeof(out)] = {

            0x2a, 0xc4, 0x36, 0x9f, 0x52, 0x59, 0x96, 0xf8, 0xde, 0x13

        };

        if (!TEST_mem_eq(out, sizeof(out), expected, sizeof(expected))) {

            goto err;

        }

    }

    ret = 1;

err:

    EVP_PKEY_CTX_free(pctx);

    return ret;

}

#ifndef OPENSSL_NO_SCRYPT

static int test_kdf_scrypt(void)

{

    int ret = 0;

    EVP_PKEY_CTX *pctx;

    unsigned char out[64];

    size_t outlen = sizeof(out);

    if ((pctx = EVP_PKEY_CTX_new_id(EVP_PKEY_SCRYPT, NULL)) == NULL) {

        TEST_error("EVP_PKEY_SCRYPT");

        goto err;

    }

    if (EVP_PKEY_derive_init(pctx) <= 0) {

        TEST_error("EVP_PKEY_derive_init");

        goto err;

    }

    if (EVP_PKEY_CTX_set1_pbe_pass(pctx, "password", 8) <= 0) {

        TEST_error("EVP_PKEY_CTX_set1_pbe_pass");

        goto err;

    }

    if (EVP_PKEY_CTX_set1_scrypt_salt(pctx, "NaCl", 4) <= 0) {

        TEST_error("EVP_PKEY_CTX_set1_scrypt_salt");

        goto err;

    }

    if (EVP_PKEY_CTX_set_scrypt_N(pctx, 1024) <= 0) {

        TEST_error("EVP_PKEY_CTX_set_scrypt_N");

        goto err;

    }

    if (EVP_PKEY_CTX_set_scrypt_r(pctx, 8) <= 0) {

        TEST_error("EVP_PKEY_CTX_set_scrypt_r");

        goto err;

    }

    if (EVP_PKEY_CTX_set_scrypt_p(pctx, 16) <= 0) {

        TEST_error("EVP_PKEY_CTX_set_scrypt_p");

        goto err;

    }

    if (EVP_PKEY_CTX_set_scrypt_maxmem_bytes(pctx, 16) <= 0) {

        TEST_error("EVP_PKEY_CTX_set_maxmem_bytes");

        goto err;

    }

    if (EVP_PKEY_derive(pctx, out, &outlen) > 0) {

        TEST_error("EVP_PKEY_derive should have failed");

        goto err;

    }

    if (EVP_PKEY_CTX_set_scrypt_maxmem_bytes(pctx, 10 * 1024 * 1024) <= 0) {

        TEST_error("EVP_PKEY_CTX_set_maxmem_bytes");

        goto err;

    }

    if (EVP_PKEY_derive(pctx, out, &outlen) <= 0) {

        TEST_error("EVP_PKEY_derive");

        goto err;

    }

    {

        const unsigned char expected[sizeof(out)] = {

            0xfd, 0xba, 0xbe, 0x1c, 0x9d, 0x34, 0x72, 0x00,

            0x78, 0x56, 0xe7, 0x19, 0x0d, 0x01, 0xe9, 0xfe,

            0x7c, 0x6a, 0xd7, 0xcb, 0xc8, 0x23, 0x78, 0x30,

            0xe7, 0x73, 0x76, 0x63, 0x4b, 0x37, 0x31, 0x62,

            0x2e, 0xaf, 0x30, 0xd9, 0x2e, 0x22, 0xa3, 0x88,

            0x6f, 0xf1, 0x09, 0x27, 0x9d, 0x98, 0x30, 0xda,

            0xc7, 0x27, 0xaf, 0xb9, 0x4a, 0x83, 0xee, 0x6d,

            0x83, 0x60, 0xcb, 0xdf, 0xa2, 0xcc, 0x06, 0x40

        };

        if (!TEST_mem_eq(out, sizeof(out), expected, sizeof(expected))) {

            goto err;

        }

    }

    ret = 1;

err:

    EVP_PKEY_CTX_free(pctx);

    return ret;

}

#endif

int setup_tests(void)

{

    ADD_TEST(test_kdf_tls1_prf);

    ADD_TEST(test_kdf_hkdf);

#ifndef OPENSSL_NO_SCRYPT

    ADD_TEST(test_kdf_scrypt);

#endif

    return 1;

}