EVP_CIPHER_CTX_type
calg->algorithm = OBJ_nid2obj(EVP_CIPHER_CTX_type(ctx));
encalg->algorithm = OBJ_nid2obj(EVP_CIPHER_CTX_type(ctx));
wrap_nid = EVP_CIPHER_CTX_type(ctx);