#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include <sys/types.h>
#include <stdint.h>
#include <string.h>
#include <check.h>
#include <stdlib.h>
#include <time.h>

#include "helpers.h"

#include "../toxcore/tox.h"

#include "../toxencryptsave/toxencryptsave.h"
#include "../toxcore/crypto_core.h"
#ifdef VANILLA_NACL
#include "../toxencryptsave/crypto_pwhash_scryptsalsa208sha256/crypto_pwhash_scryptsalsa208sha256.h"
#include "../toxencryptsave/crypto_pwhash_scryptsalsa208sha256/utils.h" /* sodium_memzero */
#endif

unsigned char salt[32] = {0xB1, 0xC2, 0x09, 0xEE, 0x50, 0x6C, 0xF0, 0x20, 0xC4, 0xD6, 0xEB, 0xC0, 0x44, 0x51, 0x3B, 0x60, 0x4B, 0x39, 0x4A, 0xCF, 0x09, 0x53, 0x4F, 0xEA, 0x08, 0x41, 0xFA, 0xCA, 0x66, 0xD2, 0x68, 0x7F};
unsigned char known_key[crypto_box_BEFORENMBYTES] = {0x29, 0x36, 0x1c, 0x9e, 0x65, 0xbb, 0x46, 0x8b, 0xde, 0xa1, 0xac, 0xf, 0xd5, 0x11, 0x81, 0xc8, 0x29, 0x28, 0x17, 0x23, 0xa6, 0xc3, 0x6b, 0x77, 0x2e, 0xd7, 0xd3, 0x10, 0xeb, 0xd2, 0xf7, 0xc8};
char *pw = "hunter2";
unsigned int pwlen = 7;

unsigned char known_key2[crypto_box_BEFORENMBYTES] = {0x7a, 0xfa, 0x95, 0x45, 0x36, 0x8a, 0xa2, 0x5c, 0x40, 0xfd, 0xc0, 0xe2, 0x35, 0x8, 0x7, 0x88, 0xfa, 0xf9, 0x37, 0x86, 0xeb, 0xff, 0x50, 0x4f, 0x3, 0xe2, 0xf6, 0xd9, 0xef, 0x9, 0x17, 0x1};
// same as above, except standard opslimit instead of extra ops limit for test_known_kdf, and hash pw before kdf for compat

/* cause I'm shameless */
void accept_friend_request(Tox *m, const uint8_t *public_key, const uint8_t *data, uint16_t length, void *userdata)
{
    if (*((uint32_t *)userdata) != 974536)
        return;

    if (length == 7 && memcmp("Gentoo", data, 7) == 0) {
        tox_add_friend_norequest(m, public_key);
    }
}

START_TEST(test_known_kdf)
{
    unsigned char out[crypto_box_BEFORENMBYTES];
    crypto_pwhash_scryptsalsa208sha256(out,
                                       crypto_box_BEFORENMBYTES,
                                       pw,
                                       pwlen,
                                       salt,
                                       crypto_pwhash_scryptsalsa208sha256_OPSLIMIT_INTERACTIVE * 8,
                                       crypto_pwhash_scryptsalsa208sha256_MEMLIMIT_INTERACTIVE);
    ck_assert_msg(memcmp(out, known_key, crypto_box_BEFORENMBYTES) == 0, "derived key is wrong");
}
END_TEST

START_TEST(test_save_friend)
{
    Tox *tox1 = tox_new(0);
    Tox *tox2 = tox_new(0);
    ck_assert_msg(tox1 || tox2, "Failed to create 2 tox instances");
    uint32_t to_compare = 974536;
    tox_callback_friend_request(tox2, accept_friend_request, &to_compare);
    uint8_t address[TOX_FRIEND_ADDRESS_SIZE];
    tox_get_address(tox2, address);
    int test = tox_add_friend(tox1, address, (uint8_t *)"Gentoo", 7);
    ck_assert_msg(test == 0, "Failed to add friend error code: %i", test);

    uint32_t size = tox_encrypted_size(tox1);
    uint8_t data[size];
    test = tox_encrypted_save(tox1, data, "correcthorsebatterystaple", 25);
    ck_assert_msg(test == 0, "failed to encrypted save");
    ck_assert_msg(tox_is_save_encrypted(data) == 1, "magic number missing");

    Tox *tox3 = tox_new(0);
    test = tox_encrypted_load(tox3, data, size, "correcthorsebatterystaple", 25);
    ck_assert_msg(test == 0, "failed to encrypted load");
    uint8_t address2[TOX_CLIENT_ID_SIZE];
    test = tox_get_client_id(tox3, 0, address2);
    ck_assert_msg(test == 0, "no friends!");
    ck_assert_msg(memcmp(address, address2, TOX_CLIENT_ID_SIZE) == 0, "addresses don't match!");

    size = tox_encrypted_size(tox3);
    uint8_t data2[size];
    uint8_t key[32 + crypto_box_BEFORENMBYTES];
    memcpy(key, salt, 32);
    memcpy(key + 32, known_key2, crypto_box_BEFORENMBYTES);
    test = tox_encrypted_key_save(tox3, data2, key);
    ck_assert_msg(test == 0, "failed to encrypted save the second");
    ck_assert_msg(tox_is_save_encrypted(data2) == 1, "magic number the second missing");

    // first test tox_encrypted_key_load
    Tox *tox4 = tox_new(0);
    test = tox_encrypted_key_load(tox4, data2, size, key);
    ck_assert_msg(test == 0, "failed to encrypted load the second");
    uint8_t address4[TOX_CLIENT_ID_SIZE];
    test = tox_get_client_id(tox4, 0, address4);
    ck_assert_msg(test == 0, "no friends! the second");
    ck_assert_msg(memcmp(address, address2, TOX_CLIENT_ID_SIZE) == 0, "addresses don't match! the second");

    // now test compaitibilty with tox_encrypted_load, first manually...
    uint8_t out1[size], out2[size];
    printf("Trying to decrypt from pw:\n");
    uint32_t sz1 = tox_pass_decrypt(data2, size, pw, pwlen, out1);
    uint32_t sz2 = tox_pass_key_decrypt(data2, size, key, out2);
    ck_assert_msg(sz1 == sz2, "differing output sizes");
    ck_assert_msg(memcmp(out1, out2, sz1) == 0, "differing output data");

    // and now with the code in use (I only bothered with manually to debug this, and it seems a waste
    // to remove the manual check now that it's there)
    Tox *tox5 = tox_new(0);
    test = tox_encrypted_load(tox5, data2, size, pw, pwlen);
    ck_assert_msg(test == 0, "failed to encrypted load the third");
    uint8_t address5[TOX_CLIENT_ID_SIZE];
    test = tox_get_client_id(tox4, 0, address5);
    ck_assert_msg(test == 0, "no friends! the third");
    ck_assert_msg(memcmp(address, address2, TOX_CLIENT_ID_SIZE) == 0, "addresses don't match! the third");

    tox_kill(tox1);
    tox_kill(tox2);
    tox_kill(tox3);
    tox_kill(tox4);
    tox_kill(tox5);
}
END_TEST

START_TEST(test_keys)
{
    uint8_t key[tox_pass_key_length()];
    tox_derive_key_from_pass("123qweasdzxc", 12, key);
    uint8_t *string = "No Patrick, mayonnaise is not an instrument."; // 44

    uint8_t encrypted[44 + tox_pass_encryption_extra_length()];
    int sz = tox_pass_key_encrypt(string, 44, key, encrypted);

    uint8_t encrypted2[44 + tox_pass_encryption_extra_length()];
    int sz2 = tox_pass_encrypt(string, 44, "123qweasdzxc", 12, encrypted2);

    ck_assert_msg(sz == sz2, "an encryption failed");

    uint8_t out1[44 + tox_pass_encryption_extra_length()];
    uint8_t out2[44 + tox_pass_encryption_extra_length()];

    sz = tox_pass_key_decrypt(encrypted, 44 + tox_pass_encryption_extra_length(), key, out1);
    ck_assert_msg(sz == 44, "sz isn't right");
    ck_assert_msg(memcmp(out1, string, 44) == 0, "decryption 1 failed");

    sz2 = tox_pass_decrypt(encrypted2, 44 + tox_pass_encryption_extra_length(), "123qweasdzxc", 12, out2);
    ck_assert_msg(sz2 == 44, "sz2 isn't right");
    ck_assert_msg(memcmp(out2, string, 44) == 0, "decryption 2 failed");

    // test that pass_decrypt can decrypt things from pass_key_encrypt
    sz = tox_pass_decrypt(encrypted, 44 + tox_pass_encryption_extra_length(), "123qweasdzxc", 12, out1);
    ck_assert_msg(sz == 44, "sz isn't right");
    ck_assert_msg(memcmp(out1, string, 44) == 0, "decryption 3 failed");

    uint8_t salt[tox_pass_salt_length()];
    ck_assert_msg(0 == tox_get_salt(encrypted, salt), "couldn't get salt");
    uint8_t key2[tox_pass_key_length()];
    tox_derive_key_with_salt("123qweasdzxc", 12, salt, key2);
    ck_assert_msg(0 == memcmp(key, key2, tox_pass_key_length()), "salt comparison failed");
}
END_TEST

Suite *encryptsave_suite(void)
{
    Suite *s = suite_create("encryptsave");

    DEFTESTCASE_SLOW(known_kdf, 60); /* is 5-10 seconds on my computer, but is directly dependent on CPU */
    DEFTESTCASE_SLOW(save_friend, 20);
    DEFTESTCASE_SLOW(keys, 30);

    return s;
}

int main(int argc, char *argv[])
{
    srand((unsigned int) time(NULL));

    Suite *encryptsave =  encryptsave_suite();
    SRunner *test_runner = srunner_create(encryptsave);

    int number_failed = 0;
    srunner_run_all(test_runner, CK_NORMAL);
    number_failed = srunner_ntests_failed(test_runner);

    srunner_free(test_runner);

    return number_failed;
}