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