otp_crypto.c

Include dependency graph for otp_crypto.c:

digraph {
    graph [bgcolor="#00000000"]
    node [shape=rectangle style=filled fillcolor="#FFFFFF" font=Helvetica padding=2]
    edge [color="#1414CE"]
    "10" [label="stdbool.h" tooltip="stdbool.h"]
    "32" [label="interop.h" tooltip="interop.h"]
    "26" [label="refc_binary.h" tooltip="refc_binary.h"]
    "3" [label="nifs.h" tooltip="nifs.h"]
    "31" [label="defaultatoms.h" tooltip="defaultatoms.h"]
    "4" [label="atom.h" tooltip="atom.h"]
    "13" [label="assert.h" tooltip="assert.h"]
    "24" [label="utils.h" tooltip="utils.h"]
    "38" [label="mbedtls/sha1.h" tooltip="mbedtls/sha1.h"]
    "18" [label="synclist.h" tooltip="synclist.h"]
    "17" [label="list.h" tooltip="list.h"]
    "5" [label="stdint.h" tooltip="stdint.h"]
    "6" [label="stdlib.h" tooltip="stdlib.h"]
    "7" [label="context.h" tooltip="context.h"]
    "1" [label="/__w/AtomVM/AtomVM/src/libAtomVM/otp_crypto.c" tooltip="/__w/AtomVM/AtomVM/src/libAtomVM/otp_crypto.c" fillcolor="#BFBFBF"]
    "2" [label="otp_crypto.h" tooltip="otp_crypto.h"]
    "23" [label="memory.h" tooltip="memory.h"]
    "34" [label="mbedtls/ctr_drbg.h" tooltip="mbedtls/ctr_drbg.h"]
    "27" [label="resources.h" tooltip="resources.h"]
    "21" [label="term.h" tooltip="term.h"]
    "25" [label="stddef.h" tooltip="stddef.h"]
    "11" [label="erl_nif.h" tooltip="erl_nif.h"]
    "30" [label="exportedfunction.h" tooltip="exportedfunction.h"]
    "41" [label="mbedtls/version.h" tooltip="mbedtls/version.h"]
    "35" [label="mbedtls/entropy.h" tooltip="mbedtls/entropy.h"]
    "14" [label="limits.h" tooltip="limits.h"]
    "9" [label="atom_table.h" tooltip="atom_table.h"]
    "22" [label="string.h" tooltip="string.h"]
    "12" [label="term_typedef.h" tooltip="term_typedef.h"]
    "8" [label="globalcontext.h" tooltip="globalcontext.h"]
    "33" [label="sys_mbedtls.h" tooltip="sys_mbedtls.h"]
    "40" [label="mbedtls/sha512.h" tooltip="mbedtls/sha512.h"]
    "20" [label="smp.h" tooltip="smp.h"]
    "37" [label="mbedtls/md5.h" tooltip="mbedtls/md5.h"]
    "29" [label="timer_list.h" tooltip="timer_list.h"]
    "28" [label="mailbox.h" tooltip="mailbox.h"]
    "39" [label="mbedtls/sha256.h" tooltip="mbedtls/sha256.h"]
    "42" [label="trace.h" tooltip="trace.h"]
    "19" [label="stdio.h" tooltip="stdio.h"]
    "16" [label="ets.h" tooltip="ets.h"]
    "36" [label="mbedtls/cipher.h" tooltip="mbedtls/cipher.h"]
    "15" [label="inttypes.h" tooltip="inttypes.h"]
    "32" -> "7" [dir=forward tooltip="include"]
    "32" -> "21" [dir=forward tooltip="include"]
    "26" -> "10" [dir=forward tooltip="include"]
    "26" -> "6" [dir=forward tooltip="include"]
    "26" -> "17" [dir=forward tooltip="include"]
    "26" -> "27" [dir=forward tooltip="include"]
    "3" -> "4" [dir=forward tooltip="include"]
    "3" -> "7" [dir=forward tooltip="include"]
    "3" -> "30" [dir=forward tooltip="include"]
    "31" -> "8" [dir=forward tooltip="include"]
    "4" -> "5" [dir=forward tooltip="include"]
    "4" -> "6" [dir=forward tooltip="include"]
    "24" -> "25" [dir=forward tooltip="include"]
    "24" -> "19" [dir=forward tooltip="include"]
    "24" -> "6" [dir=forward tooltip="include"]
    "18" -> "19" [dir=forward tooltip="include"]
    "18" -> "17" [dir=forward tooltip="include"]
    "18" -> "20" [dir=forward tooltip="include"]
    "17" -> "10" [dir=forward tooltip="include"]
    "7" -> "8" [dir=forward tooltip="include"]
    "7" -> "17" [dir=forward tooltip="include"]
    "7" -> "28" [dir=forward tooltip="include"]
    "7" -> "20" [dir=forward tooltip="include"]
    "7" -> "21" [dir=forward tooltip="include"]
    "7" -> "29" [dir=forward tooltip="include"]
    "1" -> "2" [dir=forward tooltip="include"]
    "1" -> "7" [dir=forward tooltip="include"]
    "1" -> "31" [dir=forward tooltip="include"]
    "1" -> "8" [dir=forward tooltip="include"]
    "1" -> "32" [dir=forward tooltip="include"]
    "1" -> "3" [dir=forward tooltip="include"]
    "1" -> "33" [dir=forward tooltip="include"]
    "1" -> "21" [dir=forward tooltip="include"]
    "1" -> "12" [dir=forward tooltip="include"]
    "1" -> "36" [dir=forward tooltip="include"]
    "1" -> "34" [dir=forward tooltip="include"]
    "1" -> "35" [dir=forward tooltip="include"]
    "1" -> "37" [dir=forward tooltip="include"]
    "1" -> "38" [dir=forward tooltip="include"]
    "1" -> "39" [dir=forward tooltip="include"]
    "1" -> "40" [dir=forward tooltip="include"]
    "1" -> "41" [dir=forward tooltip="include"]
    "1" -> "42" [dir=forward tooltip="include"]
    "2" -> "3" [dir=forward tooltip="include"]
    "23" -> "5" [dir=forward tooltip="include"]
    "23" -> "6" [dir=forward tooltip="include"]
    "23" -> "11" [dir=forward tooltip="include"]
    "23" -> "12" [dir=forward tooltip="include"]
    "23" -> "24" [dir=forward tooltip="include"]
    "27" -> "6" [dir=forward tooltip="include"]
    "27" -> "11" [dir=forward tooltip="include"]
    "27" -> "17" [dir=forward tooltip="include"]
    "27" -> "23" [dir=forward tooltip="include"]
    "21" -> "10" [dir=forward tooltip="include"]
    "21" -> "5" [dir=forward tooltip="include"]
    "21" -> "19" [dir=forward tooltip="include"]
    "21" -> "6" [dir=forward tooltip="include"]
    "21" -> "22" [dir=forward tooltip="include"]
    "21" -> "23" [dir=forward tooltip="include"]
    "21" -> "26" [dir=forward tooltip="include"]
    "21" -> "24" [dir=forward tooltip="include"]
    "21" -> "12" [dir=forward tooltip="include"]
    "11" -> "12" [dir=forward tooltip="include"]
    "30" -> "21" [dir=forward tooltip="include"]
    "9" -> "10" [dir=forward tooltip="include"]
    "9" -> "4" [dir=forward tooltip="include"]
    "12" -> "13" [dir=forward tooltip="include"]
    "12" -> "14" [dir=forward tooltip="include"]
    "12" -> "15" [dir=forward tooltip="include"]
    "12" -> "5" [dir=forward tooltip="include"]
    "8" -> "5" [dir=forward tooltip="include"]
    "8" -> "4" [dir=forward tooltip="include"]
    "8" -> "9" [dir=forward tooltip="include"]
    "8" -> "11" [dir=forward tooltip="include"]
    "8" -> "16" [dir=forward tooltip="include"]
    "8" -> "17" [dir=forward tooltip="include"]
    "8" -> "28" [dir=forward tooltip="include"]
    "8" -> "20" [dir=forward tooltip="include"]
    "8" -> "18" [dir=forward tooltip="include"]
    "8" -> "21" [dir=forward tooltip="include"]
    "8" -> "29" [dir=forward tooltip="include"]
    "33" -> "34" [dir=forward tooltip="include"]
    "33" -> "35" [dir=forward tooltip="include"]
    "20" -> "10" [dir=forward tooltip="include"]
    "29" -> "10" [dir=forward tooltip="include"]
    "29" -> "5" [dir=forward tooltip="include"]
    "29" -> "17" [dir=forward tooltip="include"]
    "28" -> "10" [dir=forward tooltip="include"]
    "28" -> "17" [dir=forward tooltip="include"]
    "28" -> "12" [dir=forward tooltip="include"]
    "28" -> "24" [dir=forward tooltip="include"]
    "16" -> "17" [dir=forward tooltip="include"]
    "16" -> "18" [dir=forward tooltip="include"]
    "16" -> "21" [dir=forward tooltip="include"]
}

Defines

MAX_MD_SIZE 64
DEFINE_HASH_FOLD(ALGORITHM, SUFFIX)     static InteropFunctionResult ALGORITHM##_hash_fold_fun(term

t, void *accum)                                                      \

{                                                                                                                                \

mbedtls_##ALGORITHM##_context *md_ctx = (mbedtls_##ALGORITHM##_context *) accum;                                             \

if (

term_is_integer(t)) {                                                                                                    \             avm_int64_t tmp = term_maybe_unbox_int64

(t);                                                                             \

if (tmp < 0 || tmp > 255) {                                                                                              \

return

InteropBadArg

;                                                                                                \

}                                                                                                                        \

uint8_t val = (uint8_t) tmp;                                                                                             \

if (

UNLIKELY

(mbedtls_##ALGORITHM##_update##SUFFIX(md_ctx, &val, 1) != 0)) {                                              \

return

InteropBadArg

;                                                                                                \

}                                                                                                                        \

} else /*

term_is_binary

(t) */ {                                                                                             \

if (

UNLIKELY(mbedtls_##ALGORITHM##_update##SUFFIX(md_ctx, (uint8_t *) term_binary_data(t), term_binary_size

(t)) != 0)) { \

return

InteropBadArg

;                                                                                                \

}                                                                                                                        \

}                                                                                                                            \

return

InteropOk

;                                                                                                            \

}


DEFINE_HASH_FOLD_NORET(ALGORITHM, SUFFIX)     static InteropFunctionResult ALGORITHM##_hash_fold_fun(term

t, void *accum)                                 \

{                                                                                                           \

mbedtls_##ALGORITHM##_context *md_ctx = (mbedtls_##ALGORITHM##_context *) accum;                        \

if (

term_is_integer(t)) {                                                                               \             avm_int64_t tmp = term_maybe_unbox_int64

(t);                                                        \

if (tmp < 0 || tmp > 255) {                                                                         \

return

InteropBadArg

;                                                                           \

}                                                                                                   \

uint8_t val = (uint8_t) tmp;                                                                        \

mbedtls_##ALGORITHM##_update##SUFFIX(md_ctx, &val, 1);                                              \

} else /*

term_is_binary

(t) */ {                                                                        \

mbedtls_##ALGORITHM##_update##SUFFIX(md_ctx, (uint8_t *)

term_binary_data(t), term_binary_size

(t)); \

}                                                                                                       \

return

InteropOk

;                                                                                       \

}


DEFINE_DO_HASH(ALGORITHM, SUFFIX)     static bool do_##ALGORITHM##_hash(term

data, unsigned char *dst)                                                   \

{                                                                                                                  \

mbedtls_##ALGORITHM##_context md_ctx;                                                                          \

\

mbedtls_##ALGORITHM##_init(&md_ctx);                                                                           \

mbedtls_##ALGORITHM##_starts##SUFFIX(&md_ctx);                                                                 \

\

InteropFunctionResult result = interop_chardata_fold

(data, ALGORITHM##_hash_fold_fun, NULL, (void *) &md_ctx); \

if (

UNLIKELY(result != InteropOk

)) {                                                                           \

return false;                                                                                              \

}                                                                                                              \

\

if (

UNLIKELY

(mbedtls_##ALGORITHM##_finish##SUFFIX(&md_ctx, dst) != 0)) {                                       \

return false;                                                                                              \

}                                                                                                              \

\

return true;                                                                                                   \

}


DEFINE_DO_HASH_IS_OTHER(ALGORITHM, SUFFIX, IS_OTHER)     static bool do_##ALGORITHM##_hash_##IS_OTHER(term

data, unsigned char *dst)                                        \

{                                                                                                                  \

mbedtls_##ALGORITHM##_context md_ctx;                                                                          \

\

mbedtls_##ALGORITHM##_init(&md_ctx);                                                                           \

mbedtls_##ALGORITHM##_starts##SUFFIX(&md_ctx, IS_OTHER);                                                       \

\

InteropFunctionResult result = interop_chardata_fold

(data, ALGORITHM##_hash_fold_fun, NULL, (void *) &md_ctx); \

if (

UNLIKELY(result != InteropOk

)) {                                                                           \

return false;                                                                                              \

}                                                                                                              \

\

if (

UNLIKELY

(mbedtls_##ALGORITHM##_finish##SUFFIX(&md_ctx, dst) != 0)) {                                       \

return false;                                                                                              \

}                                                                                                              \

\

return true;                                                                                                   \

}


DEFINE_DO_HASH_NORET(ALGORITHM, SUFFIX)     static bool do_##ALGORITHM##_hash(term

data, unsigned char *dst)                                                   \

{                                                                                                                  \

mbedtls_##ALGORITHM##_context md_ctx;                                                                          \

\

mbedtls_##ALGORITHM##_init(&md_ctx);                                                                           \

mbedtls_##ALGORITHM##_starts##SUFFIX(&md_ctx);                                                                 \

\

InteropFunctionResult result = interop_chardata_fold

(data, ALGORITHM##_hash_fold_fun, NULL, (void *) &md_ctx); \

if (

UNLIKELY(result != InteropOk

)) {                                                                           \

return false;                                                                                              \

}                                                                                                              \

\

mbedtls_##ALGORITHM##_finish##SUFFIX(&md_ctx, dst);                                                            \

\

return true;                                                                                                   \

}


DEFINE_DO_HASH_NORET_IS_OTHER(ALGORITHM, SUFFIX, IS_OTHER)     static bool do_##ALGORITHM##_hash_##IS_OTHER(term

data, unsigned char *dst)                                        \

{                                                                                                                  \

mbedtls_##ALGORITHM##_context md_ctx;                                                                          \

\

mbedtls_##ALGORITHM##_init(&md_ctx);                                                                           \

mbedtls_##ALGORITHM##_starts##SUFFIX(&md_ctx, IS_OTHER);                                                       \

\

InteropFunctionResult result = interop_chardata_fold

(data, ALGORITHM##_hash_fold_fun, NULL, (void *) &md_ctx); \

if (

UNLIKELY(result != InteropOk

)) {                                                                           \

return false;                                                                                              \

}                                                                                                              \

\

mbedtls_##ALGORITHM##_finish##SUFFIX(&md_ctx, dst);                                                            \

\

return true;                                                                                                   \

}


Enums

enum crypto_algorithm

Values:

enumerator CryptoInvalidAlgorithm = 0
enumerator CryptoMd5
enumerator CryptoSha1
enumerator CryptoSha224
enumerator CryptoSha256
enumerator CryptoSha384
enumerator CryptoSha512

Functions

static InteropFunctionResult md5_hash_fold_fun(term t, void *accum)
static bool do_md5_hash(term data, unsigned char *dst)
static InteropFunctionResult sha1_hash_fold_fun(term t, void *accum)
static bool do_sha1_hash(term data, unsigned char *dst)
static InteropFunctionResult sha256_hash_fold_fun(term t, void *accum)
static bool do_sha256_hash_true(term data, unsigned char *dst)
static bool do_sha256_hash_false(term data, unsigned char *dst)
static InteropFunctionResult sha512_hash_fold_fun(term t, void *accum)
static bool do_sha512_hash_true(term data, unsigned char *dst)
static bool do_sha512_hash_false(term data, unsigned char *dst)
static term nif_crypto_hash(Context *ctx, int argc, term argv[])
static term handle_iodata(term iodata, const void **data, size_t *len, void **allocated_ptr)
static bool bool_to_mbedtls_operation(term encrypt_flag, mbedtls_operation_t *operation)
static term make_crypto_error(const char *file, int line, const char *message, Context *ctx)
static term nif_crypto_crypto_one_time(Context *ctx, int argc, term argv[])
term nif_crypto_strong_rand_bytes(Context *ctx, int argc, term argv[])
const struct Nif *otp_crypto_nif_get_nif(const char *nifname)

Variables

static const AtomStringIntPair crypto_algorithm_table [] = {{ATOM_STR("\x3", "md5"), CryptoMd5 },{ATOM_STR("\x3", "sha"), CryptoSha1 },{ATOM_STR("\x6", "sha224"), CryptoSha224 },{ATOM_STR("\x6", "sha256"), CryptoSha256 },{ATOM_STR("\x6", "sha384"), CryptoSha384 },{ATOM_STR("\x6", "sha512"), CryptoSha512 },}
static const AtomStringIntPair cipher_table [] = {{ATOM_STR("\xB", "aes_128_ecb"), MBEDTLS_CIPHER_AES_128_ECB },{ATOM_STR("\xB", "aes_192_ecb"), MBEDTLS_CIPHER_AES_192_ECB },{ATOM_STR("\xB", "aes_256_ecb"), MBEDTLS_CIPHER_AES_256_ECB },{ATOM_STR("\xB", "aes_128_cbc"), MBEDTLS_CIPHER_AES_128_CBC },{ATOM_STR("\xB", "aes_192_cbc"), MBEDTLS_CIPHER_AES_192_CBC },{ATOM_STR("\xB", "aes_256_cbc"), MBEDTLS_CIPHER_AES_256_CBC },{ATOM_STR("\xE", "aes_128_cfb128"), MBEDTLS_CIPHER_AES_128_CFB128 },{ATOM_STR("\xE", "aes_192_cfb128"), MBEDTLS_CIPHER_AES_192_CFB128 },{ATOM_STR("\xE", "aes_256_cfb128"), MBEDTLS_CIPHER_AES_256_CFB128 },{ATOM_STR("\xB", "aes_128_ctr"), MBEDTLS_CIPHER_AES_128_CTR },{ATOM_STR("\xB", "aes_192_ctr"), MBEDTLS_CIPHER_AES_192_CTR },{ATOM_STR("\xB", "aes_256_ctr"), MBEDTLS_CIPHER_AES_256_CTR },}
static const AtomStringIntPair padding_table [] = {{ATOM_STR("\x4", "none"), MBEDTLS_PADDING_NONE },{ATOM_STR("\xC", "pkcs_padding"), MBEDTLS_PADDING_PKCS7 },}
static const struct Nif crypto_hash_nif = {.base.type = NIFFunctionType, .nif_ptr = nif_crypto_hash}
static const struct Nif crypto_crypto_one_time_nif = {.base.type = NIFFunctionType, .nif_ptr = nif_crypto_crypto_one_time}
static const struct Nif crypto_strong_rand_bytes_nif = {.base.type = NIFFunctionType, .nif_ptr = nif_crypto_strong_rand_bytes}