3 * Copyright (C) 1997-1998 by Darren Reed.
5 * Redistribution and use in source and binary forms are permitted
6 * provided that this notice is preserved and due credit is given
7 * to the original author and the contributors.
9 * $Id: iplang_y.y,v 2.2 1999/12/04 03:37:04 darrenr Exp $
13 #if defined(__sgi) && (IRIX > 602)
14 # include <sys/ptimers.h>
19 #if !defined(__SVR4) && !defined(__svr4__)
22 #include <sys/byteorder.h>
24 #include <sys/types.h>
26 #include <sys/param.h>
31 #include <sys/socket.h>
32 #include <netinet/in.h>
33 #include <netinet/in_systm.h>
34 #include <netinet/ip.h>
35 #include <netinet/ip_icmp.h>
37 #include <netinet/ip_var.h>
39 #include <netinet/tcp.h>
40 #include <netinet/udp.h>
43 #include <netinet/if_ether.h>
46 #include <arpa/nameser.h>
47 #include <arpa/inet.h>
51 #include "ip_compat.h"
55 #if !defined(__NetBSD__) && (!defined(__FreeBSD_version) && \
56 __FreeBSD_version < 400020 ) && SOLARIS2 < 10
57 extern struct ether_addr *ether_aton __P((char *));
61 extern struct ipopt_names ionames[];
62 extern int state, state, lineNum, token;
66 int yylex __P((void));
68 #if !defined(ultrix) && !defined(hpux)
74 iface_t *iflist = NULL, **iftail = &iflist;
76 arp_t *arplist = NULL, **arptail = &arplist, *carp = NULL;
77 struct in_addr defrouter;
80 u_short c_chksum __P((u_short *, u_int, u_long));
81 u_long p_chksum __P((u_short *, u_int));
83 u_long ipbuffer[67584/sizeof(u_long)]; /* 66K */
84 aniphdr_t *aniphead = NULL, *canip = NULL, **aniptail = &aniphead;
88 icmphdr_t *icmp = NULL;
95 struct in_addr getipv4addr __P((char *arg));
96 u_short getportnum __P((char *, char *));
97 struct ether_addr *geteaddr __P((char *, struct ether_addr *));
98 void *new_header __P((int));
99 void free_aniplist __P((void));
100 void inc_anipheaders __P((int));
101 void new_data __P((void));
102 void set_datalen __P((char **));
103 void set_datafile __P((char **));
104 void set_data __P((char **));
105 void new_packet __P((void));
106 void set_ipv4proto __P((char **));
107 void set_ipv4src __P((char **));
108 void set_ipv4dst __P((char **));
109 void set_ipv4off __P((char **));
110 void set_ipv4v __P((char **));
111 void set_ipv4hl __P((char **));
112 void set_ipv4ttl __P((char **));
113 void set_ipv4tos __P((char **));
114 void set_ipv4id __P((char **));
115 void set_ipv4sum __P((char **));
116 void set_ipv4len __P((char **));
117 void new_tcpheader __P((void));
118 void set_tcpsport __P((char **));
119 void set_tcpdport __P((char **));
120 void set_tcpseq __P((char **));
121 void set_tcpack __P((char **));
122 void set_tcpoff __P((char **));
123 void set_tcpurp __P((char **));
124 void set_tcpwin __P((char **));
125 void set_tcpsum __P((char **));
126 void set_tcpflags __P((char **));
127 void set_tcpopt __P((int, char **));
128 void end_tcpopt __P((void));
129 void new_udpheader __P((void));
130 void set_udplen __P((char **));
131 void set_udpsum __P((char **));
132 void prep_packet __P((void));
133 void packet_done __P((void));
134 void new_interface __P((void));
135 void check_interface __P((void));
136 void set_ifname __P((char **));
137 void set_ifmtu __P((int));
138 void set_ifv4addr __P((char **));
139 void set_ifeaddr __P((char **));
140 void new_arp __P((void));
141 void set_arpeaddr __P((char **));
142 void set_arpv4addr __P((char **));
143 void reset_send __P((void));
144 void set_sendif __P((char **));
145 void set_sendvia __P((char **));
146 void set_defaultrouter __P((char **));
147 void new_icmpheader __P((void));
148 void set_icmpcode __P((int));
149 void set_icmptype __P((int));
150 void set_icmpcodetok __P((char **));
151 void set_icmptypetok __P((char **));
152 void set_icmpid __P((int));
153 void set_icmpseq __P((int));
154 void set_icmpotime __P((int));
155 void set_icmprtime __P((int));
156 void set_icmpttime __P((int));
157 void set_icmpmtu __P((int));
158 void set_redir __P((int, char **));
159 void new_ipv4opt __P((void));
160 void set_icmppprob __P((int));
161 void add_ipopt __P((int, void *));
162 void end_ipopt __P((void));
163 void set_secclass __P((char **));
164 void free_anipheader __P((void));
165 void end_ipv4 __P((void));
166 void end_icmp __P((void));
167 void end_udp __P((void));
168 void end_tcp __P((void));
169 void end_data __P((void));
170 void yyerror __P((char *));
171 void iplang __P((FILE *));
172 int arp_getipv4 __P((char *, char *));
173 int yyparse __P((void));
179 %token <num> IL_NUMBER
180 %type <num> number digits optnumber
181 %token <str> IL_TOKEN
182 %type <str> token optoken
183 %token IL_HEXDIGIT IL_COLON IL_DOT IL_EOF IL_COMMENT
184 %token IL_INTERFACE IL_IFNAME IL_MTU IL_EADDR
185 %token IL_IPV4 IL_V4PROTO IL_V4SRC IL_V4DST IL_V4OFF IL_V4V IL_V4HL IL_V4TTL
186 %token IL_V4TOS IL_V4SUM IL_V4LEN IL_V4OPT IL_V4ID
187 %token IL_TCP IL_SPORT IL_DPORT IL_TCPFL IL_TCPSEQ IL_TCPACK IL_TCPOFF
188 %token IL_TCPWIN IL_TCPSUM IL_TCPURP IL_TCPOPT IL_TCPO_NOP IL_TCPO_EOL
189 %token IL_TCPO_MSS IL_TCPO_WSCALE IL_TCPO_TS
190 %token IL_UDP IL_UDPLEN IL_UDPSUM
191 %token IL_ICMP IL_ICMPTYPE IL_ICMPCODE
192 %token IL_SEND IL_VIA
195 %token IL_SUM IL_OFF IL_LEN IL_V4ADDR IL_OPT
196 %token IL_DATA IL_DLEN IL_DVALUE IL_DFILE
197 %token IL_IPO_NOP IL_IPO_RR IL_IPO_ZSU IL_IPO_MTUP IL_IPO_MTUR IL_IPO_EOL
198 %token IL_IPO_TS IL_IPO_TR IL_IPO_SEC IL_IPO_LSRR IL_IPO_ESEC
199 %token IL_IPO_SATID IL_IPO_SSRR IL_IPO_ADDEXT IL_IPO_VISA IL_IPO_IMITD
200 %token IL_IPO_EIP IL_IPO_FINN IL_IPO_SECCLASS IL_IPO_CIPSO IL_IPO_ENCODE
201 %token <str> IL_IPS_RESERV4 IL_IPS_TOPSECRET IL_IPS_SECRET IL_IPS_RESERV3
202 %token <str> IL_IPS_CONFID IL_IPS_UNCLASS IL_IPS_RESERV2 IL_IPS_RESERV1
203 %token IL_ICMP_ECHOREPLY IL_ICMP_UNREACH IL_ICMP_UNREACH_NET
204 %token IL_ICMP_UNREACH_HOST IL_ICMP_UNREACH_PROTOCOL IL_ICMP_UNREACH_PORT
205 %token IL_ICMP_UNREACH_NEEDFRAG IL_ICMP_UNREACH_SRCFAIL
206 %token IL_ICMP_UNREACH_NET_UNKNOWN IL_ICMP_UNREACH_HOST_UNKNOWN
207 %token IL_ICMP_UNREACH_ISOLATED IL_ICMP_UNREACH_NET_PROHIB
208 %token IL_ICMP_UNREACH_HOST_PROHIB IL_ICMP_UNREACH_TOSNET
209 %token IL_ICMP_UNREACH_TOSHOST IL_ICMP_UNREACH_FILTER_PROHIB
210 %token IL_ICMP_UNREACH_HOST_PRECEDENCE IL_ICMP_UNREACH_PRECEDENCE_CUTOFF
211 %token IL_ICMP_SOURCEQUENCH IL_ICMP_REDIRECT IL_ICMP_REDIRECT_NET
212 %token IL_ICMP_REDIRECT_HOST IL_ICMP_REDIRECT_TOSNET
213 %token IL_ICMP_REDIRECT_TOSHOST IL_ICMP_ECHO IL_ICMP_ROUTERADVERT
214 %token IL_ICMP_ROUTERSOLICIT IL_ICMP_TIMXCEED IL_ICMP_TIMXCEED_INTRANS
215 %token IL_ICMP_TIMXCEED_REASS IL_ICMP_PARAMPROB IL_ICMP_PARAMPROB_OPTABSENT
216 %token IL_ICMP_TSTAMP IL_ICMP_TSTAMPREPLY IL_ICMP_IREQ IL_ICMP_IREQREPLY
217 %token IL_ICMP_MASKREQ IL_ICMP_MASKREPLY IL_ICMP_SEQ IL_ICMP_ID
218 %token IL_ICMP_OTIME IL_ICMP_RTIME IL_ICMP_TTIME
234 iface: ifhdr '{' ifaceopts '}' ';' { check_interface(); }
237 ifhdr: IL_INTERFACE { new_interface(); }
246 IL_IFNAME token { set_ifname(&$2); }
247 | IL_MTU number { set_ifmtu($2); }
248 | IL_V4ADDR token { set_ifv4addr(&$2); }
249 | IL_EADDR token { set_ifeaddr(&$2); }
252 send: sendhdr '{' sendbody '}' ';' { packet_done(); }
253 | sendhdr ';' { packet_done(); }
257 IL_SEND { reset_send(); }
266 IL_IFNAME token { set_sendif(&$2); }
267 | IL_VIA token { set_sendvia(&$2); }
270 arp: arphdr '{' arpbody '}' ';'
273 arphdr: IL_ARP { new_arp(); }
281 arpopt: IL_V4ADDR token { set_arpv4addr(&$2); }
282 | IL_EADDR token { set_arpeaddr(&$2); }
286 IL_DEFROUTER token { set_defaultrouter(&$2); }
297 ipline: ipv4 '{' ipv4body '}' ';' { end_ipv4(); }
300 ipv4: IL_IPV4 { new_packet(); }
309 IL_V4PROTO token { set_ipv4proto(&$2); }
310 | IL_V4SRC token { set_ipv4src(&$2); }
311 | IL_V4DST token { set_ipv4dst(&$2); }
312 | IL_V4OFF token { set_ipv4off(&$2); }
313 | IL_V4V token { set_ipv4v(&$2); }
314 | IL_V4HL token { set_ipv4hl(&$2); }
315 | IL_V4ID token { set_ipv4id(&$2); }
316 | IL_V4TTL token { set_ipv4ttl(&$2); }
317 | IL_V4TOS token { set_ipv4tos(&$2); }
318 | IL_V4SUM token { set_ipv4sum(&$2); }
319 | IL_V4LEN token { set_ipv4len(&$2); }
320 | ipv4opt '{' ipv4optlist '}' ';' { end_ipopt(); }
323 tcp: IL_TCP { new_tcpheader(); }
327 '{' tcpheader '}' ';' { end_tcp(); }
337 IL_SPORT token { set_tcpsport(&$2); }
338 | IL_DPORT token { set_tcpdport(&$2); }
339 | IL_TCPSEQ token { set_tcpseq(&$2); }
340 | IL_TCPACK token { set_tcpack(&$2); }
341 | IL_TCPOFF token { set_tcpoff(&$2); }
342 | IL_TCPURP token { set_tcpurp(&$2); }
343 | IL_TCPWIN token { set_tcpwin(&$2); }
344 | IL_TCPSUM token { set_tcpsum(&$2); }
345 | IL_TCPFL token { set_tcpflags(&$2); }
346 | IL_TCPOPT '{' tcpopts '}' ';' { end_tcpopt(); }
353 tcpopt: IL_TCPO_NOP ';' { set_tcpopt(IL_TCPO_NOP, NULL); }
354 | IL_TCPO_EOL ';' { set_tcpopt(IL_TCPO_EOL, NULL); }
355 | IL_TCPO_MSS optoken { set_tcpopt(IL_TCPO_MSS,&$2);}
356 | IL_TCPO_WSCALE optoken { set_tcpopt(IL_TCPO_WSCALE,&$2);}
357 | IL_TCPO_TS optoken { set_tcpopt(IL_TCPO_TS, &$2);}
360 udp: IL_UDP { new_udpheader(); }
364 '{' udpheader '}' ';' { end_udp(); }
375 IL_SPORT token { set_tcpsport(&$2); }
376 | IL_DPORT token { set_tcpdport(&$2); }
377 | IL_UDPLEN token { set_udplen(&$2); }
378 | IL_UDPSUM token { set_udpsum(&$2); }
381 icmp: IL_ICMP { new_icmpheader(); }
385 '{' icmpbody '}' ';' { end_icmp(); }
390 | icmpheader bodyline
395 | IL_ICMPTYPE icmptype icmpcode
399 IL_ICMPCODE token { set_icmpcodetok(&$2); }
403 IL_ICMP_ECHOREPLY ';' { set_icmptype(ICMP_ECHOREPLY); }
404 | IL_ICMP_ECHOREPLY '{' icmpechoopts '}' ';'
406 | IL_ICMP_SOURCEQUENCH ';' { set_icmptype(ICMP_SOURCEQUENCH); }
408 | IL_ICMP_ROUTERADVERT ';' { set_icmptype(ICMP_ROUTERADVERT); }
409 | IL_ICMP_ROUTERSOLICIT ';' { set_icmptype(ICMP_ROUTERSOLICIT); }
410 | IL_ICMP_ECHO ';' { set_icmptype(ICMP_ECHO); }
411 | IL_ICMP_ECHO '{' icmpechoopts '}' ';'
412 | IL_ICMP_TIMXCEED ';' { set_icmptype(ICMP_TIMXCEED); }
413 | IL_ICMP_TIMXCEED '{' exceed '}' ';'
414 | IL_ICMP_TSTAMP ';' { set_icmptype(ICMP_TSTAMP); }
415 | IL_ICMP_TSTAMPREPLY ';' { set_icmptype(ICMP_TSTAMPREPLY); }
416 | IL_ICMP_TSTAMPREPLY '{' icmptsopts '}' ';'
417 | IL_ICMP_IREQ ';' { set_icmptype(ICMP_IREQ); }
418 | IL_ICMP_IREQREPLY ';' { set_icmptype(ICMP_IREQREPLY); }
419 | IL_ICMP_IREQREPLY '{' data dataline '}' ';'
420 | IL_ICMP_MASKREQ ';' { set_icmptype(ICMP_MASKREQ); }
421 | IL_ICMP_MASKREPLY ';' { set_icmptype(ICMP_MASKREPLY); }
422 | IL_ICMP_MASKREPLY '{' token '}' ';'
423 | IL_ICMP_PARAMPROB ';' { set_icmptype(ICMP_PARAMPROB); }
424 | IL_ICMP_PARAMPROB '{' paramprob '}' ';'
425 | IL_TOKEN ';' { set_icmptypetok(&$1); }
429 | icmpechoopts icmpecho
433 IL_ICMP_SEQ number { set_icmpseq($2); }
434 | IL_ICMP_ID number { set_icmpid($2); }
438 | icmptsopts icmpts ';'
441 icmpts: IL_ICMP_OTIME number { set_icmpotime($2); }
442 | IL_ICMP_RTIME number { set_icmprtime($2); }
443 | IL_ICMP_TTIME number { set_icmpttime($2); }
448 | IL_ICMP_UNREACH '{' unreachopts '}' ';'
452 IL_ICMP_UNREACH_NET line
453 | IL_ICMP_UNREACH_HOST line
454 | IL_ICMP_UNREACH_PROTOCOL line
455 | IL_ICMP_UNREACH_PORT line
456 | IL_ICMP_UNREACH_NEEDFRAG number ';' { set_icmpmtu($2); }
457 | IL_ICMP_UNREACH_SRCFAIL line
458 | IL_ICMP_UNREACH_NET_UNKNOWN line
459 | IL_ICMP_UNREACH_HOST_UNKNOWN line
460 | IL_ICMP_UNREACH_ISOLATED line
461 | IL_ICMP_UNREACH_NET_PROHIB line
462 | IL_ICMP_UNREACH_HOST_PROHIB line
463 | IL_ICMP_UNREACH_TOSNET line
464 | IL_ICMP_UNREACH_TOSHOST line
465 | IL_ICMP_UNREACH_FILTER_PROHIB line
466 | IL_ICMP_UNREACH_HOST_PRECEDENCE line
467 | IL_ICMP_UNREACH_PRECEDENCE_CUTOFF line
472 | IL_ICMP_REDIRECT '{' redirectopts '}' ';'
476 | IL_ICMP_REDIRECT_NET token { set_redir(0, &$2); }
477 | IL_ICMP_REDIRECT_HOST token { set_redir(1, &$2); }
478 | IL_ICMP_REDIRECT_TOSNET token { set_redir(2, &$2); }
479 | IL_ICMP_REDIRECT_TOSHOST token { set_redir(3, &$2); }
483 IL_ICMP_TIMXCEED_INTRANS line
484 | IL_ICMP_TIMXCEED_REASS line
488 IL_ICMP_PARAMPROB_OPTABSENT
489 | IL_ICMP_PARAMPROB_OPTABSENT paraprobarg
492 '{' number '}' ';' { set_icmppprob($2); }
495 ipv4opt: IL_V4OPT { new_ipv4opt(); }
499 | ipv4opts ipv4optlist
503 IL_IPO_NOP ';' { add_ipopt(IL_IPO_NOP, NULL); }
504 | IL_IPO_RR optnumber { add_ipopt(IL_IPO_RR, &$2); }
505 | IL_IPO_ZSU ';' { add_ipopt(IL_IPO_ZSU, NULL); }
506 | IL_IPO_MTUP ';' { add_ipopt(IL_IPO_MTUP, NULL); }
507 | IL_IPO_MTUR ';' { add_ipopt(IL_IPO_MTUR, NULL); }
508 | IL_IPO_ENCODE ';' { add_ipopt(IL_IPO_ENCODE, NULL); }
509 | IL_IPO_TS ';' { add_ipopt(IL_IPO_TS, NULL); }
510 | IL_IPO_TR ';' { add_ipopt(IL_IPO_TR, NULL); }
511 | IL_IPO_SEC ';' { add_ipopt(IL_IPO_SEC, NULL); }
512 | IL_IPO_SECCLASS secclass { add_ipopt(IL_IPO_SECCLASS, sclass); }
513 | IL_IPO_LSRR token { add_ipopt(IL_IPO_LSRR,&$2); }
514 | IL_IPO_ESEC ';' { add_ipopt(IL_IPO_ESEC, NULL); }
515 | IL_IPO_CIPSO ';' { add_ipopt(IL_IPO_CIPSO, NULL); }
516 | IL_IPO_SATID optnumber { add_ipopt(IL_IPO_SATID,&$2);}
517 | IL_IPO_SSRR token { add_ipopt(IL_IPO_SSRR,&$2); }
518 | IL_IPO_ADDEXT ';' { add_ipopt(IL_IPO_ADDEXT, NULL); }
519 | IL_IPO_VISA ';' { add_ipopt(IL_IPO_VISA, NULL); }
520 | IL_IPO_IMITD ';' { add_ipopt(IL_IPO_IMITD, NULL); }
521 | IL_IPO_EIP ';' { add_ipopt(IL_IPO_EIP, NULL); }
522 | IL_IPO_FINN ';' { add_ipopt(IL_IPO_FINN, NULL); }
526 IL_IPS_RESERV4 ';' { set_secclass(&$1); }
527 | IL_IPS_TOPSECRET ';' { set_secclass(&$1); }
528 | IL_IPS_SECRET ';' { set_secclass(&$1); }
529 | IL_IPS_RESERV3 ';' { set_secclass(&$1); }
530 | IL_IPS_CONFID ';' { set_secclass(&$1); }
531 | IL_IPS_UNCLASS ';' { set_secclass(&$1); }
532 | IL_IPS_RESERV2 ';' { set_secclass(&$1); }
533 | IL_IPS_RESERV1 ';' { set_secclass(&$1); }
536 data: IL_DATA { new_data(); }
540 '{' databody '}' ';' { end_data(); }
548 IL_DLEN token { set_datalen(&$2); }
549 | IL_DVALUE token { set_data(&$2); }
550 | IL_DFILE token { set_datafile(&$2); }
556 optoken: ';' { $$ = ""; }
563 optnumber: ';' { $$ = 0; }
572 struct statetoopt toipopts[] = {
573 { IL_IPO_NOP, IPOPT_NOP },
574 { IL_IPO_RR, IPOPT_RR },
575 { IL_IPO_ZSU, IPOPT_ZSU },
576 { IL_IPO_MTUP, IPOPT_MTUP },
577 { IL_IPO_MTUR, IPOPT_MTUR },
578 { IL_IPO_ENCODE, IPOPT_ENCODE },
579 { IL_IPO_TS, IPOPT_TS },
580 { IL_IPO_TR, IPOPT_TR },
581 { IL_IPO_SEC, IPOPT_SECURITY },
582 { IL_IPO_SECCLASS, IPOPT_SECURITY },
583 { IL_IPO_LSRR, IPOPT_LSRR },
584 { IL_IPO_ESEC, IPOPT_E_SEC },
585 { IL_IPO_CIPSO, IPOPT_CIPSO },
586 { IL_IPO_SATID, IPOPT_SATID },
587 { IL_IPO_SSRR, IPOPT_SSRR },
588 { IL_IPO_ADDEXT, IPOPT_ADDEXT },
589 { IL_IPO_VISA, IPOPT_VISA },
590 { IL_IPO_IMITD, IPOPT_IMITD },
591 { IL_IPO_EIP, IPOPT_EIP },
592 { IL_IPO_FINN, IPOPT_FINN },
596 struct statetoopt tosecopts[] = {
597 { IL_IPS_RESERV4, IPSO_CLASS_RES4 },
598 { IL_IPS_TOPSECRET, IPSO_CLASS_TOPS },
599 { IL_IPS_SECRET, IPSO_CLASS_SECR },
600 { IL_IPS_RESERV3, IPSO_CLASS_RES3 },
601 { IL_IPS_CONFID, IPSO_CLASS_CONF },
602 { IL_IPS_UNCLASS, IPSO_CLASS_UNCL },
603 { IL_IPS_RESERV2, IPSO_CLASS_RES2 },
604 { IL_IPS_RESERV1, IPSO_CLASS_RES1 },
613 static struct ether_addr n;
616 if (sscanf(s, " %x:%x:%x:%x:%x:%x ", &i[0], &i[1],
617 &i[2], &i[3], &i[4], &i[5]) == 6) {
618 n.ether_addr_octet[0] = (u_char)i[0];
619 n.ether_addr_octet[1] = (u_char)i[1];
620 n.ether_addr_octet[2] = (u_char)i[2];
621 n.ether_addr_octet[3] = (u_char)i[3];
622 n.ether_addr_octet[4] = (u_char)i[4];
623 n.ether_addr_octet[5] = (u_char)i[5];
631 struct in_addr getipv4addr(arg)
637 in.s_addr = 0xffffffff;
639 if ((hp = gethostbyname(arg)))
640 bcopy(hp->h_addr, &in.s_addr, sizeof(struct in_addr));
642 in.s_addr = inet_addr(arg);
647 u_short getportnum(pr, name)
652 if (!(sp = getservbyname(name, pr)))
653 return htons(atoi(name));
658 struct ether_addr *geteaddr(arg, buf)
660 struct ether_addr *buf;
662 struct ether_addr *e;
664 #if !defined(hpux) && !defined(linux)
667 fprintf(stderr, "Invalid ethernet address: %s\n", arg);
670 bcopy(e->octet, buf->octet, sizeof(e->octet));
672 bcopy(e->ether_addr_octet, buf->ether_addr_octet,
673 sizeof(e->ether_addr_octet));
682 void *new_header(type)
685 aniphdr_t *aip, *oip = canip;
688 aip = (aniphdr_t *)calloc(1, sizeof(*aip));
690 aniptail = &aip->ah_next;
695 if (type == IPPROTO_UDP)
696 sz = sizeof(udphdr_t);
697 else if (type == IPPROTO_TCP)
698 sz = sizeof(tcphdr_t);
699 else if (type == IPPROTO_ICMP)
700 sz = sizeof(icmphdr_t);
701 else if (type == IPPROTO_IP)
705 canip->ah_data = oip->ah_data + oip->ah_len;
707 canip->ah_data = (char *)ipbuffer;
710 * Increase the size fields in all wrapping headers.
712 for (aip = aniphead; aip; aip = aip->ah_next) {
714 if (aip->ah_p == IPPROTO_IP)
715 aip->ah_ip->ip_len += sz;
716 else if (aip->ah_p == IPPROTO_UDP)
717 aip->ah_udp->uh_ulen += sz;
719 return (void *)canip->ah_data;
725 aniphdr_t *aip, **aipp = &aniphead;
727 while ((aip = *aipp)) {
728 *aipp = aip->ah_next;
731 aniptail = &aniphead;
735 void inc_anipheaders(inc)
740 for (aip = aniphead; aip; aip = aip->ah_next) {
742 if (aip->ah_p == IPPROTO_IP)
743 aip->ah_ip->ip_len += inc;
744 else if (aip->ah_p == IPPROTO_UDP)
745 aip->ah_udp->uh_ulen += inc;
752 (void) new_header(-1);
757 void set_datalen(arg)
762 len = strtol(*arg, NULL, 0);
763 inc_anipheaders(len);
772 u_char *s = (u_char *)*arg, *t = (u_char *)canip->ah_data, c;
773 int len = 0, todo = 0, quote = 0, val = 0;
780 fprintf(stderr, "octal with %c!\n", c);
786 if (!isdigit(c) || !todo) {
787 *t++ = (u_char)(val & 0xff);
797 fprintf(stderr, "octal with %c!\n", c);
831 *t++ = (u_char)(val & 0xff);
834 len = t - (u_char *)canip->ah_data;
835 inc_anipheaders(len - canip->ah_len);
840 void set_datafile(arg)
847 if ((fd = open(file, O_RDONLY)) == -1) {
852 if (fstat(fd, &sb) == -1) {
857 if ((sb.st_size + aniphead->ah_len ) > 65535) {
858 fprintf(stderr, "data file %s too big to include.\n", file);
862 if ((len = read(fd, canip->ah_data, sb.st_size)) == -1) {
867 inc_anipheaders(len);
868 canip->ah_len += len;
875 static u_short id = 0;
878 bzero((char *)ipbuffer, sizeof(ipbuffer));
880 ip = (ip_t *)new_header(IPPROTO_IP);
881 ip->ip_v = IPVERSION;
882 ip->ip_hl = sizeof(ip_t) >> 2;
883 ip->ip_len = sizeof(ip_t);
885 ip->ip_id = htons(id++);
889 void set_ipv4proto(arg)
894 if ((pr = getprotobyname(*arg)))
895 ip->ip_p = pr->p_proto;
897 if (!(ip->ip_p = atoi(*arg)))
898 fprintf(stderr, "unknown protocol %s\n", *arg);
904 void set_ipv4src(arg)
907 ip->ip_src = getipv4addr(*arg);
913 void set_ipv4dst(arg)
916 ip->ip_dst = getipv4addr(*arg);
922 void set_ipv4off(arg)
925 ip->ip_off = htons(strtol(*arg, NULL, 0));
934 ip->ip_v = strtol(*arg, NULL, 0);
945 newhl = strtol(*arg, NULL, 0);
946 inc = (newhl - ip->ip_hl) << 2;
949 canip->ah_len += inc;
955 void set_ipv4ttl(arg)
958 ip->ip_ttl = strtol(*arg, NULL, 0);
964 void set_ipv4tos(arg)
967 ip->ip_tos = strtol(*arg, NULL, 0);
976 ip->ip_id = htons(strtol(*arg, NULL, 0));
982 void set_ipv4sum(arg)
985 ip->ip_sum = strtol(*arg, NULL, 0);
991 void set_ipv4len(arg)
996 len = strtol(*arg, NULL, 0);
997 inc_anipheaders(len - ip->ip_len);
1004 void new_tcpheader()
1007 if ((ip->ip_p) && (ip->ip_p != IPPROTO_TCP)) {
1008 fprintf(stderr, "protocol %d specified with TCP!\n", ip->ip_p);
1011 ip->ip_p = IPPROTO_TCP;
1013 tcp = (tcphdr_t *)new_header(IPPROTO_TCP);
1014 tcp->th_win = htons(4096);
1015 tcp->th_off = sizeof(*tcp) >> 2;
1019 void set_tcpsport(arg)
1025 if (ip->ip_p == IPPROTO_UDP) {
1026 port = &udp->uh_sport;
1029 port = &tcp->th_sport;
1033 *port = getportnum(pr, *arg);
1039 void set_tcpdport(arg)
1045 if (ip->ip_p == IPPROTO_UDP) {
1046 port = &udp->uh_dport;
1049 port = &tcp->th_dport;
1053 *port = getportnum(pr, *arg);
1059 void set_tcpseq(arg)
1062 tcp->th_seq = htonl(strtol(*arg, NULL, 0));
1068 void set_tcpack(arg)
1071 tcp->th_ack = htonl(strtol(*arg, NULL, 0));
1077 void set_tcpoff(arg)
1082 off = strtol(*arg, NULL, 0);
1083 inc_anipheaders((off - tcp->th_off) << 2);
1090 void set_tcpurp(arg)
1093 tcp->th_urp = htons(strtol(*arg, NULL, 0));
1099 void set_tcpwin(arg)
1102 tcp->th_win = htons(strtol(*arg, NULL, 0));
1108 void set_tcpsum(arg)
1111 tcp->th_sum = strtol(*arg, NULL, 0);
1117 void set_tcpflags(arg)
1120 static char flags[] = "ASURPF";
1121 static int flagv[] = { TH_ACK, TH_SYN, TH_URG, TH_RST, TH_PUSH,
1125 for (s = *arg; *s; s++)
1126 if (!(t = strchr(flags, *s))) {
1128 fprintf(stderr, "unknown TCP flag %c\n", *s);
1131 tcp->th_flags = strtol(*arg, NULL, 0);
1134 tcp->th_flags |= flagv[t - flags];
1140 void set_tcpopt(state, arg)
1145 int val, len, val2, pad, optval;
1152 s = (u_char *)tcp + sizeof(*tcp) + canip->ah_optlen;
1167 case IL_TCPO_WSCALE :
1183 * prepend padding - if required.
1186 for (pad = 4 - (len & 3); pad; pad--) {
1193 *s++ = (u_char)optval;
1196 if (len == 3) { /* 1 byte - char */
1198 } else if (len == 4) { /* 2 bytes - short */
1199 *s++ = (u_char)((val >> 8) & 0xff);
1200 *s++ = (u_char)(val & 0xff);
1201 } else if (len >= 6) { /* 4 bytes - long */
1203 bcopy((char *)&val2, s, 4);
1208 *s++ = (u_char)optval;
1210 canip->ah_lastopt = optval;
1211 canip->ah_optlen += len;
1223 char *s = (char *)tcp;
1225 s += sizeof(*tcp) + canip->ah_optlen;
1227 * pad out so that we have a multiple of 4 bytes in size fo the
1228 * options. make sure last byte is EOL.
1230 if (canip->ah_optlen & 3) {
1231 if (canip->ah_lastopt != 1) {
1232 for (pad = 3 - (canip->ah_optlen & 3); pad; pad--) {
1240 for (pad = 3 - (canip->ah_optlen & 3); pad; pad--) {
1247 tcp->th_off = (sizeof(*tcp) + canip->ah_optlen) >> 2;
1248 inc_anipheaders(canip->ah_optlen);
1252 void new_udpheader()
1254 if ((ip->ip_p) && (ip->ip_p != IPPROTO_UDP)) {
1255 fprintf(stderr, "protocol %d specified with UDP!\n", ip->ip_p);
1258 ip->ip_p = IPPROTO_UDP;
1260 udp = (udphdr_t *)new_header(IPPROTO_UDP);
1261 udp->uh_ulen = sizeof(*udp);
1265 void set_udplen(arg)
1270 len = strtol(*arg, NULL, 0);
1271 inc_anipheaders(len - udp->uh_ulen);
1278 void set_udpsum(arg)
1281 udp->uh_sum = strtol(*arg, NULL, 0);
1290 struct in_addr gwip;
1292 ifp = sending.snd_if;
1294 fprintf(stderr, "no interface defined for sending!\n");
1297 if (ifp->if_fd == -1)
1298 ifp->if_fd = initdevice(ifp->if_name, 0, 5);
1299 gwip = sending.snd_gw;
1301 gwip = aniphead->ah_ip->ip_dst;
1302 (void) send_ip(ifp->if_fd, ifp->if_MTU, (ip_t *)ipbuffer, gwip, 2);
1310 u_char *s = (u_char *)ipbuffer, *t = (u_char *)outline;
1312 if (opts & OPT_VERBOSE) {
1313 ip->ip_len = htons(ip->ip_len);
1314 for (i = ntohs(ip->ip_len), j = 0; i; i--, j++, s++) {
1315 if (j && !(j & 0xf)) {
1318 fputs(outline, stdout);
1320 t = (u_char *)outline;
1323 sprintf((char *)t, "%02x", *s & 0xff);
1325 if (!((j + 1) & 0xf)) {
1327 sprintf((char *)t, " ");
1329 for (k = 16; k; k--, s++)
1330 *t++ = (isprint(*s) ? *s : '.');
1339 for (k = 16 - (j & 0xf); k; k--) {
1344 sprintf((char *)t, " ");
1347 for (k = j & 0xf; k; k--, s++)
1348 *t++ = (isprint(*s) ? *s : '.');
1352 fputs(outline, stdout);
1354 ip->ip_len = ntohs(ip->ip_len);
1362 void new_interface()
1364 cifp = (iface_t *)calloc(1, sizeof(iface_t));
1366 iftail = &cifp->if_next;
1371 void check_interface()
1373 if (!cifp->if_name || !*cifp->if_name)
1374 fprintf(stderr, "No interface name given!\n");
1375 if (!cifp->if_MTU || !*cifp->if_name)
1376 fprintf(stderr, "Interface %s has an MTU of 0!\n",
1381 void set_ifname(arg)
1384 cifp->if_name = *arg;
1396 void set_ifv4addr(arg)
1399 cifp->if_addr = getipv4addr(*arg);
1405 void set_ifeaddr(arg)
1408 (void) geteaddr(*arg, &cifp->if_eaddr);
1416 carp = (arp_t *)calloc(1, sizeof(arp_t));
1418 arptail = &carp->arp_next;
1422 void set_arpeaddr(arg)
1425 (void) geteaddr(*arg, &carp->arp_eaddr);
1431 void set_arpv4addr(arg)
1434 carp->arp_addr = getipv4addr(*arg);
1440 int arp_getipv4(ip, addr)
1446 for (a = arplist; a; a = a->arp_next)
1447 if (!bcmp(ip, (char *)&a->arp_addr, 4)) {
1448 bcopy((char *)&a->arp_eaddr, addr, 6);
1457 sending.snd_if = iflist;
1458 sending.snd_gw = defrouter;
1462 void set_sendif(arg)
1467 for (ifp = iflist; ifp; ifp = ifp->if_next)
1468 if (ifp->if_name && !strcmp(ifp->if_name, *arg))
1470 sending.snd_if = ifp;
1472 fprintf(stderr, "couldn't find interface %s\n", *arg);
1478 void set_sendvia(arg)
1481 sending.snd_gw = getipv4addr(*arg);
1487 void set_defaultrouter(arg)
1490 defrouter = getipv4addr(*arg);
1496 void new_icmpheader()
1498 if ((ip->ip_p) && (ip->ip_p != IPPROTO_ICMP)) {
1499 fprintf(stderr, "protocol %d specified with ICMP!\n",
1503 ip->ip_p = IPPROTO_ICMP;
1504 icmp = (icmphdr_t *)new_header(IPPROTO_ICMP);
1508 void set_icmpcode(code)
1511 icmp->icmp_code = code;
1515 void set_icmptype(type)
1518 icmp->icmp_type = type;
1522 static char *icmpcodes[] = {
1523 "net-unr", "host-unr", "proto-unr", "port-unr", "needfrag", "srcfail",
1524 "net-unk", "host-unk", "isolate", "net-prohib", "host-prohib",
1525 "net-tos", "host-tos", NULL };
1527 void set_icmpcodetok(code)
1533 for (i = 0; (s = icmpcodes[i]); i++)
1534 if (!strcmp(s, *code)) {
1535 icmp->icmp_code = i;
1539 fprintf(stderr, "unknown ICMP code %s\n", *code);
1545 static char *icmptypes[] = {
1546 "echorep", (char *)NULL, (char *)NULL, "unreach", "squench",
1547 "redir", (char *)NULL, (char *)NULL, "echo", (char *)NULL,
1548 (char *)NULL, "timex", "paramprob", "timest", "timestrep",
1549 "inforeq", "inforep", "maskreq", "maskrep", "END"
1552 void set_icmptypetok(type)
1558 for (i = 0; !(s = icmptypes[i]) || strcmp(s, "END"); i++)
1559 if (s && !strcmp(s, *type)) {
1560 icmp->icmp_type = i;
1565 fprintf(stderr, "unknown ICMP type %s\n", *type);
1571 void set_icmpid(arg)
1574 icmp->icmp_id = htons(arg);
1578 void set_icmpseq(arg)
1581 icmp->icmp_seq = htons(arg);
1585 void set_icmpotime(arg)
1588 icmp->icmp_otime = htonl(arg);
1592 void set_icmprtime(arg)
1595 icmp->icmp_rtime = htonl(arg);
1599 void set_icmpttime(arg)
1602 icmp->icmp_ttime = htonl(arg);
1606 void set_icmpmtu(arg)
1610 icmp->icmp_nextmtu = htons(arg);
1615 void set_redir(redir, arg)
1619 icmp->icmp_code = redir;
1620 icmp->icmp_gwaddr = getipv4addr(*arg);
1626 void set_icmppprob(num)
1629 icmp->icmp_pptr = num;
1639 void add_ipopt(state, ptr)
1643 struct ipopt_names *io;
1644 struct statetoopt *sto;
1645 char numbuf[16], *arg, **param = ptr;
1648 if (state == IL_IPO_RR || state == IL_IPO_SATID) {
1650 sprintf(numbuf, "%d", *(int *)param);
1652 strcpy(numbuf, "0");
1655 arg = param ? *param : NULL;
1657 if (canip->ah_next) {
1658 fprintf(stderr, "cannot specify options after data body\n");
1661 for (sto = toipopts; sto->sto_st; sto++)
1662 if (sto->sto_st == state)
1664 if (!sto || !sto->sto_st) {
1665 fprintf(stderr, "No mapping for state %d to IP option\n",
1670 hlen = sizeof(ip_t) + canip->ah_optlen;
1671 for (io = ionames; io->on_name; io++)
1672 if (io->on_value == sto->sto_op)
1674 canip->ah_lastopt = io->on_value;
1677 inc = addipopt((char *)ip + hlen, io, hlen - sizeof(ip_t),arg);
1680 ((char *)ip)[sizeof(*ip) + inc] = IPOPT_NOP;
1681 canip->ah_lastopt = IPOPT_NOP;
1688 canip->ah_optlen = hlen - sizeof(ip_t);
1690 if (state != IL_IPO_RR && state != IL_IPO_SATID)
1691 if (param && *param) {
1702 char *s, *buf = (char *)ip;
1705 * pad out so that we have a multiple of 4 bytes in size fo the
1706 * options. make sure last byte is EOL.
1708 if (canip->ah_lastopt == IPOPT_NOP) {
1709 buf[sizeof(*ip) + canip->ah_optlen - 1] = IPOPT_EOL;
1710 } else if (canip->ah_lastopt != IPOPT_EOL) {
1711 s = buf + sizeof(*ip) + canip->ah_optlen;
1713 for (pad = 3 - (canip->ah_optlen & 3); pad; pad--) {
1720 s = buf + sizeof(*ip) + canip->ah_optlen - 1;
1722 for (pad = 3 - (canip->ah_optlen & 3); pad; pad--) {
1728 ip->ip_hl = (sizeof(*ip) + canip->ah_optlen) >> 2;
1729 inc_anipheaders(canip->ah_optlen);
1734 void set_secclass(arg)
1742 void free_anipheader()
1747 if ((canip = aip->ah_prev)) {
1748 canip->ah_next = NULL;
1749 aniptail = &canip->ah_next;
1762 ip->ip_len = htons(ip->ip_len);
1763 ip->ip_sum = chksum((u_short *)ip, ip->ip_hl << 2);
1764 ip->ip_len = ntohs(ip->ip_len);
1766 for (aip = aniphead, ip = NULL; aip; aip = aip->ah_next)
1767 if (aip->ah_p == IPPROTO_IP)
1776 icmp->icmp_cksum = 0;
1777 icmp->icmp_cksum = chksum((u_short *)icmp, canip->ah_len);
1779 for (aip = aniphead, icmp = NULL; aip; aip = aip->ah_next)
1780 if (aip->ah_p == IPPROTO_ICMP)
1781 icmp = aip->ah_icmp;
1791 bzero((char *)&iptmp, sizeof(iptmp));
1792 iptmp.ip_p = ip->ip_p;
1793 iptmp.ip_src = ip->ip_src;
1794 iptmp.ip_dst = ip->ip_dst;
1795 iptmp.ip_len = htons(ip->ip_len - (ip->ip_hl << 2));
1796 sum = p_chksum((u_short *)&iptmp, (u_int)sizeof(iptmp));
1797 udp->uh_ulen = htons(udp->uh_ulen);
1798 udp->uh_sum = c_chksum((u_short *)udp, (u_int)ntohs(iptmp.ip_len), sum);
1800 for (aip = aniphead, udp = NULL; aip; aip = aip->ah_next)
1801 if (aip->ah_p == IPPROTO_UDP)
1812 bzero((char *)&iptmp, sizeof(iptmp));
1813 iptmp.ip_p = ip->ip_p;
1814 iptmp.ip_src = ip->ip_src;
1815 iptmp.ip_dst = ip->ip_dst;
1816 iptmp.ip_len = htons(ip->ip_len - (ip->ip_hl << 2));
1817 sum = p_chksum((u_short *)&iptmp, (u_int)sizeof(iptmp));
1819 tcp->th_sum = c_chksum((u_short *)tcp, (u_int)ntohs(iptmp.ip_len), sum);
1821 for (aip = aniphead, tcp = NULL; aip; aip = aip->ah_next)
1822 if (aip->ah_p == IPPROTO_TCP)
1838 yydebug = (opts & OPT_DEBUG) ? 1 : 0;
1845 u_short c_chksum(buf, len, init)
1851 int nwords = len >> 1;
1853 for(; nwords > 0; nwords--)
1855 sum = (sum>>16) + (sum & 0xffff);
1861 u_long p_chksum(buf,len)
1866 int nwords = len >> 1;
1868 for(; nwords > 0; nwords--)