diff --git a/openssl-sys/src/handwritten/dh.rs b/openssl-sys/src/handwritten/dh.rs
index a4de122eac78f127861927f9d97a0d4569a874dd..87a0817ce5ddea836b50d0057045aa5c02cee6b8 100644
--- a/openssl-sys/src/handwritten/dh.rs
+++ b/openssl-sys/src/handwritten/dh.rs
@@ -3,6 +3,7 @@ use super::super::*;
 extern "C" {
     pub fn DH_new() -> *mut DH;
     pub fn DH_free(dh: *mut DH);
+    pub fn DH_check(dh: *const DH, codes: *mut c_int) -> c_int;
 
     pub fn DH_generate_parameters(
         prime_len: c_int,
diff --git a/openssl/src/dh.rs b/openssl/src/dh.rs
index f7246975b390e9f5113897bf7fd03be2550a0884..7445e3408c37f2155726229ac6057b9f8769c73a 100644
--- a/openssl/src/dh.rs
+++ b/openssl/src/dh.rs
@@ -39,6 +39,16 @@ where
         params_to_der,
         ffi::i2d_DHparams
     }
+
+    /// Validates DH parameters for correctness
+    #[corresponds(DH_check_key)]
+    pub fn check_key(&self) -> Result<bool, ErrorStack> {
+        unsafe {
+            let mut codes = 0;
+            cvt(ffi::DH_check(self.as_ptr(), &mut codes))?;
+            Ok(codes == 0)
+        }
+    }
 }
 
 impl Dh<Params> {
@@ -457,4 +467,14 @@ mod tests {
 
         assert_eq!(shared_a, shared_b);
     }
+
+    #[test]
+    fn test_dh_check_key() {
+        let dh1 = Dh::generate_params(512, 2).unwrap();
+        let p = BigNum::from_hex_str("04").unwrap();
+        let g = BigNum::from_hex_str("02").unwrap();
+        let dh2 = Dh::from_pqg(p, None, g).unwrap();
+        assert!(dh1.check_key().unwrap());
+        assert!(!dh2.check_key().unwrap());
+    }
 }