rtquery.c revision 1.25 1 1.25 dholland /* $NetBSD: rtquery.c,v 1.25 2014/03/23 05:36:58 dholland Exp $ */
2 1.2 thorpej
3 1.1 thorpej /*-
4 1.1 thorpej * Copyright (c) 1982, 1986, 1993
5 1.1 thorpej * The Regents of the University of California. All rights reserved.
6 1.1 thorpej *
7 1.1 thorpej * Redistribution and use in source and binary forms, with or without
8 1.1 thorpej * modification, are permitted provided that the following conditions
9 1.1 thorpej * are met:
10 1.1 thorpej * 1. Redistributions of source code must retain the above copyright
11 1.1 thorpej * notice, this list of conditions and the following disclaimer.
12 1.1 thorpej * 2. Redistributions in binary form must reproduce the above copyright
13 1.1 thorpej * notice, this list of conditions and the following disclaimer in the
14 1.1 thorpej * documentation and/or other materials provided with the distribution.
15 1.1 thorpej * 3. All advertising materials mentioning features or use of this software
16 1.9 christos * must display the following acknowledgment:
17 1.1 thorpej * This product includes software developed by the University of
18 1.1 thorpej * California, Berkeley and its contributors.
19 1.1 thorpej * 4. Neither the name of the University nor the names of its contributors
20 1.1 thorpej * may be used to endorse or promote products derived from this software
21 1.1 thorpej * without specific prior written permission.
22 1.1 thorpej *
23 1.1 thorpej * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 1.1 thorpej * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 1.1 thorpej * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 1.1 thorpej * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 1.1 thorpej * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 1.1 thorpej * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 1.1 thorpej * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 1.1 thorpej * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 1.1 thorpej * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 1.1 thorpej * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33 1.1 thorpej * SUCH DAMAGE.
34 1.1 thorpej */
35 1.1 thorpej
36 1.16 christos #include <sys/cdefs.h>
37 1.1 thorpej #include <sys/param.h>
38 1.1 thorpej #include <sys/protosw.h>
39 1.1 thorpej #include <sys/socket.h>
40 1.1 thorpej #include <sys/time.h>
41 1.1 thorpej #include <netinet/in.h>
42 1.1 thorpej #define RIPVERSION RIPv2
43 1.1 thorpej #include <protocols/routed.h>
44 1.1 thorpej #include <arpa/inet.h>
45 1.1 thorpej #include <netdb.h>
46 1.1 thorpej #include <errno.h>
47 1.1 thorpej #include <unistd.h>
48 1.1 thorpej #include <stdio.h>
49 1.1 thorpej #include <stdlib.h>
50 1.1 thorpej #include <string.h>
51 1.1 thorpej #ifdef sgi
52 1.1 thorpej #include <strings.h>
53 1.1 thorpej #include <bstring.h>
54 1.1 thorpej #endif
55 1.1 thorpej
56 1.20 perry #define UNUSED __unused
57 1.14 christos #ifndef __RCSID
58 1.14 christos #define __RCSID(_s) static const char rcsid[] UNUSED = _s
59 1.14 christos #endif
60 1.14 christos #ifndef __COPYRIGHT
61 1.14 christos #define __COPYRIGHT(_s) static const char copyright[] UNUSED = _s
62 1.14 christos #endif
63 1.21 lukem __COPYRIGHT("@(#) Copyright (c) 1983, 1988, 1993\
64 1.21 lukem The Regents of the University of California. All rights reserved.");
65 1.14 christos #ifdef __NetBSD__
66 1.25 dholland __RCSID("$NetBSD: rtquery.c,v 1.25 2014/03/23 05:36:58 dholland Exp $");
67 1.14 christos #elif defined(__FreeBSD__)
68 1.14 christos __RCSID("$FreeBSD$");
69 1.14 christos #else
70 1.16 christos __RCSID("Revision: 2.26 ");
71 1.16 christos #ident "Revision: 2.26 "
72 1.14 christos #endif
73 1.13 thorpej
74 1.1 thorpej #ifndef sgi
75 1.1 thorpej #define _HAVE_SIN_LEN
76 1.1 thorpej #endif
77 1.4 christos
78 1.16 christos #ifdef __NetBSD__
79 1.16 christos #include <md5.h>
80 1.16 christos #else
81 1.16 christos #define MD5_DIGEST_LEN 16
82 1.16 christos typedef struct {
83 1.16 christos u_int32_t state[4]; /* state (ABCD) */
84 1.16 christos u_int32_t count[2]; /* # of bits, modulo 2^64 (LSB 1st) */
85 1.16 christos unsigned char buffer[64]; /* input buffer */
86 1.16 christos } MD5_CTX;
87 1.16 christos extern void MD5Init(MD5_CTX*);
88 1.16 christos extern void MD5Update(MD5_CTX*, u_char*, u_int);
89 1.16 christos extern void MD5Final(u_char[MD5_DIGEST_LEN], MD5_CTX*);
90 1.16 christos #endif
91 1.16 christos
92 1.16 christos
93 1.1 thorpej #define WTIME 15 /* Time to wait for all responses */
94 1.1 thorpej #define STIME (250*1000) /* usec to wait for another response */
95 1.1 thorpej
96 1.10 christos int soc;
97 1.1 thorpej
98 1.10 christos const char *pgmname;
99 1.1 thorpej
100 1.1 thorpej union {
101 1.1 thorpej struct rip rip;
102 1.1 thorpej char packet[MAXPACKETSIZE+MAXPATHLEN];
103 1.1 thorpej } omsg_buf;
104 1.1 thorpej #define OMSG omsg_buf.rip
105 1.1 thorpej int omsg_len = sizeof(struct rip);
106 1.1 thorpej
107 1.1 thorpej union {
108 1.1 thorpej struct rip rip;
109 1.1 thorpej char packet[MAXPACKETSIZE+1024];
110 1.1 thorpej } imsg_buf;
111 1.1 thorpej #define IMSG imsg_buf.rip
112 1.1 thorpej
113 1.1 thorpej int nflag; /* numbers, no names */
114 1.1 thorpej int pflag; /* play the `gated` game */
115 1.1 thorpej int ripv2 = 1; /* use RIP version 2 */
116 1.1 thorpej int wtime = WTIME;
117 1.1 thorpej int rflag; /* 1=ask about a particular route */
118 1.4 christos int trace, not_trace; /* send trace command or not */
119 1.4 christos int auth_type = RIP_AUTH_NONE;
120 1.4 christos char passwd[RIP_AUTH_PW_LEN];
121 1.4 christos u_long keyid;
122 1.1 thorpej
123 1.1 thorpej struct timeval sent; /* when query sent */
124 1.1 thorpej
125 1.10 christos static char localhost_str[] = "localhost";
126 1.10 christos static char *default_argv[] = {localhost_str, 0};
127 1.8 thorpej
128 1.1 thorpej static void rip_input(struct sockaddr_in*, int);
129 1.10 christos static int out(const char *);
130 1.20 perry static void trace_loop(char *argv[]) __dead;
131 1.20 perry static void query_loop(char *argv[], int) __dead;
132 1.1 thorpej static int getnet(char *, struct netinfo *);
133 1.1 thorpej static u_int std_mask(u_int);
134 1.10 christos static int parse_quote(char **, const char *, char *, char *, int);
135 1.23 joerg __dead static void usage(void);
136 1.1 thorpej
137 1.1 thorpej
138 1.6 mrg int
139 1.1 thorpej main(int argc,
140 1.1 thorpej char *argv[])
141 1.1 thorpej {
142 1.1 thorpej int ch, bsize;
143 1.4 christos char *p, *options, *value, delim;
144 1.10 christos const char *result;
145 1.1 thorpej
146 1.18 mrg delim = 0; /* XXX gcc */
147 1.18 mrg
148 1.1 thorpej OMSG.rip_nets[0].n_dst = RIP_DEFAULT;
149 1.1 thorpej OMSG.rip_nets[0].n_family = RIP_AF_UNSPEC;
150 1.1 thorpej OMSG.rip_nets[0].n_metric = htonl(HOPCNT_INFINITY);
151 1.1 thorpej
152 1.1 thorpej pgmname = argv[0];
153 1.5 lukem while ((ch = getopt(argc, argv, "np1w:r:t:a:")) != -1)
154 1.1 thorpej switch (ch) {
155 1.1 thorpej case 'n':
156 1.1 thorpej not_trace = 1;
157 1.1 thorpej nflag = 1;
158 1.1 thorpej break;
159 1.1 thorpej
160 1.1 thorpej case 'p':
161 1.1 thorpej not_trace = 1;
162 1.1 thorpej pflag = 1;
163 1.1 thorpej break;
164 1.1 thorpej
165 1.1 thorpej case '1':
166 1.1 thorpej ripv2 = 0;
167 1.1 thorpej break;
168 1.1 thorpej
169 1.1 thorpej case 'w':
170 1.1 thorpej not_trace = 1;
171 1.1 thorpej wtime = (int)strtoul(optarg, &p, 0);
172 1.1 thorpej if (*p != '\0'
173 1.1 thorpej || wtime <= 0)
174 1.9 christos usage();
175 1.1 thorpej break;
176 1.1 thorpej
177 1.1 thorpej case 'r':
178 1.1 thorpej not_trace = 1;
179 1.1 thorpej if (rflag)
180 1.9 christos usage();
181 1.1 thorpej rflag = getnet(optarg, &OMSG.rip_nets[0]);
182 1.1 thorpej if (!rflag) {
183 1.1 thorpej struct hostent *hp = gethostbyname(optarg);
184 1.1 thorpej if (hp == 0) {
185 1.1 thorpej fprintf(stderr, "%s: %s:",
186 1.1 thorpej pgmname, optarg);
187 1.1 thorpej herror(0);
188 1.1 thorpej exit(1);
189 1.1 thorpej }
190 1.9 christos memcpy(&OMSG.rip_nets[0].n_dst, hp->h_addr,
191 1.10 christos sizeof(OMSG.rip_nets[0].n_dst));
192 1.1 thorpej OMSG.rip_nets[0].n_family = RIP_AF_INET;
193 1.1 thorpej OMSG.rip_nets[0].n_mask = -1;
194 1.1 thorpej rflag = 1;
195 1.1 thorpej }
196 1.1 thorpej break;
197 1.1 thorpej
198 1.1 thorpej case 't':
199 1.1 thorpej trace = 1;
200 1.1 thorpej options = optarg;
201 1.1 thorpej while (*options != '\0') {
202 1.10 christos /* messy complications to make -W -Wall happy */
203 1.10 christos static char on_str[] = "on";
204 1.10 christos static char more_str[] = "more";
205 1.10 christos static char off_str[] = "off";
206 1.10 christos static char dump_str[] = "dump";
207 1.10 christos static char *traceopts[] = {
208 1.1 thorpej # define TRACE_ON 0
209 1.10 christos on_str,
210 1.1 thorpej # define TRACE_MORE 1
211 1.10 christos more_str,
212 1.1 thorpej # define TRACE_OFF 2
213 1.10 christos off_str,
214 1.3 christos # define TRACE_DUMP 3
215 1.10 christos dump_str,
216 1.1 thorpej 0
217 1.1 thorpej };
218 1.10 christos result = "";
219 1.1 thorpej switch (getsubopt(&options,traceopts,&value)) {
220 1.1 thorpej case TRACE_ON:
221 1.1 thorpej OMSG.rip_cmd = RIPCMD_TRACEON;
222 1.1 thorpej if (!value
223 1.1 thorpej || strlen(value) > MAXPATHLEN)
224 1.10 christos usage();
225 1.10 christos result = value;
226 1.1 thorpej break;
227 1.1 thorpej case TRACE_MORE:
228 1.1 thorpej if (value)
229 1.10 christos usage();
230 1.1 thorpej OMSG.rip_cmd = RIPCMD_TRACEON;
231 1.1 thorpej break;
232 1.1 thorpej case TRACE_OFF:
233 1.1 thorpej if (value)
234 1.10 christos usage();
235 1.1 thorpej OMSG.rip_cmd = RIPCMD_TRACEOFF;
236 1.3 christos break;
237 1.3 christos case TRACE_DUMP:
238 1.3 christos if (value)
239 1.10 christos usage();
240 1.3 christos OMSG.rip_cmd = RIPCMD_TRACEON;
241 1.10 christos result = "dump/../table";
242 1.1 thorpej break;
243 1.1 thorpej default:
244 1.9 christos usage();
245 1.1 thorpej }
246 1.10 christos strcpy((char*)OMSG.rip_tracefile, result);
247 1.10 christos omsg_len += strlen(result) - sizeof(OMSG.ripun);
248 1.1 thorpej }
249 1.1 thorpej break;
250 1.1 thorpej
251 1.4 christos case 'a':
252 1.4 christos not_trace = 1;
253 1.4 christos p = strchr(optarg,'=');
254 1.4 christos if (!p)
255 1.9 christos usage();
256 1.4 christos *p++ = '\0';
257 1.4 christos if (!strcasecmp("passwd",optarg))
258 1.4 christos auth_type = RIP_AUTH_PW;
259 1.4 christos else if (!strcasecmp("md5_passwd",optarg))
260 1.4 christos auth_type = RIP_AUTH_MD5;
261 1.4 christos else
262 1.9 christos usage();
263 1.4 christos if (0 > parse_quote(&p,"|",&delim,
264 1.10 christos passwd, sizeof(passwd)))
265 1.9 christos usage();
266 1.4 christos if (auth_type == RIP_AUTH_MD5
267 1.4 christos && delim == '|') {
268 1.4 christos keyid = strtoul(p+1,&p,0);
269 1.4 christos if (keyid > 255 || *p != '\0')
270 1.9 christos usage();
271 1.4 christos } else if (delim != '\0') {
272 1.9 christos usage();
273 1.4 christos }
274 1.4 christos break;
275 1.4 christos
276 1.1 thorpej default:
277 1.9 christos usage();
278 1.1 thorpej }
279 1.1 thorpej argv += optind;
280 1.1 thorpej argc -= optind;
281 1.9 christos if (not_trace && trace)
282 1.9 christos usage();
283 1.8 thorpej if (argc == 0) {
284 1.8 thorpej argc = 1;
285 1.8 thorpej argv = default_argv;
286 1.1 thorpej }
287 1.1 thorpej
288 1.10 christos soc = socket(AF_INET, SOCK_DGRAM, 0);
289 1.10 christos if (soc < 0) {
290 1.1 thorpej perror("socket");
291 1.1 thorpej exit(2);
292 1.1 thorpej }
293 1.1 thorpej
294 1.1 thorpej /* be prepared to receive a lot of routes */
295 1.1 thorpej for (bsize = 127*1024; ; bsize -= 1024) {
296 1.10 christos if (setsockopt(soc, SOL_SOCKET, SO_RCVBUF,
297 1.1 thorpej &bsize, sizeof(bsize)) == 0)
298 1.1 thorpej break;
299 1.1 thorpej if (bsize <= 4*1024) {
300 1.1 thorpej perror("setsockopt SO_RCVBUF");
301 1.1 thorpej break;
302 1.1 thorpej }
303 1.1 thorpej }
304 1.1 thorpej
305 1.1 thorpej if (trace)
306 1.1 thorpej trace_loop(argv);
307 1.1 thorpej else
308 1.1 thorpej query_loop(argv, argc);
309 1.1 thorpej /* NOTREACHED */
310 1.9 christos return 0;
311 1.9 christos }
312 1.9 christos
313 1.9 christos
314 1.9 christos static void
315 1.9 christos usage(void)
316 1.9 christos {
317 1.9 christos fprintf(stderr,
318 1.9 christos "usage: rtquery [-np1] [-r tgt_rt] [-w wtime]"
319 1.9 christos " [-a type=passwd] host1 [host2 ...]\n"
320 1.9 christos "\trtquery -t {on=filename|more|off|dump}"
321 1.9 christos " host1 [host2 ...]\n");
322 1.9 christos exit(1);
323 1.1 thorpej }
324 1.1 thorpej
325 1.1 thorpej
326 1.1 thorpej /* tell the target hosts about tracing
327 1.1 thorpej */
328 1.1 thorpej static void
329 1.1 thorpej trace_loop(char *argv[])
330 1.1 thorpej {
331 1.1 thorpej struct sockaddr_in myaddr;
332 1.1 thorpej int res;
333 1.1 thorpej
334 1.1 thorpej if (geteuid() != 0) {
335 1.1 thorpej (void)fprintf(stderr, "-t requires UID 0\n");
336 1.1 thorpej exit(1);
337 1.1 thorpej }
338 1.1 thorpej
339 1.1 thorpej if (ripv2) {
340 1.1 thorpej OMSG.rip_vers = RIPv2;
341 1.1 thorpej } else {
342 1.1 thorpej OMSG.rip_vers = RIPv1;
343 1.1 thorpej }
344 1.1 thorpej
345 1.5 lukem memset(&myaddr, 0, sizeof(myaddr));
346 1.1 thorpej myaddr.sin_family = AF_INET;
347 1.1 thorpej #ifdef _HAVE_SIN_LEN
348 1.1 thorpej myaddr.sin_len = sizeof(myaddr);
349 1.1 thorpej #endif
350 1.1 thorpej myaddr.sin_port = htons(IPPORT_RESERVED-1);
351 1.10 christos while (bind(soc, (struct sockaddr *)&myaddr, sizeof(myaddr)) < 0) {
352 1.1 thorpej if (errno != EADDRINUSE
353 1.1 thorpej || myaddr.sin_port == 0) {
354 1.1 thorpej perror("bind");
355 1.1 thorpej exit(2);
356 1.1 thorpej }
357 1.22 christos myaddr.sin_port = ntohs(myaddr.sin_port)-1;
358 1.22 christos myaddr.sin_port = htons(myaddr.sin_port);
359 1.1 thorpej }
360 1.1 thorpej
361 1.1 thorpej res = 1;
362 1.1 thorpej while (*argv != 0) {
363 1.1 thorpej if (out(*argv++) <= 0)
364 1.1 thorpej res = 0;
365 1.1 thorpej }
366 1.1 thorpej exit(res);
367 1.1 thorpej }
368 1.1 thorpej
369 1.1 thorpej
370 1.1 thorpej /* query all of the listed hosts
371 1.1 thorpej */
372 1.1 thorpej static void
373 1.1 thorpej query_loop(char *argv[], int argc)
374 1.1 thorpej {
375 1.24 christos struct netauth *na = OMSG.rip_auths;
376 1.24 christos # define NA0 (na[0])
377 1.24 christos # define NA2 (na[2])
378 1.1 thorpej struct seen {
379 1.1 thorpej struct seen *next;
380 1.1 thorpej struct in_addr addr;
381 1.1 thorpej } *seen, *sp;
382 1.1 thorpej int answered = 0;
383 1.1 thorpej int cc;
384 1.1 thorpej fd_set bits;
385 1.1 thorpej struct timeval now, delay;
386 1.1 thorpej struct sockaddr_in from;
387 1.17 mrg socklen_t fromlen;
388 1.4 christos MD5_CTX md5_ctx;
389 1.1 thorpej
390 1.1 thorpej
391 1.1 thorpej OMSG.rip_cmd = (pflag) ? RIPCMD_POLL : RIPCMD_REQUEST;
392 1.1 thorpej if (ripv2) {
393 1.1 thorpej OMSG.rip_vers = RIPv2;
394 1.4 christos if (auth_type == RIP_AUTH_PW) {
395 1.24 christos na[1] = na[0];
396 1.4 christos NA0.a_family = RIP_AF_AUTH;
397 1.4 christos NA0.a_type = RIP_AUTH_PW;
398 1.9 christos memcpy(NA0.au.au_pw, passwd, RIP_AUTH_PW_LEN);
399 1.4 christos omsg_len += sizeof(OMSG.rip_nets[0]);
400 1.4 christos
401 1.4 christos } else if (auth_type == RIP_AUTH_MD5) {
402 1.24 christos na[1] = na[0];
403 1.4 christos NA0.a_family = RIP_AF_AUTH;
404 1.4 christos NA0.a_type = RIP_AUTH_MD5;
405 1.4 christos NA0.au.a_md5.md5_keyid = (int8_t)keyid;
406 1.16 christos NA0.au.a_md5.md5_auth_len = RIP_AUTH_MD5_KEY_LEN;
407 1.4 christos NA0.au.a_md5.md5_seqno = 0;
408 1.9 christos cc = (char *)&NA2-(char *)&OMSG;
409 1.9 christos NA0.au.a_md5.md5_pkt_len = htons(cc);
410 1.4 christos NA2.a_family = RIP_AF_AUTH;
411 1.9 christos NA2.a_type = htons(1);
412 1.4 christos MD5Init(&md5_ctx);
413 1.9 christos MD5Update(&md5_ctx,
414 1.9 christos (u_char *)&OMSG, cc);
415 1.9 christos MD5Update(&md5_ctx,
416 1.16 christos (u_char *)passwd, RIP_AUTH_MD5_HASH_LEN);
417 1.4 christos MD5Final(NA2.au.au_pw, &md5_ctx);
418 1.4 christos omsg_len += 2*sizeof(OMSG.rip_nets[0]);
419 1.4 christos }
420 1.4 christos
421 1.1 thorpej } else {
422 1.1 thorpej OMSG.rip_vers = RIPv1;
423 1.1 thorpej OMSG.rip_nets[0].n_mask = 0;
424 1.1 thorpej }
425 1.1 thorpej
426 1.1 thorpej /* ask the first (valid) host */
427 1.1 thorpej seen = 0;
428 1.1 thorpej while (0 > out(*argv++)) {
429 1.1 thorpej if (*argv == 0)
430 1.15 wiz exit(1);
431 1.1 thorpej answered++;
432 1.1 thorpej }
433 1.1 thorpej
434 1.1 thorpej FD_ZERO(&bits);
435 1.1 thorpej for (;;) {
436 1.10 christos FD_SET(soc, &bits);
437 1.1 thorpej delay.tv_sec = 0;
438 1.1 thorpej delay.tv_usec = STIME;
439 1.10 christos cc = select(soc+1, &bits, 0,0, &delay);
440 1.1 thorpej if (cc > 0) {
441 1.1 thorpej fromlen = sizeof(from);
442 1.10 christos cc = recvfrom(soc, imsg_buf.packet,
443 1.1 thorpej sizeof(imsg_buf.packet), 0,
444 1.1 thorpej (struct sockaddr *)&from, &fromlen);
445 1.1 thorpej if (cc < 0) {
446 1.1 thorpej perror("recvfrom");
447 1.1 thorpej exit(1);
448 1.1 thorpej }
449 1.1 thorpej /* count the distinct responding hosts.
450 1.1 thorpej * You cannot match responding hosts with
451 1.1 thorpej * addresses to which queries were transmitted,
452 1.1 thorpej * because a router might respond with a
453 1.1 thorpej * different source address.
454 1.1 thorpej */
455 1.1 thorpej for (sp = seen; sp != 0; sp = sp->next) {
456 1.1 thorpej if (sp->addr.s_addr == from.sin_addr.s_addr)
457 1.1 thorpej break;
458 1.1 thorpej }
459 1.1 thorpej if (sp == 0) {
460 1.1 thorpej sp = malloc(sizeof(*sp));
461 1.9 christos if (sp == 0) {
462 1.9 christos fprintf(stderr,
463 1.9 christos "rtquery: malloc failed\n");
464 1.9 christos exit(1);
465 1.9 christos }
466 1.1 thorpej sp->addr = from.sin_addr;
467 1.1 thorpej sp->next = seen;
468 1.1 thorpej seen = sp;
469 1.1 thorpej answered++;
470 1.1 thorpej }
471 1.1 thorpej
472 1.1 thorpej rip_input(&from, cc);
473 1.1 thorpej continue;
474 1.1 thorpej }
475 1.1 thorpej
476 1.1 thorpej if (cc < 0) {
477 1.10 christos if (errno == EINTR)
478 1.1 thorpej continue;
479 1.1 thorpej perror("select");
480 1.1 thorpej exit(1);
481 1.1 thorpej }
482 1.1 thorpej
483 1.1 thorpej /* After a pause in responses, probe another host.
484 1.1 thorpej * This reduces the intermingling of answers.
485 1.1 thorpej */
486 1.1 thorpej while (*argv != 0 && 0 > out(*argv++))
487 1.1 thorpej answered++;
488 1.1 thorpej
489 1.1 thorpej /* continue until no more packets arrive
490 1.1 thorpej * or we have heard from all hosts
491 1.1 thorpej */
492 1.1 thorpej if (answered >= argc)
493 1.1 thorpej break;
494 1.1 thorpej
495 1.1 thorpej /* or until we have waited a long time
496 1.1 thorpej */
497 1.1 thorpej if (gettimeofday(&now, 0) < 0) {
498 1.1 thorpej perror("gettimeofday(now)");
499 1.1 thorpej exit(1);
500 1.1 thorpej }
501 1.1 thorpej if (sent.tv_sec + wtime <= now.tv_sec)
502 1.1 thorpej break;
503 1.1 thorpej }
504 1.1 thorpej
505 1.1 thorpej /* fail if there was no answer */
506 1.1 thorpej exit (answered >= argc ? 0 : 1);
507 1.1 thorpej }
508 1.1 thorpej
509 1.1 thorpej
510 1.4 christos /* send to one host
511 1.1 thorpej */
512 1.1 thorpej static int
513 1.10 christos out(const char *host)
514 1.1 thorpej {
515 1.1 thorpej struct sockaddr_in router;
516 1.1 thorpej struct hostent *hp;
517 1.1 thorpej
518 1.1 thorpej if (gettimeofday(&sent, 0) < 0) {
519 1.1 thorpej perror("gettimeofday(sent)");
520 1.1 thorpej return -1;
521 1.1 thorpej }
522 1.1 thorpej
523 1.5 lukem memset(&router, 0, sizeof(router));
524 1.1 thorpej router.sin_family = AF_INET;
525 1.1 thorpej #ifdef _HAVE_SIN_LEN
526 1.1 thorpej router.sin_len = sizeof(router);
527 1.1 thorpej #endif
528 1.1 thorpej if (!inet_aton(host, &router.sin_addr)) {
529 1.1 thorpej hp = gethostbyname(host);
530 1.1 thorpej if (hp == 0) {
531 1.1 thorpej herror(host);
532 1.1 thorpej return -1;
533 1.1 thorpej }
534 1.9 christos memcpy(&router.sin_addr, hp->h_addr, sizeof(router.sin_addr));
535 1.1 thorpej }
536 1.1 thorpej router.sin_port = htons(RIP_PORT);
537 1.1 thorpej
538 1.10 christos if (sendto(soc, &omsg_buf, omsg_len, 0,
539 1.1 thorpej (struct sockaddr *)&router, sizeof(router)) < 0) {
540 1.1 thorpej perror(host);
541 1.1 thorpej return -1;
542 1.1 thorpej }
543 1.1 thorpej
544 1.1 thorpej return 0;
545 1.1 thorpej }
546 1.1 thorpej
547 1.1 thorpej
548 1.1 thorpej /*
549 1.4 christos * Convert string to printable characters
550 1.4 christos */
551 1.4 christos static char *
552 1.4 christos qstring(u_char *s, int len)
553 1.4 christos {
554 1.4 christos static char buf[8*20+1];
555 1.25 dholland size_t bufpos;
556 1.4 christos u_char *s2, c;
557 1.4 christos
558 1.4 christos
559 1.25 dholland for (bufpos = 0; len != 0 && bufpos < sizeof(buf) - 1; len--) {
560 1.4 christos c = *s++;
561 1.4 christos if (c == '\0') {
562 1.4 christos for (s2 = s+1; s2 < &s[len]; s2++) {
563 1.4 christos if (*s2 != '\0')
564 1.4 christos break;
565 1.4 christos }
566 1.4 christos if (s2 >= &s[len])
567 1.4 christos goto exit;
568 1.4 christos }
569 1.4 christos
570 1.4 christos if (c >= ' ' && c < 0x7f && c != '\\') {
571 1.25 dholland buf[bufpos++] = c;
572 1.4 christos continue;
573 1.4 christos }
574 1.25 dholland if (bufpos >= sizeof(buf) - 2) {
575 1.25 dholland /* too long */
576 1.25 dholland break;
577 1.25 dholland }
578 1.25 dholland buf[bufpos++] = '\\';
579 1.4 christos switch (c) {
580 1.4 christos case '\\':
581 1.25 dholland buf[bufpos++] = '\\';
582 1.4 christos break;
583 1.4 christos case '\n':
584 1.25 dholland buf[bufpos++] = 'n';
585 1.4 christos break;
586 1.4 christos case '\r':
587 1.25 dholland buf[bufpos++] = 'r';
588 1.4 christos break;
589 1.4 christos case '\t':
590 1.25 dholland buf[bufpos++] = 't';
591 1.4 christos break;
592 1.4 christos case '\b':
593 1.25 dholland buf[bufpos++] = 'b';
594 1.4 christos break;
595 1.4 christos default:
596 1.25 dholland bufpos += snprintf(buf + bufpos, sizeof(buf) - bufpos,
597 1.25 dholland "%o", c);
598 1.4 christos break;
599 1.4 christos }
600 1.4 christos }
601 1.4 christos exit:
602 1.25 dholland buf[bufpos] = '\0';
603 1.4 christos return buf;
604 1.4 christos }
605 1.4 christos
606 1.4 christos
607 1.4 christos /*
608 1.1 thorpej * Handle an incoming RIP packet.
609 1.1 thorpej */
610 1.1 thorpej static void
611 1.1 thorpej rip_input(struct sockaddr_in *from,
612 1.1 thorpej int size)
613 1.1 thorpej {
614 1.1 thorpej struct netinfo *n, *lim;
615 1.1 thorpej struct in_addr in;
616 1.10 christos const char *name;
617 1.1 thorpej char net_buf[80];
618 1.16 christos u_char hash[RIP_AUTH_MD5_KEY_LEN];
619 1.9 christos MD5_CTX md5_ctx;
620 1.9 christos u_char md5_authed = 0;
621 1.1 thorpej u_int mask, dmask;
622 1.25 dholland size_t spos;
623 1.1 thorpej int i;
624 1.1 thorpej struct hostent *hp;
625 1.1 thorpej struct netent *np;
626 1.4 christos struct netauth *na;
627 1.1 thorpej
628 1.1 thorpej
629 1.1 thorpej if (nflag) {
630 1.1 thorpej printf("%s:", inet_ntoa(from->sin_addr));
631 1.1 thorpej } else {
632 1.1 thorpej hp = gethostbyaddr((char*)&from->sin_addr,
633 1.1 thorpej sizeof(struct in_addr), AF_INET);
634 1.1 thorpej if (hp == 0) {
635 1.1 thorpej printf("%s:",
636 1.1 thorpej inet_ntoa(from->sin_addr));
637 1.1 thorpej } else {
638 1.1 thorpej printf("%s (%s):", hp->h_name,
639 1.1 thorpej inet_ntoa(from->sin_addr));
640 1.1 thorpej }
641 1.1 thorpej }
642 1.1 thorpej if (IMSG.rip_cmd != RIPCMD_RESPONSE) {
643 1.1 thorpej printf("\n unexpected response type %d\n", IMSG.rip_cmd);
644 1.1 thorpej return;
645 1.1 thorpej }
646 1.1 thorpej printf(" RIPv%d%s %d bytes\n", IMSG.rip_vers,
647 1.1 thorpej (IMSG.rip_vers != RIPv1 && IMSG.rip_vers != RIPv2) ? " ?" : "",
648 1.1 thorpej size);
649 1.1 thorpej if (size > MAXPACKETSIZE) {
650 1.10 christos if (size > (int)sizeof(imsg_buf) - (int)sizeof(*n)) {
651 1.1 thorpej printf(" at least %d bytes too long\n",
652 1.1 thorpej size-MAXPACKETSIZE);
653 1.10 christos size = (int)sizeof(imsg_buf) - (int)sizeof(*n);
654 1.1 thorpej } else {
655 1.1 thorpej printf(" %d bytes too long\n",
656 1.1 thorpej size-MAXPACKETSIZE);
657 1.1 thorpej }
658 1.1 thorpej } else if (size%sizeof(*n) != sizeof(struct rip)%sizeof(*n)) {
659 1.1 thorpej printf(" response of bad length=%d\n", size);
660 1.1 thorpej }
661 1.1 thorpej
662 1.1 thorpej n = IMSG.rip_nets;
663 1.1 thorpej lim = (struct netinfo *)((char*)n + size) - 1;
664 1.1 thorpej for (; n <= lim; n++) {
665 1.1 thorpej name = "";
666 1.1 thorpej if (n->n_family == RIP_AF_INET) {
667 1.1 thorpej in.s_addr = n->n_dst;
668 1.1 thorpej (void)strcpy(net_buf, inet_ntoa(in));
669 1.1 thorpej
670 1.1 thorpej mask = ntohl(n->n_mask);
671 1.1 thorpej dmask = mask & -mask;
672 1.1 thorpej if (mask != 0) {
673 1.25 dholland spos = strlen(net_buf);
674 1.1 thorpej if (IMSG.rip_vers == RIPv1) {
675 1.25 dholland (void)snprintf(net_buf + spos,
676 1.25 dholland sizeof(net_buf) - spos,
677 1.25 dholland " mask=%#x ? ", mask);
678 1.1 thorpej mask = 0;
679 1.1 thorpej } else if (mask + dmask == 0) {
680 1.1 thorpej for (i = 0;
681 1.1 thorpej (i != 32
682 1.1 thorpej && ((1<<i)&mask) == 0);
683 1.1 thorpej i++)
684 1.1 thorpej continue;
685 1.25 dholland (void)snprintf(net_buf + spos,
686 1.25 dholland sizeof(net_buf) - spos,
687 1.25 dholland "/%d", 32-i);
688 1.1 thorpej } else {
689 1.25 dholland (void)snprintf(net_buf + spos,
690 1.25 dholland sizeof(net_buf) - spos,
691 1.25 dholland " (mask %#x)", mask);
692 1.1 thorpej }
693 1.1 thorpej }
694 1.1 thorpej
695 1.1 thorpej if (!nflag) {
696 1.1 thorpej if (mask == 0) {
697 1.1 thorpej mask = std_mask(in.s_addr);
698 1.1 thorpej if ((ntohl(in.s_addr) & ~mask) != 0)
699 1.1 thorpej mask = 0;
700 1.1 thorpej }
701 1.1 thorpej /* Without a netmask, do not worry about
702 1.1 thorpej * whether the destination is a host or a
703 1.1 thorpej * network. Try both and use the first name
704 1.1 thorpej * we get.
705 1.1 thorpej *
706 1.1 thorpej * If we have a netmask we can make a
707 1.1 thorpej * good guess.
708 1.1 thorpej */
709 1.1 thorpej if ((in.s_addr & ~mask) == 0) {
710 1.1 thorpej np = getnetbyaddr((long)in.s_addr,
711 1.1 thorpej AF_INET);
712 1.1 thorpej if (np != 0)
713 1.1 thorpej name = np->n_name;
714 1.1 thorpej else if (in.s_addr == 0)
715 1.1 thorpej name = "default";
716 1.1 thorpej }
717 1.1 thorpej if (name[0] == '\0'
718 1.1 thorpej && ((in.s_addr & ~mask) != 0
719 1.1 thorpej || mask == 0xffffffff)) {
720 1.1 thorpej hp = gethostbyaddr((char*)&in,
721 1.1 thorpej sizeof(in),
722 1.1 thorpej AF_INET);
723 1.1 thorpej if (hp != 0)
724 1.1 thorpej name = hp->h_name;
725 1.1 thorpej }
726 1.1 thorpej }
727 1.1 thorpej
728 1.1 thorpej } else if (n->n_family == RIP_AF_AUTH) {
729 1.4 christos na = (struct netauth*)n;
730 1.4 christos if (na->a_type == RIP_AUTH_PW
731 1.4 christos && n == IMSG.rip_nets) {
732 1.4 christos (void)printf(" Password Authentication:"
733 1.4 christos " \"%s\"\n",
734 1.4 christos qstring(na->au.au_pw,
735 1.4 christos RIP_AUTH_PW_LEN));
736 1.4 christos continue;
737 1.4 christos }
738 1.4 christos
739 1.4 christos if (na->a_type == RIP_AUTH_MD5
740 1.4 christos && n == IMSG.rip_nets) {
741 1.9 christos (void)printf(" MD5 Auth"
742 1.4 christos " len=%d KeyID=%d"
743 1.9 christos " auth_len=%d"
744 1.9 christos " seqno=%#x"
745 1.4 christos " rsvd=%#x,%#x\n",
746 1.9 christos ntohs(na->au.a_md5.md5_pkt_len),
747 1.4 christos na->au.a_md5.md5_keyid,
748 1.9 christos na->au.a_md5.md5_auth_len,
749 1.12 christos (int)ntohl(na->au.a_md5.md5_seqno),
750 1.4 christos na->au.a_md5.rsvd[0],
751 1.4 christos na->au.a_md5.rsvd[1]);
752 1.9 christos md5_authed = 1;
753 1.4 christos continue;
754 1.4 christos }
755 1.4 christos (void)printf(" Authentication type %d: ",
756 1.4 christos ntohs(na->a_type));
757 1.10 christos for (i = 0; i < (int)sizeof(na->au.au_pw); i++)
758 1.4 christos (void)printf("%02x ", na->au.au_pw[i]);
759 1.1 thorpej putc('\n', stdout);
760 1.9 christos if (md5_authed && n+1 > lim
761 1.9 christos && na->a_type == ntohs(1)) {
762 1.9 christos MD5Init(&md5_ctx);
763 1.9 christos MD5Update(&md5_ctx, (u_char *)&IMSG,
764 1.16 christos (char *)na-(char *)&IMSG
765 1.16 christos +RIP_AUTH_MD5_HASH_XTRA);
766 1.9 christos MD5Update(&md5_ctx, (u_char *)passwd,
767 1.16 christos RIP_AUTH_MD5_KEY_LEN);
768 1.9 christos MD5Final(hash, &md5_ctx);
769 1.9 christos (void)printf(" %s hash\n",
770 1.9 christos memcmp(hash, na->au.au_pw,
771 1.9 christos sizeof(hash))
772 1.9 christos ? "WRONG" : "correct");
773 1.9 christos }
774 1.1 thorpej continue;
775 1.1 thorpej
776 1.1 thorpej } else {
777 1.25 dholland (void)snprintf(net_buf, sizeof(net_buf),
778 1.25 dholland "(af %#x) %d.%d.%d.%d",
779 1.1 thorpej ntohs(n->n_family),
780 1.16 christos (u_char)(n->n_dst >> 24),
781 1.16 christos (u_char)(n->n_dst >> 16),
782 1.16 christos (u_char)(n->n_dst >> 8),
783 1.16 christos (u_char)n->n_dst);
784 1.1 thorpej }
785 1.1 thorpej
786 1.1 thorpej (void)printf(" %-18s metric %2d %-10s",
787 1.12 christos net_buf, (int)ntohl(n->n_metric), name);
788 1.1 thorpej
789 1.1 thorpej if (n->n_nhop != 0) {
790 1.1 thorpej in.s_addr = n->n_nhop;
791 1.1 thorpej if (nflag)
792 1.1 thorpej hp = 0;
793 1.1 thorpej else
794 1.1 thorpej hp = gethostbyaddr((char*)&in, sizeof(in),
795 1.1 thorpej AF_INET);
796 1.1 thorpej (void)printf(" nhop=%-15s%s",
797 1.1 thorpej (hp != 0) ? hp->h_name : inet_ntoa(in),
798 1.1 thorpej (IMSG.rip_vers == RIPv1) ? " ?" : "");
799 1.1 thorpej }
800 1.1 thorpej if (n->n_tag != 0)
801 1.1 thorpej (void)printf(" tag=%#x%s", n->n_tag,
802 1.1 thorpej (IMSG.rip_vers == RIPv1) ? " ?" : "");
803 1.1 thorpej putc('\n', stdout);
804 1.1 thorpej }
805 1.1 thorpej }
806 1.1 thorpej
807 1.1 thorpej
808 1.1 thorpej /* Return the classical netmask for an IP address.
809 1.1 thorpej */
810 1.1 thorpej static u_int
811 1.1 thorpej std_mask(u_int addr) /* in network order */
812 1.1 thorpej {
813 1.22 christos addr = ntohl(addr); /* was a host, not a network */
814 1.1 thorpej
815 1.1 thorpej if (addr == 0) /* default route has mask 0 */
816 1.1 thorpej return 0;
817 1.1 thorpej if (IN_CLASSA(addr))
818 1.1 thorpej return IN_CLASSA_NET;
819 1.1 thorpej if (IN_CLASSB(addr))
820 1.1 thorpej return IN_CLASSB_NET;
821 1.1 thorpej return IN_CLASSC_NET;
822 1.1 thorpej }
823 1.1 thorpej
824 1.1 thorpej
825 1.1 thorpej /* get a network number as a name or a number, with an optional "/xx"
826 1.1 thorpej * netmask.
827 1.1 thorpej */
828 1.1 thorpej static int /* 0=bad */
829 1.1 thorpej getnet(char *name,
830 1.1 thorpej struct netinfo *rt)
831 1.1 thorpej {
832 1.1 thorpej int i;
833 1.1 thorpej struct netent *nentp;
834 1.1 thorpej u_int mask;
835 1.1 thorpej struct in_addr in;
836 1.1 thorpej char hname[MAXHOSTNAMELEN+1];
837 1.1 thorpej char *mname, *p;
838 1.1 thorpej
839 1.1 thorpej
840 1.1 thorpej /* Detect and separate "1.2.3.4/24"
841 1.1 thorpej */
842 1.5 lukem if (0 != (mname = strrchr(name,'/'))) {
843 1.1 thorpej i = (int)(mname - name);
844 1.10 christos if (i > (int)sizeof(hname)-1) /* name too long */
845 1.1 thorpej return 0;
846 1.5 lukem memmove(hname, name, i);
847 1.1 thorpej hname[i] = '\0';
848 1.1 thorpej mname++;
849 1.1 thorpej name = hname;
850 1.1 thorpej }
851 1.1 thorpej
852 1.1 thorpej nentp = getnetbyname(name);
853 1.1 thorpej if (nentp != 0) {
854 1.1 thorpej in.s_addr = nentp->n_net;
855 1.1 thorpej } else if (inet_aton(name, &in) == 1) {
856 1.22 christos in.s_addr = ntohl(in.s_addr);
857 1.1 thorpej } else {
858 1.1 thorpej return 0;
859 1.1 thorpej }
860 1.1 thorpej
861 1.1 thorpej if (mname == 0) {
862 1.1 thorpej mask = std_mask(in.s_addr);
863 1.1 thorpej if ((~mask & in.s_addr) != 0)
864 1.1 thorpej mask = 0xffffffff;
865 1.1 thorpej } else {
866 1.1 thorpej mask = (u_int)strtoul(mname, &p, 0);
867 1.1 thorpej if (*p != '\0' || mask > 32)
868 1.1 thorpej return 0;
869 1.1 thorpej mask = 0xffffffff << (32-mask);
870 1.1 thorpej }
871 1.1 thorpej
872 1.1 thorpej rt->n_dst = htonl(in.s_addr);
873 1.1 thorpej rt->n_family = RIP_AF_INET;
874 1.1 thorpej rt->n_mask = htonl(mask);
875 1.1 thorpej return 1;
876 1.4 christos }
877 1.4 christos
878 1.4 christos
879 1.4 christos /* strtok(), but honoring backslash
880 1.4 christos */
881 1.4 christos static int /* -1=bad */
882 1.4 christos parse_quote(char **linep,
883 1.10 christos const char *delims,
884 1.4 christos char *delimp,
885 1.4 christos char *buf,
886 1.4 christos int lim)
887 1.4 christos {
888 1.10 christos char c, *pc;
889 1.10 christos const char *p;
890 1.4 christos
891 1.4 christos
892 1.4 christos pc = *linep;
893 1.4 christos if (*pc == '\0')
894 1.4 christos return -1;
895 1.4 christos
896 1.4 christos for (;;) {
897 1.4 christos if (lim == 0)
898 1.4 christos return -1;
899 1.4 christos c = *pc++;
900 1.4 christos if (c == '\0')
901 1.4 christos break;
902 1.4 christos
903 1.9 christos if (c == '\\' && *pc != '\0') {
904 1.4 christos if ((c = *pc++) == 'n') {
905 1.4 christos c = '\n';
906 1.4 christos } else if (c == 'r') {
907 1.4 christos c = '\r';
908 1.4 christos } else if (c == 't') {
909 1.4 christos c = '\t';
910 1.4 christos } else if (c == 'b') {
911 1.4 christos c = '\b';
912 1.4 christos } else if (c >= '0' && c <= '7') {
913 1.4 christos c -= '0';
914 1.4 christos if (*pc >= '0' && *pc <= '7') {
915 1.4 christos c = (c<<3)+(*pc++ - '0');
916 1.4 christos if (*pc >= '0' && *pc <= '7')
917 1.4 christos c = (c<<3)+(*pc++ - '0');
918 1.4 christos }
919 1.4 christos }
920 1.4 christos
921 1.4 christos } else {
922 1.4 christos for (p = delims; *p != '\0'; ++p) {
923 1.4 christos if (*p == c)
924 1.4 christos goto exit;
925 1.4 christos }
926 1.4 christos }
927 1.4 christos
928 1.4 christos *buf++ = c;
929 1.4 christos --lim;
930 1.4 christos }
931 1.4 christos exit:
932 1.4 christos if (delimp != 0)
933 1.4 christos *delimp = c;
934 1.4 christos *linep = pc-1;
935 1.4 christos if (lim != 0)
936 1.4 christos *buf = '\0';
937 1.4 christos return 0;
938 1.1 thorpej }
939