]>
Commit | Line | Data |
---|---|---|
688903eb | 1 | /* Copyright (C) 1996-2018 Free Software Foundation, Inc. |
60149b28 FW |
2 | This file is part of the GNU C Library. |
3 | ||
4 | The GNU C Library is free software; you can redistribute it and/or | |
5 | modify it under the terms of the GNU Lesser General Public | |
6 | License as published by the Free Software Foundation; either | |
7 | version 2.1 of the License, or (at your option) any later version. | |
8 | ||
9 | The GNU C Library is distributed in the hope that it will be useful, | |
10 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
11 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
12 | Lesser General Public License for more details. | |
13 | ||
14 | You should have received a copy of the GNU Lesser General Public | |
15 | License along with the GNU C Library; if not, see | |
16 | <http://www.gnu.org/licenses/>. */ | |
17 | ||
e685e07d UD |
18 | /* |
19 | * Copyright (c) 1996,1999 by Internet Software Consortium. | |
fa0bc87c RM |
20 | * |
21 | * Permission to use, copy, modify, and distribute this software for any | |
22 | * purpose with or without fee is hereby granted, provided that the above | |
23 | * copyright notice and this permission notice appear in all copies. | |
24 | * | |
25 | * THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM DISCLAIMS | |
26 | * ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES | |
27 | * OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL INTERNET SOFTWARE | |
28 | * CONSORTIUM BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL | |
29 | * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR | |
30 | * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS | |
31 | * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS | |
32 | * SOFTWARE. | |
33 | */ | |
34 | ||
fa0bc87c RM |
35 | #include <arpa/inet.h> |
36 | #include <arpa/nameser.h> | |
8a40ed68 | 37 | #include <ctype.h> |
fa0bc87c | 38 | #include <errno.h> |
60149b28 FW |
39 | #include <netinet/in.h> |
40 | #include <resolv/resolv-internal.h> | |
41 | #include <string.h> | |
42 | #include <sys/socket.h> | |
43 | #include <sys/types.h> | |
fa0bc87c | 44 | |
60149b28 FW |
45 | static int inet_pton4 (const char *src, const char *src_end, u_char *dst); |
46 | static int inet_pton6 (const char *src, const char *src_end, u_char *dst); | |
fa0bc87c | 47 | |
fa0bc87c | 48 | int |
60149b28 | 49 | __inet_pton_length (int af, const char *src, size_t srclen, void *dst) |
fa0bc87c | 50 | { |
d53b8652 FW |
51 | switch (af) |
52 | { | |
53 | case AF_INET: | |
60149b28 | 54 | return inet_pton4 (src, src + srclen, dst); |
d53b8652 | 55 | case AF_INET6: |
60149b28 | 56 | return inet_pton6 (src, src + srclen, dst); |
d53b8652 FW |
57 | default: |
58 | __set_errno (EAFNOSUPPORT); | |
59 | return -1; | |
60 | } | |
fa0bc87c | 61 | } |
60149b28 FW |
62 | libc_hidden_def (__inet_pton_length) |
63 | ||
64 | /* Like __inet_pton_length, but use strlen (SRC) as the length of | |
65 | SRC. */ | |
66 | int | |
67 | __inet_pton (int af, const char *src, void *dst) | |
68 | { | |
69 | return __inet_pton_length (af, src, strlen (src), dst); | |
70 | } | |
8ac5a76a JM |
71 | libc_hidden_def (__inet_pton) |
72 | weak_alias (__inet_pton, inet_pton) | |
73 | libc_hidden_weak (inet_pton) | |
fa0bc87c | 74 | |
60149b28 FW |
75 | /* Like inet_aton but without all the hexadecimal, octal and shorthand |
76 | (and trailing garbage is not ignored). Return 1 if SRC is a valid | |
77 | dotted quad, else 0. This function does not touch DST unless it's | |
78 | returning 1. | |
79 | Author: Paul Vixie, 1996. */ | |
fa0bc87c | 80 | static int |
60149b28 | 81 | inet_pton4 (const char *src, const char *end, unsigned char *dst) |
fa0bc87c | 82 | { |
d53b8652 FW |
83 | int saw_digit, octets, ch; |
84 | unsigned char tmp[NS_INADDRSZ], *tp; | |
fa0bc87c | 85 | |
d53b8652 FW |
86 | saw_digit = 0; |
87 | octets = 0; | |
88 | *(tp = tmp) = 0; | |
60149b28 | 89 | while (src < end) |
d53b8652 | 90 | { |
60149b28 | 91 | ch = *src++; |
d53b8652 FW |
92 | if (ch >= '0' && ch <= '9') |
93 | { | |
94 | unsigned int new = *tp * 10 + (ch - '0'); | |
fa0bc87c | 95 | |
d53b8652 FW |
96 | if (saw_digit && *tp == 0) |
97 | return 0; | |
98 | if (new > 255) | |
99 | return 0; | |
100 | *tp = new; | |
101 | if (! saw_digit) | |
102 | { | |
103 | if (++octets > 4) | |
104 | return 0; | |
105 | saw_digit = 1; | |
106 | } | |
107 | } | |
108 | else if (ch == '.' && saw_digit) | |
109 | { | |
110 | if (octets == 4) | |
111 | return 0; | |
112 | *++tp = 0; | |
113 | saw_digit = 0; | |
114 | } | |
115 | else | |
116 | return 0; | |
117 | } | |
118 | if (octets < 4) | |
119 | return 0; | |
120 | memcpy (dst, tmp, NS_INADDRSZ); | |
121 | return 1; | |
fa0bc87c RM |
122 | } |
123 | ||
60149b28 FW |
124 | /* Return the value of CH as a hexademical digit, or -1 if it is a |
125 | different type of character. */ | |
126 | static int | |
127 | hex_digit_value (char ch) | |
128 | { | |
129 | if ('0' <= ch && ch <= '9') | |
130 | return ch - '0'; | |
131 | if ('a' <= ch && ch <= 'f') | |
132 | return ch - 'a' + 10; | |
133 | if ('A' <= ch && ch <= 'F') | |
134 | return ch - 'A' + 10; | |
135 | return -1; | |
136 | } | |
137 | ||
138 | /* Convert presentation-level IPv6 address to network order binary | |
139 | form. Return 1 if SRC is a valid [RFC1884 2.2] address, else 0. | |
140 | This function does not touch DST unless it's returning 1. | |
141 | Author: Paul Vixie, 1996. Inspired by Mark Andrews. */ | |
fa0bc87c | 142 | static int |
60149b28 | 143 | inet_pton6 (const char *src, const char *src_endp, unsigned char *dst) |
fa0bc87c | 144 | { |
d53b8652 FW |
145 | unsigned char tmp[NS_IN6ADDRSZ], *tp, *endp, *colonp; |
146 | const char *curtok; | |
9a0cc8c1 FW |
147 | int ch; |
148 | size_t xdigits_seen; /* Number of hex digits since colon. */ | |
d53b8652 | 149 | unsigned int val; |
fa0bc87c | 150 | |
d53b8652 FW |
151 | tp = memset (tmp, '\0', NS_IN6ADDRSZ); |
152 | endp = tp + NS_IN6ADDRSZ; | |
153 | colonp = NULL; | |
60149b28 | 154 | |
d53b8652 | 155 | /* Leading :: requires some special handling. */ |
60149b28 FW |
156 | if (src == src_endp) |
157 | return 0; | |
d53b8652 | 158 | if (*src == ':') |
60149b28 FW |
159 | { |
160 | ++src; | |
161 | if (src == src_endp || *src != ':') | |
162 | return 0; | |
163 | } | |
164 | ||
d53b8652 | 165 | curtok = src; |
9a0cc8c1 | 166 | xdigits_seen = 0; |
d53b8652 | 167 | val = 0; |
60149b28 | 168 | while (src < src_endp) |
d53b8652 | 169 | { |
60149b28 FW |
170 | ch = *src++; |
171 | int digit = hex_digit_value (ch); | |
172 | if (digit >= 0) | |
d53b8652 | 173 | { |
9a0cc8c1 FW |
174 | if (xdigits_seen == 4) |
175 | return 0; | |
d53b8652 | 176 | val <<= 4; |
60149b28 | 177 | val |= digit; |
d53b8652 FW |
178 | if (val > 0xffff) |
179 | return 0; | |
9a0cc8c1 | 180 | ++xdigits_seen; |
d53b8652 FW |
181 | continue; |
182 | } | |
183 | if (ch == ':') | |
184 | { | |
185 | curtok = src; | |
9a0cc8c1 | 186 | if (xdigits_seen == 0) |
d53b8652 FW |
187 | { |
188 | if (colonp) | |
189 | return 0; | |
190 | colonp = tp; | |
191 | continue; | |
192 | } | |
60149b28 FW |
193 | else if (src == src_endp) |
194 | return 0; | |
d53b8652 FW |
195 | if (tp + NS_INT16SZ > endp) |
196 | return 0; | |
197 | *tp++ = (unsigned char) (val >> 8) & 0xff; | |
198 | *tp++ = (unsigned char) val & 0xff; | |
9a0cc8c1 | 199 | xdigits_seen = 0; |
d53b8652 FW |
200 | val = 0; |
201 | continue; | |
fa0bc87c | 202 | } |
60149b28 FW |
203 | if (ch == '.' && ((tp + NS_INADDRSZ) <= endp) |
204 | && inet_pton4 (curtok, src_endp, tp) > 0) | |
d53b8652 FW |
205 | { |
206 | tp += NS_INADDRSZ; | |
9a0cc8c1 | 207 | xdigits_seen = 0; |
d53b8652 | 208 | break; /* '\0' was seen by inet_pton4. */ |
fa0bc87c | 209 | } |
d53b8652 FW |
210 | return 0; |
211 | } | |
9a0cc8c1 | 212 | if (xdigits_seen > 0) |
d53b8652 FW |
213 | { |
214 | if (tp + NS_INT16SZ > endp) | |
215 | return 0; | |
216 | *tp++ = (unsigned char) (val >> 8) & 0xff; | |
217 | *tp++ = (unsigned char) val & 0xff; | |
218 | } | |
219 | if (colonp != NULL) | |
220 | { | |
60149b28 | 221 | /* Replace :: with zeros. */ |
d53b8652 | 222 | if (tp == endp) |
60149b28 FW |
223 | /* :: would expand to a zero-width field. */ |
224 | return 0; | |
225 | size_t n = tp - colonp; | |
226 | memmove (endp - n, colonp, n); | |
227 | memset (colonp, 0, endp - n - colonp); | |
d53b8652 FW |
228 | tp = endp; |
229 | } | |
230 | if (tp != endp) | |
231 | return 0; | |
232 | memcpy (dst, tmp, NS_IN6ADDRSZ); | |
233 | return 1; | |
fa0bc87c | 234 | } |