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  * Wireshark - Network traffic analyzer
  10  * By Gerald Combs <gerald@wireshark.org>
  11  * Copyright 1998 Gerald Combs
  12  *
  13  * This program is free software; you can redistribute it and/or
  14  * modify it under the terms of the GNU General Public License
  15  * as published by the Free Software Foundation; either version 2
  16  * of the License, or (at your option) any later version.
  17  *
  18  * This program is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU General Public License for more details.
  22  *
  23  * You should have received a copy of the GNU General Public License
  24  * along with this program; if not, write to the Free Software
  25  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  26  *
  27  *******************************************************************************/
  28
  29 /*******************************************************************************
  30  *
  31  * This utility reads in an ASCII hexdump of this common format:
  32  *
  33  * 00000000  00 E0 1E A7 05 6F 00 10 5A A0 B9 12 08 00 46 00 .....o..Z.....F.
  34  * 00000010  03 68 00 00 00 00 0A 2E EE 33 0F 19 08 7F 0F 19 .h.......3...\7f..
  35  * 00000020  03 80 94 04 00 00 10 01 16 A2 0A 00 03 50 00 0C .............P..
  36  * 00000030  01 01 0F 19 03 80 11 01 1E 61 00 0C 03 01 0F 19 .........a......
  37  *
  38  * Each bytestring line consists of an offset, one or more bytes, and
  39  * text at the end. An offset is defined as a hex string of more than
  40  * two characters. A byte is defined as a hex string of exactly two
  41  * characters. The text at the end is ignored, as is any text before
  42  * the offset. Bytes read from a bytestring line are added to the
  43  * current packet only if all the following conditions are satisfied:
  44  *
  45  * - No text appears between the offset and the bytes (any bytes appearing after
  46  *   such text would be ignored)
  47  *
  48  * - The offset must be arithmetically correct, i.e. if the offset is 00000020, then
  49  *   exactly 32 bytes must have been read into this packet before this. If the offset
  50  *   is wrong, the packet is immediately terminated
  51  *
  52  * A packet start is signaled by a zero offset.
  53  *
  54  * Lines starting with #TEXT2PCAP are directives. These allow the user
  55  * to embed instructions into the capture file which allows text2pcap
  56  * to take some actions (e.g. specifying the encapsulation
  57  * etc.). Currently no directives are implemented.
  58  *
  59  * Lines beginning with # which are not directives are ignored as
  60  * comments. Currently all non-hexdump text is ignored by text2pcap;
  61  * in the future, text processing may be added, but lines prefixed
  62  * with '#' will still be ignored.
  63  *
  64  * The output is a libpcap packet containing Ethernet frames by
  65  * default. This program takes options which allow the user to add
  66  * dummy Ethernet, IP and UDP or TCP headers to the packets in order
  67  * to allow dumps of L3 or higher protocols to be decoded.
  68  *
  69  * Considerable flexibility is built into this code to read hexdumps
  70  * of slightly different formats. For example, any text prefixing the
  71  * hexdump line is dropped (including mail forwarding '>'). The offset
  72  * can be any hex number of four digits or greater.
  73  *
  74  * This converter cannot read a single packet greater than 64KiB-1. Packet
  75  * snaplength is automatically set to 64KiB-1.
  76  */
  77
  78 #include <config.h>
  79
  80 /*
  81  * Just make sure we include the prototype for strptime as well
  82  * (needed for glibc 2.2) but make sure we do this only if not
  83  * yet defined.
  84  */
  85 #ifndef __USE_XOPEN
  86 #  define __USE_XOPEN
  87 #endif
  88 #ifndef _XOPEN_SOURCE
  89 #  ifndef __sun
  90 #    define _XOPEN_SOURCE 600
  91 #  endif
  92 #endif
  93
  94 /*
  95  * Defining _XOPEN_SOURCE is needed on some platforms, e.g. platforms
  96  * using glibc, to expand the set of things system header files define.
  97  *
  98  * Unfortunately, on other platforms, such as some versions of Solaris
  99  * (including Solaris 10), it *reduces* that set as well, causing
 100  * strptime() not to be declared, presumably because the version of the
 101  * X/Open spec that _XOPEN_SOURCE implies doesn't include strptime() and
 102  * blah blah blah namespace pollution blah blah blah.
 103  *
 104  * So we define __EXTENSIONS__ so that "strptime()" is declared.
 105  */
 106 #ifndef __EXTENSIONS__
 107 #  define __EXTENSIONS__
 108 #endif
 109
 110 #include <stdio.h>
 111 #include <stdlib.h>
 112 #include <string.h>
 113 #include <wsutil/file_util.h>
 114 #include <wsutil/crash_info.h>
 115 #include <wsutil/ws_diag_control.h>
 116 #include <wsutil/ws_version_info.h>
 117
 118 #include <time.h>
 119 #include <glib.h>
 120
 121 #ifdef HAVE_GETOPT_H
 122 #include <getopt.h>
 123 #endif
 124
 125 #include <errno.h>
 126 #include <assert.h>
 127
 128 #ifdef HAVE_LIBZ
 129 #include <zlib.h>      /* to get the libz version number */
 130 #endif
 131
 132 #ifndef HAVE_GETOPT_LONG
 133 #include "wsutil/wsgetopt.h"
 134 #endif
 135
 136 #ifndef HAVE_STRPTIME
 137 # include "wsutil/strptime.h"
 138 #endif
 139
 140 #include "pcapio.h"
 141 #include "text2pcap.h"
 142
 143 #ifdef _WIN32
 144 #include <wsutil/unicode-utils.h>
 145 #endif /* _WIN32 */
 146
 147 #ifdef HAVE_ARPA_INET_H
 148 #include <arpa/inet.h>
 149 #endif
 150
 151 #ifdef HAVE_WINSOCK2_H
 152 #include <winsock2.h>       /* needed to define AF_ values on Windows */
 153 #endif
 154
 155 #ifndef HAVE_INET_ATON
 156 # include "wsutil/inet_aton.h"
 157 #endif
 158
 159 #ifdef HAVE_SYS_SOCKET_H
 160 #include <sys/socket.h>
 161 #endif
 162
 163 #ifdef NEED_INET_V6DEFS_H
 164 # include "wsutil/inet_v6defs.h"
 165 #endif
 166
 167 /*--- Options --------------------------------------------------------------------*/
 168
 169 /* File format */
 170 static gboolean use_pcapng = FALSE;
 171
 172 /* Debug level */
 173 static int debug = 0;
 174 /* Be quiet */
 175 static int quiet = FALSE;
 176
 177 /* Dummy Ethernet header */
 178 static int hdr_ethernet = FALSE;
 179 static guint32 hdr_ethernet_proto = 0;
 180
 181 /* Dummy IP header */
 182 static int hdr_ip = FALSE;
 183 static int hdr_ipv6 = FALSE;
 184 static long hdr_ip_proto = 0;
 185
 186 /* Destination and source addresses for IP header */
 187 static guint32 hdr_ip_dest_addr = 0;
 188 static guint32 hdr_ip_src_addr = 0;
 189 static guint8 hdr_ipv6_dest_addr[16] = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
 190 static guint8 hdr_ipv6_src_addr[16]  = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
 191 static guint8 NO_IPv6_ADDRESS[16]    = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
 192
 193 /* Dummy UDP header */
 194 static int     hdr_udp       = FALSE;
 195 static guint32 hdr_dest_port = 0;
 196 static guint32 hdr_src_port  = 0;
 197
 198 /* Dummy TCP header */
 199 static int hdr_tcp = FALSE;
 200
 201 /* TCP sequence numbers when has_direction is true */
 202 static guint32 tcp_in_seq_num = 0;
 203 static guint32 tcp_out_seq_num = 0;
 204
 205 /* Dummy SCTP header */
 206 static int hdr_sctp = FALSE;
 207 static guint32 hdr_sctp_src  = 0;
 208 static guint32 hdr_sctp_dest = 0;
 209 static guint32 hdr_sctp_tag  = 0;
 210
 211 /* Dummy DATA chunk header */
 212 static int hdr_data_chunk = FALSE;
 213 static guint8  hdr_data_chunk_type = 0;
 214 static guint8  hdr_data_chunk_bits = 0;
 215 static guint32 hdr_data_chunk_tsn  = 0;
 216 static guint16 hdr_data_chunk_sid  = 0;
 217 static guint16 hdr_data_chunk_ssn  = 0;
 218 static guint32 hdr_data_chunk_ppid = 0;
 219
 220 /* ASCII text dump identification */
 221 static int identify_ascii = FALSE;
 222
 223 static gboolean has_direction = FALSE;
 224 static guint32 direction = 0;
 225
 226 /*--- Local date -----------------------------------------------------------------*/
 227
 228 /* This is where we store the packet currently being built */
 229 #define MAX_PACKET 65535
 230 static guint8  packet_buf[MAX_PACKET];
 231 static guint32 header_length;
 232 static guint32 ip_offset;
 233 static guint32 curr_offset;
 234 static guint32 max_offset = MAX_PACKET;
 235 static guint32 packet_start = 0;
 236
 237 static void start_new_packet(gboolean);
 238
 239 /* This buffer contains strings present before the packet offset 0 */
 240 #define PACKET_PREAMBLE_MAX_LEN     2048
 241 static guint8 packet_preamble[PACKET_PREAMBLE_MAX_LEN+1];
 242 static int    packet_preamble_len = 0;
 243
 244 /* Number of packets read and written */
 245 static guint32 num_packets_read    = 0;
 246 static guint32 num_packets_written = 0;
 247 static guint64 bytes_written       = 0;
 248
 249 /* Time code of packet, derived from packet_preamble */
 250 static time_t   ts_sec  = 0;
 251 static guint32  ts_nsec = 0;
 252 static char    *ts_fmt  = NULL;
 253 static struct tm timecode_default;
 254
 255 static guint8* pkt_lnstart;
 256
 257 /* Input file */
 258 static const char *input_filename;
 259 static FILE       *input_file  = NULL;
 260 /* Output file */
 261 static const char *output_filename;
 262 static FILE       *output_file = NULL;
 263
 264 /* Offset base to parse */
 265 static guint32 offset_base = 16;
 266
 267 extern FILE *yyin;
 268
 269 /* ----- State machine -----------------------------------------------------------*/
 270
 271 /* Current state of parser */
 272 typedef enum {
 273     INIT,             /* Waiting for start of new packet */
 274     START_OF_LINE,    /* Starting from beginning of line */
 275     READ_OFFSET,      /* Just read the offset */
 276     READ_BYTE,        /* Just read a byte */
 277     READ_TEXT         /* Just read text - ignore until EOL */
 278 } parser_state_t;
 279 static parser_state_t state = INIT;
 280
 281 static const char *state_str[] = {"Init",
 282                            "Start-of-line",
 283                            "Offset",
 284                            "Byte",
 285                            "Text"
 286 };
 287
 288 static const char *token_str[] = {"",
 289                            "Byte",
 290                            "Offset",
 291                            "Directive",
 292                            "Text",
 293                            "End-of-line"
 294 };
 295
 296 /* ----- Skeleton Packet Headers --------------------------------------------------*/
 297
 298 typedef struct {
 299     guint8  dest_addr[6];
 300     guint8  src_addr[6];
 301     guint16 l3pid;
 302 } hdr_ethernet_t;
 303
 304 static hdr_ethernet_t HDR_ETHERNET = {
 305     {0x0a, 0x02, 0x02, 0x02, 0x02, 0x02},
 306     {0x0a, 0x01, 0x01, 0x01, 0x01, 0x01},
 307     0};
 308
 309 typedef struct {
 310     guint8  ver_hdrlen;
 311     guint8  dscp;
 312     guint16 packet_length;
 313     guint16 identification;
 314     guint8  flags;
 315     guint8  fragment;
 316     guint8  ttl;
 317     guint8  protocol;
 318     guint16 hdr_checksum;
 319     guint32 src_addr;
 320     guint32 dest_addr;
 321 } hdr_ip_t;
 322
 323 static hdr_ip_t HDR_IP = {0x45, 0, 0, 0x3412, 0, 0, 0xff, 0, 0,
 324 #ifdef WORDS_BIGENDIAN
 325 0x0a010101, 0x0a020202
 326 #else
 327 0x0101010a, 0x0202020a
 328 #endif
 329 };
 330
 331 /* Fixed IP address values */
 332 #ifdef WORDS_BIGENDIAN
 333 #define IP_SRC 0x0a010101
 334 #define IP_DST 0x0a020202
 335 #else
 336 #define IP_SRC 0x0101010a
 337 #define IP_DST 0x0202020a
 338 #endif
 339
 340 static struct {         /* pseudo header for checksum calculation */
 341     guint32 src_addr;
 342     guint32 dest_addr;
 343     guint8  zero;
 344     guint8  protocol;
 345     guint16 length;
 346 } pseudoh;
 347
 348
 349 /* headers taken from glibc */
 350
 351 /* IPv6 address */
 352 struct hdr_in6_addr
 353 {
 354     union
 355     {
 356        guint8  __u6_addr8[16];
 357        guint16 __u6_addr16[8];
 358        guint32 __u6_addr32[4];
 359     } __in6_u;
 360 };
 361
 362 typedef struct {
 363     union  {
 364         struct ip6_hdrctl {
 365             guint32 ip6_un1_flow;   /* 24 bits of flow-ID */
 366             guint16 ip6_un1_plen;   /* payload length */
 367             guint8  ip6_un1_nxt;    /* next header */
 368             guint8  ip6_un1_hlim;   /* hop limit */
 369         } ip6_un1;
 370         guint8 ip6_un2_vfc;       /* 4 bits version, 4 bits priority */
 371     } ip6_ctlun;
 372     struct hdr_in6_addr ip6_src;      /* source address */
 373     struct hdr_in6_addr ip6_dst;      /* destination address */
 374 } hdr_ipv6_t;
 375
 376 static hdr_ipv6_t HDR_IPv6;
 377
 378 static struct {                 /* pseudo header ipv6 for checksum calculation */
 379     struct  hdr_in6_addr src_addr6;
 380     struct  hdr_in6_addr dst_addr6;
 381     guint32 protocol;
 382     guint32 zero;
 383 } pseudoh6;
 384
 385
 386 typedef struct {
 387     guint16 source_port;
 388     guint16 dest_port;
 389     guint16 length;
 390     guint16 checksum;
 391 } hdr_udp_t;
 392
 393 static hdr_udp_t HDR_UDP = {0, 0, 0, 0};
 394
 395 typedef struct {
 396     guint16 source_port;
 397     guint16 dest_port;
 398     guint32 seq_num;
 399     guint32 ack_num;
 400     guint8  hdr_length;
 401     guint8  flags;
 402     guint16 window;
 403     guint16 checksum;
 404     guint16 urg;
 405 } hdr_tcp_t;
 406
 407 static hdr_tcp_t HDR_TCP = {0, 0, 0, 0, 0x50, 0, 0, 0, 0};
 408
 409 typedef struct {
 410     guint16 src_port;
 411     guint16 dest_port;
 412     guint32 tag;
 413     guint32 checksum;
 414 } hdr_sctp_t;
 415
 416 static hdr_sctp_t HDR_SCTP = {0, 0, 0, 0};
 417
 418 typedef struct {
 419     guint8  type;
 420     guint8  bits;
 421     guint16 length;
 422     guint32 tsn;
 423     guint16 sid;
 424     guint16 ssn;
 425     guint32 ppid;
 426 } hdr_data_chunk_t;
 427
 428 static hdr_data_chunk_t HDR_DATA_CHUNK = {0, 0, 0, 0, 0, 0, 0};
 429
 430 static char tempbuf[64];
 431
 432 /*----------------------------------------------------------------------
 433  * Stuff for writing a PCap file
 434  */
 435 #define PCAP_SNAPLEN        0xffff
 436
 437 /* Link-layer type; see http://www.tcpdump.org/linktypes.html for details */
 438 static guint32 pcap_link_type = 1;   /* Default is LINKTYPE_ETHERNET */
 439
 440 /*----------------------------------------------------------------------
 441  * Parse a single hex number
 442  * Will abort the program if it can't parse the number
 443  * Pass in TRUE if this is an offset, FALSE if not
 444  */
 445 static guint32
 446 parse_num (const char *str, int offset)
 447 {
 448     guint32  num;
 449     char    *c;
 450
 451     if (str == NULL) {
 452         fprintf(stderr, "FATAL ERROR: str is NULL\n");
 453         exit(1);
 454     }
 455
 456     num = (guint32)strtoul(str, &c, offset ? offset_base : 16);
 457     if (c == str) {
 458         fprintf(stderr, "FATAL ERROR: Bad hex number? [%s]\n", str);
 459         exit(1);
 460     }
 461     return num;
 462 }
 463
 464 /*----------------------------------------------------------------------
 465  * Write this byte into current packet
 466  */
 467 static void
 468 write_byte (const char *str)
 469 {
 470     guint32 num;
 471
 472     num = parse_num(str, FALSE);
 473     packet_buf[curr_offset] = (guint8) num;
 474     curr_offset++;
 475     if (curr_offset - header_length >= max_offset) /* packet full */
 476         start_new_packet(TRUE);
 477 }
 478
 479 /*----------------------------------------------------------------------
 480  * Write a number of bytes into current packet
 481  */
 482
 483 static void
 484 write_bytes (const char bytes[], guint32 nbytes)
 485 {
 486     guint32 i;
 487
 488     if (curr_offset + nbytes < MAX_PACKET) {
 489         for (i = 0; i < nbytes; i++) {
 490             packet_buf[curr_offset] = bytes[i];
 491             curr_offset++;
 492         }
 493     }
 494 }
 495
 496 /*----------------------------------------------------------------------
 497  * Remove bytes from the current packet
 498  */
 499 static void
 500 unwrite_bytes (guint32 nbytes)
 501 {
 502     curr_offset -= nbytes;
 503 }
 504
 505 /*----------------------------------------------------------------------
 506  * Compute one's complement checksum (from RFC1071)
 507  */
 508 static guint16
 509 in_checksum (void *buf, guint32 count)
 510 {
 511     guint32 sum = 0;
 512     guint16 *addr = (guint16 *)buf;
 513
 514     while (count > 1) {
 515         /*  This is the inner loop */
 516         sum += g_ntohs(* (guint16 *) addr);
 517         addr++;
 518         count -= 2;
 519     }
 520
 521     /*  Add left-over byte, if any */
 522     if (count > 0)
 523         sum += g_ntohs(* (guint8 *) addr);
 524
 525     /*  Fold 32-bit sum to 16 bits */
 526     while (sum>>16)
 527         sum = (sum & 0xffff) + (sum >> 16);
 528
 529     sum = ~sum;
 530     return g_htons(sum);
 531 }
 532
 533 /* The CRC32C code is taken from draft-ietf-tsvwg-sctpcsum-01.txt.
 534  * That code is copyrighted by D. Otis and has been modified.
 535  */
 536
 537 #define CRC32C(c,d) (c=(c>>8)^crc_c[(c^(d))&0xFF])
 538 static guint32 crc_c[256] =
 539 {
 540 0x00000000U, 0xF26B8303U, 0xE13B70F7U, 0x1350F3F4U,
 541 0xC79A971FU, 0x35F1141CU, 0x26A1E7E8U, 0xD4CA64EBU,
 542 0x8AD958CFU, 0x78B2DBCCU, 0x6BE22838U, 0x9989AB3BU,
 543 0x4D43CFD0U, 0xBF284CD3U, 0xAC78BF27U, 0x5E133C24U,
 544 0x105EC76FU, 0xE235446CU, 0xF165B798U, 0x030E349BU,
 545 0xD7C45070U, 0x25AFD373U, 0x36FF2087U, 0xC494A384U,
 546 0x9A879FA0U, 0x68EC1CA3U, 0x7BBCEF57U, 0x89D76C54U,
 547 0x5D1D08BFU, 0xAF768BBCU, 0xBC267848U, 0x4E4DFB4BU,
 548 0x20BD8EDEU, 0xD2D60DDDU, 0xC186FE29U, 0x33ED7D2AU,
 549 0xE72719C1U, 0x154C9AC2U, 0x061C6936U, 0xF477EA35U,
 550 0xAA64D611U, 0x580F5512U, 0x4B5FA6E6U, 0xB93425E5U,
 551 0x6DFE410EU, 0x9F95C20DU, 0x8CC531F9U, 0x7EAEB2FAU,
 552 0x30E349B1U, 0xC288CAB2U, 0xD1D83946U, 0x23B3BA45U,
 553 0xF779DEAEU, 0x05125DADU, 0x1642AE59U, 0xE4292D5AU,
 554 0xBA3A117EU, 0x4851927DU, 0x5B016189U, 0xA96AE28AU,
 555 0x7DA08661U, 0x8FCB0562U, 0x9C9BF696U, 0x6EF07595U,
 556 0x417B1DBCU, 0xB3109EBFU, 0xA0406D4BU, 0x522BEE48U,
 557 0x86E18AA3U, 0x748A09A0U, 0x67DAFA54U, 0x95B17957U,
 558 0xCBA24573U, 0x39C9C670U, 0x2A993584U, 0xD8F2B687U,
 559 0x0C38D26CU, 0xFE53516FU, 0xED03A29BU, 0x1F682198U,
 560 0x5125DAD3U, 0xA34E59D0U, 0xB01EAA24U, 0x42752927U,
 561 0x96BF4DCCU, 0x64D4CECFU, 0x77843D3BU, 0x85EFBE38U,
 562 0xDBFC821CU, 0x2997011FU, 0x3AC7F2EBU, 0xC8AC71E8U,
 563 0x1C661503U, 0xEE0D9600U, 0xFD5D65F4U, 0x0F36E6F7U,
 564 0x61C69362U, 0x93AD1061U, 0x80FDE395U, 0x72966096U,
 565 0xA65C047DU, 0x5437877EU, 0x4767748AU, 0xB50CF789U,
 566 0xEB1FCBADU, 0x197448AEU, 0x0A24BB5AU, 0xF84F3859U,
 567 0x2C855CB2U, 0xDEEEDFB1U, 0xCDBE2C45U, 0x3FD5AF46U,
 568 0x7198540DU, 0x83F3D70EU, 0x90A324FAU, 0x62C8A7F9U,
 569 0xB602C312U, 0x44694011U, 0x5739B3E5U, 0xA55230E6U,
 570 0xFB410CC2U, 0x092A8FC1U, 0x1A7A7C35U, 0xE811FF36U,
 571 0x3CDB9BDDU, 0xCEB018DEU, 0xDDE0EB2AU, 0x2F8B6829U,
 572 0x82F63B78U, 0x709DB87BU, 0x63CD4B8FU, 0x91A6C88CU,
 573 0x456CAC67U, 0xB7072F64U, 0xA457DC90U, 0x563C5F93U,
 574 0x082F63B7U, 0xFA44E0B4U, 0xE9141340U, 0x1B7F9043U,
 575 0xCFB5F4A8U, 0x3DDE77ABU, 0x2E8E845FU, 0xDCE5075CU,
 576 0x92A8FC17U, 0x60C37F14U, 0x73938CE0U, 0x81F80FE3U,
 577 0x55326B08U, 0xA759E80BU, 0xB4091BFFU, 0x466298FCU,
 578 0x1871A4D8U, 0xEA1A27DBU, 0xF94AD42FU, 0x0B21572CU,
 579 0xDFEB33C7U, 0x2D80B0C4U, 0x3ED04330U, 0xCCBBC033U,
 580 0xA24BB5A6U, 0x502036A5U, 0x4370C551U, 0xB11B4652U,
 581 0x65D122B9U, 0x97BAA1BAU, 0x84EA524EU, 0x7681D14DU,
 582 0x2892ED69U, 0xDAF96E6AU, 0xC9A99D9EU, 0x3BC21E9DU,
 583 0xEF087A76U, 0x1D63F975U, 0x0E330A81U, 0xFC588982U,
 584 0xB21572C9U, 0x407EF1CAU, 0x532E023EU, 0xA145813DU,
 585 0x758FE5D6U, 0x87E466D5U, 0x94B49521U, 0x66DF1622U,
 586 0x38CC2A06U, 0xCAA7A905U, 0xD9F75AF1U, 0x2B9CD9F2U,
 587 0xFF56BD19U, 0x0D3D3E1AU, 0x1E6DCDEEU, 0xEC064EEDU,
 588 0xC38D26C4U, 0x31E6A5C7U, 0x22B65633U, 0xD0DDD530U,
 589 0x0417B1DBU, 0xF67C32D8U, 0xE52CC12CU, 0x1747422FU,
 590 0x49547E0BU, 0xBB3FFD08U, 0xA86F0EFCU, 0x5A048DFFU,
 591 0x8ECEE914U, 0x7CA56A17U, 0x6FF599E3U, 0x9D9E1AE0U,
 592 0xD3D3E1ABU, 0x21B862A8U, 0x32E8915CU, 0xC083125FU,
 593 0x144976B4U, 0xE622F5B7U, 0xF5720643U, 0x07198540U,
 594 0x590AB964U, 0xAB613A67U, 0xB831C993U, 0x4A5A4A90U,
 595 0x9E902E7BU, 0x6CFBAD78U, 0x7FAB5E8CU, 0x8DC0DD8FU,
 596 0xE330A81AU, 0x115B2B19U, 0x020BD8EDU, 0xF0605BEEU,
 597 0x24AA3F05U, 0xD6C1BC06U, 0xC5914FF2U, 0x37FACCF1U,
 598 0x69E9F0D5U, 0x9B8273D6U, 0x88D28022U, 0x7AB90321U,
 599 0xAE7367CAU, 0x5C18E4C9U, 0x4F48173DU, 0xBD23943EU,
 600 0xF36E6F75U, 0x0105EC76U, 0x12551F82U, 0xE03E9C81U,
 601 0x34F4F86AU, 0xC69F7B69U, 0xD5CF889DU, 0x27A40B9EU,
 602 0x79B737BAU, 0x8BDCB4B9U, 0x988C474DU, 0x6AE7C44EU,
 603 0xBE2DA0A5U, 0x4C4623A6U, 0x5F16D052U, 0xAD7D5351U,
 604 };
 605
 606 static guint32
 607 crc32c (const guint8* buf, unsigned int len, guint32 crc32_init)
 608 {
 609     unsigned int i;
 610     guint32 crc;
 611
 612     crc = crc32_init;
 613     for (i = 0; i < len; i++)
 614         CRC32C(crc, buf[i]);
 615
 616     return crc;
 617 }
 618
 619 static guint32
 620 finalize_crc32c (guint32 crc)
 621 {
 622     guint32 result;
 623     guint8 byte0,byte1,byte2,byte3;
 624
 625     result = ~crc;
 626     byte0 = result & 0xff;
 627     byte1 = (result>>8) & 0xff;
 628     byte2 = (result>>16) & 0xff;
 629     byte3 = (result>>24) & 0xff;
 630     result = ((byte0 << 24) | (byte1 << 16) | (byte2 << 8) | byte3);
 631     return result;
 632 }
 633
 634 static guint16
 635 number_of_padding_bytes (guint32 length)
 636 {
 637     guint16 remainder;
 638
 639     remainder = length % 4;
 640
 641     if (remainder == 0)
 642         return 0;
 643     else
 644         return 4 - remainder;
 645 }
 646
 647 /*----------------------------------------------------------------------
 648  * Write current packet out
 649  */
 650 static void
 651 write_current_packet (gboolean cont)
 652 {
 653     guint32  length         = 0;
 654     guint16  padding_length = 0;
 655     int      err;
 656     guint16  ihatemacros;
 657     gboolean success;
 658
 659     if (curr_offset > header_length) {
 660         /* Write the packet */
 661
 662         /* Is direction indication on with an inbound packet? */
 663         gboolean isInbound = has_direction && (direction == 2);
 664
 665         /* if defined IPv6 we should rewrite hdr_ethernet_proto anyways */
 666         if (hdr_ipv6) {
 667             hdr_ethernet_proto = 0x86DD;
 668             hdr_ip = FALSE;
 669         }
 670
 671         /* Compute packet length */
 672         length = curr_offset;
 673         if (hdr_sctp) {
 674             padding_length = number_of_padding_bytes(length - header_length );
 675         } else {
 676             padding_length = 0;
 677         }
 678         /* Reset curr_offset, since we now write the headers */
 679         curr_offset = 0;
 680
 681         /* Write Ethernet header */
 682         if (hdr_ethernet) {
 683             HDR_ETHERNET.l3pid = g_htons(hdr_ethernet_proto);
 684             write_bytes((const char *)&HDR_ETHERNET, sizeof(HDR_ETHERNET));
 685         }
 686
 687         /* Write IP header */
 688         if (hdr_ip) {
 689             if (isInbound) {
 690                 HDR_IP.src_addr = hdr_ip_dest_addr ? hdr_ip_dest_addr : IP_DST;
 691                 HDR_IP.dest_addr = hdr_ip_src_addr? hdr_ip_src_addr : IP_SRC;
 692             }
 693             else {
 694                 HDR_IP.src_addr = hdr_ip_src_addr? hdr_ip_src_addr : IP_SRC;
 695                 HDR_IP.dest_addr = hdr_ip_dest_addr ? hdr_ip_dest_addr : IP_DST;
 696             }
 697
 698             HDR_IP.packet_length = g_htons(length - ip_offset + padding_length);
 699             HDR_IP.protocol = (guint8) hdr_ip_proto;
 700             HDR_IP.hdr_checksum = 0;
 701             HDR_IP.hdr_checksum = in_checksum(&HDR_IP, sizeof(HDR_IP));
 702             write_bytes((const char *)&HDR_IP, sizeof(HDR_IP));
 703         } else if (hdr_ipv6) {
 704             if (memcmp(isInbound ? hdr_ipv6_dest_addr : hdr_ipv6_src_addr, NO_IPv6_ADDRESS, sizeof(struct hdr_in6_addr)))
 705                 memcpy(&HDR_IPv6.ip6_src, isInbound ? &hdr_ipv6_dest_addr : &hdr_ipv6_src_addr, sizeof(struct hdr_in6_addr));
 706             if (memcmp(isInbound ? hdr_ipv6_src_addr : hdr_ipv6_dest_addr, NO_IPv6_ADDRESS, sizeof(struct hdr_in6_addr)))
 707                 memcpy(&HDR_IPv6.ip6_dst, isInbound ? &hdr_ipv6_src_addr : &hdr_ipv6_dest_addr, sizeof(struct hdr_in6_addr));
 708
 709             HDR_IPv6.ip6_ctlun.ip6_un2_vfc &= 0x0F;
 710             HDR_IPv6.ip6_ctlun.ip6_un2_vfc |= (6<< 4);
 711             HDR_IPv6.ip6_ctlun.ip6_un1.ip6_un1_plen = g_htons(length - ip_offset + padding_length);
 712             HDR_IPv6.ip6_ctlun.ip6_un1.ip6_un1_nxt  = (guint8) hdr_ip_proto;
 713             HDR_IPv6.ip6_ctlun.ip6_un1.ip6_un1_hlim = 32;
 714             write_bytes((const char *)&HDR_IPv6, sizeof(HDR_IPv6));
 715
 716             /* initialize pseudo ipv6 header for checksum calculation */
 717             pseudoh6.src_addr6  = HDR_IPv6.ip6_src;
 718             pseudoh6.dst_addr6  = HDR_IPv6.ip6_dst;
 719             pseudoh6.zero       = 0;
 720             pseudoh6.protocol   = (guint8) hdr_ip_proto;
 721             ihatemacros         = g_ntohs(HDR_IPv6.ip6_ctlun.ip6_un1.ip6_un1_plen);
 722             pseudoh.length      = g_htons(length - ihatemacros + sizeof(HDR_UDP));
 723         }
 724
 725         if (!hdr_ipv6) {
 726             /* initialize pseudo header for checksum calculation */
 727             pseudoh.src_addr    = HDR_IP.src_addr;
 728             pseudoh.dest_addr   = HDR_IP.dest_addr;
 729             pseudoh.zero        = 0;
 730             pseudoh.protocol    = (guint8) hdr_ip_proto;
 731             pseudoh.length      = g_htons(length - header_length + sizeof(HDR_UDP));
 732         }
 733
 734         /* Write UDP header */
 735         if (hdr_udp) {
 736             guint16 x16;
 737             guint32 u;
 738
 739             /* initialize the UDP header */
 740             HDR_UDP.source_port = isInbound ? g_htons(hdr_dest_port): g_htons(hdr_src_port);
 741             HDR_UDP.dest_port = isInbound ? g_htons(hdr_src_port) : g_htons(hdr_dest_port);
 742             HDR_UDP.length      = pseudoh.length;
 743             HDR_UDP.checksum = 0;
 744             /* Note: g_ntohs()/g_htons() macro arg may be eval'd twice so calc value before invoking macro */
 745             x16  = hdr_ipv6 ? in_checksum(&pseudoh6, sizeof(pseudoh6)) : in_checksum(&pseudoh, sizeof(pseudoh));
 746             u    = g_ntohs(x16);
 747             x16  = in_checksum(&HDR_UDP, sizeof(HDR_UDP));
 748             u   += g_ntohs(x16);
 749             x16  = in_checksum(packet_buf + header_length, length - header_length);
 750             u   += g_ntohs(x16);
 751             x16  = (u & 0xffff) + (u>>16);
 752             HDR_UDP.checksum = g_htons(x16);
 753             if (HDR_UDP.checksum == 0) /* differentiate between 'none' and 0 */
 754                 HDR_UDP.checksum = g_htons(1);
 755             write_bytes((const char *)&HDR_UDP, sizeof(HDR_UDP));
 756         }
 757
 758         /* Write TCP header */
 759         if (hdr_tcp) {
 760             guint16 x16;
 761             guint32 u;
 762
 763              /* initialize pseudo header for checksum calculation */
 764             pseudoh.src_addr    = HDR_IP.src_addr;
 765             pseudoh.dest_addr   = HDR_IP.dest_addr;
 766             pseudoh.zero        = 0;
 767             pseudoh.protocol    = (guint8) hdr_ip_proto;
 768             pseudoh.length      = g_htons(length - header_length + sizeof(HDR_TCP));
 769             /* initialize the TCP header */
 770             HDR_TCP.source_port = isInbound ? g_htons(hdr_dest_port): g_htons(hdr_src_port);
 771             HDR_TCP.dest_port = isInbound ? g_htons(hdr_src_port) : g_htons(hdr_dest_port);
 772             /* set ack number if we have direction */
 773             if (has_direction) {
 774                 HDR_TCP.flags = 0x10;
 775                 HDR_TCP.ack_num = g_ntohl(isInbound ? tcp_out_seq_num : tcp_in_seq_num);
 776                 HDR_TCP.ack_num = g_htonl(HDR_TCP.ack_num);
 777             }
 778             else {
 779                 HDR_TCP.flags = 0;
 780                 HDR_TCP.ack_num = 0;
 781             }
 782             HDR_TCP.seq_num = isInbound ? tcp_in_seq_num : tcp_out_seq_num;
 783             HDR_TCP.window = g_htons(0x2000);
 784             HDR_TCP.checksum = 0;
 785             /* Note: g_ntohs()/g_htons() macro arg may be eval'd twice so calc value before invoking macro */
 786             x16  = in_checksum(&pseudoh, sizeof(pseudoh));
 787             u    = g_ntohs(x16);
 788             x16  = in_checksum(&HDR_TCP, sizeof(HDR_TCP));
 789             u   += g_ntohs(x16);
 790             x16  = in_checksum(packet_buf + header_length, length - header_length);
 791             u   += g_ntohs(x16);
 792             x16  = (u & 0xffff) + (u>>16);
 793             HDR_TCP.checksum = g_htons(x16);
 794             if (HDR_TCP.checksum == 0) /* differentiate between 'none' and 0 */
 795                 HDR_TCP.checksum = g_htons(1);
 796             write_bytes((const char *)&HDR_TCP, sizeof(HDR_TCP));
 797             if (isInbound) {
 798                 tcp_in_seq_num = g_ntohl(tcp_in_seq_num) + length - header_length;
 799                 tcp_in_seq_num = g_htonl(tcp_in_seq_num);
 800             }
 801             else {
 802                 tcp_out_seq_num = g_ntohl(tcp_out_seq_num) + length - header_length;
 803                 tcp_out_seq_num = g_htonl(tcp_out_seq_num);
 804             }
 805         }
 806
 807         /* Compute DATA chunk header */
 808         if (hdr_data_chunk) {
 809             hdr_data_chunk_bits = 0;
 810             if (packet_start == 0) {
 811                 hdr_data_chunk_bits |= 0x02;
 812             }
 813             if (!cont) {
 814                 hdr_data_chunk_bits |= 0x01;
 815             }
 816             HDR_DATA_CHUNK.type   = hdr_data_chunk_type;
 817             HDR_DATA_CHUNK.bits   = hdr_data_chunk_bits;
 818             HDR_DATA_CHUNK.length = g_htons(length - header_length + sizeof(HDR_DATA_CHUNK));
 819             HDR_DATA_CHUNK.tsn    = g_htonl(hdr_data_chunk_tsn);
 820             HDR_DATA_CHUNK.sid    = g_htons(hdr_data_chunk_sid);
 821             HDR_DATA_CHUNK.ssn    = g_htons(hdr_data_chunk_ssn);
 822             HDR_DATA_CHUNK.ppid   = g_htonl(hdr_data_chunk_ppid);
 823             hdr_data_chunk_tsn++;
 824             if (!cont) {
 825                 hdr_data_chunk_ssn++;
 826             }
 827         }
 828
 829         /* Write SCTP common header */
 830         if (hdr_sctp) {
 831             guint32 zero = 0;
 832
 833             HDR_SCTP.src_port  = isInbound ? g_htons(hdr_sctp_dest): g_htons(hdr_sctp_src);
 834             HDR_SCTP.dest_port = isInbound ? g_htons(hdr_sctp_src) : g_htons(hdr_sctp_dest);
 835             HDR_SCTP.tag       = g_htonl(hdr_sctp_tag);
 836             HDR_SCTP.checksum  = g_htonl(0);
 837             HDR_SCTP.checksum  = crc32c((guint8 *)&HDR_SCTP, sizeof(HDR_SCTP), ~0);
 838             if (hdr_data_chunk) {
 839                 HDR_SCTP.checksum  = crc32c((guint8 *)&HDR_DATA_CHUNK, sizeof(HDR_DATA_CHUNK), HDR_SCTP.checksum);
 840                 HDR_SCTP.checksum  = crc32c((guint8 *)packet_buf + header_length, length - header_length, HDR_SCTP.checksum);
 841                 HDR_SCTP.checksum  = crc32c((guint8 *)&zero, padding_length, HDR_SCTP.checksum);
 842             } else {
 843                 HDR_SCTP.checksum  = crc32c((guint8 *)packet_buf + header_length, length - header_length, HDR_SCTP.checksum);
 844             }
 845             HDR_SCTP.checksum = finalize_crc32c(HDR_SCTP.checksum);
 846             HDR_SCTP.checksum  = g_htonl(HDR_SCTP.checksum);
 847             write_bytes((const char *)&HDR_SCTP, sizeof(HDR_SCTP));
 848         }
 849
 850         /* Write DATA chunk header */
 851         if (hdr_data_chunk) {
 852             write_bytes((const char *)&HDR_DATA_CHUNK, sizeof(HDR_DATA_CHUNK));
 853         }
 854
 855         /* Reset curr_offset, since we now write the trailers */
 856         curr_offset = length;
 857
 858         /* Write DATA chunk padding */
 859         if (hdr_data_chunk && (padding_length > 0)) {
 860             memset(tempbuf, 0, padding_length);
 861             write_bytes((const char *)&tempbuf, padding_length);
 862             length += padding_length;
 863         }
 864
 865         /* Write Ethernet trailer */
 866         if (hdr_ethernet && (length < 60)) {
 867             memset(tempbuf, 0, 60 - length);
 868             write_bytes((const char *)&tempbuf, 60 - length);
 869             length = 60;
 870         }
 871         if (use_pcapng) {
 872             success = pcapng_write_enhanced_packet_block(output_file,
 873                                                          NULL,
 874                                                          ts_sec, ts_nsec,
 875                                                          length, length,
 876                                                          0,
 877                                                          1000000000,
 878                                                          packet_buf, direction,
 879                                                          &bytes_written, &err);
 880         } else {
 881             success = libpcap_write_packet(output_file,
 882                                            ts_sec, ts_nsec/1000,
 883                                            length, length,
 884                                            packet_buf,
 885                                            &bytes_written, &err);
 886         }
 887         if (!success) {
 888             fprintf(stderr, "File write error [%s] : %s\n",
 889                     output_filename, g_strerror(err));
 890             exit(1);
 891         }
 892         if (ts_fmt == NULL) {
 893             /* fake packet counter */
 894             if (use_pcapng)
 895                 ts_nsec++;
 896             else
 897                 ts_nsec += 1000;
 898         }
 899         if (!quiet) {
 900             fprintf(stderr, "Wrote packet of %u bytes.\n", length);
 901         }
 902         num_packets_written++;
 903     }
 904
 905     packet_start += curr_offset - header_length;
 906     curr_offset = header_length;
 907     return;
 908 }
 909
 910 /*----------------------------------------------------------------------
 911  * Write file header and trailer
 912  */
 913 static void
 914 write_file_header (void)
 915 {
 916     int      err;
 917     gboolean success;
 918
 919     if (use_pcapng) {
 920         char *appname;
 921         char *comment;
 922
 923         appname = g_strdup_printf("text2pcap (Wireshark) %s", get_ws_vcs_version_info());
 924         comment = g_strdup_printf("Generated from input file %s.", input_filename);
 925         success = pcapng_write_session_header_block(output_file,
 926                                                     comment,
 927                                                     NULL,    /* HW */
 928                                                     NULL,    /* OS */
 929                                                     appname,
 930                                                     -1,      /* section_length */
 931                                                     &bytes_written,
 932                                                     &err);
 933         g_free(appname);
 934         g_free(comment);
 935         if (success) {
 936             success = pcapng_write_interface_description_block(output_file,
 937                                                                NULL,
 938                                                                NULL,
 939                                                                NULL,
 940                                                                "",
 941                                                                NULL,
 942                                                                pcap_link_type,
 943                                                                PCAP_SNAPLEN,
 944                                                                &bytes_written,
 945                                                                0,
 946                                                                9,
 947                                                                &err);
 948         }
 949     } else {
 950         success = libpcap_write_file_header(output_file, pcap_link_type,
 951                                             PCAP_SNAPLEN, FALSE,
 952                                             &bytes_written, &err);
 953     }
 954     if (!success) {
 955         fprintf(stderr, "File write error [%s] : %s\n",
 956                 output_filename, g_strerror(err));
 957         exit(1);
 958     }
 959 }
 960
 961 /*----------------------------------------------------------------------
 962  * Append a token to the packet preamble.
 963  */
 964 static void
 965 append_to_preamble (char *str)
 966 {
 967     size_t toklen;
 968
 969     if (packet_preamble_len != 0) {
 970         if (packet_preamble_len == PACKET_PREAMBLE_MAX_LEN)
 971             return; /* no room to add more preamble */
 972         /* Add a blank separator between the previous token and this token. */
 973         packet_preamble[packet_preamble_len++] = ' ';
 974     }
 975     toklen = strlen(str);
 976     if (toklen != 0) {
 977         if (packet_preamble_len + toklen > PACKET_PREAMBLE_MAX_LEN)
 978             return; /* no room to add the token to the preamble */
 979         g_strlcpy(&packet_preamble[packet_preamble_len], str, PACKET_PREAMBLE_MAX_LEN);
 980         packet_preamble_len += (int) toklen;
 981         if (debug >= 2) {
 982             char *c;
 983             char xs[PACKET_PREAMBLE_MAX_LEN];
 984             g_strlcpy(xs, packet_preamble, PACKET_PREAMBLE_MAX_LEN);
 985             while ((c = strchr(xs, '\r')) != NULL) *c=' ';
 986             fprintf (stderr, "[[append_to_preamble: \"%s\"]]", xs);
 987         }
 988     }
 989 }
 990
 991 /*----------------------------------------------------------------------
 992  * Parse the preamble to get the timecode.
 993  */
 994
 995 static void
 996 parse_preamble (void)
 997 {
 998     struct tm  timecode;
 999     char      *subsecs;
1000     char      *p;
1001     int        subseclen;
1002     int        i;
1003
1004      /*
1005      * Null-terminate the preamble.
1006      */
1007     packet_preamble[packet_preamble_len] = '\0';
1008     if (debug > 0)
1009         fprintf(stderr, "[[parse_preamble: \"%s\"]]\n", packet_preamble);
1010
1011     if (has_direction) {
1012         switch (packet_preamble[0]) {
1013         case 'i':
1014         case 'I':
1015             direction = 0x00000001;
1016             packet_preamble[0] = ' ';
1017             break;
1018         case 'o':
1019         case 'O':
1020             direction = 0x00000002;
1021             packet_preamble[0] = ' ';
1022             break;
1023         default:
1024             direction = 0x00000000;
1025             break;
1026         }
1027         i = 0;
1028         while (packet_preamble[i] == ' ' ||
1029                packet_preamble[i] == '\r' ||
1030                packet_preamble[i] == '\t') {
1031             i++;
1032         }
1033         packet_preamble_len -= i;
1034         /* Also move the trailing '\0'. */
1035         memmove(packet_preamble, packet_preamble + i, packet_preamble_len + 1);
1036     }
1037
1038
1039     /*
1040      * If no "-t" flag was specified, don't attempt to parse the packet
1041      * preamble to extract a time stamp.
1042      */
1043     if (ts_fmt == NULL) {
1044         /* Clear Preamble */
1045         packet_preamble_len = 0;
1046         return;
1047     }
1048
1049     /*
1050      * Initialize to today localtime, just in case not all fields
1051      * of the date and time are specified.
1052      */
1053
1054     timecode = timecode_default;
1055     ts_nsec = 0;
1056
1057     /* Ensure preamble has more than two chars before attempting to parse.
1058      * This should cover line breaks etc that get counted.
1059      */
1060     if (strlen(packet_preamble) > 2) {
1061         /* Get Time leaving subseconds */
1062         subsecs = strptime( packet_preamble, ts_fmt, &timecode );
1063         if (subsecs != NULL) {
1064             /* Get the long time from the tm structure */
1065             /*  (will return -1 if failure)            */
1066             ts_sec  = mktime( &timecode );
1067         } else
1068             ts_sec = -1;    /* we failed to parse it */
1069
1070         /* This will ensure incorrectly parsed dates get set to zero */
1071         if (-1 == ts_sec) {
1072             /* Sanitize - remove all '\r' */
1073             char *c;
1074             while ((c = strchr(packet_preamble, '\r')) != NULL) *c=' ';
1075             fprintf (stderr, "Failure processing time \"%s\" using time format \"%s\"\n   (defaulting to Jan 1,1970 00:00:00 GMT)\n",
1076                  packet_preamble, ts_fmt);
1077             if (debug >= 2) {
1078                 fprintf(stderr, "timecode: %02d/%02d/%d %02d:%02d:%02d %d\n",
1079                     timecode.tm_mday, timecode.tm_mon, timecode.tm_year,
1080                     timecode.tm_hour, timecode.tm_min, timecode.tm_sec, timecode.tm_isdst);
1081             }
1082             ts_sec  = 0;  /* Jan 1,1970: 00:00 GMT; tshark/wireshark will display date/time as adjusted by timezone */
1083             ts_nsec = 0;
1084         } else {
1085             /* Parse subseconds */
1086             ts_nsec = (guint32)strtol(subsecs, &p, 10);
1087             if (subsecs == p) {
1088                 /* Error */
1089                 ts_nsec = 0;
1090             } else {
1091                 /*
1092                  * Convert that number to a number
1093                  * of microseconds; if it's N digits
1094                  * long, it's in units of 10^(-N) seconds,
1095                  * so, to convert it to units of
1096                  * 10^-9 seconds, we multiply by
1097                  * 10^(9-N).
1098                  */
1099                 subseclen = (int) (p - subsecs);
1100                 if (subseclen > 9) {
1101                     /*
1102                      * *More* than 9 digits; 9-N is
1103                      * negative, so we divide by
1104                      * 10^(N-9).
1105                      */
1106                     for (i = subseclen - 9; i != 0; i--)
1107                         ts_nsec /= 10;
1108                 } else if (subseclen < 9) {
1109                     for (i = 9 - subseclen; i != 0; i--)
1110                         ts_nsec *= 10;
1111                 }
1112             }
1113         }
1114     }
1115     if (debug >= 2) {
1116         char *c;
1117         while ((c = strchr(packet_preamble, '\r')) != NULL) *c=' ';
1118         fprintf(stderr, "[[parse_preamble: \"%s\"]]\n", packet_preamble);
1119         fprintf(stderr, "Format(%s), time(%u), subsecs(%u)\n", ts_fmt, (guint32)ts_sec, ts_nsec);
1120     }
1121
1122
1123     /* Clear Preamble */
1124     packet_preamble_len = 0;
1125 }
1126
1127 /*----------------------------------------------------------------------
1128  * Start a new packet
1129  */
1130 static void
1131 start_new_packet (gboolean cont)
1132 {
1133     if (debug >= 1)
1134         fprintf(stderr, "Start new packet (cont = %s).\n", cont ? "TRUE" : "FALSE");
1135
1136     /* Write out the current packet, if required */
1137     write_current_packet(cont);
1138     num_packets_read++;
1139
1140     /* Ensure we parse the packet preamble as it may contain the time */
1141     parse_preamble();
1142 }
1143
1144 /*----------------------------------------------------------------------
1145  * Process a directive
1146  */
1147 static void
1148 process_directive (char *str)
1149 {
1150     fprintf(stderr, "\n--- Directive [%s] currently unsupported ---\n", str + 10);
1151 }
1152
1153 /*----------------------------------------------------------------------
1154  * Parse a single token (called from the scanner)
1155  */
1156 void
1157 parse_token (token_t token, char *str)
1158 {
1159     guint32  num;
1160     int      by_eol;
1161     int      rollback = 0;
1162     int      line_size;
1163     int      i;
1164     char    *s2;
1165     char     tmp_str[3];
1166
1167     /*
1168      * This is implemented as a simple state machine of five states.
1169      * State transitions are caused by tokens being received from the
1170      * scanner. The code should be self-documenting.
1171      */
1172
1173     if (debug >= 2) {
1174         /* Sanitize - remove all '\r' */
1175         char *c;
1176         if (str!=NULL) { while ((c = strchr(str, '\r')) != NULL) *c=' '; }
1177
1178         fprintf(stderr, "(%s, %s \"%s\") -> (",
1179                 state_str[state], token_str[token], str ? str : "");
1180     }
1181
1182     switch (state) {
1183
1184     /* ----- Waiting for new packet -------------------------------------------*/
1185     case INIT:
1186         if (!str && token != T_EOL) goto fail_null_str;
1187         switch (token) {
1188         case T_TEXT:
1189             append_to_preamble(str);
1190             break;
1191         case T_DIRECTIVE:
1192             process_directive(str);
1193             break;
1194         case T_OFFSET:
1195             num = parse_num(str, TRUE);
1196             if (num == 0) {
1197                 /* New packet starts here */
1198                 start_new_packet(FALSE);
1199                 state = READ_OFFSET;
1200                 pkt_lnstart = packet_buf + num;
1201             }
1202             break;
1203         case T_EOL:
1204             /* Some describing text may be parsed as offset, but the invalid
1205                offset will be checked in the state of START_OF_LINE, so
1206                we add this transition to gain flexibility */
1207             state = START_OF_LINE;
1208             break;
1209         default:
1210             break;
1211         }
1212         break;
1213
1214     /* ----- Processing packet, start of new line -----------------------------*/
1215     case START_OF_LINE:
1216         if (!str && token != T_EOL) goto fail_null_str;
1217         switch (token) {
1218         case T_TEXT:
1219             append_to_preamble(str);
1220             break;
1221         case T_DIRECTIVE:
1222             process_directive(str);
1223             break;
1224         case T_OFFSET:
1225             num = parse_num(str, TRUE);
1226             if (num == 0) {
1227                 /* New packet starts here */
1228                 start_new_packet(FALSE);
1229                 packet_start = 0;
1230                 state = READ_OFFSET;
1231             } else if ((num - packet_start) != curr_offset - header_length) {
1232                 /*
1233                  * The offset we read isn't the one we expected.
1234                  * This may only mean that we mistakenly interpreted
1235                  * some text as byte values (e.g., if the text dump
1236                  * of packet data included a number with spaces around
1237                  * it).  If the offset is less than what we expected,
1238                  * assume that's the problem, and throw away the putative
1239                  * extra byte values.
1240                  */
1241                 if (num < curr_offset) {
1242                     unwrite_bytes(curr_offset - num);
1243                     state = READ_OFFSET;
1244                 } else {
1245                     /* Bad offset; switch to INIT state */
1246                     if (debug >= 1)
1247                         fprintf(stderr, "Inconsistent offset. Expecting %0X, got %0X. Ignoring rest of packet\n",
1248                                 curr_offset, num);
1249                     write_current_packet(FALSE);
1250                     state = INIT;
1251                 }
1252             } else
1253                 state = READ_OFFSET;
1254                 pkt_lnstart = packet_buf + num;
1255             break;
1256         case T_EOL:
1257             state = START_OF_LINE;
1258             break;
1259         default:
1260             break;
1261         }
1262         break;
1263
1264     /* ----- Processing packet, read offset -----------------------------------*/
1265     case READ_OFFSET:
1266         switch (token) {
1267         case T_BYTE:
1268             /* Record the byte */
1269             state = READ_BYTE;
1270             if (!str) goto fail_null_str;
1271             write_byte(str);
1272             break;
1273         case T_TEXT:
1274         case T_DIRECTIVE:
1275         case T_OFFSET:
1276             state = READ_TEXT;
1277             break;
1278         case T_EOL:
1279             state = START_OF_LINE;
1280             break;
1281         default:
1282             break;
1283         }
1284         break;
1285
1286     /* ----- Processing packet, read byte -------------------------------------*/
1287     case READ_BYTE:
1288         switch (token) {
1289         case T_BYTE:
1290             /* Record the byte */
1291             write_byte(str);
1292             break;
1293         case T_TEXT:
1294         case T_DIRECTIVE:
1295         case T_OFFSET:
1296         case T_EOL:
1297             by_eol = 0;
1298             state = READ_TEXT;
1299             if (token == T_EOL) {
1300                 by_eol = 1;
1301                 state = START_OF_LINE;
1302             }
1303             if (identify_ascii) {
1304                 /* Here a line of pkt bytes reading is finished
1305                    compare the ascii and hex to avoid such situation:
1306                    "61 62 20 ab ", when ab is ascii dump then it should
1307                    not be treat as byte */
1308                 rollback = 0;
1309                 /* s2 is the ASCII string, s1 is the HEX string, e.g, when
1310                    s2 = "ab ", s1 = "616220"
1311                    we should find out the largest tail of s1 matches the head
1312                    of s2, it means the matched part in tail is the ASCII dump
1313                    of the head byte. These matched should be rollback */
1314                 line_size = curr_offset-(int)(pkt_lnstart-packet_buf);
1315                 s2 = (char*)g_malloc((line_size+1)/4+1);
1316                 /* gather the possible pattern */
1317                 for (i = 0; i < (line_size+1)/4; i++) {
1318                     tmp_str[0] = pkt_lnstart[i*3];
1319                     tmp_str[1] = pkt_lnstart[i*3+1];
1320                     tmp_str[2] = '\0';
1321                     /* it is a valid convertable string */
1322                     if (!g_ascii_isxdigit(tmp_str[0]) || !g_ascii_isxdigit(tmp_str[1])) {
1323                         break;
1324                     }
1325                     s2[i] = (char)strtoul(tmp_str, (char **)NULL, 16);
1326                     rollback++;
1327                     /* the 3rd entry is not a delimiter, so the possible byte pattern will not shown */
1328                     if (!(pkt_lnstart[i*3+2] == ' ')) {
1329                         if (by_eol != 1)
1330                             rollback--;
1331                         break;
1332                     }
1333                 }
1334                 /* If packet line start contains possible byte pattern, the line end
1335                    should contain the matched pattern if the user open the -a flag.
1336                    The packet will be possible invalid if the byte pattern cannot find
1337                    a matched one in the line of packet buffer.*/
1338                 if (rollback > 0) {
1339                     if (strncmp(pkt_lnstart+line_size-rollback, s2, rollback) == 0) {
1340                         unwrite_bytes(rollback);
1341                     }
1342                     /* Not matched. This line contains invalid packet bytes, so
1343                        discard the whole line */
1344                     else {
1345                         unwrite_bytes(line_size);
1346                     }
1347                 }
1348                 g_free(s2);
1349             }
1350             break;
1351         default:
1352             break;
1353         }
1354         break;
1355
1356     /* ----- Processing packet, read text -------------------------------------*/
1357     case READ_TEXT:
1358         switch (token) {
1359         case T_EOL:
1360             state = START_OF_LINE;
1361             break;
1362         default:
1363             break;
1364         }
1365         break;
1366
1367     default:
1368         fprintf(stderr, "FATAL ERROR: Bad state (%d)", state);
1369         exit(1);
1370     }
1371
1372     if (debug >= 2)
1373         fprintf(stderr, ", %s)\n", state_str[state]);
1374
1375     return;
1376
1377 fail_null_str:
1378     fprintf(stderr, "FATAL ERROR: got NULL str pointer in state (%d)", state);
1379     exit(1);
1380
1381 }
1382
1383 /*----------------------------------------------------------------------
1384  * Print usage string and exit
1385  */
1386 static void
1387 print_usage (FILE *output)
1388 {
1389     fprintf(output,
1390             "\n"
1391             "Usage: text2pcap [options] <infile> <outfile>\n"
1392             "\n"
1393             "where  <infile> specifies input  filename (use - for standard input)\n"
1394             "      <outfile> specifies output filename (use - for standard output)\n"
1395             "\n"
1396             "Input:\n"
1397             "  -o hex|oct|dec         parse offsets as (h)ex, (o)ctal or (d)ecimal;\n"
1398             "                         default is hex.\n"
1399             "  -t <timefmt>           treat the text before the packet as a date/time code;\n"
1400             "                         the specified argument is a format string of the sort\n"
1401             "                         supported by strptime.\n"
1402             "                         Example: The time \"10:15:14.5476\" has the format code\n"
1403             "                         \"%%H:%%M:%%S.\"\n"
1404             "                         NOTE: The subsecond component delimiter, '.', must be\n"
1405             "                         given, but no pattern is required; the remaining\n"
1406             "                         number is assumed to be fractions of a second.\n"
1407             "                         NOTE: Date/time fields from the current date/time are\n"
1408             "                         used as the default for unspecified fields.\n"
1409             "  -D                     the text before the packet starts with an I or an O,\n"
1410             "                         indicating that the packet is inbound or outbound.\n"
1411             "                         This is only stored if the output format is PCAP-NG.\n"
1412             "  -a                     enable ASCII text dump identification.\n"
1413             "                         The start of the ASCII text dump can be identified\n"
1414             "                         and excluded from the packet data, even if it looks\n"
1415             "                         like a HEX dump.\n"
1416             "                         NOTE: Do not enable it if the input file does not\n"
1417             "                         contain the ASCII text dump.\n"
1418             "\n"
1419             "Output:\n"
1420             "  -l <typenum>           link-layer type number; default is 1 (Ethernet).  See\n"
1421             "                         http://www.tcpdump.org/linktypes.html for a list of\n"
1422             "                         numbers.  Use this option if your dump is a complete\n"
1423             "                         hex dump of an encapsulated packet and you wish to\n"
1424             "                         specify the exact type of encapsulation.\n"
1425             "                         Example: -l 7 for ARCNet packets.\n"
1426             "  -m <max-packet>        max packet length in output; default is %d\n"
1427             "\n"
1428             "Prepend dummy header:\n"
1429             "  -e <l3pid>             prepend dummy Ethernet II header with specified L3PID\n"
1430             "                         (in HEX).\n"
1431             "                         Example: -e 0x806 to specify an ARP packet.\n"
1432             "  -i <proto>             prepend dummy IP header with specified IP protocol\n"
1433             "                         (in DECIMAL).\n"
1434             "                         Automatically prepends Ethernet header as well.\n"
1435             "                         Example: -i 46\n"
1436             "  -4 <srcip>,<destip>    prepend dummy IPv4 header with specified\n"
1437             "                         dest and source address.\n"
1438             "                         Example: -4 10.0.0.1,10.0.0.2\n"
1439             "  -6 <srcip>,<destip>    replace IPv6 header with specified\n"
1440             "                         dest and source address.\n"
1441             "                         Example: -6 fe80:0:0:0:202:b3ff:fe1e:8329,2001:0db8:85a3:0000:0000:8a2e:0370:7334\n"
1442             "  -u <srcp>,<destp>      prepend dummy UDP header with specified\n"
1443             "                         source and destination ports (in DECIMAL).\n"
1444             "                         Automatically prepends Ethernet & IP headers as well.\n"
1445             "                         Example: -u 1000,69 to make the packets look like\n"
1446             "                         TFTP/UDP packets.\n"
1447             "  -T <srcp>,<destp>      prepend dummy TCP header with specified\n"
1448             "                         source and destination ports (in DECIMAL).\n"
1449             "                         Automatically prepends Ethernet & IP headers as well.\n"
1450             "                         Example: -T 50,60\n"
1451             "  -s <srcp>,<dstp>,<tag> prepend dummy SCTP header with specified\n"
1452             "                         source/dest ports and verification tag (in DECIMAL).\n"
1453             "                         Automatically prepends Ethernet & IP headers as well.\n"
1454             "                         Example: -s 30,40,34\n"
1455             "  -S <srcp>,<dstp>,<ppi> prepend dummy SCTP header with specified\n"
1456             "                         source/dest ports and verification tag 0.\n"
1457             "                         Automatically prepends a dummy SCTP DATA\n"
1458             "                         chunk header with payload protocol identifier ppi.\n"
1459             "                         Example: -S 30,40,34\n"
1460             "\n"
1461             "Miscellaneous:\n"
1462             "  -h                     display this help and exit.\n"
1463             "  -d                     show detailed debug of parser states.\n"
1464             "  -q                     generate no output at all (automatically disables -d).\n"
1465             "  -n                     use PCAP-NG instead of PCAP as output format.\n"
1466             "",
1467             MAX_PACKET);
1468 }
1469
1470 static void
1471 get_text2pcap_compiled_info(GString *str)
1472 {
1473     /* LIBZ */
1474     g_string_append(str, ", ");
1475 #ifdef HAVE_LIBZ
1476     g_string_append(str, "with libz ");
1477 #ifdef ZLIB_VERSION
1478     g_string_append(str, ZLIB_VERSION);
1479 #else /* ZLIB_VERSION */
1480     g_string_append(str, "(version unknown)");
1481 #endif /* ZLIB_VERSION */
1482 #else /* HAVE_LIBZ */
1483     g_string_append(str, "without libz");
1484 #endif /* HAVE_LIBZ */
1485 }
1486
1487 static void
1488 get_text2pcap_runtime_info(GString *str)
1489 {
1490     /* zlib */
1491 #if defined(HAVE_LIBZ) && !defined(_WIN32)
1492     g_string_append_printf(str, ", with libz %s", zlibVersion());
1493 #endif
1494 }
1495
1496 /*----------------------------------------------------------------------
1497  * Parse CLI options
1498  */
1499 static void
1500 parse_options (int argc, char *argv[])
1501 {
1502     GString *comp_info_str;
1503     GString *runtime_info_str;
1504     int   c;
1505     char *p;
1506     static const struct option long_options[] = {
1507         {"help", no_argument, NULL, 'h'},
1508         {"version", no_argument, NULL, 'v'},
1509         {0, 0, 0, 0 }
1510     };
1511
1512 #ifdef _WIN32
1513     arg_list_utf_16to8(argc, argv);
1514     create_app_running_mutex();
1515 #endif /* _WIN32 */
1516
1517     /* Get the compile-time version information string */
1518     comp_info_str = get_compiled_version_info(NULL, get_text2pcap_compiled_info);
1519
1520     /* get the run-time version information string */
1521     runtime_info_str = get_runtime_version_info(get_text2pcap_runtime_info);
1522
1523     /* Add it to the information to be reported on a crash. */
1524     ws_add_crash_info("Text2pcap (Wireshark) %s\n"
1525          "\n"
1526          "%s"
1527          "\n"
1528          "%s",
1529       get_ws_vcs_version_info(), comp_info_str->str, runtime_info_str->str);
1530
1531     /* Scan CLI parameters */
1532     while ((c = getopt_long(argc, argv, "aDdhqe:i:l:m:no:u:s:S:t:T:v4:6:", long_options, NULL)) != -1) {
1533         switch (c) {
1534         case 'h':
1535             printf("Text2pcap (Wireshark) %s\n"
1536                    "Generate a capture file from an ASCII hexdump of packets.\n"
1537                    "See https://www.wireshark.org for more information.\n",
1538                    get_ws_vcs_version_info());
1539             print_usage(stdout);
1540             exit(0);
1541             break;
1542         case 'd': if (!quiet) debug++; break;
1543         case 'D': has_direction = TRUE; break;
1544         case 'q': quiet = TRUE; debug = FALSE; break;
1545         case 'l': pcap_link_type = (guint32)strtol(optarg, NULL, 0); break;
1546         case 'm': max_offset = (guint32)strtol(optarg, NULL, 0); break;
1547         case 'n': use_pcapng = TRUE; break;
1548         case 'o':
1549             if (optarg[0] != 'h' && optarg[0] != 'o' && optarg[0] != 'd') {
1550                 fprintf(stderr, "Bad argument for '-o': %s\n", optarg);
1551                 print_usage(stderr);
1552                 exit(1);
1553             }
1554             switch (optarg[0]) {
1555             case 'o': offset_base =  8; break;
1556             case 'h': offset_base = 16; break;
1557             case 'd': offset_base = 10; break;
1558             }
1559             break;
1560         case 'e':
1561             hdr_ethernet = TRUE;
1562             if (sscanf(optarg, "%x", &hdr_ethernet_proto) < 1) {
1563                 fprintf(stderr, "Bad argument for '-e': %s\n", optarg);
1564                 print_usage(stderr);
1565                 exit(1);
1566             }
1567             break;
1568
1569         case 'i':
1570             hdr_ip = TRUE;
1571             hdr_ip_proto = strtol(optarg, &p, 10);
1572             if (p == optarg || *p != '\0' || hdr_ip_proto < 0 ||
1573                   hdr_ip_proto > 255) {
1574                 fprintf(stderr, "Bad argument for '-i': %s\n", optarg);
1575                 print_usage(stderr);
1576                 exit(1);
1577             }
1578             hdr_ethernet = TRUE;
1579             hdr_ethernet_proto = 0x800;
1580             break;
1581
1582         case 's':
1583             hdr_sctp = TRUE;
1584             hdr_data_chunk = FALSE;
1585             hdr_tcp = FALSE;
1586             hdr_udp = FALSE;
1587             hdr_sctp_src   = (guint32)strtol(optarg, &p, 10);
1588             if (p == optarg || (*p != ',' && *p != '\0')) {
1589                 fprintf(stderr, "Bad src port for '-%c'\n", c);
1590                 print_usage(stderr);
1591                 exit(1);
1592             }
1593             if (*p == '\0') {
1594                 fprintf(stderr, "No dest port specified for '-%c'\n", c);
1595                 print_usage(stderr);
1596                 exit(1);
1597             }
1598             p++;
1599             optarg = p;
1600             hdr_sctp_dest = (guint32)strtol(optarg, &p, 10);
1601             if (p == optarg || (*p != ',' && *p != '\0')) {
1602                 fprintf(stderr, "Bad dest port for '-s'\n");
1603                 print_usage(stderr);
1604                 exit(1);
1605             }
1606             if (*p == '\0') {
1607                 fprintf(stderr, "No tag specified for '-%c'\n", c);
1608                 print_usage(stderr);
1609                 exit(1);
1610             }
1611             p++;
1612             optarg = p;
1613             hdr_sctp_tag = (guint32)strtol(optarg, &p, 10);
1614             if (p == optarg || *p != '\0') {
1615                 fprintf(stderr, "Bad tag for '-%c'\n", c);
1616                 print_usage(stderr);
1617                 exit(1);
1618             }
1619
1620             hdr_ip = TRUE;
1621             hdr_ip_proto = 132;
1622             hdr_ethernet = TRUE;
1623             hdr_ethernet_proto = 0x800;
1624             break;
1625         case 'S':
1626             hdr_sctp = TRUE;
1627             hdr_data_chunk = TRUE;
1628             hdr_tcp = FALSE;
1629             hdr_udp = FALSE;
1630             hdr_sctp_src   = (guint32)strtol(optarg, &p, 10);
1631             if (p == optarg || (*p != ',' && *p != '\0')) {
1632                 fprintf(stderr, "Bad src port for '-%c'\n", c);
1633                 print_usage(stderr);
1634                 exit(1);
1635             }
1636             if (*p == '\0') {
1637                 fprintf(stderr, "No dest port specified for '-%c'\n", c);
1638                 print_usage(stderr);
1639                 exit(1);
1640             }
1641             p++;
1642             optarg = p;
1643             hdr_sctp_dest = (guint32)strtol(optarg, &p, 10);
1644             if (p == optarg || (*p != ',' && *p != '\0')) {
1645                 fprintf(stderr, "Bad dest port for '-s'\n");
1646                 print_usage(stderr);
1647                 exit(1);
1648             }
1649             if (*p == '\0') {
1650                 fprintf(stderr, "No ppi specified for '-%c'\n", c);
1651                 print_usage(stderr);
1652                 exit(1);
1653             }
1654             p++;
1655             optarg = p;
1656             hdr_data_chunk_ppid = (guint32)strtoul(optarg, &p, 10);
1657             if (p == optarg || *p != '\0') {
1658                 fprintf(stderr, "Bad ppi for '-%c'\n", c);
1659                 print_usage(stderr);
1660                 exit(1);
1661             }
1662
1663             hdr_ip = TRUE;
1664             hdr_ip_proto = 132;
1665             hdr_ethernet = TRUE;
1666             hdr_ethernet_proto = 0x800;
1667             break;
1668
1669         case 't':
1670             ts_fmt = optarg;
1671             break;
1672
1673         case 'u':
1674             hdr_udp = TRUE;
1675             hdr_tcp = FALSE;
1676             hdr_sctp = FALSE;
1677             hdr_data_chunk = FALSE;
1678             hdr_src_port = (guint32)strtol(optarg, &p, 10);
1679             if (p == optarg || (*p != ',' && *p != '\0')) {
1680                 fprintf(stderr, "Bad src port for '-u'\n");
1681                 print_usage(stderr);
1682                 exit(1);
1683             }
1684             if (*p == '\0') {
1685                 fprintf(stderr, "No dest port specified for '-u'\n");
1686                 print_usage(stderr);
1687                 exit(1);
1688             }
1689             p++;
1690             optarg = p;
1691             hdr_dest_port = (guint32)strtol(optarg, &p, 10);
1692             if (p == optarg || *p != '\0') {
1693                 fprintf(stderr, "Bad dest port for '-u'\n");
1694                 print_usage(stderr);
1695                 exit(1);
1696             }
1697             hdr_ip = TRUE;
1698             hdr_ip_proto = 17;
1699             hdr_ethernet = TRUE;
1700             hdr_ethernet_proto = 0x800;
1701             break;
1702
1703         case 'T':
1704             hdr_tcp = TRUE;
1705             hdr_udp = FALSE;
1706             hdr_sctp = FALSE;
1707             hdr_data_chunk = FALSE;
1708             hdr_src_port = (guint32)strtol(optarg, &p, 10);
1709             if (p == optarg || (*p != ',' && *p != '\0')) {
1710                 fprintf(stderr, "Bad src port for '-T'\n");
1711                 print_usage(stderr);
1712                 exit(1);
1713             }
1714             if (*p == '\0') {
1715                 fprintf(stderr, "No dest port specified for '-u'\n");
1716                 print_usage(stderr);
1717                 exit(1);
1718             }
1719             p++;
1720             optarg = p;
1721             hdr_dest_port = (guint32)strtol(optarg, &p, 10);
1722             if (p == optarg || *p != '\0') {
1723                 fprintf(stderr, "Bad dest port for '-T'\n");
1724                 print_usage(stderr);
1725                 exit(1);
1726             }
1727             hdr_ip = TRUE;
1728             hdr_ip_proto = 6;
1729             hdr_ethernet = TRUE;
1730             hdr_ethernet_proto = 0x800;
1731             break;
1732
1733         case 'a':
1734             identify_ascii = TRUE;
1735             break;
1736
1737         case 'v':
1738             show_version("Text2pcap (Wireshark)", comp_info_str, runtime_info_str);
1739             g_string_free(comp_info_str, TRUE);
1740             g_string_free(runtime_info_str, TRUE);
1741             exit(0);
1742             break;
1743
1744         case '4':
1745         case '6':
1746             p = strchr(optarg, ',');
1747
1748             if (!p) {
1749                 fprintf(stderr, "Bad source param addr for '-%c'\n", c);
1750                 print_usage(stderr);
1751                 exit(1);
1752             }
1753
1754             *p = '\0';
1755             if (c == '6')
1756             {
1757                 hdr_ipv6 = TRUE;
1758                 hdr_ethernet_proto = 0x86DD;
1759             }
1760             else
1761             {
1762                 hdr_ip = TRUE;
1763                 hdr_ethernet_proto = 0x800;
1764             }
1765             hdr_ethernet = TRUE;
1766
1767             if (hdr_ipv6 == TRUE) {
1768                 if (inet_pton( AF_INET6, optarg, hdr_ipv6_src_addr) <= 0) {
1769                         fprintf(stderr, "Bad src addr -%c '%s'\n", c, p);
1770                         print_usage(stderr);
1771                         exit(1);
1772                 }
1773             } else {
1774                 if (inet_pton( AF_INET, optarg, &hdr_ip_src_addr) <= 0) {
1775                         fprintf(stderr, "Bad src addr -%c '%s'\n", c, p);
1776                         print_usage(stderr);
1777                         exit(1);
1778                 }
1779             }
1780
1781             p++;
1782             if (*p == '\0') {
1783                 fprintf(stderr, "No dest addr specified for '-%c'\n", c);
1784                 print_usage(stderr);
1785                 exit(1);
1786             }
1787
1788             if (hdr_ipv6 == TRUE) {
1789                 if (inet_pton( AF_INET6, p, hdr_ipv6_dest_addr) <= 0) {
1790                         fprintf(stderr, "Bad dest addr for -%c '%s'\n", c, p);
1791                         print_usage(stderr);
1792                         exit(1);
1793                 }
1794             } else {
1795                 if (inet_pton( AF_INET, p, &hdr_ip_dest_addr) <= 0) {
1796                         fprintf(stderr, "Bad dest addr for -%c '%s'\n", c, p);
1797                         print_usage(stderr);
1798                         exit(1);
1799                 }
1800             }
1801             break;
1802
1803
1804         case '?':
1805         default:
1806             print_usage(stderr);
1807             exit(1);
1808         }
1809     }
1810
1811     if (optind >= argc || argc-optind < 2) {
1812         fprintf(stderr, "Must specify input and output filename\n");
1813         print_usage(stderr);
1814         exit(1);
1815     }
1816
1817     if (strcmp(argv[optind], "-")) {
1818         input_filename = g_strdup(argv[optind]);
1819         input_file = ws_fopen(input_filename, "rb");
1820         if (!input_file) {
1821             fprintf(stderr, "Cannot open file [%s] for reading: %s\n",
1822                     input_filename, g_strerror(errno));
1823             exit(1);
1824         }
1825     } else {
1826         input_filename = "Standard input";
1827         input_file = stdin;
1828     }
1829
1830     if (strcmp(argv[optind+1], "-")) {
1831         output_filename = g_strdup(argv[optind+1]);
1832         output_file = ws_fopen(output_filename, "wb");
1833         if (!output_file) {
1834             fprintf(stderr, "Cannot open file [%s] for writing: %s\n",
1835                     output_filename, g_strerror(errno));
1836             exit(1);
1837         }
1838     } else {
1839         output_filename = "Standard output";
1840         output_file = stdout;
1841     }
1842
1843     /* Some validation */
1844     if (pcap_link_type != 1 && hdr_ethernet) {
1845         fprintf(stderr, "Dummy headers (-e, -i, -u, -s, -S -T) cannot be specified with link type override (-l)\n");
1846         exit(1);
1847     }
1848
1849     /* Set up our variables */
1850     if (!input_file) {
1851         input_file = stdin;
1852         input_filename = "Standard input";
1853     }
1854     if (!output_file) {
1855         output_file = stdout;
1856         output_filename = "Standard output";
1857     }
1858
1859     ts_sec = time(0);               /* initialize to current time */
1860     timecode_default = *localtime(&ts_sec);
1861     timecode_default.tm_isdst = -1; /* Unknown for now, depends on time given to the strptime() function */
1862
1863     /* Display summary of our state */
1864     if (!quiet) {
1865         fprintf(stderr, "Input from: %s\n", input_filename);
1866         fprintf(stderr, "Output to: %s\n",  output_filename);
1867         fprintf(stderr, "Output format: %s\n", use_pcapng ? "PCAP-NG" : "PCAP");
1868
1869         if (hdr_ethernet) fprintf(stderr, "Generate dummy Ethernet header: Protocol: 0x%0X\n",
1870                                   hdr_ethernet_proto);
1871         if (hdr_ip) fprintf(stderr, "Generate dummy IP header: Protocol: %ld\n",
1872                             hdr_ip_proto);
1873         if (hdr_udp) fprintf(stderr, "Generate dummy UDP header: Source port: %u. Dest port: %u\n",
1874                              hdr_src_port, hdr_dest_port);
1875         if (hdr_tcp) fprintf(stderr, "Generate dummy TCP header: Source port: %u. Dest port: %u\n",
1876                              hdr_src_port, hdr_dest_port);
1877         if (hdr_sctp) fprintf(stderr, "Generate dummy SCTP header: Source port: %u. Dest port: %u. Tag: %u\n",
1878                               hdr_sctp_src, hdr_sctp_dest, hdr_sctp_tag);
1879         if (hdr_data_chunk) fprintf(stderr, "Generate dummy DATA chunk header: TSN: %u. SID: %u. SSN: %u. PPID: %u\n",
1880                                     hdr_data_chunk_tsn, hdr_data_chunk_sid, hdr_data_chunk_ssn, hdr_data_chunk_ppid);
1881     }
1882 }
1883
1884 int
1885 main(int argc, char *argv[])
1886 {
1887     parse_options(argc, argv);
1888
1889     assert(input_file  != NULL);
1890     assert(output_file != NULL);
1891
1892     write_file_header();
1893
1894     header_length = 0;
1895     if (hdr_ethernet) {
1896         header_length += (int)sizeof(HDR_ETHERNET);
1897     }
1898     if (hdr_ip) {
1899         ip_offset = header_length;
1900         header_length += (int)sizeof(HDR_IP);
1901     } else if (hdr_ipv6) {
1902         ip_offset = header_length;
1903         header_length += (int)sizeof(HDR_IPv6);
1904     }
1905     if (hdr_sctp) {
1906         header_length += (int)sizeof(HDR_SCTP);
1907     }
1908     if (hdr_data_chunk) {
1909         header_length += (int)sizeof(HDR_DATA_CHUNK);
1910     }
1911     if (hdr_tcp) {
1912         header_length += (int)sizeof(HDR_TCP);
1913     }
1914     if (hdr_udp) {
1915         header_length += (int)sizeof(HDR_UDP);
1916     }
1917     curr_offset = header_length;
1918
1919     yyin = input_file;
1920     yylex();
1921
1922     write_current_packet(FALSE);
1923     fclose(input_file);
1924     fclose(output_file);
1925     if (debug)
1926         fprintf(stderr, "\n-------------------------\n");
1927     if (!quiet) {
1928         fprintf(stderr, "Read %u potential packet%s, wrote %u packet%s (%" G_GINT64_MODIFIER "u byte%s).\n",
1929                 num_packets_read, (num_packets_read == 1) ? "" : "s",
1930                 num_packets_written, (num_packets_written == 1) ? "" : "s",
1931                 bytes_written, (bytes_written == 1) ? "" : "s");
1932     }
1933     return 0;
1934 }
1935
1936 /*
1937  * Editor modelines  -  http://www.wireshark.org/tools/modelines.html
1938  *
1939  * Local variables:
1940  * c-basic-offset: 4
1941  * tab-width: 8
1942  * indent-tabs-mode: nil
1943  * End:
1944  *
1945  * vi: set shiftwidth=4 tabstop=8 expandtab:
1946  * :indentSize=4:tabSize=8:noTabs=true:
1947  */
1948