• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
1 /*
2  * Copyright (c) 2004 by Internet Systems Consortium, Inc. ("ISC")
3  * Copyright (c) 1996,1999 by Internet Software Consortium.
4  *
5  * Permission to use, copy, modify, and distribute this software for any
6  * purpose with or without fee is hereby granted, provided that the above
7  * copyright notice and this permission notice appear in all copies.
8  *
9  * THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES
10  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
11  * MERCHANTABILITY AND FITNESS.  IN NO EVENT SHALL ISC BE LIABLE FOR
12  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
13  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
14  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
15  * OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
16  */
17 
18 #ifdef HAVE_CONFIG_H
19 #include "config.h"
20 #endif
21 
22 #include <netdissect-stdinc.h>
23 #include <stddef.h>
24 #include <string.h>
25 
26 #include "strtoaddr.h"
27 
28 #ifndef NS_INADDRSZ
29 #define NS_INADDRSZ	4	/* IPv4 T_A */
30 #endif
31 
32 #ifndef NS_IN6ADDRSZ
33 #define NS_IN6ADDRSZ	16	/* IPv6 T_AAAA */
34 #endif
35 
36 #ifndef NS_INT16SZ
37 #define NS_INT16SZ	2	/* #/bytes of data in a uint16_t */
38 #endif
39 
40 /*%
41  * WARNING: Don't even consider trying to compile this on a system where
42  * sizeof(int) < 4.  sizeof(int) > 4 is fine; all the world's not a VAX.
43  */
44 
45 #ifndef NS_IN6ADDRSZ
46 #define NS_IN6ADDRSZ   16   /* IPv6 T_AAAA */
47 #endif
48 
49 /* int
50  * strtoaddr(src, dst)
51  *	convert presentation level IPv4 address to network order binary form.
52  * return:
53  *	1 if `src' is a valid input, else 0.
54  * notice:
55  *	does not touch `dst' unless it's returning 1.
56  * author:
57  *	Paul Vixie, 1996.
58  */
59 int
strtoaddr(const char * src,void * dst)60 strtoaddr(const char *src, void *dst)
61 {
62 	uint32_t val;
63 	u_int digit;
64 	ptrdiff_t n;
65 	unsigned char c;
66 	u_int parts[4];
67 	u_int *pp = parts;
68 
69 	c = *src;
70 	for (;;) {
71 		/*
72 		 * Collect number up to ``.''.
73 		 * Values are specified as for C:
74 		 * 0x=hex, 0=octal, isdigit=decimal.
75 		 */
76 		if (!isdigit(c))
77 			return (0);
78 		val = 0;
79 		if (c == '0') {
80 			c = *++src;
81 			if (c == 'x' || c == 'X')
82 				return (0);
83 			else if (isdigit(c) && c != '9')
84 				return (0);
85 		}
86 		for (;;) {
87 			if (isdigit(c)) {
88 				digit = c - '0';
89 				if (digit >= 10)
90 					break;
91 				val = (val * 10) + digit;
92 				c = *++src;
93 			} else
94 				break;
95 		}
96 		if (c == '.') {
97 			/*
98 			 * Internet format:
99 			 *	a.b.c.d
100 			 *	a.b.c	(with c treated as 16 bits)
101 			 *	a.b	(with b treated as 24 bits)
102 			 *	a	(with a treated as 32 bits)
103 			 */
104 			if (pp >= parts + 3)
105 				return (0);
106 			*pp++ = val;
107 			c = *++src;
108 		} else
109 			break;
110 	}
111 	/*
112 	 * Check for trailing characters.
113 	 */
114 	if (c != '\0' && !isspace(c))
115 		return (0);
116 	/*
117 	 * Find the number of parts specified.
118 	 * It must be 4; we only support dotted quads, we don't
119 	 * support shorthand.
120 	 */
121 	n = pp - parts + 1;
122 	if (n != 4)
123 		return (0);
124 	/*
125 	 * parts[0-2] were set to the first 3 parts of the address;
126 	 * val was set to the 4th part.
127 	 *
128 	 * Check if any part is bigger than 255.
129 	 */
130 	if ((parts[0] | parts[1] | parts[2] | val) > 0xff)
131 		return (0);
132 	/*
133 	 * Add the other three parts to val.
134 	 */
135 	val |= (parts[0] << 24) | (parts[1] << 16) | (parts[2] << 8);
136 	if (dst) {
137 		val = htonl(val);
138 		memcpy(dst, &val, NS_INADDRSZ);
139 	}
140 	return (1);
141 }
142 
143 /* int
144  * strtoaddr6(src, dst)
145  *	convert presentation level IPv6 address to network order binary form.
146  * return:
147  *	1 if `src' is a valid [RFC1884 2.2] address, else 0.
148  * notice:
149  *	(1) does not touch `dst' unless it's returning 1.
150  *	(2) :: in a full address is silently ignored.
151  * credit:
152  *	inspired by Mark Andrews.
153  * author:
154  *	Paul Vixie, 1996.
155  */
156 int
strtoaddr6(const char * src,void * dst)157 strtoaddr6(const char *src, void *dst)
158 {
159 	static const char xdigits_l[] = "0123456789abcdef",
160 			  xdigits_u[] = "0123456789ABCDEF";
161 	u_char tmp[NS_IN6ADDRSZ], *tp, *endp, *colonp;
162 	const char *xdigits, *curtok;
163 	int ch, seen_xdigits;
164 	u_int val;
165 
166 	memset((tp = tmp), '\0', NS_IN6ADDRSZ);
167 	endp = tp + NS_IN6ADDRSZ;
168 	colonp = NULL;
169 	/* Leading :: requires some special handling. */
170 	if (*src == ':')
171 		if (*++src != ':')
172 			return (0);
173 	curtok = src;
174 	seen_xdigits = 0;
175 	val = 0;
176 	while ((ch = *src++) != '\0') {
177 		const char *pch;
178 
179 		if ((pch = strchr((xdigits = xdigits_l), ch)) == NULL)
180 			pch = strchr((xdigits = xdigits_u), ch);
181 		if (pch != NULL) {
182 			val <<= 4;
183 			val |= (int)(pch - xdigits);
184 			if (++seen_xdigits > 4)
185 				return (0);
186 			continue;
187 		}
188 		if (ch == ':') {
189 			curtok = src;
190 			if (!seen_xdigits) {
191 				if (colonp)
192 					return (0);
193 				colonp = tp;
194 				continue;
195 			} else if (*src == '\0')
196 				return (0);
197 			if (tp + NS_INT16SZ > endp)
198 				return (0);
199 			*tp++ = (u_char) (val >> 8) & 0xff;
200 			*tp++ = (u_char) val & 0xff;
201 			seen_xdigits = 0;
202 			val = 0;
203 			continue;
204 		}
205 		if (ch == '.' && ((tp + NS_INADDRSZ) <= endp) &&
206 		    strtoaddr(curtok, tp) > 0) {
207 			tp += NS_INADDRSZ;
208 			seen_xdigits = 0;
209 			break;	/*%< '\\0' was seen by strtoaddr(). */
210 		}
211 		return (0);
212 	}
213 	if (seen_xdigits) {
214 		if (tp + NS_INT16SZ > endp)
215 			return (0);
216 		*tp++ = (u_char) (val >> 8) & 0xff;
217 		*tp++ = (u_char) val & 0xff;
218 	}
219 	if (colonp != NULL) {
220 		/*
221 		 * Since some memmove()'s erroneously fail to handle
222 		 * overlapping regions, we'll do the shift by hand.
223 		 */
224 		const ptrdiff_t n = tp - colonp;
225 		int i;
226 
227 		if (tp == endp)
228 			return (0);
229 		for (i = 1; i <= n; i++) {
230 			endp[- i] = colonp[n - i];
231 			colonp[n - i] = 0;
232 		}
233 		tp = endp;
234 	}
235 	if (tp != endp)
236 		return (0);
237 	memcpy(dst, tmp, NS_IN6ADDRSZ);
238 	return (1);
239 }
240