contrib/ipfilter/ipsend/iptest.c

   1 /*      $FreeBSD$       */
   2
   3 /*
   4  * ipsend.c (C) 1995-1998 Darren Reed
   5  *
   6  * See the IPFILTER.LICENCE file for details on licencing.
   7  *
   8  */
   9 #if !defined(lint)
  10 static const char sccsid[] = "%W% %G% (C)1995 Darren Reed";
  11 static const char rcsid[] = "@(#)$Id$";
  12 #endif
  13 #include <sys/param.h>
  14 #include <sys/types.h>
  15 #include <sys/time.h>
  16 #include <sys/socket.h>
  17 #include <netinet/in.h>
  18 #include <arpa/inet.h>
  19 #include <netinet/in_systm.h>
  20 #include <netinet/ip.h>
  21 #include <netinet/ip_var.h>
  22 #include <stdio.h>
  23 #include <netdb.h>
  24 #include <unistd.h>
  25 #include <stdlib.h>
  26 #include <string.h>
  27 #include "ipsend.h"
  28
  29
  30 extern  char    *optarg;
  31 extern  int     optind;
  32
  33 char    options[68];
  34 # ifdef sun
  35 char    default_device[] = "le0";
  36 # else
  37 #  ifdef        ultrix
  38 char    default_device[] = "ln0";
  39 #  else
  40 #   ifdef       __bsdi__
  41 char    default_device[] = "ef0";
  42 #   else
  43 char    default_device[] = "lan0";
  44 #   endif
  45 #  endif
  46 # endif
  47
  48 static  void    usage __P((char *));
  49 int     main __P((int, char **));
  50
  51
  52 static void usage(prog)
  53         char *prog;
  54 {
  55         fprintf(stderr, "Usage: %s [options] dest\n\
  56 \toptions:\n\
  57 \t\t-d device\tSend out on this device\n\
  58 \t\t-g gateway\tIP gateway to use if non-local dest.\n\
  59 \t\t-m mtu\t\tfake MTU to use when sending out\n\
  60 \t\t-p pointtest\t\n\
  61 \t\t-s src\t\tsource address for IP packet\n\
  62 \t\t-1 \t\tPerform test 1 (IP header)\n\
  63 \t\t-2 \t\tPerform test 2 (IP options)\n\
  64 \t\t-3 \t\tPerform test 3 (ICMP)\n\
  65 \t\t-4 \t\tPerform test 4 (UDP)\n\
  66 \t\t-5 \t\tPerform test 5 (TCP)\n\
  67 \t\t-6 \t\tPerform test 6 (overlapping fragments)\n\
  68 \t\t-7 \t\tPerform test 7 (random packets)\n\
  69 ", prog);
  70         exit(1);
  71 }
  72
  73
  74 int main(argc, argv)
  75         int argc;
  76         char **argv;
  77 {
  78         struct  tcpiphdr *ti;
  79         struct  in_addr gwip;
  80         ip_t    *ip;
  81         char    *name =  argv[0], host[MAXHOSTNAMELEN + 1];
  82         char    *gateway = NULL, *dev = NULL;
  83         char    *src = NULL, *dst;
  84         int     mtu = 1500, tests = 0, pointtest = 0, c;
  85
  86         /*
  87          * 65535 is maximum packet size...you never know...
  88          */
  89         ip = (ip_t *)calloc(1, 65536);
  90         ti = (struct tcpiphdr *)ip;
  91         ip->ip_len = sizeof(*ip);
  92         IP_HL_A(ip, sizeof(*ip) >> 2);
  93
  94         while ((c = getopt(argc, argv, "1234567d:g:m:p:s:")) != -1)
  95                 switch (c)
  96                 {
  97                 case '1' :
  98                 case '2' :
  99                 case '3' :
 100                 case '4' :
 101                 case '5' :
 102                 case '6' :
 103                 case '7' :
 104                         tests = c - '0';
 105                         break;
 106                 case 'd' :
 107                         dev = optarg;
 108                         break;
 109                 case 'g' :
 110                         gateway = optarg;
 111                         break;
 112                 case 'm' :
 113                         mtu = atoi(optarg);
 114                         if (mtu < 28)
 115                             {
 116                                 fprintf(stderr, "mtu must be > 28\n");
 117                                 exit(1);
 118                             }
 119                         break;
 120                 case 'p' :
 121                         pointtest = atoi(optarg);
 122                         break;
 123                 case 's' :
 124                         src = optarg;
 125                         break;
 126                 default :
 127                         fprintf(stderr, "Unknown option \"%c\"\n", c);
 128                         usage(name);
 129                 }
 130
 131         if ((argc <= optind) || !argv[optind])
 132                 usage(name);
 133         dst = argv[optind++];
 134
 135         if (!src)
 136             {
 137                 gethostname(host, sizeof(host));
 138                 host[sizeof(host) - 1] = '\0';
 139                 src = host;
 140             }
 141
 142         if (resolve(dst, (char *)&ip->ip_dst) == -1)
 143             {
 144                 fprintf(stderr,"Cant resolve %s\n", dst);
 145                 exit(2);
 146             }
 147
 148         if (resolve(src, (char *)&ip->ip_src) == -1)
 149             {
 150                 fprintf(stderr,"Cant resolve %s\n", src);
 151                 exit(2);
 152             }
 153
 154         if (!gateway)
 155                 gwip = ip->ip_dst;
 156         else if (resolve(gateway, (char *)&gwip) == -1)
 157             {
 158                 fprintf(stderr,"Cant resolve %s\n", gateway);
 159                 exit(2);
 160             }
 161
 162
 163         if (!dev)
 164                 dev = default_device;
 165         printf("Device:  %s\n", dev);
 166         printf("Source:  %s\n", inet_ntoa(ip->ip_src));
 167         printf("Dest:    %s\n", inet_ntoa(ip->ip_dst));
 168         printf("Gateway: %s\n", inet_ntoa(gwip));
 169         printf("mtu:     %d\n", mtu);
 170
 171         switch (tests)
 172         {
 173         case 1 :
 174                 ip_test1(dev, mtu, (ip_t *)ti, gwip, pointtest);
 175                 break;
 176         case 2 :
 177                 ip_test2(dev, mtu, (ip_t *)ti, gwip, pointtest);
 178                 break;
 179         case 3 :
 180                 ip_test3(dev, mtu, (ip_t *)ti, gwip, pointtest);
 181                 break;
 182         case 4 :
 183                 ip_test4(dev, mtu, (ip_t *)ti, gwip, pointtest);
 184                 break;
 185         case 5 :
 186                 ip_test5(dev, mtu, (ip_t *)ti, gwip, pointtest);
 187                 break;
 188         case 6 :
 189                 ip_test6(dev, mtu, (ip_t *)ti, gwip, pointtest);
 190                 break;
 191         case 7 :
 192                 ip_test7(dev, mtu, (ip_t *)ti, gwip, pointtest);
 193                 break;
 194         default :
 195                 ip_test1(dev, mtu, (ip_t *)ti, gwip, pointtest);
 196                 ip_test2(dev, mtu, (ip_t *)ti, gwip, pointtest);
 197                 ip_test3(dev, mtu, (ip_t *)ti, gwip, pointtest);
 198                 ip_test4(dev, mtu, (ip_t *)ti, gwip, pointtest);
 199                 ip_test5(dev, mtu, (ip_t *)ti, gwip, pointtest);
 200                 ip_test6(dev, mtu, (ip_t *)ti, gwip, pointtest);
 201                 ip_test7(dev, mtu, (ip_t *)ti, gwip, pointtest);
 202                 break;
 203         }
 204         return 0;
 205 }