EVP_MD_CTX

type EVP_MD_CTX = record

  digest: pEVP_MD;

  case Integer of

    0: (

        base: array [0..3] of Byte;

      );

    1: (

        md2: MD2_CTX;

      );

    8: (

        md4: MD4_CTX;

      );

    2: (

        md5: MD5_CTX;

      );

    16: (

        ripemd160: RIPEMD160_CTX;

      );

    4: (

        sha: SHA_CTX;

      );

    32: (

        mdc2: MDC2_CTX;

      );

end;