text: /*
   * Copyright 2015-2016 The OpenSSL Project Authors. All Rights Reserved.
   *
   * Licensed under the OpenSSL license (the "License").  You may not use
   * this file except in compliance with the License.  You can obtain a copy
   * in the file LICENSE in the source distribution or at
   * https://www.openssl.org/source/license.html
   */
  
  struct evp_pkey_ctx_st {
      /* Method associated with this operation */
      const EVP_PKEY_METHOD *pmeth;
      /* Engine that implements this method or NULL if builtin */
      ENGINE *engine;
      /* Key: may be NULL */
      EVP_PKEY *pkey;
      /* Peer key for key agreement, may be NULL */
      EVP_PKEY *peerkey;
      /* Actual operation */
      int operation;
      /* Algorithm specific data */
      void *data;
      /* Application specific data */
      void *app_data;
      /* Keygen callback */
      EVP_PKEY_gen_cb *pkey_gencb;
      /* implementation specific keygen data */
      int *keygen_info;
      int keygen_info_count;
  } /* EVP_PKEY_CTX */ ;
  
  #define EVP_PKEY_FLAG_DYNAMIC   1
  
  struct evp_pkey_method_st {
      int pkey_id;
      int flags;
      int (*init) (EVP_PKEY_CTX *ctx);
      int (*copy) (EVP_PKEY_CTX *dst, EVP_PKEY_CTX *src);
      void (*cleanup) (EVP_PKEY_CTX *ctx);
      int (*paramgen_init) (EVP_PKEY_CTX *ctx);
      int (*paramgen) (EVP_PKEY_CTX *ctx, EVP_PKEY *pkey);
      int (*keygen_init) (EVP_PKEY_CTX *ctx);
      int (*keygen) (EVP_PKEY_CTX *ctx, EVP_PKEY *pkey);
      int (*sign_init) (EVP_PKEY_CTX *ctx);
      int (*sign) (EVP_PKEY_CTX *ctx, unsigned char *sig, size_t *siglen,
                   const unsigned char *tbs, size_t tbslen);
      int (*verify_init) (EVP_PKEY_CTX *ctx);
      int (*verify) (EVP_PKEY_CTX *ctx,
                     const unsigned char *sig, size_t siglen,
                     const unsigned char *tbs, size_t tbslen);
      int (*verify_recover_init) (EVP_PKEY_CTX *ctx);
      int (*verify_recover) (EVP_PKEY_CTX *ctx,
                             unsigned char *rout, size_t *routlen,
                             const unsigned char *sig, size_t siglen);
      int (*signctx_init) (EVP_PKEY_CTX *ctx, EVP_MD_CTX *mctx);
      int (*signctx) (EVP_PKEY_CTX *ctx, unsigned char *sig, size_t *siglen,
                      EVP_MD_CTX *mctx);
      int (*verifyctx_init) (EVP_PKEY_CTX *ctx, EVP_MD_CTX *mctx);
      int (*verifyctx) (EVP_PKEY_CTX *ctx, const unsigned char *sig, int siglen,
                        EVP_MD_CTX *mctx);
      int (*encrypt_init) (EVP_PKEY_CTX *ctx);
      int (*encrypt) (EVP_PKEY_CTX *ctx, unsigned char *out, size_t *outlen,
                      const unsigned char *in, size_t inlen);
      int (*decrypt_init) (EVP_PKEY_CTX *ctx);
      int (*decrypt) (EVP_PKEY_CTX *ctx, unsigned char *out, size_t *outlen,
                      const unsigned char *in, size_t inlen);
      int (*derive_init) (EVP_PKEY_CTX *ctx);
      int (*derive) (EVP_PKEY_CTX *ctx, unsigned char *key, size_t *keylen);
      int (*ctrl) (EVP_PKEY_CTX *ctx, int type, int p1, void *p2);
      int (*ctrl_str) (EVP_PKEY_CTX *ctx, const char *type, const char *value);
  } /* EVP_PKEY_METHOD */ ;
  
  DEFINE_STACK_OF_CONST(EVP_PKEY_METHOD)
  
  void evp_pkey_set_cb_translate(BN_GENCB *cb, EVP_PKEY_CTX *ctx);
  
  extern const EVP_PKEY_METHOD cmac_pkey_meth;
  extern const EVP_PKEY_METHOD dh_pkey_meth;
  extern const EVP_PKEY_METHOD dhx_pkey_meth;
  extern const EVP_PKEY_METHOD dsa_pkey_meth;
  extern const EVP_PKEY_METHOD ec_pkey_meth;
  extern const EVP_PKEY_METHOD ecx25519_pkey_meth;
  extern const EVP_PKEY_METHOD hmac_pkey_meth;
  extern const EVP_PKEY_METHOD rsa_pkey_meth;
  extern const EVP_PKEY_METHOD tls1_prf_pkey_meth;
  extern const EVP_PKEY_METHOD hkdf_pkey_meth;
  
  struct evp_md_st {
      int type;
      int pkey_type;
      int md_size;
      unsigned long flags;
      int (*init) (EVP_MD_CTX *ctx);
      int (*update) (EVP_MD_CTX *ctx, const void *data, size_t count);
      int (*final) (EVP_MD_CTX *ctx, unsigned char *md);
      int (*copy) (EVP_MD_CTX *to, const EVP_MD_CTX *from);
      int (*cleanup) (EVP_MD_CTX *ctx);
      int block_size;
      int ctx_size;               /* how big does the ctx->md_data need to be */
      /* control function */
      int (*md_ctrl) (EVP_MD_CTX *ctx, int cmd, int p1, void *p2);
  } /* EVP_MD */ ;
  
  struct evp_cipher_st {
      int nid;
      int block_size;
      /* Default value for variable length ciphers */
      int key_len;
      int iv_len;
      /* Various flags */
      unsigned long flags;
      /* init key */
      int (*init) (EVP_CIPHER_CTX *ctx, const unsigned char *key,
                   const unsigned char *iv, int enc);
      /* encrypt/decrypt data */
      int (*do_cipher) (EVP_CIPHER_CTX *ctx, unsigned char *out,
                        const unsigned char *in, size_t inl);
      /* cleanup ctx */
      int (*cleanup) (EVP_CIPHER_CTX *);
      /* how big ctx->cipher_data needs to be */
      int ctx_size;
      /* Populate a ASN1_TYPE with parameters */
      int (*set_asn1_parameters) (EVP_CIPHER_CTX *, ASN1_TYPE *);
      /* Get parameters from a ASN1_TYPE */
      int (*get_asn1_parameters) (EVP_CIPHER_CTX *, ASN1_TYPE *);
      /* Miscellaneous operations */
      int (*ctrl) (EVP_CIPHER_CTX *, int type, int arg, void *ptr);
      /* Application data */
      void *app_data;
  } /* EVP_CIPHER */ ;
  
  /* Macros to code block cipher wrappers */
  
  /* Wrapper functions for each cipher mode */
  
  #define EVP_C_DATA(kstruct, ctx) \
          ((kstruct *)EVP_CIPHER_CTX_get_cipher_data(ctx))
  
  #define BLOCK_CIPHER_ecb_loop() \
          size_t i, bl; \
          bl = EVP_CIPHER_CTX_cipher(ctx)->block_size;    \
          if (inl < bl) return 1;\
          inl -= bl; \
          for (i=0; i <= inl; i+=bl)
  
  #define BLOCK_CIPHER_func_ecb(cname, cprefix, kstruct, ksched) \
  static int cname##_ecb_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out, const unsigned char *in, size_t inl) \
  {\
          BLOCK_CIPHER_ecb_loop() \
              cprefix##_ecb_encrypt(in + i, out + i, &EVP_C_DATA(kstruct,ctx)->ksched, EVP_CIPHER_CTX_encrypting(ctx)); \
          return 1;\
  }
  
  #define EVP_MAXCHUNK ((size_t)1<<(sizeof(long)*8-2))
  
  #define BLOCK_CIPHER_func_ofb(cname, cprefix, cbits, kstruct, ksched) \
      static int cname##_ofb_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out, const unsigned char *in, size_t inl) \
  {\
          while(inl>=EVP_MAXCHUNK) {\
              int num = EVP_CIPHER_CTX_num(ctx);\
              cprefix##_ofb##cbits##_encrypt(in, out, (long)EVP_MAXCHUNK, &EVP_C_DATA(kstruct,ctx)->ksched, EVP_CIPHER_CTX_iv_noconst(ctx), &num); \
              EVP_CIPHER_CTX_set_num(ctx, num);\
              inl-=EVP_MAXCHUNK;\
              in +=EVP_MAXCHUNK;\
              out+=EVP_MAXCHUNK;\
          }\
          if (inl) {\
              int num = EVP_CIPHER_CTX_num(ctx);\
              cprefix##_ofb##cbits##_encrypt(in, out, (long)inl, &EVP_C_DATA(kstruct,ctx)->ksched, EVP_CIPHER_CTX_iv_noconst(ctx), &num); \
              EVP_CIPHER_CTX_set_num(ctx, num);\
          }\
          return 1;\
  }
  
  #define BLOCK_CIPHER_func_cbc(cname, cprefix, kstruct, ksched) \
  static int cname##_cbc_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out, const unsigned char *in, size_t inl) \
  {\
          while(inl>=EVP_MAXCHUNK) \
              {\
              cprefix##_cbc_encrypt(in, out, (long)EVP_MAXCHUNK, &EVP_C_DATA(kstruct,ctx)->ksched, EVP_CIPHER_CTX_iv_noconst(ctx), EVP_CIPHER_CTX_encrypting(ctx));\
              inl-=EVP_MAXCHUNK;\
              in +=EVP_MAXCHUNK;\
              out+=EVP_MAXCHUNK;\
              }\
          if (inl)\
              cprefix##_cbc_encrypt(in, out, (long)inl, &EVP_C_DATA(kstruct,ctx)->ksched, EVP_CIPHER_CTX_iv_noconst(ctx), EVP_CIPHER_CTX_encrypting(ctx));\
          return 1;\
  }
  
  #define BLOCK_CIPHER_func_cfb(cname, cprefix, cbits, kstruct, ksched)  \
  static int cname##_cfb##cbits##_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out, const unsigned char *in, size_t inl) \
  {\
      size_t chunk = EVP_MAXCHUNK;\
      if (cbits == 1)  chunk >>= 3;\
      if (inl < chunk) chunk = inl;\
      while (inl && inl >= chunk)\
      {\
          int num = EVP_CIPHER_CTX_num(ctx);\
          cprefix##_cfb##cbits##_encrypt(in, out, (long) \
              ((cbits == 1) \
                  && !EVP_CIPHER_CTX_test_flags(ctx, EVP_CIPH_FLAG_LENGTH_BITS) \
                  ? inl*8 : inl), \
              &EVP_C_DATA(kstruct, ctx)->ksched, EVP_CIPHER_CTX_iv_noconst(ctx),\
              &num, EVP_CIPHER_CTX_encrypting(ctx));\
          EVP_CIPHER_CTX_set_num(ctx, num);\
          inl -= chunk;\
          in += chunk;\
          out += chunk;\
          if (inl < chunk) chunk = inl;\
      }\
      return 1;\
  }
  
  #define BLOCK_CIPHER_all_funcs(cname, cprefix, cbits, kstruct, ksched) \
          BLOCK_CIPHER_func_cbc(cname, cprefix, kstruct, ksched) \
          BLOCK_CIPHER_func_cfb(cname, cprefix, cbits, kstruct, ksched) \
          BLOCK_CIPHER_func_ecb(cname, cprefix, kstruct, ksched) \
          BLOCK_CIPHER_func_ofb(cname, cprefix, cbits, kstruct, ksched)
  
  #define BLOCK_CIPHER_def1(cname, nmode, mode, MODE, kstruct, nid, block_size, \
                            key_len, iv_len, flags, init_key, cleanup, \
                            set_asn1, get_asn1, ctrl) \
  static const EVP_CIPHER cname##_##mode = { \
          nid##_##nmode, block_size, key_len, iv_len, \
          flags | EVP_CIPH_##MODE##_MODE, \
          init_key, \
          cname##_##mode##_cipher, \
          cleanup, \
          sizeof(kstruct), \
          set_asn1, get_asn1,\
          ctrl, \
          NULL \
  }; \
  const EVP_CIPHER *EVP_##cname##_##mode(void) { return &cname##_##mode; }
  
  #define BLOCK_CIPHER_def_cbc(cname, kstruct, nid, block_size, key_len, \
                               iv_len, flags, init_key, cleanup, set_asn1, \
                               get_asn1, ctrl) \
  BLOCK_CIPHER_def1(cname, cbc, cbc, CBC, kstruct, nid, block_size, key_len, \
                    iv_len, flags, init_key, cleanup, set_asn1, get_asn1, ctrl)
  
  #define BLOCK_CIPHER_def_cfb(cname, kstruct, nid, key_len, \
                               iv_len, cbits, flags, init_key, cleanup, \
                               set_asn1, get_asn1, ctrl) \
  BLOCK_CIPHER_def1(cname, cfb##cbits, cfb##cbits, CFB, kstruct, nid, 1, \
                    key_len, iv_len, flags, init_key, cleanup, set_asn1, \
                    get_asn1, ctrl)
  
  #define BLOCK_CIPHER_def_ofb(cname, kstruct, nid, key_len, \
                               iv_len, cbits, flags, init_key, cleanup, \
                               set_asn1, get_asn1, ctrl) \
  BLOCK_CIPHER_def1(cname, ofb##cbits, ofb, OFB, kstruct, nid, 1, \
                    key_len, iv_len, flags, init_key, cleanup, set_asn1, \
                    get_asn1, ctrl)
  
  #define BLOCK_CIPHER_def_ecb(cname, kstruct, nid, block_size, key_len, \
                               flags, init_key, cleanup, set_asn1, \
                               get_asn1, ctrl) \
  BLOCK_CIPHER_def1(cname, ecb, ecb, ECB, kstruct, nid, block_size, key_len, \
                    0, flags, init_key, cleanup, set_asn1, get_asn1, ctrl)
  
  #define BLOCK_CIPHER_defs(cname, kstruct, \
                            nid, block_size, key_len, iv_len, cbits, flags, \
                            init_key, cleanup, set_asn1, get_asn1, ctrl) \
  BLOCK_CIPHER_def_cbc(cname, kstruct, nid, block_size, key_len, iv_len, flags, \
                       init_key, cleanup, set_asn1, get_asn1, ctrl) \
  BLOCK_CIPHER_def_cfb(cname, kstruct, nid, key_len, iv_len, cbits, \
                       flags, init_key, cleanup, set_asn1, get_asn1, ctrl) \
  BLOCK_CIPHER_def_ofb(cname, kstruct, nid, key_len, iv_len, cbits, \
                       flags, init_key, cleanup, set_asn1, get_asn1, ctrl) \
  BLOCK_CIPHER_def_ecb(cname, kstruct, nid, block_size, key_len, flags, \
                       init_key, cleanup, set_asn1, get_asn1, ctrl)
  
  /*-
  #define BLOCK_CIPHER_defs(cname, kstruct, \
                                  nid, block_size, key_len, iv_len, flags,\
                                   init_key, cleanup, set_asn1, get_asn1, ctrl)\
  static const EVP_CIPHER cname##_cbc = {\
          nid##_cbc, block_size, key_len, iv_len, \
          flags | EVP_CIPH_CBC_MODE,\
          init_key,\
          cname##_cbc_cipher,\
          cleanup,\
          sizeof(EVP_CIPHER_CTX)-sizeof((((EVP_CIPHER_CTX *)NULL)->c))+\
                  sizeof((((EVP_CIPHER_CTX *)NULL)->c.kstruct)),\
          set_asn1, get_asn1,\
          ctrl, \
          NULL \
  };\
  const EVP_CIPHER *EVP_##cname##_cbc(void) { return &cname##_cbc; }\
  static const EVP_CIPHER cname##_cfb = {\
          nid##_cfb64, 1, key_len, iv_len, \
          flags | EVP_CIPH_CFB_MODE,\
          init_key,\
          cname##_cfb_cipher,\
          cleanup,\
          sizeof(EVP_CIPHER_CTX)-sizeof((((EVP_CIPHER_CTX *)NULL)->c))+\
                  sizeof((((EVP_CIPHER_CTX *)NULL)->c.kstruct)),\
          set_asn1, get_asn1,\
          ctrl,\
          NULL \
  };\
  const EVP_CIPHER *EVP_##cname##_cfb(void) { return &cname##_cfb; }\
  static const EVP_CIPHER cname##_ofb = {\
          nid##_ofb64, 1, key_len, iv_len, \
          flags | EVP_CIPH_OFB_MODE,\
          init_key,\
          cname##_ofb_cipher,\
          cleanup,\
          sizeof(EVP_CIPHER_CTX)-sizeof((((EVP_CIPHER_CTX *)NULL)->c))+\
                  sizeof((((EVP_CIPHER_CTX *)NULL)->c.kstruct)),\
          set_asn1, get_asn1,\
          ctrl,\
          NULL \
  };\
  const EVP_CIPHER *EVP_##cname##_ofb(void) { return &cname##_ofb; }\
  static const EVP_CIPHER cname##_ecb = {\
          nid##_ecb, block_size, key_len, iv_len, \
          flags | EVP_CIPH_ECB_MODE,\
          init_key,\
          cname##_ecb_cipher,\
          cleanup,\
          sizeof(EVP_CIPHER_CTX)-sizeof((((EVP_CIPHER_CTX *)NULL)->c))+\
                  sizeof((((EVP_CIPHER_CTX *)NULL)->c.kstruct)),\
          set_asn1, get_asn1,\
          ctrl,\
          NULL \
  };\
  const EVP_CIPHER *EVP_##cname##_ecb(void) { return &cname##_ecb; }
  */
  
  #define IMPLEMENT_BLOCK_CIPHER(cname, ksched, cprefix, kstruct, nid, \
                                 block_size, key_len, iv_len, cbits, \
                                 flags, init_key, \
                                 cleanup, set_asn1, get_asn1, ctrl) \
          BLOCK_CIPHER_all_funcs(cname, cprefix, cbits, kstruct, ksched) \
          BLOCK_CIPHER_defs(cname, kstruct, nid, block_size, key_len, iv_len, \
                            cbits, flags, init_key, cleanup, set_asn1, \
                            get_asn1, ctrl)
  
  #define IMPLEMENT_CFBR(cipher,cprefix,kstruct,ksched,keysize,cbits,iv_len,fl) \
          BLOCK_CIPHER_func_cfb(cipher##_##keysize,cprefix,cbits,kstruct,ksched) \
          BLOCK_CIPHER_def_cfb(cipher##_##keysize,kstruct, \
                               NID_##cipher##_##keysize, keysize/8, iv_len, cbits, \
                               (fl)|EVP_CIPH_FLAG_DEFAULT_ASN1, \
                               cipher##_init_key, NULL, NULL, NULL, NULL)
  
  
  /*
   * Type needs to be a bit field Sub-type needs to be for variations on the
   * method, as in, can it do arbitrary encryption....
   */
  struct evp_pkey_st {
      int type;
      int save_type;
      int references;
      const EVP_PKEY_ASN1_METHOD *ameth;
      ENGINE *engine;
      union {
          void *ptr;
  # ifndef OPENSSL_NO_RSA
          struct rsa_st *rsa;     /* RSA */
  # endif
  # ifndef OPENSSL_NO_DSA
          struct dsa_st *dsa;     /* DSA */
  # endif
  # ifndef OPENSSL_NO_DH
          struct dh_st *dh;       /* DH */
  # endif
  # ifndef OPENSSL_NO_EC
          struct ec_key_st *ec;   /* ECC */
  # endif
      } pkey;
      int save_parameters;
      STACK_OF(X509_ATTRIBUTE) *attributes; /* [ 0 ] */
      CRYPTO_RWLOCK *lock;
  } /* EVP_PKEY */ ;
  
  
  void openssl_add_all_ciphers_int(void);
  void openssl_add_all_digests_int(void);
  void evp_cleanup_int(void);
  