zig_example 0.3.2 → 0.3.3.1

data/ext/openssl/ossl_pkey.h

@@ -1,204 +0,0 @@
-/*
- * 'OpenSSL for Ruby' project
- * Copyright (C) 2001 Michal Rokos <m.rokos@sh.cvut.cz>
- * All rights reserved.
- */
-/*
- * This program is licensed under the same licence as Ruby.
- * (See the file 'LICENCE'.)
- */
-#if !defined(OSSL_PKEY_H)
-#define OSSL_PKEY_H
-
-extern VALUE mPKey;
-extern VALUE cPKey;
-extern VALUE ePKeyError;
-extern const rb_data_type_t ossl_evp_pkey_type;
-
-/* For ENGINE */
-#define OSSL_PKEY_SET_PRIVATE(obj) rb_ivar_set((obj), rb_intern("private"), Qtrue)
-#define OSSL_PKEY_IS_PRIVATE(obj)  (rb_attr_get((obj), rb_intern("private")) == Qtrue)
-
-#define GetPKey(obj, pkey) do {\
-    TypedData_Get_Struct((obj), EVP_PKEY, &ossl_evp_pkey_type, (pkey)); \
-    if (!(pkey)) { \
-	rb_raise(rb_eRuntimeError, "PKEY wasn't initialized!");\
-    } \
-} while (0)
-
-/* Takes ownership of the EVP_PKEY */
-VALUE ossl_pkey_new(EVP_PKEY *);
-void ossl_pkey_check_public_key(const EVP_PKEY *);
-EVP_PKEY *ossl_pkey_read_generic(BIO *, VALUE);
-EVP_PKEY *GetPKeyPtr(VALUE);
-EVP_PKEY *DupPKeyPtr(VALUE);
-EVP_PKEY *GetPrivPKeyPtr(VALUE);
-
-/*
- * Serializes _self_ in X.509 SubjectPublicKeyInfo format and returns the
- * resulting String. Sub-classes use this when overriding #to_der.
- */
-VALUE ossl_pkey_export_spki(VALUE self, int to_der);
-/*
- * Serializes the private key _self_ in the traditional private key format
- * and returns the resulting String. Sub-classes use this when overriding
- * #to_der.
- */
-VALUE ossl_pkey_export_traditional(int argc, VALUE *argv, VALUE self,
-				   int to_der);
-
-void Init_ossl_pkey(void);
-
-/*
- * RSA
- */
-extern VALUE cRSA;
-extern VALUE eRSAError;
-
-void Init_ossl_rsa(void);
-
-/*
- * DSA
- */
-extern VALUE cDSA;
-extern VALUE eDSAError;
-
-void Init_ossl_dsa(void);
-
-/*
- * DH
- */
-extern VALUE cDH;
-extern VALUE eDHError;
-
-void Init_ossl_dh(void);
-
-/*
- * EC
- */
-extern VALUE cEC;
-extern VALUE eECError;
-extern VALUE cEC_GROUP;
-extern VALUE eEC_GROUP;
-extern VALUE cEC_POINT;
-extern VALUE eEC_POINT;
-VALUE ossl_ec_new(EVP_PKEY *);
-void Init_ossl_ec(void);
-
-#define OSSL_PKEY_BN_DEF_GETTER0(_keytype, _type, _name, _get)		\
-/*									\
- *  call-seq:								\
- *     _keytype##.##_name -> aBN					\
- */									\
-static VALUE ossl_##_keytype##_get_##_name(VALUE self)			\
-{									\
-	const _type *obj;						\
-	const BIGNUM *bn;						\
-									\
-	Get##_type(self, obj);						\
-	_get;								\
-	if (bn == NULL)							\
-		return Qnil;						\
-	return ossl_bn_new(bn);						\
-}
-
-#define OSSL_PKEY_BN_DEF_GETTER3(_keytype, _type, _group, a1, a2, a3)	\
-	OSSL_PKEY_BN_DEF_GETTER0(_keytype, _type, a1,			\
-		_type##_get0_##_group(obj, &bn, NULL, NULL))		\
-	OSSL_PKEY_BN_DEF_GETTER0(_keytype, _type, a2,			\
-		_type##_get0_##_group(obj, NULL, &bn, NULL))		\
-	OSSL_PKEY_BN_DEF_GETTER0(_keytype, _type, a3,			\
-		_type##_get0_##_group(obj, NULL, NULL, &bn))
-
-#define OSSL_PKEY_BN_DEF_GETTER2(_keytype, _type, _group, a1, a2)	\
-	OSSL_PKEY_BN_DEF_GETTER0(_keytype, _type, a1,			\
-		_type##_get0_##_group(obj, &bn, NULL))			\
-	OSSL_PKEY_BN_DEF_GETTER0(_keytype, _type, a2,			\
-		_type##_get0_##_group(obj, NULL, &bn))
-
-#if !OSSL_OPENSSL_PREREQ(3, 0, 0)
-#define OSSL_PKEY_BN_DEF_SETTER3(_keytype, _type, _group, a1, a2, a3)	\
-/*									\
- *  call-seq:								\
- *     _keytype##.set_##_group(a1, a2, a3) -> self			\
- */									\
-static VALUE ossl_##_keytype##_set_##_group(VALUE self, VALUE v1, VALUE v2, VALUE v3) \
-{									\
-	_type *obj;							\
-	BIGNUM *bn1 = NULL, *orig_bn1 = NIL_P(v1) ? NULL : GetBNPtr(v1);\
-	BIGNUM *bn2 = NULL, *orig_bn2 = NIL_P(v2) ? NULL : GetBNPtr(v2);\
-	BIGNUM *bn3 = NULL, *orig_bn3 = NIL_P(v3) ? NULL : GetBNPtr(v3);\
-									\
-	Get##_type(self, obj);						\
-        if ((orig_bn1 && !(bn1 = BN_dup(orig_bn1))) ||			\
-            (orig_bn2 && !(bn2 = BN_dup(orig_bn2))) ||			\
-            (orig_bn3 && !(bn3 = BN_dup(orig_bn3)))) {			\
-		BN_clear_free(bn1);					\
-		BN_clear_free(bn2);					\
-		BN_clear_free(bn3);					\
-		ossl_raise(eBNError, NULL);				\
-	}								\
-									\
-	if (!_type##_set0_##_group(obj, bn1, bn2, bn3)) {		\
-		BN_clear_free(bn1);					\
-		BN_clear_free(bn2);					\
-		BN_clear_free(bn3);					\
-		ossl_raise(ePKeyError, #_type"_set0_"#_group);		\
-	}								\
-	return self;							\
-}
-
-#define OSSL_PKEY_BN_DEF_SETTER2(_keytype, _type, _group, a1, a2)	\
-/*									\
- *  call-seq:								\
- *     _keytype##.set_##_group(a1, a2) -> self				\
- */									\
-static VALUE ossl_##_keytype##_set_##_group(VALUE self, VALUE v1, VALUE v2) \
-{									\
-	_type *obj;							\
-	BIGNUM *bn1 = NULL, *orig_bn1 = NIL_P(v1) ? NULL : GetBNPtr(v1);\
-	BIGNUM *bn2 = NULL, *orig_bn2 = NIL_P(v2) ? NULL : GetBNPtr(v2);\
-									\
-	Get##_type(self, obj);						\
-        if ((orig_bn1 && !(bn1 = BN_dup(orig_bn1))) ||			\
-            (orig_bn2 && !(bn2 = BN_dup(orig_bn2)))) {			\
-		BN_clear_free(bn1);					\
-		BN_clear_free(bn2);					\
-		ossl_raise(eBNError, NULL);				\
-	}								\
-									\
-	if (!_type##_set0_##_group(obj, bn1, bn2)) {			\
-		BN_clear_free(bn1);					\
-		BN_clear_free(bn2);					\
-		ossl_raise(ePKeyError, #_type"_set0_"#_group);		\
-	}								\
-	return self;							\
-}
-#else
-#define OSSL_PKEY_BN_DEF_SETTER3(_keytype, _type, _group, a1, a2, a3)	\
-static VALUE ossl_##_keytype##_set_##_group(VALUE self, VALUE v1, VALUE v2, VALUE v3) \
-{									\
-        rb_raise(ePKeyError,						\
-                 #_keytype"#set_"#_group"= is incompatible with OpenSSL 3.0"); \
-}
-
-#define OSSL_PKEY_BN_DEF_SETTER2(_keytype, _type, _group, a1, a2)	\
-static VALUE ossl_##_keytype##_set_##_group(VALUE self, VALUE v1, VALUE v2) \
-{									\
-        rb_raise(ePKeyError,						\
-                 #_keytype"#set_"#_group"= is incompatible with OpenSSL 3.0"); \
-}
-#endif
-
-#define OSSL_PKEY_BN_DEF3(_keytype, _type, _group, a1, a2, a3)		\
-	OSSL_PKEY_BN_DEF_GETTER3(_keytype, _type, _group, a1, a2, a3)	\
-	OSSL_PKEY_BN_DEF_SETTER3(_keytype, _type, _group, a1, a2, a3)
-
-#define OSSL_PKEY_BN_DEF2(_keytype, _type, _group, a1, a2)		\
-	OSSL_PKEY_BN_DEF_GETTER2(_keytype, _type, _group, a1, a2)	\
-	OSSL_PKEY_BN_DEF_SETTER2(_keytype, _type, _group, a1, a2)
-
-#define DEF_OSSL_PKEY_BN(class, keytype, name)				\
-	rb_define_method((class), #name, ossl_##keytype##_get_##name, 0)
-
-#endif /* OSSL_PKEY_H */

data/ext/openssl/ossl_pkey_dh.c

@@ -1,440 +0,0 @@
-/*
- * 'OpenSSL for Ruby' project
- * Copyright (C) 2001-2002  Michal Rokos <m.rokos@sh.cvut.cz>
- * All rights reserved.
- */
-/*
- * This program is licensed under the same licence as Ruby.
- * (See the file 'LICENCE'.)
- */
-#include "ossl.h"
-
-#if !defined(OPENSSL_NO_DH)
-
-#define GetPKeyDH(obj, pkey) do { \
-    GetPKey((obj), (pkey)); \
-    if (EVP_PKEY_base_id(pkey) != EVP_PKEY_DH) { /* PARANOIA? */ \
-	ossl_raise(rb_eRuntimeError, "THIS IS NOT A DH!") ; \
-    } \
-} while (0)
-#define GetDH(obj, dh) do { \
-    EVP_PKEY *_pkey; \
-    GetPKeyDH((obj), _pkey); \
-    (dh) = EVP_PKEY_get0_DH(_pkey); \
-} while (0)
-
-/*
- * Classes
- */
-VALUE cDH;
-VALUE eDHError;
-
-/*
- * Private
- */
-/*
- * call-seq:
- *   DH.new -> dh
- *   DH.new(string) -> dh
- *   DH.new(size [, generator]) -> dh
- *
- * Creates a new instance of OpenSSL::PKey::DH.
- *
- * If called without arguments, an empty instance without any parameter or key
- * components is created. Use #set_pqg to manually set the parameters afterwards
- * (and optionally #set_key to set private and public key components).
- *
- * If a String is given, tries to parse it as a DER- or PEM- encoded parameters.
- * See also OpenSSL::PKey.read which can parse keys of any kinds.
- *
- * The DH.new(size [, generator]) form is an alias of DH.generate.
- *
- * +string+::
- *   A String that contains the DER or PEM encoded key.
- * +size+::
- *   See DH.generate.
- * +generator+::
- *   See DH.generate.
- *
- * Examples:
- *   # Creating an instance from scratch
- *   # Note that this is deprecated and will not work on OpenSSL 3.0 or later.
- *   dh = OpenSSL::PKey::DH.new
- *   dh.set_pqg(bn_p, nil, bn_g)
- *
- *   # Generating a parameters and a key pair
- *   dh = OpenSSL::PKey::DH.new(2048) # An alias of OpenSSL::PKey::DH.generate(2048)
- *
- *   # Reading DH parameters
- *   dh_params = OpenSSL::PKey::DH.new(File.read('parameters.pem')) # loads parameters only
- *   dh = OpenSSL::PKey.generate_key(dh_params) # generates a key pair
- */
-static VALUE
-ossl_dh_initialize(int argc, VALUE *argv, VALUE self)
-{
-    EVP_PKEY *pkey;
-    int type;
-    DH *dh;
-    BIO *in = NULL;
-    VALUE arg;
-
-    TypedData_Get_Struct(self, EVP_PKEY, &ossl_evp_pkey_type, pkey);
-    if (pkey)
-        rb_raise(rb_eTypeError, "pkey already initialized");
-
-    /* The DH.new(size, generator) form is handled by lib/openssl/pkey.rb */
-    if (rb_scan_args(argc, argv, "01", &arg) == 0) {
-        dh = DH_new();
-        if (!dh)
-            ossl_raise(eDHError, "DH_new");
-        goto legacy;
-    }
-
-    arg = ossl_to_der_if_possible(arg);
-    in = ossl_obj2bio(&arg);
-
-    /*
-     * On OpenSSL <= 1.1.1 and current versions of LibreSSL, the generic
-     * routine does not support DER-encoded parameters
-     */
-    dh = d2i_DHparams_bio(in, NULL);
-    if (dh)
-        goto legacy;
-    OSSL_BIO_reset(in);
-
-    pkey = ossl_pkey_read_generic(in, Qnil);
-    BIO_free(in);
-    if (!pkey)
-        ossl_raise(eDHError, "could not parse pkey");
-
-    type = EVP_PKEY_base_id(pkey);
-    if (type != EVP_PKEY_DH) {
-        EVP_PKEY_free(pkey);
-        rb_raise(eDHError, "incorrect pkey type: %s", OBJ_nid2sn(type));
-    }
-    RTYPEDDATA_DATA(self) = pkey;
-    return self;
-
-  legacy:
-    BIO_free(in);
-    pkey = EVP_PKEY_new();
-    if (!pkey || EVP_PKEY_assign_DH(pkey, dh) != 1) {
-        EVP_PKEY_free(pkey);
-        DH_free(dh);
-        ossl_raise(eDHError, "EVP_PKEY_assign_DH");
-    }
-    RTYPEDDATA_DATA(self) = pkey;
-    return self;
-}
-
-#ifndef HAVE_EVP_PKEY_DUP
-static VALUE
-ossl_dh_initialize_copy(VALUE self, VALUE other)
-{
-    EVP_PKEY *pkey;
-    DH *dh, *dh_other;
-    const BIGNUM *pub, *priv;
-
-    TypedData_Get_Struct(self, EVP_PKEY, &ossl_evp_pkey_type, pkey);
-    if (pkey)
-        rb_raise(rb_eTypeError, "pkey already initialized");
-    GetDH(other, dh_other);
-
-    dh = DHparams_dup(dh_other);
-    if (!dh)
-	ossl_raise(eDHError, "DHparams_dup");
-
-    DH_get0_key(dh_other, &pub, &priv);
-    if (pub) {
-	BIGNUM *pub2 = BN_dup(pub);
-	BIGNUM *priv2 = BN_dup(priv);
-
-        if (!pub2 || (priv && !priv2)) {
-	    BN_clear_free(pub2);
-	    BN_clear_free(priv2);
-	    ossl_raise(eDHError, "BN_dup");
-	}
-	DH_set0_key(dh, pub2, priv2);
-    }
-
-    pkey = EVP_PKEY_new();
-    if (!pkey || EVP_PKEY_assign_DH(pkey, dh) != 1) {
-        EVP_PKEY_free(pkey);
-        DH_free(dh);
-        ossl_raise(eDHError, "EVP_PKEY_assign_DH");
-    }
-    RTYPEDDATA_DATA(self) = pkey;
-    return self;
-}
-#endif
-
-/*
- *  call-seq:
- *     dh.public? -> true | false
- *
- * Indicates whether this DH instance has a public key associated with it or
- * not. The public key may be retrieved with DH#pub_key.
- */
-static VALUE
-ossl_dh_is_public(VALUE self)
-{
-    OSSL_3_const DH *dh;
-    const BIGNUM *bn;
-
-    GetDH(self, dh);
-    DH_get0_key(dh, &bn, NULL);
-
-    return bn ? Qtrue : Qfalse;
-}
-
-/*
- *  call-seq:
- *     dh.private? -> true | false
- *
- * Indicates whether this DH instance has a private key associated with it or
- * not. The private key may be retrieved with DH#priv_key.
- */
-static VALUE
-ossl_dh_is_private(VALUE self)
-{
-    OSSL_3_const DH *dh;
-    const BIGNUM *bn;
-
-    GetDH(self, dh);
-    DH_get0_key(dh, NULL, &bn);
-
-#if !defined(OPENSSL_NO_ENGINE)
-    return (bn || DH_get0_engine((DH *)dh)) ? Qtrue : Qfalse;
-#else
-    return bn ? Qtrue : Qfalse;
-#endif
-}
-
-/*
- *  call-seq:
- *     dh.export -> aString
- *     dh.to_pem -> aString
- *     dh.to_s -> aString
- *
- * Encodes this DH to its PEM encoding. Note that any existing per-session
- * public/private keys will *not* get encoded, just the Diffie-Hellman
- * parameters will be encoded.
- */
-static VALUE
-ossl_dh_export(VALUE self)
-{
-    OSSL_3_const DH *dh;
-    BIO *out;
-    VALUE str;
-
-    GetDH(self, dh);
-    if (!(out = BIO_new(BIO_s_mem()))) {
-	ossl_raise(eDHError, NULL);
-    }
-    if (!PEM_write_bio_DHparams(out, dh)) {
-	BIO_free(out);
-	ossl_raise(eDHError, NULL);
-    }
-    str = ossl_membio2str(out);
-
-    return str;
-}
-
-/*
- *  call-seq:
- *     dh.to_der -> aString
- *
- * Encodes this DH to its DER encoding. Note that any existing per-session
- * public/private keys will *not* get encoded, just the Diffie-Hellman
- * parameters will be encoded.
-
- */
-static VALUE
-ossl_dh_to_der(VALUE self)
-{
-    OSSL_3_const DH *dh;
-    unsigned char *p;
-    long len;
-    VALUE str;
-
-    GetDH(self, dh);
-    if((len = i2d_DHparams(dh, NULL)) <= 0)
-	ossl_raise(eDHError, NULL);
-    str = rb_str_new(0, len);
-    p = (unsigned char *)RSTRING_PTR(str);
-    if(i2d_DHparams(dh, &p) < 0)
-	ossl_raise(eDHError, NULL);
-    ossl_str_adjust(str, p);
-
-    return str;
-}
-
-/*
- *  call-seq:
- *     dh.params -> hash
- *
- * Stores all parameters of key to the hash
- * INSECURE: PRIVATE INFORMATIONS CAN LEAK OUT!!!
- * Don't use :-)) (I's up to you)
- */
-static VALUE
-ossl_dh_get_params(VALUE self)
-{
-    OSSL_3_const DH *dh;
-    VALUE hash;
-    const BIGNUM *p, *q, *g, *pub_key, *priv_key;
-
-    GetDH(self, dh);
-    DH_get0_pqg(dh, &p, &q, &g);
-    DH_get0_key(dh, &pub_key, &priv_key);
-
-    hash = rb_hash_new();
-    rb_hash_aset(hash, rb_str_new2("p"), ossl_bn_new(p));
-    rb_hash_aset(hash, rb_str_new2("q"), ossl_bn_new(q));
-    rb_hash_aset(hash, rb_str_new2("g"), ossl_bn_new(g));
-    rb_hash_aset(hash, rb_str_new2("pub_key"), ossl_bn_new(pub_key));
-    rb_hash_aset(hash, rb_str_new2("priv_key"), ossl_bn_new(priv_key));
-
-    return hash;
-}
-
-/*
- *  call-seq:
- *     dh.params_ok? -> true | false
- *
- * Validates the Diffie-Hellman parameters associated with this instance.
- * It checks whether a safe prime and a suitable generator are used. If this
- * is not the case, +false+ is returned.
- *
- * See also the man page EVP_PKEY_param_check(3).
- */
-static VALUE
-ossl_dh_check_params(VALUE self)
-{
-    int ret;
-#ifdef HAVE_EVP_PKEY_CHECK
-    EVP_PKEY *pkey;
-    EVP_PKEY_CTX *pctx;
-
-    GetPKey(self, pkey);
-    pctx = EVP_PKEY_CTX_new(pkey, /* engine */NULL);
-    if (!pctx)
-        ossl_raise(eDHError, "EVP_PKEY_CTX_new");
-    ret = EVP_PKEY_param_check(pctx);
-    EVP_PKEY_CTX_free(pctx);
-#else
-    DH *dh;
-    int codes;
-
-    GetDH(self, dh);
-    ret = DH_check(dh, &codes) == 1 && codes == 0;
-#endif
-
-    if (ret == 1)
-        return Qtrue;
-    else {
-        /* DH_check_ex() will put error entry on failure */
-        ossl_clear_error();
-        return Qfalse;
-    }
-}
-
-/*
- * Document-method: OpenSSL::PKey::DH#set_pqg
- * call-seq:
- *   dh.set_pqg(p, q, g) -> self
- *
- * Sets _p_, _q_, _g_ to the DH instance.
- */
-OSSL_PKEY_BN_DEF3(dh, DH, pqg, p, q, g)
-/*
- * Document-method: OpenSSL::PKey::DH#set_key
- * call-seq:
- *   dh.set_key(pub_key, priv_key) -> self
- *
- * Sets _pub_key_ and _priv_key_ for the DH instance. _priv_key_ may be +nil+.
- */
-OSSL_PKEY_BN_DEF2(dh, DH, key, pub_key, priv_key)
-
-/*
- * INIT
- */
-void
-Init_ossl_dh(void)
-{
-#if 0
-    mPKey = rb_define_module_under(mOSSL, "PKey");
-    cPKey = rb_define_class_under(mPKey, "PKey", rb_cObject);
-    ePKeyError = rb_define_class_under(mPKey, "PKeyError", eOSSLError);
-#endif
-
-    /* Document-class: OpenSSL::PKey::DHError
-     *
-     * Generic exception that is raised if an operation on a DH PKey
-     * fails unexpectedly or in case an instantiation of an instance of DH
-     * fails due to non-conformant input data.
-     */
-    eDHError = rb_define_class_under(mPKey, "DHError", ePKeyError);
-    /* Document-class: OpenSSL::PKey::DH
-     *
-     * An implementation of the Diffie-Hellman key exchange protocol based on
-     * discrete logarithms in finite fields, the same basis that DSA is built
-     * on.
-     *
-     * === Accessor methods for the Diffie-Hellman parameters
-     * DH#p::
-     *   The prime (an OpenSSL::BN) of the Diffie-Hellman parameters.
-     * DH#g::
-     *   The generator (an OpenSSL::BN) g of the Diffie-Hellman parameters.
-     * DH#pub_key::
-     *   The per-session public key (an OpenSSL::BN) matching the private key.
-     *   This needs to be passed to DH#compute_key.
-     * DH#priv_key::
-     *   The per-session private key, an OpenSSL::BN.
-     *
-     * === Example of a key exchange
-     *   # you may send the parameters (der) and own public key (pub1) publicly
-     *   # to the participating party
-     *   dh1 = OpenSSL::PKey::DH.new(2048)
-     *   der = dh1.to_der
-     *   pub1 = dh1.pub_key
-     *
-     *   # the other party generates its per-session key pair
-     *   dhparams = OpenSSL::PKey::DH.new(der)
-     *   dh2 = OpenSSL::PKey.generate_key(dhparams)
-     *   pub2 = dh2.pub_key
-     *
-     *   symm_key1 = dh1.compute_key(pub2)
-     *   symm_key2 = dh2.compute_key(pub1)
-     *   puts symm_key1 == symm_key2 # => true
-     */
-    cDH = rb_define_class_under(mPKey, "DH", cPKey);
-    rb_define_method(cDH, "initialize", ossl_dh_initialize, -1);
-#ifndef HAVE_EVP_PKEY_DUP
-    rb_define_method(cDH, "initialize_copy", ossl_dh_initialize_copy, 1);
-#endif
-    rb_define_method(cDH, "public?", ossl_dh_is_public, 0);
-    rb_define_method(cDH, "private?", ossl_dh_is_private, 0);
-    rb_define_method(cDH, "export", ossl_dh_export, 0);
-    rb_define_alias(cDH, "to_pem", "export");
-    rb_define_alias(cDH, "to_s", "export");
-    rb_define_method(cDH, "to_der", ossl_dh_to_der, 0);
-    rb_define_method(cDH, "params_ok?", ossl_dh_check_params, 0);
-
-    DEF_OSSL_PKEY_BN(cDH, dh, p);
-    DEF_OSSL_PKEY_BN(cDH, dh, q);
-    DEF_OSSL_PKEY_BN(cDH, dh, g);
-    DEF_OSSL_PKEY_BN(cDH, dh, pub_key);
-    DEF_OSSL_PKEY_BN(cDH, dh, priv_key);
-    rb_define_method(cDH, "set_pqg", ossl_dh_set_pqg, 3);
-    rb_define_method(cDH, "set_key", ossl_dh_set_key, 2);
-
-    rb_define_method(cDH, "params", ossl_dh_get_params, 0);
-}
-
-#else /* defined NO_DH */
-void
-Init_ossl_dh(void)
-{
-}
-#endif /* NO_DH */