1 /* $NetBSD: ipft_hx.c,v 1.4 2018/02/04 08:19:42 mrg Exp $ */
2
3 /*
4 * Copyright (C) 2012 by Darren Reed.
5 *
6 * See the IPFILTER.LICENCE file for details on licencing.
7 */
8 #if !defined(lint)
9 static __attribute__((__used__)) const char sccsid[] = "@(#)ipft_hx.c 1.1 3/9/96 (C) 1996 Darren Reed";
10 static __attribute__((__used__)) const char rcsid[] = "@(#)Id: ipft_hx.c,v 1.1.1.2 2012/07/22 13:44:39 darrenr Exp $";
11 #endif
12
13 #include <ctype.h>
14
15 #include "ipf.h"
16 #include "ipt.h"
17
18
19 extern int opts;
20
21 static int hex_open __P((char *));
22 static int hex_close __P((void));
23 static int hex_readip __P((mb_t *, char **, int *));
24 static char *readhex __P((char *, char *));
25
26 struct ipread iphex = { hex_open, hex_close, hex_readip, 0 };
27 static FILE *tfp = NULL;
28 static int tfd = -1;
29
hex_open(fname)30 static int hex_open(fname)
31 char *fname;
32 {
33 if (tfp && tfd != -1) {
34 rewind(tfp);
35 return tfd;
36 }
37
38 if (!strcmp(fname, "-")) {
39 tfd = 0;
40 tfp = stdin;
41 } else {
42 tfd = open(fname, O_RDONLY);
43 if (tfd != -1)
44 tfp = fdopen(tfd, "r");
45 }
46 return tfd;
47 }
48
49
hex_close()50 static int hex_close()
51 {
52 int cfd = tfd;
53
54 tfd = -1;
55 return close(cfd);
56 }
57
58
hex_readip(mb,ifn,dir)59 static int hex_readip(mb, ifn, dir)
60 mb_t *mb;
61 char **ifn;
62 int *dir;
63 {
64 register char *s, *t, *u;
65 char line[513];
66 ip_t *ip;
67 char *buf;
68
69 buf = (char *)mb->mb_buf;
70 /*
71 * interpret start of line as possibly "[ifname]" or
72 * "[in/out,ifname]".
73 */
74 if (ifn)
75 *ifn = NULL;
76 if (dir)
77 *dir = 0;
78 ip = (ip_t *)buf;
79 while (fgets(line, sizeof(line)-1, tfp)) {
80 if ((s = strchr(line, '\n'))) {
81 if (s == line) {
82 mb->mb_len = (char *)ip - buf;
83 return mb->mb_len;
84 }
85 *s = '\0';
86 }
87 if ((s = strchr(line, '#')))
88 *s = '\0';
89 if (!*line)
90 continue;
91 if ((opts & OPT_DEBUG) != 0) {
92 printf("input: %s", line);
93 }
94
95 if ((*line == '[') && (s = strchr(line, ']'))) {
96 t = line + 1;
97 if (s - t > 0) {
98 *s++ = '\0';
99 if ((u = strchr(t, ',')) && (u < s)) {
100 u++;
101 if (ifn)
102 *ifn = strdup(u);
103 if (dir) {
104 if (*t == 'i')
105 *dir = 0;
106 else if (*t == 'o')
107 *dir = 1;
108 }
109 } else if (ifn)
110 *ifn = t;
111 }
112
113 while (*s++ == '+') {
114 if (!strncasecmp(s, "mcast", 5)) {
115 mb->mb_flags |= M_MCAST;
116 s += 5;
117 }
118 if (!strncasecmp(s, "bcast", 5)) {
119 mb->mb_flags |= M_BCAST;
120 s += 5;
121 }
122 if (!strncasecmp(s, "mbcast", 6)) {
123 mb->mb_flags |= M_MBCAST;
124 s += 6;
125 }
126 }
127 while (ISSPACE(*s))
128 s++;
129 } else
130 s = line;
131 t = (char *)ip;
132 ip = (ip_t *)readhex(s, (char *)ip);
133 if ((opts & OPT_DEBUG) != 0) {
134 if (opts & OPT_ASCII) {
135 int c = *t;
136 if (t < (char *)ip)
137 putchar('\t');
138 while (t < (char *)ip) {
139 if (isprint(c) && isascii(c))
140 putchar(c);
141 else
142 putchar('.');
143 t++;
144 }
145 }
146 putchar('\n');
147 fflush(stdout);
148 }
149 }
150 if (feof(tfp))
151 return 0;
152 return -1;
153 }
154
155
readhex(src,dst)156 static char *readhex(src, dst)
157 register char *src, *dst;
158 {
159 int state = 0;
160 char c;
161
162 while ((c = *src++)) {
163 if (ISSPACE(c)) {
164 if (state) {
165 dst++;
166 state = 0;
167 }
168 continue;
169 } else if ((c >= '0' && c <= '9') || (c >= 'a' && c <= 'f') ||
170 (c >= 'A' && c <= 'F')) {
171 c = ISDIGIT(c) ? (c - '0') : (TOUPPER(c) - 55);
172 if (state == 0) {
173 *dst = (c << 4);
174 state++;
175 } else {
176 *dst++ |= c;
177 state = 0;
178 }
179 } else
180 break;
181 }
182 return dst;
183 }
184