From 7b064cf2527e126a1ebfbfe17e9f97ea1d5c6e94 Mon Sep 17 00:00:00 2001
From: Ilia Alshanetsky <iliaa@php.net>
Date: Tue, 28 Apr 2009 22:27:00 +0000
Subject: [PATCH] Fixed bug #47365 (ip2long() may allow some invalid values on
 certain 64bit systems)

---
 ext/standard/basic_functions.c                     | 11 +++++++++++
 ext/standard/tests/network/ip2long_variation1.phpt | 14 +++++++-------
 2 files changed, 18 insertions(+), 7 deletions(-)

diff --git a/ext/standard/basic_functions.c b/ext/standard/basic_functions.c
index b65c4575fa..fcf45d0602 100644
--- a/ext/standard/basic_functions.c
+++ b/ext/standard/basic_functions.c
@@ -3897,12 +3897,22 @@ PHP_FUNCTION(ip2long)
 {
 	char *addr;
 	int addr_len;
+#ifdef HAVE_INET_PTON
+	struct in_addr ip;
+#else
 	unsigned long int ip;
+#endif
 
 	if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &addr, &addr_len) == FAILURE) {
 		return;
 	}
 
+#ifdef HAVE_INET_PTON
+	if (addr_len == 0 || inet_pton(AF_INET, addr, &ip) != 1) {
+		RETURN_FALSE;
+	}
+	RETURN_LONG(ntohl(ip.s_addr));
+#else
 	if (addr_len == 0 || (ip = inet_addr(addr)) == INADDR_NONE) {
 		/* The only special case when we should return -1 ourselves,
 		 * because inet_addr() considers it wrong. We return 0xFFFFFFFF and
@@ -3915,6 +3925,7 @@ PHP_FUNCTION(ip2long)
 		RETURN_FALSE;
 	}
 	RETURN_LONG(ntohl(ip));
+#endif
 }
 /* }}} */
 
diff --git a/ext/standard/tests/network/ip2long_variation1.phpt b/ext/standard/tests/network/ip2long_variation1.phpt
index 18e026b87c..ac3c9c81e1 100644
--- a/ext/standard/tests/network/ip2long_variation1.phpt
+++ b/ext/standard/tests/network/ip2long_variation1.phpt
@@ -114,19 +114,19 @@ fclose($res);
 *** Testing ip2long() : usage variation ***
 
 --int 0--
-int(0)
+bool(false)
 
 --int 1--
-int(1)
+bool(false)
 
 --int 12345--
-int(12345)
+bool(false)
 
 --int -12345--
 bool(false)
 
 --float 10.5--
-int(167772165)
+bool(false)
 
 --float -10.5--
 bool(false)
@@ -138,7 +138,7 @@ bool(false)
 bool(false)
 
 --float .5--
-int(5)
+bool(false)
 
 --empty array--
 Error: 2 - ip2long() expects parameter 1 to be string, array given, %s(%d)
@@ -163,13 +163,13 @@ bool(false)
 bool(false)
 
 --lowercase true--
-int(1)
+bool(false)
 
 --lowercase false--
 bool(false)
 
 --uppercase TRUE--
-int(1)
+bool(false)
 
 --uppercase FALSE--
 bool(false)
-- 
2.40.0