text2pcap.c

   1 /**-*-C-*-**********************************************************************
   2  *
   3  * text2pcap.c
   4  *
   5  * Utility to convert an ASCII hexdump into a libpcap-format capture file
   6  *
   7  * (c) Copyright 2001 Ashok Narayanan <ashokn@cisco.com>
   8  *
   9  * $Id$
  10  *
  11  * Wireshark - Network traffic analyzer
  12  * By Gerald Combs <gerald@wireshark.org>
  13  * Copyright 1998 Gerald Combs
  14  *
  15  * This program is free software; you can redistribute it and/or
  16  * modify it under the terms of the GNU General Public License
  17  * as published by the Free Software Foundation; either version 2
  18  * of the License, or (at your option) any later version.
  19  *
  20  * This program is distributed in the hope that it will be useful,
  21  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  22  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23  * GNU General Public License for more details.
  24  *
  25  * You should have received a copy of the GNU General Public License
  26  * along with this program; if not, write to the Free Software
  27  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  28  *
  29  *******************************************************************************/
  30
  31 /*******************************************************************************
  32  *
  33  * This utility reads in an ASCII hexdump of this common format:
  34  *
  35  * 00000000  00 E0 1E A7 05 6F 00 10 5A A0 B9 12 08 00 46 00 .....o..Z.....F.
  36  * 00000010  03 68 00 00 00 00 0A 2E EE 33 0F 19 08 7F 0F 19 .h.......3...\7f..
  37  * 00000020  03 80 94 04 00 00 10 01 16 A2 0A 00 03 50 00 0C .............P..
  38  * 00000030  01 01 0F 19 03 80 11 01 1E 61 00 0C 03 01 0F 19 .........a......
  39  *
  40  * Each bytestring line consists of an offset, one or more bytes, and
  41  * text at the end. An offset is defined as a hex string of more than
  42  * two characters. A byte is defined as a hex string of exactly two
  43  * characters. The text at the end is ignored, as is any text before
  44  * the offset. Bytes read from a bytestring line are added to the
  45  * current packet only if all the following conditions are satisfied:
  46  *
  47  * - No text appears between the offset and the bytes (any bytes appearing after
  48  *   such text would be ignored)
  49  *
  50  * - The offset must be arithmetically correct, i.e. if the offset is 00000020, then
  51  *   exactly 32 bytes must have been read into this packet before this. If the offset
  52  *   is wrong, the packet is immediately terminated
  53  *
  54  * A packet start is signalled by a zero offset.
  55  *
  56  * Lines starting with #TEXT2PCAP are directives. These allow the user
  57  * to embed instructions into the capture file which allows text2pcap
  58  * to take some actions (e.g. specifying the encapsulation
  59  * etc.). Currently no directives are implemented.
  60  *
  61  * Lines beginning with # which are not directives are ignored as
  62  * comments. Currently all non-hexdump text is ignored by text2pcap;
  63  * in the future, text processing may be added, but lines prefixed
  64  * with '#' will still be ignored.
  65  *
  66  * The output is a libpcap packet containing Ethernet frames by
  67  * default. This program takes options which allow the user to add
  68  * dummy Ethernet, IP and UDP or TCP headers to the packets in order
  69  * to allow dumps of L3 or higher protocols to be decoded.
  70  *
  71  * Considerable flexibility is built into this code to read hexdumps
  72  * of slightly different formats. For example, any text prefixing the
  73  * hexdump line is dropped (including mail forwarding '>'). The offset
  74  * can be any hex number of four digits or greater.
  75  *
  76  * This converter cannot read a single packet greater than 64K. Packet
  77  * snaplength is automatically set to 64K.
  78  */
  79
  80 #ifdef HAVE_CONFIG_H
  81 # include "config.h"
  82 #endif
  83
  84 /*
  85  * Just make sure we include the prototype for strptime as well
  86  * (needed for glibc 2.2) but make sure we do this only if not
  87  * yet defined.
  88  */
  89 #ifndef __USE_XOPEN
  90 #  define __USE_XOPEN
  91 #endif
  92 #ifndef _XOPEN_SOURCE
  93 #  define _XOPEN_SOURCE
  94 #endif
  95
  96 /*
  97  * Defining _XOPEN_SOURCE is needed on some platforms, e.g. platforms
  98  * using glibc, to expand the set of things system header files define.
  99  *
 100  * Unfortunately, on other platforms, such as some versions of Solaris
 101  * (including Solaris 10), it *reduces* that set as well, causing
 102  * strptime() not to be declared, presumably because the version of the
 103  * X/Open spec that _XOPEN_SOURCE implies doesn't include strptime() and
 104  * blah blah blah namespace pollution blah blah blah.
 105  *
 106  * So we define __EXTENSIONS__ so that "strptime()" is declared.
 107  */
 108 #ifndef __EXTENSIONS__
 109 #  define __EXTENSIONS__
 110 #endif
 111
 112 #include <ctype.h>
 113 #include <stdio.h>
 114 #include <stdlib.h>
 115 #include <string.h>
 116 #include <wsutil/file_util.h>
 117
 118 #include <time.h>
 119 #include <glib.h>
 120
 121 #ifdef HAVE_UNISTD_H
 122 # include <unistd.h>
 123 #endif
 124
 125 #include <errno.h>
 126 #include <assert.h>
 127
 128 #ifdef HAVE_GETOPT_H
 129 #include <getopt.h>
 130 #else
 131 #include "wsutil/wsgetopt.h"
 132 #endif
 133
 134 #ifdef NEED_STRPTIME_H
 135 # include "wsutil/strptime.h"
 136 #endif
 137
 138 #include "text2pcap.h"
 139 #include "svnversion.h"
 140
 141 #ifdef _WIN32
 142 #include <windows.h>
 143 #include <shellapi.h>
 144 #endif /* _WIN32 */
 145
 146 /*--- Options --------------------------------------------------------------------*/
 147
 148 /* Debug level */
 149 static int debug = 0;
 150 /* Be quiet */
 151 static int quiet = FALSE;
 152
 153 /* Dummy Ethernet header */
 154 static int hdr_ethernet = FALSE;
 155 static unsigned long hdr_ethernet_proto = 0;
 156
 157 /* Dummy IP header */
 158 static int hdr_ip = FALSE;
 159 static long hdr_ip_proto = 0;
 160
 161 /* Dummy UDP header */
 162 static int hdr_udp = FALSE;
 163 static unsigned long hdr_dest_port = 0;
 164 static unsigned long hdr_src_port = 0;
 165
 166 /* Dummy TCP header */
 167 static int hdr_tcp = FALSE;
 168
 169 /* Dummy SCTP header */
 170 static int hdr_sctp = FALSE;
 171 static unsigned long hdr_sctp_src  = 0;
 172 static unsigned long hdr_sctp_dest = 0;
 173 static unsigned long hdr_sctp_tag  = 0;
 174
 175 /* Dummy DATA chunk header */
 176 static int hdr_data_chunk = FALSE;
 177 static unsigned char  hdr_data_chunk_type = 0;
 178 static unsigned char  hdr_data_chunk_bits = 3;
 179 static unsigned long  hdr_data_chunk_tsn  = 0;
 180 static unsigned short hdr_data_chunk_sid  = 0;
 181 static unsigned short hdr_data_chunk_ssn  = 0;
 182 static unsigned long  hdr_data_chunk_ppid = 0;
 183
 184
 185 /*--- Local date -----------------------------------------------------------------*/
 186
 187 /* This is where we store the packet currently being built */
 188 #define MAX_PACKET 64000
 189 static unsigned char packet_buf[MAX_PACKET];
 190 static unsigned long curr_offset = 0;
 191 static unsigned long max_offset = MAX_PACKET;
 192 static unsigned long packet_start = 0;
 193 static void start_new_packet (void);
 194
 195 /* This buffer contains strings present before the packet offset 0 */
 196 #define PACKET_PREAMBLE_MAX_LEN 2048
 197 static unsigned char packet_preamble[PACKET_PREAMBLE_MAX_LEN+1];
 198 static int packet_preamble_len = 0;
 199
 200 /* Number of packets read and written */
 201 static unsigned long num_packets_read = 0;
 202 static unsigned long num_packets_written = 0;
 203
 204 /* Time code of packet, derived from packet_preamble */
 205 static time_t ts_sec  = 0;
 206 static guint32 ts_usec = 0;
 207 static char *ts_fmt = NULL;
 208 static struct tm timecode_default;
 209
 210 /* Input file */
 211 static const char *input_filename;
 212 static FILE *input_file = NULL;
 213 /* Output file */
 214 static const char *output_filename;
 215 static FILE *output_file = NULL;
 216
 217 /* Offset base to parse */
 218 static unsigned long offset_base = 16;
 219
 220 extern FILE *yyin;
 221
 222 /* ----- State machine -----------------------------------------------------------*/
 223
 224 /* Current state of parser */
 225 typedef enum {
 226     INIT,             /* Waiting for start of new packet */
 227     START_OF_LINE,    /* Starting from beginning of line */
 228     READ_OFFSET,      /* Just read the offset */
 229     READ_BYTE,        /* Just read a byte */
 230     READ_TEXT         /* Just read text - ignore until EOL */
 231 } parser_state_t;
 232 static parser_state_t state = INIT;
 233
 234 static const char *state_str[] = {"Init",
 235                            "Start-of-line",
 236                            "Offset",
 237                            "Byte",
 238                            "Text"
 239 };
 240
 241 static const char *token_str[] = {"",
 242                            "Byte",
 243                            "Offset",
 244                            "Directive",
 245                            "Text",
 246                            "End-of-line"
 247 };
 248
 249 /* ----- Skeleton Packet Headers --------------------------------------------------*/
 250
 251 typedef struct {
 252     guint8  dest_addr[6];
 253     guint8  src_addr[6];
 254     guint16 l3pid;
 255 } hdr_ethernet_t;
 256
 257 static hdr_ethernet_t HDR_ETHERNET = {
 258     {0x0a, 0x02, 0x02, 0x02, 0x02, 0x02},
 259     {0x0a, 0x01, 0x01, 0x01, 0x01, 0x01},
 260     0};
 261
 262 typedef struct {
 263     guint8  ver_hdrlen;
 264     guint8  dscp;
 265     guint16 packet_length;
 266     guint16 identification;
 267     guint8  flags;
 268     guint8  fragment;
 269     guint8  ttl;
 270     guint8  protocol;
 271     guint16 hdr_checksum;
 272     guint32 src_addr;
 273     guint32 dest_addr;
 274 } hdr_ip_t;
 275
 276 static hdr_ip_t HDR_IP = {0x45, 0, 0, 0x3412, 0, 0, 0xff, 0, 0, 0x0101010a, 0x0202020a};
 277
 278 static struct {                 /* pseudo header for checksum calculation */
 279         guint32 src_addr;
 280         guint32 dest_addr;
 281         guint8  zero;
 282         guint8  protocol;
 283         guint16 length;
 284 } pseudoh;
 285
 286 typedef struct {
 287     guint16 source_port;
 288     guint16 dest_port;
 289     guint16 length;
 290     guint16 checksum;
 291 } hdr_udp_t;
 292
 293 static hdr_udp_t HDR_UDP = {0, 0, 0, 0};
 294
 295 typedef struct {
 296     guint16 source_port;
 297     guint16 dest_port;
 298     guint32 seq_num;
 299     guint32 ack_num;
 300     guint8  hdr_length;
 301     guint8  flags;
 302     guint16 window;
 303     guint16 checksum;
 304     guint16 urg;
 305 } hdr_tcp_t;
 306
 307 static hdr_tcp_t HDR_TCP = {0, 0, 0, 0, 0x50, 0, 0, 0, 0};
 308
 309 typedef struct {
 310     guint16 src_port;
 311     guint16 dest_port;
 312     guint32 tag;
 313     guint32 checksum;
 314 } hdr_sctp_t;
 315
 316 static hdr_sctp_t HDR_SCTP = {0, 0, 0, 0};
 317
 318 typedef struct {
 319     guint8  type;
 320     guint8  bits;
 321     guint16 length;
 322     guint32 tsn;
 323     guint16 sid;
 324     guint16 ssn;
 325     guint32 ppid;
 326 } hdr_data_chunk_t;
 327
 328 static hdr_data_chunk_t HDR_DATA_CHUNK = {0, 0, 0, 0, 0, 0, 0};
 329
 330 static char tempbuf[64];
 331
 332 /*----------------------------------------------------------------------
 333  * Stuff for writing a PCap file
 334  */
 335 #define PCAP_MAGIC                      0xa1b2c3d4
 336
 337 /* "libpcap" file header (minus magic number). */
 338 struct pcap_hdr {
 339     guint32     magic;          /* magic */
 340     guint16     version_major;  /* major version number */
 341     guint16     version_minor;  /* minor version number */
 342     guint32     thiszone;       /* GMT to local correction */
 343     guint32     sigfigs;        /* accuracy of timestamps */
 344     guint32     snaplen;        /* max length of captured packets, in octets */
 345     guint32     network;        /* data link type */
 346 };
 347
 348 /* "libpcap" record header. */
 349 struct pcaprec_hdr {
 350     guint32     ts_sec;         /* timestamp seconds */
 351     guint32     ts_usec;        /* timestamp microseconds */
 352     guint32     incl_len;       /* number of octets of packet saved in file */
 353     guint32     orig_len;       /* actual length of packet */
 354 };
 355
 356 /* Link-layer type; see net/bpf.h for details */
 357 static unsigned long pcap_link_type = 1;   /* Default is DLT-EN10MB */
 358
 359 /*----------------------------------------------------------------------
 360  * Parse a single hex number
 361  * Will abort the program if it can't parse the number
 362  * Pass in TRUE if this is an offset, FALSE if not
 363  */
 364 static unsigned long
 365 parse_num (const char *str, int offset)
 366 {
 367     unsigned long num;
 368     char *c;
 369
 370     num = strtoul(str, &c, offset ? offset_base : 16);
 371     if (c==str) {
 372         fprintf(stderr, "FATAL ERROR: Bad hex number? [%s]\n", str);
 373         exit(-1);
 374     }
 375     return num;
 376 }
 377
 378 /*----------------------------------------------------------------------
 379  * Write this byte into current packet
 380  */
 381 static void
 382 write_byte (const char *str)
 383 {
 384     unsigned long num;
 385
 386     num = parse_num(str, FALSE);
 387     packet_buf[curr_offset] = (unsigned char) num;
 388     curr_offset ++;
 389     if (curr_offset >= max_offset) /* packet full */
 390             start_new_packet();
 391 }
 392
 393 /*----------------------------------------------------------------------
 394  * Remove bytes from the current packet
 395  */
 396 static void
 397 unwrite_bytes (unsigned long nbytes)
 398 {
 399     curr_offset -= nbytes;
 400 }
 401
 402 /*----------------------------------------------------------------------
 403  * Compute one's complement checksum (from RFC1071)
 404  */
 405 static guint16
 406 in_checksum (void *buf, unsigned long count)
 407 {
 408     unsigned long sum = 0;
 409     guint16 *addr = buf;
 410
 411     while( count > 1 )  {
 412         /*  This is the inner loop */
 413         sum += g_ntohs(* (guint16 *) addr);
 414         addr++;
 415         count -= 2;
 416     }
 417
 418     /*  Add left-over byte, if any */
 419     if( count > 0 )
 420         sum += g_ntohs(* (guint8 *) addr);
 421
 422     /*  Fold 32-bit sum to 16 bits */
 423     while (sum>>16)
 424         sum = (sum & 0xffff) + (sum >> 16);
 425
 426     sum = ~sum;
 427     return g_htons(sum);
 428 }
 429
 430 /* The CRC32C code is taken from draft-ietf-tsvwg-sctpcsum-01.txt.
 431  * That code is copyrighted by D. Otis and has been modified.
 432  */
 433
 434 #define CRC32C(c,d) (c=(c>>8)^crc_c[(c^(d))&0xFF])
 435 static guint32 crc_c[256] =
 436 {
 437 0x00000000L, 0xF26B8303L, 0xE13B70F7L, 0x1350F3F4L,
 438 0xC79A971FL, 0x35F1141CL, 0x26A1E7E8L, 0xD4CA64EBL,
 439 0x8AD958CFL, 0x78B2DBCCL, 0x6BE22838L, 0x9989AB3BL,
 440 0x4D43CFD0L, 0xBF284CD3L, 0xAC78BF27L, 0x5E133C24L,
 441 0x105EC76FL, 0xE235446CL, 0xF165B798L, 0x030E349BL,
 442 0xD7C45070L, 0x25AFD373L, 0x36FF2087L, 0xC494A384L,
 443 0x9A879FA0L, 0x68EC1CA3L, 0x7BBCEF57L, 0x89D76C54L,
 444 0x5D1D08BFL, 0xAF768BBCL, 0xBC267848L, 0x4E4DFB4BL,
 445 0x20BD8EDEL, 0xD2D60DDDL, 0xC186FE29L, 0x33ED7D2AL,
 446 0xE72719C1L, 0x154C9AC2L, 0x061C6936L, 0xF477EA35L,
 447 0xAA64D611L, 0x580F5512L, 0x4B5FA6E6L, 0xB93425E5L,
 448 0x6DFE410EL, 0x9F95C20DL, 0x8CC531F9L, 0x7EAEB2FAL,
 449 0x30E349B1L, 0xC288CAB2L, 0xD1D83946L, 0x23B3BA45L,
 450 0xF779DEAEL, 0x05125DADL, 0x1642AE59L, 0xE4292D5AL,
 451 0xBA3A117EL, 0x4851927DL, 0x5B016189L, 0xA96AE28AL,
 452 0x7DA08661L, 0x8FCB0562L, 0x9C9BF696L, 0x6EF07595L,
 453 0x417B1DBCL, 0xB3109EBFL, 0xA0406D4BL, 0x522BEE48L,
 454 0x86E18AA3L, 0x748A09A0L, 0x67DAFA54L, 0x95B17957L,
 455 0xCBA24573L, 0x39C9C670L, 0x2A993584L, 0xD8F2B687L,
 456 0x0C38D26CL, 0xFE53516FL, 0xED03A29BL, 0x1F682198L,
 457 0x5125DAD3L, 0xA34E59D0L, 0xB01EAA24L, 0x42752927L,
 458 0x96BF4DCCL, 0x64D4CECFL, 0x77843D3BL, 0x85EFBE38L,
 459 0xDBFC821CL, 0x2997011FL, 0x3AC7F2EBL, 0xC8AC71E8L,
 460 0x1C661503L, 0xEE0D9600L, 0xFD5D65F4L, 0x0F36E6F7L,
 461 0x61C69362L, 0x93AD1061L, 0x80FDE395L, 0x72966096L,
 462 0xA65C047DL, 0x5437877EL, 0x4767748AL, 0xB50CF789L,
 463 0xEB1FCBADL, 0x197448AEL, 0x0A24BB5AL, 0xF84F3859L,
 464 0x2C855CB2L, 0xDEEEDFB1L, 0xCDBE2C45L, 0x3FD5AF46L,
 465 0x7198540DL, 0x83F3D70EL, 0x90A324FAL, 0x62C8A7F9L,
 466 0xB602C312L, 0x44694011L, 0x5739B3E5L, 0xA55230E6L,
 467 0xFB410CC2L, 0x092A8FC1L, 0x1A7A7C35L, 0xE811FF36L,
 468 0x3CDB9BDDL, 0xCEB018DEL, 0xDDE0EB2AL, 0x2F8B6829L,
 469 0x82F63B78L, 0x709DB87BL, 0x63CD4B8FL, 0x91A6C88CL,
 470 0x456CAC67L, 0xB7072F64L, 0xA457DC90L, 0x563C5F93L,
 471 0x082F63B7L, 0xFA44E0B4L, 0xE9141340L, 0x1B7F9043L,
 472 0xCFB5F4A8L, 0x3DDE77ABL, 0x2E8E845FL, 0xDCE5075CL,
 473 0x92A8FC17L, 0x60C37F14L, 0x73938CE0L, 0x81F80FE3L,
 474 0x55326B08L, 0xA759E80BL, 0xB4091BFFL, 0x466298FCL,
 475 0x1871A4D8L, 0xEA1A27DBL, 0xF94AD42FL, 0x0B21572CL,
 476 0xDFEB33C7L, 0x2D80B0C4L, 0x3ED04330L, 0xCCBBC033L,
 477 0xA24BB5A6L, 0x502036A5L, 0x4370C551L, 0xB11B4652L,
 478 0x65D122B9L, 0x97BAA1BAL, 0x84EA524EL, 0x7681D14DL,
 479 0x2892ED69L, 0xDAF96E6AL, 0xC9A99D9EL, 0x3BC21E9DL,
 480 0xEF087A76L, 0x1D63F975L, 0x0E330A81L, 0xFC588982L,
 481 0xB21572C9L, 0x407EF1CAL, 0x532E023EL, 0xA145813DL,
 482 0x758FE5D6L, 0x87E466D5L, 0x94B49521L, 0x66DF1622L,
 483 0x38CC2A06L, 0xCAA7A905L, 0xD9F75AF1L, 0x2B9CD9F2L,
 484 0xFF56BD19L, 0x0D3D3E1AL, 0x1E6DCDEEL, 0xEC064EEDL,
 485 0xC38D26C4L, 0x31E6A5C7L, 0x22B65633L, 0xD0DDD530L,
 486 0x0417B1DBL, 0xF67C32D8L, 0xE52CC12CL, 0x1747422FL,
 487 0x49547E0BL, 0xBB3FFD08L, 0xA86F0EFCL, 0x5A048DFFL,
 488 0x8ECEE914L, 0x7CA56A17L, 0x6FF599E3L, 0x9D9E1AE0L,
 489 0xD3D3E1ABL, 0x21B862A8L, 0x32E8915CL, 0xC083125FL,
 490 0x144976B4L, 0xE622F5B7L, 0xF5720643L, 0x07198540L,
 491 0x590AB964L, 0xAB613A67L, 0xB831C993L, 0x4A5A4A90L,
 492 0x9E902E7BL, 0x6CFBAD78L, 0x7FAB5E8CL, 0x8DC0DD8FL,
 493 0xE330A81AL, 0x115B2B19L, 0x020BD8EDL, 0xF0605BEEL,
 494 0x24AA3F05L, 0xD6C1BC06L, 0xC5914FF2L, 0x37FACCF1L,
 495 0x69E9F0D5L, 0x9B8273D6L, 0x88D28022L, 0x7AB90321L,
 496 0xAE7367CAL, 0x5C18E4C9L, 0x4F48173DL, 0xBD23943EL,
 497 0xF36E6F75L, 0x0105EC76L, 0x12551F82L, 0xE03E9C81L,
 498 0x34F4F86AL, 0xC69F7B69L, 0xD5CF889DL, 0x27A40B9EL,
 499 0x79B737BAL, 0x8BDCB4B9L, 0x988C474DL, 0x6AE7C44EL,
 500 0xBE2DA0A5L, 0x4C4623A6L, 0x5F16D052L, 0xAD7D5351L,
 501 };
 502
 503 static guint32
 504 crc32c(const guint8* buf, unsigned int len, guint32 crc32_init)
 505 {
 506   unsigned int i;
 507   guint32 crc32;
 508
 509   crc32 = crc32_init;
 510   for (i = 0; i < len; i++)
 511     CRC32C(crc32, buf[i]);
 512
 513   return ( crc32 );
 514 }
 515
 516 static guint32
 517 finalize_crc32c(guint32 crc32)
 518 {
 519   guint32 result;
 520   guint8 byte0,byte1,byte2,byte3;
 521
 522   result = ~crc32;
 523   byte0 = result & 0xff;
 524   byte1 = (result>>8) & 0xff;
 525   byte2 = (result>>16) & 0xff;
 526   byte3 = (result>>24) & 0xff;
 527   result = ((byte0 << 24) | (byte1 << 16) | (byte2 << 8) | byte3);
 528   return ( result );
 529 }
 530
 531 static unsigned long
 532 number_of_padding_bytes (unsigned long length)
 533 {
 534   unsigned long remainder;
 535
 536   remainder = length % 4;
 537
 538   if (remainder == 0)
 539     return 0;
 540   else
 541     return 4 - remainder;
 542 }
 543
 544 /*----------------------------------------------------------------------
 545  * Write current packet out
 546  */
 547 static void
 548 write_current_packet (void)
 549 {
 550     int length = 0;
 551     int proto_length = 0;
 552     int ip_length = 0;
 553     int eth_trailer_length = 0;
 554     int i, padding_length;
 555     guint32 u;
 556     struct pcaprec_hdr ph;
 557
 558     if (curr_offset > 0) {
 559         /* Write the packet */
 560
 561         /* Compute packet length */
 562         length = curr_offset;
 563         if (hdr_data_chunk) { length += sizeof(HDR_DATA_CHUNK) + number_of_padding_bytes(curr_offset); }
 564         if (hdr_sctp) { length += sizeof(HDR_SCTP); }
 565         if (hdr_udp) { length += sizeof(HDR_UDP); proto_length = length; }
 566         if (hdr_tcp) { length += sizeof(HDR_TCP); proto_length = length; }
 567         if (hdr_ip) { length += sizeof(HDR_IP); ip_length = length; }
 568         if (hdr_ethernet) {
 569             length += sizeof(HDR_ETHERNET);
 570             /* Pad trailer */
 571             if (length < 60) {
 572                 eth_trailer_length = 60 - length;
 573                 length = 60;
 574             }
 575         }
 576
 577         /* Write PCAP header */
 578         ph.ts_sec = (guint32)ts_sec;
 579         ph.ts_usec = ts_usec;
 580         if (ts_fmt == NULL) { ts_usec++; }      /* fake packet counter */
 581         ph.incl_len = length;
 582         ph.orig_len = length;
 583         fwrite(&ph, sizeof(ph), 1, output_file);
 584
 585         /* Write Ethernet header */
 586         if (hdr_ethernet) {
 587             HDR_ETHERNET.l3pid = g_htons(hdr_ethernet_proto);
 588             fwrite(&HDR_ETHERNET, sizeof(HDR_ETHERNET), 1, output_file);
 589         }
 590
 591         /* Write IP header */
 592         if (hdr_ip) {
 593             HDR_IP.packet_length = g_htons(ip_length);
 594             HDR_IP.protocol = (guint8) hdr_ip_proto;
 595             HDR_IP.hdr_checksum = 0;
 596             HDR_IP.hdr_checksum = in_checksum(&HDR_IP, sizeof(HDR_IP));
 597             fwrite(&HDR_IP, sizeof(HDR_IP), 1, output_file);
 598         }
 599
 600         /* initialize pseudo header for checksum calculation */
 601         pseudoh.src_addr    = HDR_IP.src_addr;
 602         pseudoh.dest_addr   = HDR_IP.dest_addr;
 603         pseudoh.zero        = 0;
 604         pseudoh.protocol    = (guint8) hdr_ip_proto;
 605         pseudoh.length      = g_htons(proto_length);
 606
 607         /* Write UDP header */
 608         if (hdr_udp) {
 609             guint16 x16;
 610             HDR_UDP.source_port = g_htons(hdr_src_port);
 611             HDR_UDP.dest_port = g_htons(hdr_dest_port);
 612             HDR_UDP.length = g_htons(proto_length);
 613
 614             /* Note: g_ntohs()/g_htons() macro arg may be eval'd twice so calc value before invoking macro */
 615             HDR_UDP.checksum = 0;
 616             x16  = in_checksum(&pseudoh, sizeof(pseudoh));
 617             u    = g_ntohs(x16);
 618             x16  = in_checksum(&HDR_UDP, sizeof(HDR_UDP));
 619             u   += g_ntohs(x16);
 620             x16  = in_checksum(packet_buf, curr_offset);
 621             u   += g_ntohs(x16);
 622             x16  = (u & 0xffff) + (u>>16);
 623             HDR_UDP.checksum = g_htons(x16);
 624             if (HDR_UDP.checksum == 0) /* differentiate between 'none' and 0 */
 625                     HDR_UDP.checksum = g_htons(1);
 626
 627             fwrite(&HDR_UDP, sizeof(HDR_UDP), 1, output_file);
 628         }
 629
 630         /* Write TCP header */
 631         if (hdr_tcp) {
 632             guint16 x16;
 633             HDR_TCP.source_port = g_htons(hdr_src_port);
 634             HDR_TCP.dest_port = g_htons(hdr_dest_port);
 635             /* HDR_TCP.seq_num already correct */
 636             HDR_TCP.window = g_htons(0x2000);
 637
 638             /* Note: g_ntohs()/g_htons() macro arg may be eval'd twice so calc value before invoking macro */
 639             HDR_TCP.checksum = 0;
 640             x16  = in_checksum(&pseudoh, sizeof(pseudoh));
 641             u    = g_ntohs(x16);
 642             x16  = in_checksum(&HDR_TCP, sizeof(HDR_TCP));
 643             u   += g_ntohs(x16);
 644             x16  = in_checksum(packet_buf, curr_offset);
 645             u   += g_ntohs(x16);
 646             x16  = (u & 0xffff) + (u>>16);
 647             HDR_TCP.checksum = g_htons(x16);
 648             if (HDR_TCP.checksum == 0) /* differentiate between 'none' and 0 */
 649                 HDR_TCP.checksum = g_htons(1);
 650
 651             fwrite(&HDR_TCP, sizeof(HDR_TCP), 1, output_file);
 652         }
 653
 654         /* Compute DATA chunk header and append padding */
 655         if (hdr_data_chunk) {
 656             HDR_DATA_CHUNK.type   = hdr_data_chunk_type;
 657             HDR_DATA_CHUNK.bits   = hdr_data_chunk_bits;
 658             HDR_DATA_CHUNK.length = g_htons(curr_offset + sizeof(HDR_DATA_CHUNK));
 659             HDR_DATA_CHUNK.tsn    = g_htonl(hdr_data_chunk_tsn);
 660             HDR_DATA_CHUNK.sid    = g_htons(hdr_data_chunk_sid);
 661             HDR_DATA_CHUNK.ssn    = g_htons(hdr_data_chunk_ssn);
 662             HDR_DATA_CHUNK.ppid   = g_htonl(hdr_data_chunk_ppid);
 663
 664             padding_length = number_of_padding_bytes(curr_offset);
 665             for (i=0; i<padding_length; i++)
 666               write_byte("0");
 667         }
 668
 669         /* Write SCTP header */
 670         if (hdr_sctp) {
 671             guint32 x32;
 672             HDR_SCTP.src_port  = g_htons(hdr_sctp_src);
 673             HDR_SCTP.dest_port = g_htons(hdr_sctp_dest);
 674             HDR_SCTP.tag       = g_htonl(hdr_sctp_tag);
 675             HDR_SCTP.checksum  = g_htonl(0);
 676             HDR_SCTP.checksum  = crc32c((guint8 *)&HDR_SCTP, sizeof(HDR_SCTP), ~0L);
 677             if (hdr_data_chunk)
 678               HDR_SCTP.checksum  = crc32c((guint8 *)&HDR_DATA_CHUNK, sizeof(HDR_DATA_CHUNK), HDR_SCTP.checksum);
 679             /* Note: g_ntohl() macro arg may be eval'd twice so calc value before invoking macro */
 680             x32 = finalize_crc32c(crc32c(packet_buf, curr_offset, HDR_SCTP.checksum));
 681             HDR_SCTP.checksum  = g_htonl(x32);
 682
 683             fwrite(&HDR_SCTP, sizeof(HDR_SCTP), 1, output_file);
 684         }
 685
 686         /* Write DATA chunk header */
 687         if (hdr_data_chunk) {
 688             fwrite(&HDR_DATA_CHUNK, sizeof(HDR_DATA_CHUNK), 1, output_file);
 689         }
 690         /* Write packet */
 691         fwrite(packet_buf, curr_offset, 1, output_file);
 692
 693         /* Write Ethernet trailer */
 694         if (hdr_ethernet && eth_trailer_length > 0) {
 695             memset(tempbuf, 0, eth_trailer_length);
 696             fwrite(tempbuf, eth_trailer_length, 1, output_file);
 697         }
 698
 699         if (!quiet)
 700             fprintf(stderr, "Wrote packet of %lu bytes at %u\n", curr_offset, g_ntohl(HDR_TCP.seq_num));
 701         num_packets_written ++;
 702     }
 703     HDR_TCP.seq_num = g_ntohl(HDR_TCP.seq_num) + curr_offset;
 704     HDR_TCP.seq_num = g_htonl(HDR_TCP.seq_num);
 705
 706     packet_start += curr_offset;
 707     curr_offset = 0;
 708 }
 709
 710 /*----------------------------------------------------------------------
 711  * Write the PCap file header
 712  */
 713 static void
 714 write_file_header (void)
 715 {
 716     struct pcap_hdr fh;
 717
 718     fh.magic = PCAP_MAGIC;
 719     fh.version_major = 2;
 720     fh.version_minor = 4;
 721     fh.thiszone = 0;
 722     fh.sigfigs = 0;
 723     fh.snaplen = 102400;
 724     fh.network = pcap_link_type;
 725
 726     fwrite(&fh, sizeof(fh), 1, output_file);
 727 }
 728
 729 /*----------------------------------------------------------------------
 730  * Append a token to the packet preamble.
 731  */
 732 static void
 733 append_to_preamble(char *str)
 734 {
 735     size_t toklen;
 736
 737     if (packet_preamble_len != 0) {
 738         if (packet_preamble_len == PACKET_PREAMBLE_MAX_LEN)
 739             return;     /* no room to add more preamble */
 740         /* Add a blank separator between the previous token and this token. */
 741         packet_preamble[packet_preamble_len++] = ' ';
 742     }
 743     toklen = strlen(str);
 744     if (toklen != 0) {
 745         if (packet_preamble_len + toklen > PACKET_PREAMBLE_MAX_LEN)
 746             return;     /* no room to add the token to the preamble */
 747         g_strlcpy(&packet_preamble[packet_preamble_len], str, PACKET_PREAMBLE_MAX_LEN);
 748         packet_preamble_len += (int) toklen;
 749         if (debug >= 2) {
 750                 char *c;
 751                 char xs[PACKET_PREAMBLE_MAX_LEN];
 752                 g_strlcpy(xs, packet_preamble, PACKET_PREAMBLE_MAX_LEN);
 753                 while ((c = strchr(xs, '\r')) != NULL) *c=' ';
 754                 fprintf (stderr, "[[append_to_preamble: \"%s\"]]", xs);
 755         }
 756     }
 757 }
 758
 759 /*----------------------------------------------------------------------
 760  * Parse the preamble to get the timecode.
 761  */
 762
 763 static void
 764 parse_preamble (void)
 765 {
 766         struct tm timecode;
 767         char *subsecs;
 768         char *p;
 769         int  subseclen;
 770         int  i;
 771
 772         /*
 773          * If no "-t" flag was specified, don't attempt to parse a packet
 774          * preamble to extract a time stamp.
 775          */
 776         if (ts_fmt == NULL)
 777             return;
 778
 779         /*
 780          * Initialize to today localtime, just in case not all fields
 781          * of the date and time are specified.
 782          */
 783
 784         timecode = timecode_default;
 785         ts_usec = 0;
 786
 787         /*
 788          * Null-terminate the preamble.
 789          */
 790         packet_preamble[packet_preamble_len] = '\0';
 791
 792         /* Ensure preamble has more than two chars before atempting to parse.
 793          * This should cover line breaks etc that get counted.
 794          */
 795         if ( strlen(packet_preamble) > 2 ) {
 796                 /* Get Time leaving subseconds */
 797                 subsecs = strptime( packet_preamble, ts_fmt, &timecode );
 798                 if (subsecs != NULL) {
 799                         /* Get the long time from the tm structure */
 800                         /*  (will return -1 if failure)            */
 801                         ts_sec  = mktime( &timecode );
 802                 } else
 803                         ts_sec = -1;    /* we failed to parse it */
 804
 805                 /* This will ensure incorrectly parsed dates get set to zero */
 806                 if ( -1 == ts_sec )
 807                 {
 808                         /* Sanitize - remove all '\r' */
 809                         char *c;
 810                         while ((c = strchr(packet_preamble, '\r')) != NULL) *c=' ';
 811                         fprintf (stderr, "Failure processing time \"%s\" using time format \"%s\"\n   (defaulting to Jan 1,1970 00:00:00 GMT)\n",
 812                                  packet_preamble, ts_fmt);
 813                         if (debug >= 2) {
 814                                 fprintf(stderr, "timecode: %02d/%02d/%d %02d:%02d:%02d %d\n",
 815                                         timecode.tm_mday, timecode.tm_mon, timecode.tm_year,
 816                                         timecode.tm_hour, timecode.tm_min, timecode.tm_sec, timecode.tm_isdst);
 817                         }
 818                         ts_sec  = 0;  /* Jan 1,1970: 00:00 GMT; tshark/wireshark will display date/time as adjusted by timezone */
 819                         ts_usec = 0;
 820                 }
 821                 else
 822                 {
 823                         /* Parse subseconds */
 824                         ts_usec = strtol(subsecs, &p, 10);
 825                         if (subsecs == p) {
 826                                 /* Error */
 827                                 ts_usec = 0;
 828                         } else {
 829                                 /*
 830                                  * Convert that number to a number
 831                                  * of microseconds; if it's N digits
 832                                  * long, it's in units of 10^(-N) seconds,
 833                                  * so, to convert it to units of
 834                                  * 10^-6 seconds, we multiply by
 835                                  * 10^(6-N).
 836                                  */
 837                                 subseclen = (int) (p - subsecs);
 838                                 if (subseclen > 6) {
 839                                         /*
 840                                          * *More* than 6 digits; 6-N is
 841                                          * negative, so we divide by
 842                                          * 10^(N-6).
 843                                          */
 844                                         for (i = subseclen - 6; i != 0; i--)
 845                                                 ts_usec /= 10;
 846                                 } else if (subseclen < 6) {
 847                                         for (i = 6 - subseclen; i != 0; i--)
 848                                                 ts_usec *= 10;
 849                                 }
 850                         }
 851                 }
 852         }
 853         if (debug >= 2) {
 854                 char *c;
 855                 while ((c = strchr(packet_preamble, '\r')) != NULL) *c=' ';
 856                 fprintf(stderr, "[[parse_preamble: \"%s\"]]\n", packet_preamble);
 857                 fprintf(stderr, "Format(%s), time(%u), subsecs(%u)\n", ts_fmt, (guint32)ts_sec, ts_usec);
 858         }
 859
 860
 861         /* Clear Preamble */
 862         packet_preamble_len = 0;
 863 }
 864
 865 /*----------------------------------------------------------------------
 866  * Start a new packet
 867  */
 868 static void
 869 start_new_packet (void)
 870 {
 871     if (debug>=1)
 872         fprintf(stderr, "Start new packet\n");
 873
 874     /* Write out the current packet, if required */
 875     write_current_packet();
 876     num_packets_read ++;
 877
 878     /* Ensure we parse the packet preamble as it may contain the time */
 879     parse_preamble();
 880 }
 881
 882 /*----------------------------------------------------------------------
 883  * Process a directive
 884  */
 885 static void
 886 process_directive (char *str)
 887 {
 888     fprintf(stderr, "\n--- Directive [%s] currently unsupported ---\n", str+10);
 889
 890 }
 891
 892 /*----------------------------------------------------------------------
 893  * Parse a single token (called from the scanner)
 894  */
 895 void
 896 parse_token (token_t token, char *str)
 897 {
 898     unsigned long num;
 899
 900     /*
 901      * This is implemented as a simple state machine of five states.
 902      * State transitions are caused by tokens being received from the
 903      * scanner. The code should be self_documenting.
 904      */
 905
 906     if (debug>=2) {
 907         /* Sanitize - remove all '\r' */
 908         char *c;
 909         if (str!=NULL) { while ((c = strchr(str, '\r')) != NULL) *c=' '; }
 910
 911         fprintf(stderr, "(%s, %s \"%s\") -> (",
 912                 state_str[state], token_str[token], str ? str : "");
 913     }
 914
 915     switch(state) {
 916
 917     /* ----- Waiting for new packet -------------------------------------------*/
 918     case INIT:
 919         switch(token) {
 920         case T_TEXT:
 921             append_to_preamble(str);
 922             break;
 923         case T_DIRECTIVE:
 924             process_directive(str);
 925             break;
 926         case T_OFFSET:
 927             num = parse_num(str, TRUE);
 928             if (num==0) {
 929                 /* New packet starts here */
 930                 start_new_packet();
 931                 state = READ_OFFSET;
 932             }
 933             break;
 934         default:
 935             break;
 936         }
 937         break;
 938
 939     /* ----- Processing packet, start of new line -----------------------------*/
 940     case START_OF_LINE:
 941         switch(token) {
 942         case T_TEXT:
 943             append_to_preamble(str);
 944             break;
 945         case T_DIRECTIVE:
 946             process_directive(str);
 947             break;
 948         case T_OFFSET:
 949             num = parse_num(str, TRUE);
 950             if (num==0) {
 951                 /* New packet starts here */
 952                 start_new_packet();
 953                 packet_start = 0;
 954                 state = READ_OFFSET;
 955             } else if ((num - packet_start) != curr_offset) {
 956                 /*
 957                  * The offset we read isn't the one we expected.
 958                  * This may only mean that we mistakenly interpreted
 959                  * some text as byte values (e.g., if the text dump
 960                  * of packet data included a number with spaces around
 961                  * it).  If the offset is less than what we expected,
 962                  * assume that's the problem, and throw away the putative
 963                  * extra byte values.
 964                  */
 965                 if (num < curr_offset) {
 966                     unwrite_bytes(curr_offset - num);
 967                     state = READ_OFFSET;
 968                 } else {
 969                     /* Bad offset; switch to INIT state */
 970                     if (debug>=1)
 971                         fprintf(stderr, "Inconsistent offset. Expecting %0lX, got %0lX. Ignoring rest of packet\n",
 972                                 curr_offset, num);
 973                     write_current_packet();
 974                     state = INIT;
 975                 }
 976             } else
 977                 state = READ_OFFSET;
 978             break;
 979         default:
 980             break;
 981         }
 982         break;
 983
 984     /* ----- Processing packet, read offset -----------------------------------*/
 985     case READ_OFFSET:
 986         switch(token) {
 987         case T_BYTE:
 988             /* Record the byte */
 989             state = READ_BYTE;
 990             write_byte(str);
 991             break;
 992         case T_TEXT:
 993         case T_DIRECTIVE:
 994         case T_OFFSET:
 995             state = READ_TEXT;
 996             break;
 997         case T_EOL:
 998             state = START_OF_LINE;
 999             break;
1000         default:
1001             break;
1002         }
1003         break;
1004
1005     /* ----- Processing packet, read byte -------------------------------------*/
1006     case READ_BYTE:
1007         switch(token) {
1008         case T_BYTE:
1009             /* Record the byte */
1010             write_byte(str);
1011             break;
1012         case T_TEXT:
1013         case T_DIRECTIVE:
1014         case T_OFFSET:
1015             state = READ_TEXT;
1016             break;
1017         case T_EOL:
1018             state = START_OF_LINE;
1019             break;
1020         default:
1021             break;
1022         }
1023         break;
1024
1025     /* ----- Processing packet, read text -------------------------------------*/
1026     case READ_TEXT:
1027         switch(token) {
1028         case T_EOL:
1029             state = START_OF_LINE;
1030             break;
1031         default:
1032             break;
1033         }
1034         break;
1035
1036     default:
1037         fprintf(stderr, "FATAL ERROR: Bad state (%d)", state);
1038         exit(-1);
1039     }
1040
1041     if (debug>=2)
1042         fprintf(stderr, ", %s)\n", state_str[state]);
1043
1044 }
1045
1046 /*----------------------------------------------------------------------
1047  * Print usage string and exit
1048  */
1049 static void
1050 usage (void)
1051 {
1052     fprintf(stderr,
1053             "Text2pcap %s"
1054 #ifdef SVNVERSION
1055             " (" SVNVERSION " from " SVNPATH ")"
1056 #endif
1057             "\n"
1058             "Generate a capture file from an ASCII hexdump of packets.\n"
1059             "See http://www.wireshark.org for more information.\n"
1060             "\n"
1061             "Usage: text2pcap [options] <infile> <outfile>\n"
1062             "\n"
1063             "where  <infile> specifies input  filename (use - for standard input)\n"
1064             "      <outfile> specifies output filename (use - for standard output)\n"
1065             "\n"
1066             "Input:\n"
1067             "  -o hex|oct|dec         parse offsets as (h)ex, (o)ctal or (d)ecimal; default is hex.\n"
1068             "  -t <timefmt>           treat the text before the packet as a date/time code;\n"
1069             "                         the specified argument is a format string of the sort\n"
1070             "                         supported by strptime.\n"
1071             "                         Example: The time \"10:15:14.5476\" has the format code\n"
1072             "                         \"%%H:%%M:%%S.\"\n"
1073             "                         NOTE: The subsecond component delimiter must be given\n"
1074             "                          (.) but no pattern is required; the remaining number\n"
1075             "                          is assumed to be fractions of a second.\n"
1076             "                         NOTE: Date/time fields from the current date/time are\n"
1077             "                         used as the default for unspecified fields.\n"
1078             "\n"
1079             "Output:\n"
1080             "  -l <typenum>           link-layer type number; default is 1 (Ethernet).\n"
1081             "                         See the file net/bpf.h for list of numbers.\n"
1082             "                         Use this option if your dump is a complete hex dump\n"
1083             "                         of an encapsulated packet and you wish to specify\n"
1084             "                         the exact type of encapsulation.\n"
1085             "                         Example: -l 7 for ARCNet packets.\n"
1086             "  -m <max-packet>        max packet length in output; default is %d\n"
1087             "\n"
1088             "Prepend dummy header:\n"
1089             "  -e <l3pid>             prepend dummy Ethernet II header with specified L3PID\n"
1090             "                         (in HEX).\n"
1091             "                         Example: -e 0x806 to specify an ARP packet.\n"
1092             "  -i <proto>             prepend dummy IP header with specified IP protocol\n"
1093             "                         (in DECIMAL).\n"
1094             "                         Automatically prepends Ethernet header as well.\n"
1095             "                         Example: -i 46\n"
1096             "  -u <srcp>,<destp>      prepend dummy UDP header with specified\n"
1097             "                         dest and source ports (in DECIMAL).\n"
1098             "                         Automatically prepends Ethernet & IP headers as well.\n"
1099             "                         Example: -u 1000 69 to make the packets look like TFTP/UDP packets.\n"
1100             "  -T <srcp>,<destp>      prepend dummy TCP header with specified\n"
1101             "                         dest and source ports (in DECIMAL).\n"
1102             "                         Automatically prepends Ethernet & IP headers as well.\n"
1103             "                         Example: -T 50,60\n"
1104             "  -s <srcp>,<dstp>,<tag> prepend dummy SCTP header with specified\n"
1105             "                         dest/source ports and verification tag (in DECIMAL).\n"
1106             "                         Automatically prepends Ethernet & IP headers as well.\n"
1107             "                         Example: -s 30,40,34\n"
1108             "  -S <srcp>,<dstp>,<ppi> prepend dummy SCTP header with specified\n"
1109             "                         dest/source ports and verification tag 0.\n"
1110             "                         Automatically prepends a dummy SCTP DATA\n"
1111             "                         chunk header with payload protocol identifier ppi.\n"
1112             "                         Example: -S 30,40,34\n"
1113             "\n"
1114             "Miscellaneous:\n"
1115             "  -h                     display this help and exit.\n"
1116             "  -d                     show detailed debug of parser states.\n"
1117             "  -q                     generate no output at all (automatically turns off -d).\n"
1118             "",
1119             VERSION, MAX_PACKET);
1120
1121     exit(-1);
1122 }
1123
1124 /*----------------------------------------------------------------------
1125  * Parse CLI options
1126  */
1127 static void
1128 parse_options (int argc, char *argv[])
1129 {
1130     int c;
1131     char *p;
1132 #ifdef _WIN32
1133     LPWSTR *wc_argv;
1134     int wc_argc, i;
1135 #endif  /* _WIN32 */
1136
1137 #ifdef _WIN32
1138     /* Convert our arg list to UTF-8. */
1139     wc_argv = CommandLineToArgvW(GetCommandLineW(), &wc_argc);
1140     if (wc_argv && wc_argc == argc) {
1141         for (i = 0; i < argc; i++) {
1142             argv[i] = g_utf16_to_utf8(wc_argv[i], -1, NULL, NULL, NULL);
1143         }
1144     } /* XXX else bail because something is horribly, horribly wrong? */
1145 #endif /* _WIN32 */
1146
1147     /* Scan CLI parameters */
1148     while ((c = getopt(argc, argv, "dhqe:i:l:m:o:u:s:S:t:T:")) != -1) {
1149         switch(c) {
1150         case '?': usage(); break;
1151         case 'h': usage(); break;
1152         case 'd': if (!quiet) debug++; break;
1153         case 'q': quiet = TRUE; debug = FALSE; break;
1154         case 'l': pcap_link_type = strtol(optarg, NULL, 0); break;
1155         case 'm': max_offset = strtol(optarg, NULL, 0); break;
1156         case 'o':
1157             if (optarg[0]!='h' && optarg[0] != 'o' && optarg[0] != 'd') {
1158                 fprintf(stderr, "Bad argument for '-o': %s\n", optarg);
1159                 usage();
1160             }
1161                         switch(optarg[0]) {
1162                         case 'o': offset_base = 8; break;
1163                         case 'h': offset_base = 16; break;
1164                         case 'd': offset_base = 10; break;
1165                         }
1166             break;
1167         case 'e':
1168             hdr_ethernet = TRUE;
1169             if (sscanf(optarg, "%lx", &hdr_ethernet_proto) < 1) {
1170                 fprintf(stderr, "Bad argument for '-e': %s\n", optarg);
1171                 usage();
1172             }
1173             break;
1174
1175         case 'i':
1176             hdr_ip = TRUE;
1177             hdr_ip_proto = strtol(optarg, &p, 10);
1178             if (p == optarg || *p != '\0' || hdr_ip_proto < 0 ||
1179                   hdr_ip_proto > 255) {
1180                 fprintf(stderr, "Bad argument for '-i': %s\n", optarg);
1181                 usage();
1182             }
1183             hdr_ethernet = TRUE;
1184             hdr_ethernet_proto = 0x800;
1185             break;
1186
1187         case 's':
1188             hdr_sctp       = TRUE;
1189             hdr_sctp_src   = strtol(optarg, &p, 10);
1190             if (p == optarg || (*p != ',' && *p != '\0')) {
1191                 fprintf(stderr, "Bad src port for '-%c'\n", c);
1192                 usage();
1193             }
1194             if (*p == '\0') {
1195                 fprintf(stderr, "No dest port specified for '-%c'\n", c);
1196                 usage();
1197             }
1198             p++;
1199             optarg = p;
1200             hdr_sctp_dest = strtol(optarg, &p, 10);
1201             if (p == optarg || (*p != ',' && *p != '\0')) {
1202                 fprintf(stderr, "Bad dest port for '-s'\n");
1203                 usage();
1204             }
1205             if (*p == '\0') {
1206                 fprintf(stderr, "No tag specified for '-%c'\n", c);
1207                 usage();
1208             }
1209             p++;
1210             optarg = p;
1211             hdr_sctp_tag = strtol(optarg, &p, 10);
1212             if (p == optarg || *p != '\0') {
1213                 fprintf(stderr, "Bad tag for '-%c'\n", c);
1214                 usage();
1215             }
1216
1217             hdr_ip = TRUE;
1218             hdr_ip_proto = 132;
1219             hdr_ethernet = TRUE;
1220             hdr_ethernet_proto = 0x800;
1221             break;
1222         case 'S':
1223             hdr_sctp       = TRUE;
1224             hdr_data_chunk = TRUE;
1225             hdr_sctp_src   = strtol(optarg, &p, 10);
1226             if (p == optarg || (*p != ',' && *p != '\0')) {
1227                 fprintf(stderr, "Bad src port for '-%c'\n", c);
1228                 usage();
1229             }
1230             if (*p == '\0') {
1231                 fprintf(stderr, "No dest port specified for '-%c'\n", c);
1232                 usage();
1233             }
1234             p++;
1235             optarg = p;
1236             hdr_sctp_dest = strtol(optarg, &p, 10);
1237             if (p == optarg || (*p != ',' && *p != '\0')) {
1238                 fprintf(stderr, "Bad dest port for '-s'\n");
1239                 usage();
1240             }
1241             if (*p == '\0') {
1242                 fprintf(stderr, "No ppi specified for '-%c'\n", c);
1243                 usage();
1244             }
1245             p++;
1246             optarg = p;
1247             hdr_data_chunk_ppid = strtoul(optarg, &p, 10);
1248             if (p == optarg || *p != '\0') {
1249                 fprintf(stderr, "Bad ppi for '-%c'\n", c);
1250                 usage();
1251             }
1252
1253             hdr_ip = TRUE;
1254             hdr_ip_proto = 132;
1255             hdr_ethernet = TRUE;
1256             hdr_ethernet_proto = 0x800;
1257             break;
1258
1259         case 't':
1260             ts_fmt = optarg;
1261             break;
1262
1263         case 'u':
1264             hdr_udp = TRUE;
1265             hdr_tcp = FALSE;
1266             hdr_src_port = strtol(optarg, &p, 10);
1267             if (p == optarg || (*p != ',' && *p != '\0')) {
1268                 fprintf(stderr, "Bad src port for '-u'\n");
1269                 usage();
1270             }
1271             if (*p == '\0') {
1272                 fprintf(stderr, "No dest port specified for '-u'\n");
1273                 usage();
1274             }
1275             p++;
1276             optarg = p;
1277             hdr_dest_port = strtol(optarg, &p, 10);
1278             if (p == optarg || *p != '\0') {
1279                 fprintf(stderr, "Bad dest port for '-u'\n");
1280                 usage();
1281             }
1282             hdr_ip = TRUE;
1283             hdr_ip_proto = 17;
1284             hdr_ethernet = TRUE;
1285             hdr_ethernet_proto = 0x800;
1286             break;
1287
1288         case 'T':
1289             hdr_tcp = TRUE;
1290             hdr_udp = FALSE;
1291             hdr_src_port = strtol(optarg, &p, 10);
1292             if (p == optarg || (*p != ',' && *p != '\0')) {
1293                 fprintf(stderr, "Bad src port for '-T'\n");
1294                 usage();
1295             }
1296             if (*p == '\0') {
1297                 fprintf(stderr, "No dest port specified for '-u'\n");
1298                 usage();
1299             }
1300             p++;
1301             optarg = p;
1302             hdr_dest_port = strtol(optarg, &p, 10);
1303             if (p == optarg || *p != '\0') {
1304                 fprintf(stderr, "Bad dest port for '-T'\n");
1305                 usage();
1306             }
1307             hdr_ip = TRUE;
1308             hdr_ip_proto = 6;
1309             hdr_ethernet = TRUE;
1310             hdr_ethernet_proto = 0x800;
1311             break;
1312
1313         default:
1314             usage();
1315         }
1316     }
1317
1318     if (optind >= argc || argc-optind < 2) {
1319         fprintf(stderr, "Must specify input and output filename\n");
1320         usage();
1321     }
1322
1323     if (strcmp(argv[optind], "-")) {
1324         input_filename = g_strdup(argv[optind]);
1325         input_file = ws_fopen(input_filename, "rb");
1326         if (!input_file) {
1327             fprintf(stderr, "Cannot open file [%s] for reading: %s\n",
1328                     input_filename, strerror(errno));
1329             exit(-1);
1330         }
1331     } else {
1332         input_filename = "Standard input";
1333         input_file = stdin;
1334     }
1335
1336     if (strcmp(argv[optind+1], "-")) {
1337         output_filename = g_strdup(argv[optind+1]);
1338         output_file = ws_fopen(output_filename, "wb");
1339         if (!output_file) {
1340             fprintf(stderr, "Cannot open file [%s] for writing: %s\n",
1341                     output_filename, strerror(errno));
1342             exit(-1);
1343         }
1344     } else {
1345         output_filename = "Standard output";
1346         output_file = stdout;
1347     }
1348
1349     /* Some validation */
1350     if (pcap_link_type != 1 && hdr_ethernet) {
1351         fprintf(stderr, "Dummy headers (-e, -i, -u, -s, -S -T) cannot be specified with link type override (-l)\n");
1352         exit(-1);
1353     }
1354
1355     /* Set up our variables */
1356     if (!input_file) {
1357         input_file = stdin;
1358         input_filename = "Standard input";
1359     }
1360     if (!output_file) {
1361         output_file = stdout;
1362         output_filename = "Standard output";
1363     }
1364
1365     ts_sec = time(0);           /* initialize to current time */
1366     timecode_default = *localtime(&ts_sec);
1367     timecode_default.tm_isdst = -1;     /* Unknown for now, depends on time given to the strptime() function */
1368
1369     /* Display summary of our state */
1370     if (!quiet) {
1371         fprintf(stderr, "Input from: %s\n", input_filename);
1372         fprintf(stderr, "Output to: %s\n", output_filename);
1373
1374         if (hdr_ethernet) fprintf(stderr, "Generate dummy Ethernet header: Protocol: 0x%0lX\n",
1375                                   hdr_ethernet_proto);
1376         if (hdr_ip) fprintf(stderr, "Generate dummy IP header: Protocol: %ld\n",
1377                             hdr_ip_proto);
1378         if (hdr_udp) fprintf(stderr, "Generate dummy UDP header: Source port: %ld. Dest port: %ld\n",
1379                              hdr_src_port, hdr_dest_port);
1380         if (hdr_tcp) fprintf(stderr, "Generate dummy TCP header: Source port: %ld. Dest port: %ld\n",
1381                              hdr_src_port, hdr_dest_port);
1382         if (hdr_sctp) fprintf(stderr, "Generate dummy SCTP header: Source port: %ld. Dest port: %ld. Tag: %ld\n",
1383                               hdr_sctp_src, hdr_sctp_dest, hdr_sctp_tag);
1384         if (hdr_data_chunk) fprintf(stderr, "Generate dummy DATA chunk header: TSN: %lu. SID: %d. SSN: %d. PPID: %lu\n",
1385                                     hdr_data_chunk_tsn, hdr_data_chunk_sid, hdr_data_chunk_ssn, hdr_data_chunk_ppid);
1386     }
1387 }
1388
1389 int
1390 main(int argc, char *argv[])
1391 {
1392     parse_options(argc, argv);
1393
1394     assert(input_file != NULL);
1395     assert(output_file != NULL);
1396
1397     write_file_header();
1398
1399     yyin = input_file;
1400     yylex();
1401
1402     write_current_packet();
1403     if (debug)
1404         fprintf(stderr, "\n-------------------------\n");
1405     if (!quiet) {
1406     fprintf(stderr, "Read %ld potential packet%s, wrote %ld packet%s\n",
1407             num_packets_read,    (num_packets_read==1)   ?"":"s",
1408             num_packets_written, (num_packets_written==1)?"":"s");
1409     }
1410     return 0;
1411 }