test_crypto.c

Go to the documentation of this file.

/*
 * Asterisk -- An open source telephony toolkit.
 *
 * Copyright (C) 2022, Philip Prindeville
 *
 * Philip Prindeville <philipp@redfish-solutions.com>
 *
 * See http://www.asterisk.org for more information about
 * the Asterisk project. Please do not directly contact
 * any of the maintainers of this project for assistance;
 * the project provides a web site, mailing lists and IRC
 * channels for your use.
 *
 * This program is free software, distributed under the terms of
 * the GNU General Public License Version 2. See the LICENSE file
 * at the top of the source tree.
 */
 
/*!
 * \file
 * \brief Unit Tests for crypto API
 *
 * \author Philip Prindeville <philipp@redfish-solutions.com>
 */
 
/*** MODULEINFO
        <depend>TEST_FRAMEWORK</depend>
        <depend>res_crypto</depend>
        <depend>crypto</depend>
        <support_level>core</support_level>
 ***/
 
#include "asterisk.h"
 
#include "asterisk/utils.h"
#include "asterisk/test.h"
#include "asterisk/crypto.h"
#include "asterisk/paths.h"
#include "asterisk/module.h"
#include "asterisk/file.h"
 
#include <assert.h>
#include <sys/stat.h>
#include <limits.h>
#include <openssl/evp.h>
 
static const char *keypair1 = "rsa_key1";
 
static const char *old_key_dir = NULL;
 
static char *hexstring(const unsigned char *data, unsigned datalen)
{
    char *buf = ast_malloc(datalen * 2 + 1);
    unsigned n;
 
    for (n = 0; n < datalen; ++n) {
        snprintf(&buf[n * 2], 3, "%02x", data[n]);
    }
    buf[datalen * 2] = '\0';
 
    return buf;
}
 
static void push_key_dir(const char *dir)
{
    assert(old_key_dir == NULL);
 
    old_key_dir = ast_config_AST_KEY_DIR;
 
    ast_config_AST_KEY_DIR = ast_strdup(dir);
}
 
static void pop_key_dir(void)
{
    assert(old_key_dir != NULL);
 
    ast_free((char *)ast_config_AST_KEY_DIR);
 
    ast_config_AST_KEY_DIR = old_key_dir;
 
    old_key_dir = NULL;
}
 
AST_TEST_DEFINE(crypto_rsa_encrypt)
{
    int res = AST_TEST_FAIL;
    struct ast_key *key = NULL;
    const unsigned char plaintext[23] = "Mary had a little lamb.";
    char wd[PATH_MAX], key_dir[PATH_MAX], priv[PATH_MAX];
    unsigned char buf[AST_CRYPTO_RSA_KEY_BITS / 8];
    const char *command = "openssl";
    char *args[] = { "openssl", "pkeyutl", "-decrypt", "-inkey", "PRIVATE", "-pkeyopt", "rsa_padding_mode:oaep", NULL };
    enum { PRIVATE = 4 };
    struct ast_test_capture cap;
 
    switch (cmd) {
    case TEST_INIT:
        info->name = "crypto_rsa_encrypt";
        info->category = "/res/res_crypto/";
        info->summary = "Encrypt w/ RSA public key";
        info->description = "Encrypt string with RSA public key";
        return AST_TEST_NOT_RUN;
    case TEST_EXECUTE:
        break;
    }
 
    ast_test_status_update(test, "Executing RSA encryption test\n");
 
    ast_test_capture_init(&cap);
 
    if (!ast_check_command_in_path(command)) {
        ast_test_status_update(test, "couldn't find %s\n", command);
        ast_test_capture_free(&cap);
        return res;
    }
 
    if (getcwd(wd, sizeof(wd)) == NULL) {
        ast_test_status_update(test, "Could not determine current working directory\n");
        ast_test_capture_free(&cap);
        return res;
    }
 
    snprintf(key_dir, sizeof(key_dir), "%s/%s", wd, "tests/keys");
    push_key_dir((const char *)key_dir);
    snprintf(priv, sizeof(priv), "%s/%s.key", key_dir, keypair1);
 
    /* because git doesn't preserve permissions */
    (void)chmod(priv, 0400);
 
    if (ast_crypto_reload() != 1) {
        ast_test_status_update(test, "Couldn't force crypto reload\n");
        goto cleanup;
    }
 
    key = ast_key_get(keypair1, AST_KEY_PUBLIC);
 
    if (!key) {
        ast_test_status_update(test, "Couldn't read key: %s\n", keypair1);
        goto cleanup;
    }
 
    memset(buf, 0, sizeof(buf));
    ast_encrypt_bin(buf, plaintext, sizeof(plaintext), key);
 
    args[PRIVATE] = priv;
    if (ast_test_capture_command(&cap, command, args, (const char *)buf, sizeof(buf)) != 1) {
        ast_test_status_update(test, "ast_test_capture_command() failed\n");
        goto cleanup;
    }
 
    if (cap.outlen != sizeof(plaintext) || memcmp(cap.outbuf, plaintext, cap.outlen)) {
        ast_test_status_update(test, "Unexpected value/length for stdout: '%.*s' (%zu)\n", (int) cap.outlen, cap.outbuf, cap.outlen);
        goto cleanup;
    }
 
    if (cap.errlen != 0) {
        ast_test_status_update(test, "Unexpected length for stderr: '%.*s' (%zu)\n", (int) cap.errlen, cap.errbuf, cap.errlen);
        goto cleanup;
    }
 
    if (cap.pid == -1) {
        ast_test_status_update(test, "Invalid process id\n");
        goto cleanup;
    }
 
    if (cap.exitcode != 0) {
        ast_test_status_update(test, "Child exited %d\n", cap.exitcode);
        goto cleanup;
    }
 
    res = AST_TEST_PASS;
 
cleanup:
    ast_test_capture_free(&cap);
    pop_key_dir();
    return res;
}
 
AST_TEST_DEFINE(crypto_rsa_decrypt)
{
    int res = AST_TEST_FAIL;
    struct ast_key *key = NULL;
    const unsigned char plaintext[23] = "Mary had a little lamb.";
    char wd[PATH_MAX], key_dir[PATH_MAX], pub[PATH_MAX];
    unsigned char buf[AST_CRYPTO_RSA_KEY_BITS / 8];
    const char *command = "openssl";
    char *args[] = { "openssl", "pkeyutl", "-encrypt", "-pubin", "-inkey", "PUBLIC", "-pkeyopt", "rsa_padding_mode:oaep", NULL };
    enum { PUBLIC = 5 };
    struct ast_test_capture cap;
    int len;
 
    switch (cmd) {
    case TEST_INIT:
        info->name = "crypto_decrypt_pub_key";
        info->category = "/res/res_crypto/";
        info->summary = "Decrypt w/ RSA public key";
        info->description = "Decrypt string with RSA private key";
        return AST_TEST_NOT_RUN;
    case TEST_EXECUTE:
        break;
    }
 
    ast_test_status_update(test, "Executing RSA decryption test\n");
 
    ast_test_capture_init(&cap);
 
    if (!ast_check_command_in_path(command)) {
        ast_test_status_update(test, "couldn't find %s\n", command);
        ast_test_capture_free(&cap);
        return res;
    }
 
    if (getcwd(wd, sizeof(wd)) == NULL) {
        ast_test_status_update(test, "Could not determine current working directory\n");
        ast_test_capture_free(&cap);
        return res;
    }
 
    snprintf(key_dir, sizeof(key_dir), "%s/%s", wd, "tests/keys");
    push_key_dir((const char *)key_dir);
    snprintf(pub, sizeof(pub), "%s/%s.pub", key_dir, keypair1);
 
    if (ast_crypto_reload() != 1) {
        ast_test_status_update(test, "Couldn't force crypto reload\n");
        goto cleanup;
    }
 
    key = ast_key_get(keypair1, AST_KEY_PRIVATE);
 
    if (!key) {
        ast_test_status_update(test, "Couldn't read key: %s\n", keypair1);
        goto cleanup;
    }
 
    args[PUBLIC] = pub;
    if (ast_test_capture_command(&cap, command, args, (const char *)plaintext, sizeof(plaintext)) != 1) {
        ast_test_status_update(test, "ast_test_capture_command() failed\n");
        goto cleanup;
    }
 
    if (cap.outlen != sizeof(buf)) {
        ast_test_status_update(test, "Unexpected length for stdout: %zu\n", cap.outlen);
        goto cleanup;
    }
 
    if (cap.errlen != 0) {
        ast_test_status_update(test, "Unexpected value/length for stderr: '%.*s' (%zu)\n", (int) cap.errlen, cap.errbuf, cap.errlen);
        goto cleanup;
    }
 
    if (cap.pid == -1) {
        ast_test_status_update(test, "Invalid process id\n");
        goto cleanup;
    }
 
    if (cap.exitcode != 0) {
        ast_test_status_update(test, "Child exited %d\n", cap.exitcode);
        goto cleanup;
    }
 
    memset(buf, 0, sizeof(buf));
    len = ast_decrypt_bin(buf, (unsigned char *)cap.outbuf, cap.outlen, key);
 
    if (len != sizeof(plaintext) || memcmp(buf, plaintext, len)) {
        ast_test_status_update(test, "Unexpected value for decrypted text\n");
        goto cleanup;
    }
 
    res = AST_TEST_PASS;
 
cleanup:
    ast_test_capture_free(&cap);
    pop_key_dir();
    return res;
}
 
AST_TEST_DEFINE(crypto_sign)
{
    int res = AST_TEST_FAIL;
    struct ast_key *key = NULL;
    const char plaintext[23] = "Mary had a little lamb.";
    char wd[PATH_MAX], key_dir[PATH_MAX], pub[PATH_MAX];
    unsigned char buf[AST_CRYPTO_RSA_KEY_BITS / 8];
    const char *command = "openssl";
    char *args[] = { "openssl", "pkeyutl", "-verify", "-inkey", "PUBLIC", "-pubin", "-sigfile", "SIGNATURE", "-pkeyopt", "digest:sha1", NULL };
    enum { PUBLIC = 4, SIGNATURE = 7 };
    struct ast_test_capture cap;
    unsigned char digest[20];
    unsigned digestlen;
    EVP_MD_CTX *ctx;
    FILE *fsig = NULL;
    char signpath[64] = "/tmp/signingXXXXXX";
    const char success[] = "Signature Verified Successfully\n";
 
    switch (cmd) {
    case TEST_INIT:
        info->name = "crypto_sign";
        info->category = "/res/res_crypto/";
        info->summary = "Sign w/ RSA private key";
        info->description = "Sign string with RSA private key";
        return AST_TEST_NOT_RUN;
    case TEST_EXECUTE:
        break;
    }
 
    ast_test_status_update(test, "Executing RSA signing test\n");
 
    ast_test_capture_init(&cap);
 
    if (!ast_check_command_in_path(command)) {
        ast_test_status_update(test, "couldn't find %s\n", command);
        ast_test_capture_free(&cap);
        return res;
    }
 
    if (getcwd(wd, sizeof(wd)) == NULL) {
        ast_test_status_update(test, "Could not determine current working directory\n");
        ast_test_capture_free(&cap);
        return res;
    }
 
    snprintf(key_dir, sizeof(key_dir), "%s/%s", wd, "tests/keys");
    push_key_dir((const char *)key_dir);
    snprintf(pub, sizeof(pub), "%s/%s.pub", key_dir, keypair1);
 
    ctx = EVP_MD_CTX_create();
    EVP_DigestInit(ctx, EVP_sha1());
    EVP_DigestUpdate(ctx, plaintext, sizeof(plaintext));
    EVP_DigestFinal(ctx, digest, &digestlen);
    EVP_MD_CTX_destroy(ctx);
    ctx = NULL;
 
    if (ast_crypto_reload() != 1) {
        ast_test_status_update(test, "Couldn't force crypto reload\n");
        goto cleanup;
    }
 
    key = ast_key_get(keypair1, AST_KEY_PRIVATE);
 
    if (!key) {
        ast_test_status_update(test, "Couldn't read key: %s\n", keypair1);
        goto cleanup;
    }
 
    memset(buf, 0, sizeof(buf));
    if (ast_sign_bin(key, plaintext, sizeof(plaintext), buf) != 0) {
        ast_test_status_update(test, "ast_sign_bin() failed\n");
        goto cleanup;
    }
 
    fsig = ast_file_mkftemp(signpath, 0600);
    if (fsig == NULL) {
        ast_test_status_update(test, "Couldn't open temp signing file\n");
        goto cleanup;
    }
    fwrite(buf, sizeof(char), sizeof(buf), fsig);
    fclose(fsig);
    fsig = NULL;
 
    args[PUBLIC] = pub;
    args[SIGNATURE] = signpath;
    if (ast_test_capture_command(&cap, command, args, (const char *)digest, digestlen) != 1) {
        ast_test_status_update(test, "ast_test_capture_command() failed\n");
        goto cleanup;
    }
 
    if (cap.outlen != sizeof(success) - 1 || memcmp(cap.outbuf, success, cap.outlen)) {
        ast_test_status_update(test, "Unexpected value/length for stdout: '%.*s' (%zu)\n", (int) cap.outlen, cap.outbuf, cap.outlen);
        goto cleanup;
    }
 
    if (cap.errlen != 0) {
        ast_test_status_update(test, "Unexpected value for stderr: '%.*s' (%zu)\n", (int) cap.errlen, cap.errbuf, cap.errlen);
        goto cleanup;
    }
 
    if (cap.pid == -1) {
        ast_test_status_update(test, "Invalid process id\n");
        goto cleanup;
    }
 
#if OPENSSL_VERSION_NUMBER >= 0x10100000L
    if (cap.exitcode != 0) {
#else
    if (cap.exitcode != 0 && cap.exitcode != 1) {
#endif
        ast_test_status_update(test, "Child exited %d\n", cap.exitcode);
        goto cleanup;
    }
 
    res = AST_TEST_PASS;
 
cleanup:
    ast_test_capture_free(&cap);
    unlink(signpath);
    pop_key_dir();
    return res;
}
 
AST_TEST_DEFINE(crypto_verify)
{
    int res = AST_TEST_FAIL;
    struct ast_key *key = NULL;
    const char plaintext[23] = "Mary had a little lamb.";
    char wd[PATH_MAX], key_dir[PATH_MAX], priv[PATH_MAX];
    const char *command = "openssl";
    char *args[] = { "openssl", "pkeyutl", "-sign", "-inkey", "PRIVATE", "-pkeyopt", "digest:sha1", NULL };
    enum { PRIVATE = 4 };
    struct ast_test_capture cap;
    unsigned char digest[20];
    unsigned digestlen;
    EVP_MD_CTX *ctx;
 
    switch (cmd) {
    case TEST_INIT:
        info->name = "crypto_verify";
        info->category = "/res/res_crypto/";
        info->summary = "Verify w/ RSA public key";
        info->description = "Verify signature with RSA public key";
        return AST_TEST_NOT_RUN;
    case TEST_EXECUTE:
        break;
    }
 
    ast_test_status_update(test, "Executing RSA signature verification test\n");
 
    ast_test_capture_init(&cap);
 
    if (!ast_check_command_in_path(command)) {
        ast_test_status_update(test, "couldn't find %s\n", command);
        ast_test_capture_free(&cap);
        return res;
    }
 
    if (getcwd(wd, sizeof(wd)) == NULL) {
        ast_test_status_update(test, "Could not determine current working directory\n");
        ast_test_capture_free(&cap);
        return res;
    }
 
    snprintf(key_dir, sizeof(key_dir), "%s/%s", wd, "tests/keys");
    push_key_dir((const char *)key_dir);
    snprintf(priv, sizeof(priv), "%s/%s.key", key_dir, keypair1);
 
    /* because git doesn't preserve permissions */
    (void)chmod(priv, 0400);
 
    if (ast_crypto_reload() != 1) {
        ast_test_status_update(test, "Couldn't force crypto reload\n");
        goto cleanup;
    }
 
    key = ast_key_get(keypair1, AST_KEY_PUBLIC);
 
    if (!key) {
        ast_test_status_update(test, "Couldn't read key: %s\n", keypair1);
        goto cleanup;
    }
 
    ctx = EVP_MD_CTX_create();
    EVP_DigestInit(ctx, EVP_sha1());
    EVP_DigestUpdate(ctx, plaintext, sizeof(plaintext));
    EVP_DigestFinal(ctx, digest, &digestlen);
    EVP_MD_CTX_destroy(ctx);
 
    args[PRIVATE] = priv;
    if (ast_test_capture_command(&cap, command, args, (const char *)digest, sizeof(digest)) != 1) {
        ast_test_status_update(test, "ast_test_capture_command() failed\n");
        goto cleanup;
    }
 
    if (cap.outlen != (AST_CRYPTO_RSA_KEY_BITS / 8)) {
        ast_test_status_update(test, "Unexpected length for stdout: %zu\n", cap.outlen);
        goto cleanup;
    }
 
    if (cap.errlen != 0) {
        ast_test_status_update(test, "Unexpected value/length for stderr: '%.*s'\n", (int) cap.errlen, cap.errbuf);
        goto cleanup;
    }
 
    if (cap.pid == -1) {
        ast_test_status_update(test, "Invalid process id\n");
        goto cleanup;
    }
 
    if (cap.exitcode != 0) {
        ast_test_status_update(test, "Child exited %d\n", cap.exitcode);
        goto cleanup;
    }
 
    if (ast_check_signature_bin(key, plaintext, sizeof(plaintext), (const unsigned char *)cap.outbuf) != 0) {
        ast_test_status_update(test, "ast_check_signature_bin() failed\n");
        goto cleanup;
    }
 
    res = AST_TEST_PASS;
 
cleanup:
    ast_test_capture_free(&cap);
    pop_key_dir();
    return res;
}
 
AST_TEST_DEFINE(crypto_aes_encrypt)
{
    int res = AST_TEST_FAIL;
    const unsigned char key[16] = {
        0x01, 0x23, 0x45, 0x67, 0x89, 0x01, 0x23, 0x45,
        0x67, 0x89, 0x01, 0x23, 0x45, 0x67, 0x89, 0x01
    };
    const unsigned char plaintext[16] = "Mary had a littl";
    const char *command = "openssl";
    char *args[] = { "openssl", "enc", "-aes-128-ecb", "-d", "-K", "KEY", "-nopad", NULL };
    enum { KEY = 5 };
    struct ast_test_capture cap;
    unsigned char buf[16];
    ast_aes_encrypt_key aes_key;
 
    switch (cmd) {
    case TEST_INIT:
        info->name = "crypto_aes_encrypt";
        info->category = "/res/res_crypto/";
        info->summary = "Encrypt test AES-128-ECB";
        info->description = "Encrypt a test string using AES-128 and ECB";
        return AST_TEST_NOT_RUN;
    case TEST_EXECUTE:
        break;
    }
 
    ast_test_status_update(test, "Executing AES-ECB encryption test\n");
 
    ast_test_capture_init(&cap);
 
    if (!ast_check_command_in_path(command)) {
        ast_test_status_update(test, "couldn't find %s\n", command);
        return res;
    }
 
    memset(buf, 0, sizeof(buf));
    ast_aes_set_encrypt_key(key, &aes_key);
    if (ast_aes_encrypt(plaintext, buf, &aes_key) <= 0) {
        ast_test_status_update(test, "ast_aes_encrypt() failed\n");
        goto cleanup;
    }
 
    args[KEY] = hexstring(key, sizeof(key));
    if (ast_test_capture_command(&cap, command, args, (const char *)buf, sizeof(buf)) != 1) {
        ast_test_status_update(test, "ast_test_capture_command() failed\n");
        goto cleanup;
    }
 
    if (cap.outlen != sizeof(plaintext) || memcmp(cap.outbuf, plaintext, cap.outlen)) {
        ast_test_status_update(test, "Unexpected value/length for stdout: '%.*s' (%zu)\n", (int) cap.outlen, cap.outbuf, cap.outlen);
        goto cleanup;
    }
 
    if (cap.errlen != 0) {
        ast_test_status_update(test, "Unexpected value/length for stderr: '%.*s'\n", (int) cap.errlen, cap.errbuf);
        goto cleanup;
    }
 
    if (cap.pid == -1) {
        ast_test_status_update(test, "Invalid process id\n");
        goto cleanup;
    }
 
    if (cap.exitcode != 0) {
        ast_test_status_update(test, "Child exited %d\n", cap.exitcode);
        goto cleanup;
    }
 
    res = AST_TEST_PASS;
 
cleanup:
    ast_free(args[KEY]);
    ast_test_capture_free(&cap);
    return res;
}
 
AST_TEST_DEFINE(crypto_aes_decrypt)
{
    int res = AST_TEST_FAIL;
    const unsigned char key[16] = {
        0x01, 0x23, 0x45, 0x67, 0x89, 0x01, 0x23, 0x45,
        0x67, 0x89, 0x01, 0x23, 0x45, 0x67, 0x89, 0x01
    };
    const unsigned char plaintext[16] = "Mary had a littl";
    unsigned char buf[16];
    const char *command = "openssl";
    char *args[] = { "openssl", "enc", "-aes-128-ecb", "-e", "-K", "KEY", "-nopad", NULL };
    enum { KEY = 5 };
    struct ast_test_capture cap;
    ast_aes_encrypt_key aes_key;
 
    switch (cmd) {
    case TEST_INIT:
        info->name = "crypto_aes_decrypt";
        info->category = "/res/res_crypto/";
        info->summary = "Decrypt test AES-128-ECB";
        info->description = "Decrypt a test string using AES-128 and ECB";
        return AST_TEST_NOT_RUN;
    case TEST_EXECUTE:
        break;
    }
 
    ast_test_status_update(test, "Executing AES-ECB decryption test\n");
 
    ast_test_capture_init(&cap);
 
    if (!ast_check_command_in_path(command)) {
        ast_test_status_update(test, "couldn't find %s\n", command);
        return res;
    }
 
    args[KEY] = hexstring(key, sizeof(key));
    if (ast_test_capture_command(&cap, command, args, (const char *)plaintext, sizeof(plaintext)) != 1) {
        ast_test_status_update(test, "ast_test_capture_command() failed\n");
        goto cleanup;
    }
 
    if (cap.outlen != sizeof(buf)) {
        ast_test_status_update(test, "Unexpected length for stdout: %zu\n", cap.outlen);
        goto cleanup;
    }
 
    if (cap.errlen != 0) {
        ast_test_status_update(test, "Unexpected value/length for stderr: '%.*s'\n", (int) cap.errlen, cap.errbuf);
        goto cleanup;
    }
 
    if (cap.pid == -1) {
        ast_test_status_update(test, "Invalid process id\n");
        goto cleanup;
    }
 
    if (cap.exitcode != 0) {
        ast_test_status_update(test, "Child exited %d\n", cap.exitcode);
        goto cleanup;
    }
 
    memset(buf, 0, sizeof(buf));
    ast_aes_set_decrypt_key(key, &aes_key);
    if (ast_aes_decrypt((const unsigned char *)cap.outbuf, buf, &aes_key) <= 0) {
        ast_test_status_update(test, "ast_aes_decrypt() failed\n");
        goto cleanup;
    }
 
    if (memcmp(plaintext, buf, sizeof(plaintext))) {
        ast_test_status_update(test, "AES decryption mismatch\n");
        goto cleanup;
    }
 
    res = AST_TEST_PASS;
 
cleanup:
    ast_free(args[KEY]);
    ast_test_capture_free(&cap);
    return res;
}
 
static int unload_module(void)
{
    AST_TEST_UNREGISTER(crypto_rsa_encrypt);
    AST_TEST_UNREGISTER(crypto_rsa_decrypt);
    AST_TEST_UNREGISTER(crypto_sign);
    AST_TEST_UNREGISTER(crypto_verify);
    AST_TEST_UNREGISTER(crypto_aes_encrypt);
    AST_TEST_UNREGISTER(crypto_aes_decrypt);
    return 0;
}
 
static int load_module(void)
{
    AST_TEST_REGISTER(crypto_rsa_encrypt);
    AST_TEST_REGISTER(crypto_rsa_decrypt);
    AST_TEST_REGISTER(crypto_sign);
    AST_TEST_REGISTER(crypto_verify);
    AST_TEST_REGISTER(crypto_aes_encrypt);
    AST_TEST_REGISTER(crypto_aes_decrypt);
    return AST_MODULE_LOAD_SUCCESS;
}
 
AST_MODULE_INFO(ASTERISK_GPL_KEY, AST_MODFLAG_DEFAULT, "Crypto test module",
    .support_level = AST_MODULE_SUPPORT_CORE,
    .load = load_module,
    .unload = unload_module,
    .requires = "res_crypto",
);