int EVP_BytesToKey(const EVP_CIPHER *type, const EVP_MD *md,
                   const unsigned char *salt, const unsigned char *data,
                   int datal, int count, unsigned char *key,
                   unsigned char *iv)
{
    EVP_MD_CTX *c;
    unsigned char md_buf[EVP_MAX_MD_SIZE];
    int niv, nkey, addmd = 0;
    unsigned int mds = 0, i;
    int rv = 0;
    nkey = EVP_CIPHER_key_length(type);
    niv = EVP_CIPHER_iv_length(type);
    OPENSSL_assert(nkey <= EVP_MAX_KEY_LENGTH);
    OPENSSL_assert(niv <= EVP_MAX_IV_LENGTH);
    if (data == NULL)
        return (nkey);
    c = EVP_MD_CTX_new();
    if (c == NULL)
        goto err;
    for (;;) {
        if (!EVP_DigestInit_ex(c, md, NULL))
            goto err;
        if (addmd++)
            if (!EVP_DigestUpdate(c, &(md_buf[0]), mds))
                goto err;
        if (!EVP_DigestUpdate(c, data, datal))
            goto err;
        if (salt != NULL)
            if (!EVP_DigestUpdate(c, salt, PKCS5_SALT_LEN))
                goto err;
        if (!EVP_DigestFinal_ex(c, &(md_buf[0]), &mds))
            goto err;
        for (i = 1; i < (unsigned int)count; i++) {
            if (!EVP_DigestInit_ex(c, md, NULL))
                goto err;
            if (!EVP_DigestUpdate(c, &(md_buf[0]), mds))
                goto err;
            if (!EVP_DigestFinal_ex(c, &(md_buf[0]), &mds))
                goto err;
        }
        i = 0;
        if (nkey) {
            for (;;) {
                if (nkey == 0)
                    break;
                if (i == mds)
                    break;
                if (key != NULL)
                    *(key++) = md_buf[i];
                nkey--;
                i++;
            }
        }
        if (niv && (i != mds)) {
            for (;;) {
                if (niv == 0)
                    break;
                if (i == mds)
                    break;
                if (iv != NULL)
                    *(iv++) = md_buf[i];
                niv--;
                i++;
            }
        }
        if ((nkey == 0) && (niv == 0))
            break;
    }
    rv = EVP_CIPHER_key_length(type);
 err:
    EVP_MD_CTX_free(c);
    OPENSSL_cleanse(md_buf, sizeof(md_buf));
    return rv;
}
['int EVP_BytesToKey(const EVP_CIPHER *type, const EVP_MD *md,\n                   const unsigned char *salt, const unsigned char *data,\n                   int datal, int count, unsigned char *key,\n                   unsigned char *iv)\n{\n    EVP_MD_CTX *c;\n    unsigned char md_buf[EVP_MAX_MD_SIZE];\n    int niv, nkey, addmd = 0;\n    unsigned int mds = 0, i;\n    int rv = 0;\n    nkey = EVP_CIPHER_key_length(type);\n    niv = EVP_CIPHER_iv_length(type);\n    OPENSSL_assert(nkey <= EVP_MAX_KEY_LENGTH);\n    OPENSSL_assert(niv <= EVP_MAX_IV_LENGTH);\n    if (data == NULL)\n        return (nkey);\n    c = EVP_MD_CTX_new();\n    if (c == NULL)\n        goto err;\n    for (;;) {\n        if (!EVP_DigestInit_ex(c, md, NULL))\n            goto err;\n        if (addmd++)\n            if (!EVP_DigestUpdate(c, &(md_buf[0]), mds))\n                goto err;\n        if (!EVP_DigestUpdate(c, data, datal))\n            goto err;\n        if (salt != NULL)\n            if (!EVP_DigestUpdate(c, salt, PKCS5_SALT_LEN))\n                goto err;\n        if (!EVP_DigestFinal_ex(c, &(md_buf[0]), &mds))\n            goto err;\n        for (i = 1; i < (unsigned int)count; i++) {\n            if (!EVP_DigestInit_ex(c, md, NULL))\n                goto err;\n            if (!EVP_DigestUpdate(c, &(md_buf[0]), mds))\n                goto err;\n            if (!EVP_DigestFinal_ex(c, &(md_buf[0]), &mds))\n                goto err;\n        }\n        i = 0;\n        if (nkey) {\n            for (;;) {\n                if (nkey == 0)\n                    break;\n                if (i == mds)\n                    break;\n                if (key != NULL)\n                    *(key++) = md_buf[i];\n                nkey--;\n                i++;\n            }\n        }\n        if (niv && (i != mds)) {\n            for (;;) {\n                if (niv == 0)\n                    break;\n                if (i == mds)\n                    break;\n                if (iv != NULL)\n                    *(iv++) = md_buf[i];\n                niv--;\n                i++;\n            }\n        }\n        if ((nkey == 0) && (niv == 0))\n            break;\n    }\n    rv = EVP_CIPHER_key_length(type);\n err:\n    EVP_MD_CTX_free(c);\n    OPENSSL_cleanse(md_buf, sizeof(md_buf));\n    return rv;\n}', 'int EVP_CIPHER_key_length(const EVP_CIPHER *cipher)\n{\n    return cipher->key_len;\n}', 'int EVP_CIPHER_iv_length(const EVP_CIPHER *cipher)\n{\n    return cipher->iv_len;\n}', 'EVP_MD_CTX *EVP_MD_CTX_new(void)\n{\n    return OPENSSL_zalloc(sizeof(EVP_MD_CTX));\n}', 'void *CRYPTO_zalloc(size_t num, const char *file, int line)\n{\n    void *ret = CRYPTO_malloc(num, file, line);\n    FAILTEST();\n    if (ret != NULL)\n        memset(ret, 0, num);\n    return ret;\n}', 'void *CRYPTO_malloc(size_t num, const char *file, int line)\n{\n    void *ret = NULL;\n    if (malloc_impl != NULL && malloc_impl != CRYPTO_malloc)\n        return malloc_impl(num, file, line);\n    if (num == 0)\n        return NULL;\n    FAILTEST();\n    allow_customize = 0;\n#ifndef OPENSSL_NO_CRYPTO_MDEBUG\n    if (call_malloc_debug) {\n        CRYPTO_mem_debug_malloc(NULL, num, 0, file, line);\n        ret = malloc(num);\n        CRYPTO_mem_debug_malloc(ret, num, 1, file, line);\n    } else {\n        ret = malloc(num);\n    }\n#else\n    osslargused(file); osslargused(line);\n    ret = malloc(num);\n#endif\n    return ret;\n}', 'int EVP_DigestUpdate(EVP_MD_CTX *ctx, const void *data, size_t count)\n{\n    return ctx->update(ctx, data, count);\n}', 'void EVP_MD_CTX_free(EVP_MD_CTX *ctx)\n{\n    EVP_MD_CTX_reset(ctx);\n    OPENSSL_free(ctx);\n}', 'void CRYPTO_free(void *str, const char *file, int line)\n{\n    if (free_impl != NULL && free_impl != &CRYPTO_free) {\n        free_impl(str, file, line);\n        return;\n    }\n#ifndef OPENSSL_NO_CRYPTO_MDEBUG\n    if (call_malloc_debug) {\n        CRYPTO_mem_debug_free(str, 0, file, line);\n        free(str);\n        CRYPTO_mem_debug_free(str, 1, file, line);\n    } else {\n        free(str);\n    }\n#else\n    free(str);\n#endif\n}']