5fa452
diff --git a/src/modules/rlm_eap/types/rlm_eap_pwd/eap_pwd.c b/src/modules/rlm_eap/types/rlm_eap_pwd/eap_pwd.c
5fa452
index 7f91e4b230..848ca2055e 100644
5fa452
--- a/src/modules/rlm_eap/types/rlm_eap_pwd/eap_pwd.c
5fa452
+++ b/src/modules/rlm_eap/types/rlm_eap_pwd/eap_pwd.c
5fa452
@@ -373,11 +373,26 @@ int process_peer_commit (pwd_session_t *session, uint8_t *in, size_t in_len, BN_
5fa452
 	data_len = BN_num_bytes(session->order);
5fa452
 	BN_bin2bn(ptr, data_len, session->peer_scalar);
5fa452
5fa452
+	/* validate received scalar */
5fa452
+	if (BN_is_zero(session->peer_scalar) ||
5fa452
+	    BN_is_one(session->peer_scalar) ||
5fa452
+	    BN_cmp(session->peer_scalar, session->order) >= 0) {
5fa452
+		ERROR("Peer's scalar is not within the allowed range");
5fa452
+		goto finish;
5fa452
+	}
5fa452
+
5fa452
 	if (!EC_POINT_set_affine_coordinates_GFp(session->group, session->peer_element, x, y, bnctx)) {
5fa452
 		DEBUG2("pwd: unable to get coordinates of peer's element");
5fa452
 		goto finish;
5fa452
 	}
5fa452
5fa452
+	/* validate received element */
5fa452
+	if (!EC_POINT_is_on_curve(session->group, session->peer_element, bnctx) ||
5fa452
+	    EC_POINT_is_at_infinity(session->group, session->peer_element)) {
5fa452
+		ERROR("Peer's element is not a point on the elliptic curve");
5fa452
+		goto finish;
5fa452
+	}
5fa452
+
5fa452
 	/* check to ensure peer's element is not in a small sub-group */
5fa452
 	if (BN_cmp(cofactor, BN_value_one())) {
5fa452
 		if (!EC_POINT_mul(session->group, point, NULL, session->peer_element, cofactor, NULL)) {
5fa452
@@ -391,6 +406,13 @@ int process_peer_commit (pwd_session_t *session, uint8_t *in, size_t in_len, BN_
5fa452
 		}
5fa452
 	}
5fa452
5fa452
+	/* detect reflection attacks */
5fa452
+	if (BN_cmp(session->peer_scalar, session->my_scalar) == 0 ||
5fa452
+	    EC_POINT_cmp(session->group, session->peer_element, session->my_element, bnctx) == 0) {
5fa452
+		ERROR("Reflection attack detected");
5fa452
+		goto finish;
5fa452
+	}
5fa452
+
5fa452
 	/* compute the shared key, k */
5fa452
 	if ((!EC_POINT_mul(session->group, K, NULL, session->pwe, session->peer_scalar, bnctx)) ||
5fa452
 	    (!EC_POINT_add(session->group, K, K, session->peer_element, bnctx)) ||