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 static void
 962 write_file_trailer (void)
 963 {
 964     int      err;
 965     gboolean success;
 966
 967     if (use_pcapng) {
 968         success = pcapng_write_interface_statistics_block(output_file,
 969                                                           0,
 970                                                           &bytes_written,
 971                                                           "Counters provided by text2pcap",
 972                                                           0,
 973                                                           0,
 974                                                           num_packets_written,
 975                                                           num_packets_written - num_packets_written,
 976                                                           &err);
 977
 978     } else {
 979         success = TRUE;
 980     }
 981     if (!success) {
 982         fprintf(stderr, "File write error [%s] : %s\n",
 983                 output_filename, g_strerror(err));
 984         exit(1);
 985     }
 986    return;
 987 }
 988
 989 /*----------------------------------------------------------------------
 990  * Append a token to the packet preamble.
 991  */
 992 static void
 993 append_to_preamble (char *str)
 994 {
 995     size_t toklen;
 996
 997     if (packet_preamble_len != 0) {
 998         if (packet_preamble_len == PACKET_PREAMBLE_MAX_LEN)
 999             return; /* no room to add more preamble */
1000         /* Add a blank separator between the previous token and this token. */
1001         packet_preamble[packet_preamble_len++] = ' ';
1002     }
1003     toklen = strlen(str);
1004     if (toklen != 0) {
1005         if (packet_preamble_len + toklen > PACKET_PREAMBLE_MAX_LEN)
1006             return; /* no room to add the token to the preamble */
1007         g_strlcpy(&packet_preamble[packet_preamble_len], str, PACKET_PREAMBLE_MAX_LEN);
1008         packet_preamble_len += (int) toklen;
1009         if (debug >= 2) {
1010             char *c;
1011             char xs[PACKET_PREAMBLE_MAX_LEN];
1012             g_strlcpy(xs, packet_preamble, PACKET_PREAMBLE_MAX_LEN);
1013             while ((c = strchr(xs, '\r')) != NULL) *c=' ';
1014             fprintf (stderr, "[[append_to_preamble: \"%s\"]]", xs);
1015         }
1016     }
1017 }
1018
1019 /*----------------------------------------------------------------------
1020  * Parse the preamble to get the timecode.
1021  */
1022
1023 static void
1024 parse_preamble (void)
1025 {
1026     struct tm  timecode;
1027     char      *subsecs;
1028     char      *p;
1029     int        subseclen;
1030     int        i;
1031
1032      /*
1033      * Null-terminate the preamble.
1034      */
1035     packet_preamble[packet_preamble_len] = '\0';
1036     if (debug > 0)
1037         fprintf(stderr, "[[parse_preamble: \"%s\"]]\n", packet_preamble);
1038
1039     if (has_direction) {
1040         switch (packet_preamble[0]) {
1041         case 'i':
1042         case 'I':
1043             direction = 0x00000001;
1044             packet_preamble[0] = ' ';
1045             break;
1046         case 'o':
1047         case 'O':
1048             direction = 0x00000002;
1049             packet_preamble[0] = ' ';
1050             break;
1051         default:
1052             direction = 0x00000000;
1053             break;
1054         }
1055         i = 0;
1056         while (packet_preamble[i] == ' ' ||
1057                packet_preamble[i] == '\r' ||
1058                packet_preamble[i] == '\t') {
1059             i++;
1060         }
1061         packet_preamble_len -= i;
1062         /* Also move the trailing '\0'. */
1063         memmove(packet_preamble, packet_preamble + i, packet_preamble_len + 1);
1064     }
1065
1066
1067     /*
1068      * If no "-t" flag was specified, don't attempt to parse the packet
1069      * preamble to extract a time stamp.
1070      */
1071     if (ts_fmt == NULL) {
1072         /* Clear Preamble */
1073         packet_preamble_len = 0;
1074         return;
1075     }
1076
1077     /*
1078      * Initialize to today localtime, just in case not all fields
1079      * of the date and time are specified.
1080      */
1081
1082     timecode = timecode_default;
1083     ts_nsec = 0;
1084
1085     /* Ensure preamble has more than two chars before attempting to parse.
1086      * This should cover line breaks etc that get counted.
1087      */
1088     if (strlen(packet_preamble) > 2) {
1089         /* Get Time leaving subseconds */
1090         subsecs = strptime( packet_preamble, ts_fmt, &timecode );
1091         if (subsecs != NULL) {
1092             /* Get the long time from the tm structure */
1093             /*  (will return -1 if failure)            */
1094             ts_sec  = mktime( &timecode );
1095         } else
1096             ts_sec = -1;    /* we failed to parse it */
1097
1098         /* This will ensure incorrectly parsed dates get set to zero */
1099         if (-1 == ts_sec) {
1100             /* Sanitize - remove all '\r' */
1101             char *c;
1102             while ((c = strchr(packet_preamble, '\r')) != NULL) *c=' ';
1103             fprintf (stderr, "Failure processing time \"%s\" using time format \"%s\"\n   (defaulting to Jan 1,1970 00:00:00 GMT)\n",
1104                  packet_preamble, ts_fmt);
1105             if (debug >= 2) {
1106                 fprintf(stderr, "timecode: %02d/%02d/%d %02d:%02d:%02d %d\n",
1107                     timecode.tm_mday, timecode.tm_mon, timecode.tm_year,
1108                     timecode.tm_hour, timecode.tm_min, timecode.tm_sec, timecode.tm_isdst);
1109             }
1110             ts_sec  = 0;  /* Jan 1,1970: 00:00 GMT; tshark/wireshark will display date/time as adjusted by timezone */
1111             ts_nsec = 0;
1112         } else {
1113             /* Parse subseconds */
1114             ts_nsec = (guint32)strtol(subsecs, &p, 10);
1115             if (subsecs == p) {
1116                 /* Error */
1117                 ts_nsec = 0;
1118             } else {
1119                 /*
1120                  * Convert that number to a number
1121                  * of microseconds; if it's N digits
1122                  * long, it's in units of 10^(-N) seconds,
1123                  * so, to convert it to units of
1124                  * 10^-9 seconds, we multiply by
1125                  * 10^(9-N).
1126                  */
1127                 subseclen = (int) (p - subsecs);
1128                 if (subseclen > 9) {
1129                     /*
1130                      * *More* than 9 digits; 9-N is
1131                      * negative, so we divide by
1132                      * 10^(N-9).
1133                      */
1134                     for (i = subseclen - 9; i != 0; i--)
1135                         ts_nsec /= 10;
1136                 } else if (subseclen < 9) {
1137                     for (i = 9 - subseclen; i != 0; i--)
1138                         ts_nsec *= 10;
1139                 }
1140             }
1141         }
1142     }
1143     if (debug >= 2) {
1144         char *c;
1145         while ((c = strchr(packet_preamble, '\r')) != NULL) *c=' ';
1146         fprintf(stderr, "[[parse_preamble: \"%s\"]]\n", packet_preamble);
1147         fprintf(stderr, "Format(%s), time(%u), subsecs(%u)\n", ts_fmt, (guint32)ts_sec, ts_nsec);
1148     }
1149
1150
1151     /* Clear Preamble */
1152     packet_preamble_len = 0;
1153 }
1154
1155 /*----------------------------------------------------------------------
1156  * Start a new packet
1157  */
1158 static void
1159 start_new_packet (gboolean cont)
1160 {
1161     if (debug >= 1)
1162         fprintf(stderr, "Start new packet (cont = %s).\n", cont ? "TRUE" : "FALSE");
1163
1164     /* Write out the current packet, if required */
1165     write_current_packet(cont);
1166     num_packets_read++;
1167
1168     /* Ensure we parse the packet preamble as it may contain the time */
1169     parse_preamble();
1170 }
1171
1172 /*----------------------------------------------------------------------
1173  * Process a directive
1174  */
1175 static void
1176 process_directive (char *str)
1177 {
1178     fprintf(stderr, "\n--- Directive [%s] currently unsupported ---\n", str + 10);
1179 }
1180
1181 /*----------------------------------------------------------------------
1182  * Parse a single token (called from the scanner)
1183  */
1184 void
1185 parse_token (token_t token, char *str)
1186 {
1187     guint32  num;
1188     int      by_eol;
1189     int      rollback = 0;
1190     int      line_size;
1191     int      i;
1192     char    *s2;
1193     char     tmp_str[3];
1194
1195     /*
1196      * This is implemented as a simple state machine of five states.
1197      * State transitions are caused by tokens being received from the
1198      * scanner. The code should be self-documenting.
1199      */
1200
1201     if (debug >= 2) {
1202         /* Sanitize - remove all '\r' */
1203         char *c;
1204         if (str!=NULL) { while ((c = strchr(str, '\r')) != NULL) *c=' '; }
1205
1206         fprintf(stderr, "(%s, %s \"%s\") -> (",
1207                 state_str[state], token_str[token], str ? str : "");
1208     }
1209
1210     switch (state) {
1211
1212     /* ----- Waiting for new packet -------------------------------------------*/
1213     case INIT:
1214         if (!str && token != T_EOL) goto fail_null_str;
1215         switch (token) {
1216         case T_TEXT:
1217             append_to_preamble(str);
1218             break;
1219         case T_DIRECTIVE:
1220             process_directive(str);
1221             break;
1222         case T_OFFSET:
1223             num = parse_num(str, TRUE);
1224             if (num == 0) {
1225                 /* New packet starts here */
1226                 start_new_packet(FALSE);
1227                 state = READ_OFFSET;
1228                 pkt_lnstart = packet_buf + num;
1229             }
1230             break;
1231         case T_EOL:
1232             /* Some describing text may be parsed as offset, but the invalid
1233                offset will be checked in the state of START_OF_LINE, so
1234                we add this transition to gain flexibility */
1235             state = START_OF_LINE;
1236             break;
1237         default:
1238             break;
1239         }
1240         break;
1241
1242     /* ----- Processing packet, start of new line -----------------------------*/
1243     case START_OF_LINE:
1244         if (!str && token != T_EOL) goto fail_null_str;
1245         switch (token) {
1246         case T_TEXT:
1247             append_to_preamble(str);
1248             break;
1249         case T_DIRECTIVE:
1250             process_directive(str);
1251             break;
1252         case T_OFFSET:
1253             num = parse_num(str, TRUE);
1254             if (num == 0) {
1255                 /* New packet starts here */
1256                 start_new_packet(FALSE);
1257                 packet_start = 0;
1258                 state = READ_OFFSET;
1259             } else if ((num - packet_start) != curr_offset - header_length) {
1260                 /*
1261                  * The offset we read isn't the one we expected.
1262                  * This may only mean that we mistakenly interpreted
1263                  * some text as byte values (e.g., if the text dump
1264                  * of packet data included a number with spaces around
1265                  * it).  If the offset is less than what we expected,
1266                  * assume that's the problem, and throw away the putative
1267                  * extra byte values.
1268                  */
1269                 if (num < curr_offset) {
1270                     unwrite_bytes(curr_offset - num);
1271                     state = READ_OFFSET;
1272                 } else {
1273                     /* Bad offset; switch to INIT state */
1274                     if (debug >= 1)
1275                         fprintf(stderr, "Inconsistent offset. Expecting %0X, got %0X. Ignoring rest of packet\n",
1276                                 curr_offset, num);
1277                     write_current_packet(FALSE);
1278                     state = INIT;
1279                 }
1280             } else
1281                 state = READ_OFFSET;
1282                 pkt_lnstart = packet_buf + num;
1283             break;
1284         case T_EOL:
1285             state = START_OF_LINE;
1286             break;
1287         default:
1288             break;
1289         }
1290         break;
1291
1292     /* ----- Processing packet, read offset -----------------------------------*/
1293     case READ_OFFSET:
1294         switch (token) {
1295         case T_BYTE:
1296             /* Record the byte */
1297             state = READ_BYTE;
1298             if (!str) goto fail_null_str;
1299             write_byte(str);
1300             break;
1301         case T_TEXT:
1302         case T_DIRECTIVE:
1303         case T_OFFSET:
1304             state = READ_TEXT;
1305             break;
1306         case T_EOL:
1307             state = START_OF_LINE;
1308             break;
1309         default:
1310             break;
1311         }
1312         break;
1313
1314     /* ----- Processing packet, read byte -------------------------------------*/
1315     case READ_BYTE:
1316         switch (token) {
1317         case T_BYTE:
1318             /* Record the byte */
1319             write_byte(str);
1320             break;
1321         case T_TEXT:
1322         case T_DIRECTIVE:
1323         case T_OFFSET:
1324         case T_EOL:
1325             by_eol = 0;
1326             state = READ_TEXT;
1327             if (token == T_EOL) {
1328                 by_eol = 1;
1329                 state = START_OF_LINE;
1330             }
1331             if (identify_ascii) {
1332                 /* Here a line of pkt bytes reading is finished
1333                    compare the ascii and hex to avoid such situation:
1334                    "61 62 20 ab ", when ab is ascii dump then it should
1335                    not be treat as byte */
1336                 rollback = 0;
1337                 /* s2 is the ASCII string, s1 is the HEX string, e.g, when
1338                    s2 = "ab ", s1 = "616220"
1339                    we should find out the largest tail of s1 matches the head
1340                    of s2, it means the matched part in tail is the ASCII dump
1341                    of the head byte. These matched should be rollback */
1342                 line_size = curr_offset-(int)(pkt_lnstart-packet_buf);
1343                 s2 = (char*)g_malloc((line_size+1)/4+1);
1344                 /* gather the possible pattern */
1345                 for (i = 0; i < (line_size+1)/4; i++) {
1346                     tmp_str[0] = pkt_lnstart[i*3];
1347                     tmp_str[1] = pkt_lnstart[i*3+1];
1348                     tmp_str[2] = '\0';
1349                     /* it is a valid convertable string */
1350                     if (!g_ascii_isxdigit(tmp_str[0]) || !g_ascii_isxdigit(tmp_str[1])) {
1351                         break;
1352                     }
1353                     s2[i] = (char)strtoul(tmp_str, (char **)NULL, 16);
1354                     rollback++;
1355                     /* the 3rd entry is not a delimiter, so the possible byte pattern will not shown */
1356                     if (!(pkt_lnstart[i*3+2] == ' ')) {
1357                         if (by_eol != 1)
1358                             rollback--;
1359                         break;
1360                     }
1361                 }
1362                 /* If packet line start contains possible byte pattern, the line end
1363                    should contain the matched pattern if the user open the -a flag.
1364                    The packet will be possible invalid if the byte pattern cannot find
1365                    a matched one in the line of packet buffer.*/
1366                 if (rollback > 0) {
1367                     if (strncmp(pkt_lnstart+line_size-rollback, s2, rollback) == 0) {
1368                         unwrite_bytes(rollback);
1369                     }
1370                     /* Not matched. This line contains invalid packet bytes, so
1371                        discard the whole line */
1372                     else {
1373                         unwrite_bytes(line_size);
1374                     }
1375                 }
1376                 g_free(s2);
1377             }
1378             break;
1379         default:
1380             break;
1381         }
1382         break;
1383
1384     /* ----- Processing packet, read text -------------------------------------*/
1385     case READ_TEXT:
1386         switch (token) {
1387         case T_EOL:
1388             state = START_OF_LINE;
1389             break;
1390         default:
1391             break;
1392         }
1393         break;
1394
1395     default:
1396         fprintf(stderr, "FATAL ERROR: Bad state (%d)", state);
1397         exit(1);
1398     }
1399
1400     if (debug >= 2)
1401         fprintf(stderr, ", %s)\n", state_str[state]);
1402
1403     return;
1404
1405 fail_null_str:
1406     fprintf(stderr, "FATAL ERROR: got NULL str pointer in state (%d)", state);
1407     exit(1);
1408
1409 }
1410
1411 /*----------------------------------------------------------------------
1412  * Print usage string and exit
1413  */
1414 static void
1415 print_usage (FILE *output)
1416 {
1417     fprintf(output,
1418             "\n"
1419             "Usage: text2pcap [options] <infile> <outfile>\n"
1420             "\n"
1421             "where  <infile> specifies input  filename (use - for standard input)\n"
1422             "      <outfile> specifies output filename (use - for standard output)\n"
1423             "\n"
1424             "Input:\n"
1425             "  -o hex|oct|dec         parse offsets as (h)ex, (o)ctal or (d)ecimal;\n"
1426             "                         default is hex.\n"
1427             "  -t <timefmt>           treat the text before the packet as a date/time code;\n"
1428             "                         the specified argument is a format string of the sort\n"
1429             "                         supported by strptime.\n"
1430             "                         Example: The time \"10:15:14.5476\" has the format code\n"
1431             "                         \"%%H:%%M:%%S.\"\n"
1432             "                         NOTE: The subsecond component delimiter, '.', must be\n"
1433             "                         given, but no pattern is required; the remaining\n"
1434             "                         number is assumed to be fractions of a second.\n"
1435             "                         NOTE: Date/time fields from the current date/time are\n"
1436             "                         used as the default for unspecified fields.\n"
1437             "  -D                     the text before the packet starts with an I or an O,\n"
1438             "                         indicating that the packet is inbound or outbound.\n"
1439             "                         This is only stored if the output format is PCAP-NG.\n"
1440             "  -a                     enable ASCII text dump identification.\n"
1441             "                         The start of the ASCII text dump can be identified\n"
1442             "                         and excluded from the packet data, even if it looks\n"
1443             "                         like a HEX dump.\n"
1444             "                         NOTE: Do not enable it if the input file does not\n"
1445             "                         contain the ASCII text dump.\n"
1446             "\n"
1447             "Output:\n"
1448             "  -l <typenum>           link-layer type number; default is 1 (Ethernet).  See\n"
1449             "                         http://www.tcpdump.org/linktypes.html for a list of\n"
1450             "                         numbers.  Use this option if your dump is a complete\n"
1451             "                         hex dump of an encapsulated packet and you wish to\n"
1452             "                         specify the exact type of encapsulation.\n"
1453             "                         Example: -l 7 for ARCNet packets.\n"
1454             "  -m <max-packet>        max packet length in output; default is %d\n"
1455             "\n"
1456             "Prepend dummy header:\n"
1457             "  -e <l3pid>             prepend dummy Ethernet II header with specified L3PID\n"
1458             "                         (in HEX).\n"
1459             "                         Example: -e 0x806 to specify an ARP packet.\n"
1460             "  -i <proto>             prepend dummy IP header with specified IP protocol\n"
1461             "                         (in DECIMAL).\n"
1462             "                         Automatically prepends Ethernet header as well.\n"
1463             "                         Example: -i 46\n"
1464             "  -4 <srcip>,<destip>    prepend dummy IPv4 header with specified\n"
1465             "                         dest and source address.\n"
1466             "                         Example: -4 10.0.0.1,10.0.0.2\n"
1467             "  -6 <srcip>,<destip>    replace IPv6 header with specified\n"
1468             "                         dest and source address.\n"
1469             "                         Example: -6 fe80:0:0:0:202:b3ff:fe1e:8329,2001:0db8:85a3:0000:0000:8a2e:0370:7334\n"
1470             "  -u <srcp>,<destp>      prepend dummy UDP header with specified\n"
1471             "                         source and destination ports (in DECIMAL).\n"
1472             "                         Automatically prepends Ethernet & IP headers as well.\n"
1473             "                         Example: -u 1000,69 to make the packets look like\n"
1474             "                         TFTP/UDP packets.\n"
1475             "  -T <srcp>,<destp>      prepend dummy TCP header with specified\n"
1476             "                         source and destination ports (in DECIMAL).\n"
1477             "                         Automatically prepends Ethernet & IP headers as well.\n"
1478             "                         Example: -T 50,60\n"
1479             "  -s <srcp>,<dstp>,<tag> prepend dummy SCTP header with specified\n"
1480             "                         source/dest ports and verification tag (in DECIMAL).\n"
1481             "                         Automatically prepends Ethernet & IP headers as well.\n"
1482             "                         Example: -s 30,40,34\n"
1483             "  -S <srcp>,<dstp>,<ppi> prepend dummy SCTP header with specified\n"
1484             "                         source/dest ports and verification tag 0.\n"
1485             "                         Automatically prepends a dummy SCTP DATA\n"
1486             "                         chunk header with payload protocol identifier ppi.\n"
1487             "                         Example: -S 30,40,34\n"
1488             "\n"
1489             "Miscellaneous:\n"
1490             "  -h                     display this help and exit.\n"
1491             "  -d                     show detailed debug of parser states.\n"
1492             "  -q                     generate no output at all (automatically disables -d).\n"
1493             "  -n                     use PCAP-NG instead of PCAP as output format.\n"
1494             "",
1495             MAX_PACKET);
1496 }
1497
1498 static void
1499 get_text2pcap_compiled_info(GString *str)
1500 {
1501     /* LIBZ */
1502     g_string_append(str, ", ");
1503 #ifdef HAVE_LIBZ
1504     g_string_append(str, "with libz ");
1505 #ifdef ZLIB_VERSION
1506     g_string_append(str, ZLIB_VERSION);
1507 #else /* ZLIB_VERSION */
1508     g_string_append(str, "(version unknown)");
1509 #endif /* ZLIB_VERSION */
1510 #else /* HAVE_LIBZ */
1511     g_string_append(str, "without libz");
1512 #endif /* HAVE_LIBZ */
1513 }
1514
1515 static void
1516 get_text2pcap_runtime_info(GString *str)
1517 {
1518     /* zlib */
1519 #if defined(HAVE_LIBZ) && !defined(_WIN32)
1520     g_string_append_printf(str, ", with libz %s", zlibVersion());
1521 #endif
1522 }
1523
1524 /*----------------------------------------------------------------------
1525  * Parse CLI options
1526  */
1527 static void
1528 parse_options (int argc, char *argv[])
1529 {
1530     GString *comp_info_str;
1531     GString *runtime_info_str;
1532     int   c;
1533     char *p;
1534 DIAG_OFF(cast-qual)
1535     static const struct option long_options[] = {
1536         {(char *)"help", no_argument, NULL, 'h'},
1537         {(char *)"version", no_argument, NULL, 'v'},
1538         {0, 0, 0, 0 }
1539     };
1540 DIAG_ON(cast-qual)
1541
1542 #ifdef _WIN32
1543     arg_list_utf_16to8(argc, argv);
1544     create_app_running_mutex();
1545 #endif /* _WIN32 */
1546
1547     /* Get the compile-time version information string */
1548     comp_info_str = get_compiled_version_info(NULL, get_text2pcap_compiled_info);
1549
1550     /* get the run-time version information string */
1551     runtime_info_str = get_runtime_version_info(get_text2pcap_runtime_info);
1552
1553     /* Add it to the information to be reported on a crash. */
1554     ws_add_crash_info("Text2pcap (Wireshark) %s\n"
1555          "\n"
1556          "%s"
1557          "\n"
1558          "%s",
1559       get_ws_vcs_version_info(), comp_info_str->str, runtime_info_str->str);
1560
1561     /* Scan CLI parameters */
1562     while ((c = getopt_long(argc, argv, "aDdhqe:i:l:m:no:u:s:S:t:T:v4:6:", long_options, NULL)) != -1) {
1563         switch (c) {
1564         case 'h':
1565             printf("Text2pcap (Wireshark) %s\n"
1566                    "Generate a capture file from an ASCII hexdump of packets.\n"
1567                    "See http://www.wireshark.org for more information.\n",
1568                    get_ws_vcs_version_info());
1569             print_usage(stdout);
1570             exit(0);
1571             break;
1572         case 'd': if (!quiet) debug++; break;
1573         case 'D': has_direction = TRUE; break;
1574         case 'q': quiet = TRUE; debug = FALSE; break;
1575         case 'l': pcap_link_type = (guint32)strtol(optarg, NULL, 0); break;
1576         case 'm': max_offset = (guint32)strtol(optarg, NULL, 0); break;
1577         case 'n': use_pcapng = TRUE; break;
1578         case 'o':
1579             if (optarg[0] != 'h' && optarg[0] != 'o' && optarg[0] != 'd') {
1580                 fprintf(stderr, "Bad argument for '-o': %s\n", optarg);
1581                 print_usage(stderr);
1582                 exit(1);
1583             }
1584             switch (optarg[0]) {
1585             case 'o': offset_base =  8; break;
1586             case 'h': offset_base = 16; break;
1587             case 'd': offset_base = 10; break;
1588             }
1589             break;
1590         case 'e':
1591             hdr_ethernet = TRUE;
1592             if (sscanf(optarg, "%x", &hdr_ethernet_proto) < 1) {
1593                 fprintf(stderr, "Bad argument for '-e': %s\n", optarg);
1594                 print_usage(stderr);
1595                 exit(1);
1596             }
1597             break;
1598
1599         case 'i':
1600             hdr_ip = TRUE;
1601             hdr_ip_proto = strtol(optarg, &p, 10);
1602             if (p == optarg || *p != '\0' || hdr_ip_proto < 0 ||
1603                   hdr_ip_proto > 255) {
1604                 fprintf(stderr, "Bad argument for '-i': %s\n", optarg);
1605                 print_usage(stderr);
1606                 exit(1);
1607             }
1608             hdr_ethernet = TRUE;
1609             hdr_ethernet_proto = 0x800;
1610             break;
1611
1612         case 's':
1613             hdr_sctp = TRUE;
1614             hdr_data_chunk = FALSE;
1615             hdr_tcp = FALSE;
1616             hdr_udp = FALSE;
1617             hdr_sctp_src   = (guint32)strtol(optarg, &p, 10);
1618             if (p == optarg || (*p != ',' && *p != '\0')) {
1619                 fprintf(stderr, "Bad src port for '-%c'\n", c);
1620                 print_usage(stderr);
1621                 exit(1);
1622             }
1623             if (*p == '\0') {
1624                 fprintf(stderr, "No dest port specified for '-%c'\n", c);
1625                 print_usage(stderr);
1626                 exit(1);
1627             }
1628             p++;
1629             optarg = p;
1630             hdr_sctp_dest = (guint32)strtol(optarg, &p, 10);
1631             if (p == optarg || (*p != ',' && *p != '\0')) {
1632                 fprintf(stderr, "Bad dest port for '-s'\n");
1633                 print_usage(stderr);
1634                 exit(1);
1635             }
1636             if (*p == '\0') {
1637                 fprintf(stderr, "No tag specified for '-%c'\n", c);
1638                 print_usage(stderr);
1639                 exit(1);
1640             }
1641             p++;
1642             optarg = p;
1643             hdr_sctp_tag = (guint32)strtol(optarg, &p, 10);
1644             if (p == optarg || *p != '\0') {
1645                 fprintf(stderr, "Bad tag for '-%c'\n", c);
1646                 print_usage(stderr);
1647                 exit(1);
1648             }
1649
1650             hdr_ip = TRUE;
1651             hdr_ip_proto = 132;
1652             hdr_ethernet = TRUE;
1653             hdr_ethernet_proto = 0x800;
1654             break;
1655         case 'S':
1656             hdr_sctp = TRUE;
1657             hdr_data_chunk = TRUE;
1658             hdr_tcp = FALSE;
1659             hdr_udp = FALSE;
1660             hdr_sctp_src   = (guint32)strtol(optarg, &p, 10);
1661             if (p == optarg || (*p != ',' && *p != '\0')) {
1662                 fprintf(stderr, "Bad src port for '-%c'\n", c);
1663                 print_usage(stderr);
1664                 exit(1);
1665             }
1666             if (*p == '\0') {
1667                 fprintf(stderr, "No dest port specified for '-%c'\n", c);
1668                 print_usage(stderr);
1669                 exit(1);
1670             }
1671             p++;
1672             optarg = p;
1673             hdr_sctp_dest = (guint32)strtol(optarg, &p, 10);
1674             if (p == optarg || (*p != ',' && *p != '\0')) {
1675                 fprintf(stderr, "Bad dest port for '-s'\n");
1676                 print_usage(stderr);
1677                 exit(1);
1678             }
1679             if (*p == '\0') {
1680                 fprintf(stderr, "No ppi specified for '-%c'\n", c);
1681                 print_usage(stderr);
1682                 exit(1);
1683             }
1684             p++;
1685             optarg = p;
1686             hdr_data_chunk_ppid = (guint32)strtoul(optarg, &p, 10);
1687             if (p == optarg || *p != '\0') {
1688                 fprintf(stderr, "Bad ppi for '-%c'\n", c);
1689                 print_usage(stderr);
1690                 exit(1);
1691             }
1692
1693             hdr_ip = TRUE;
1694             hdr_ip_proto = 132;
1695             hdr_ethernet = TRUE;
1696             hdr_ethernet_proto = 0x800;
1697             break;
1698
1699         case 't':
1700             ts_fmt = optarg;
1701             break;
1702
1703         case 'u':
1704             hdr_udp = TRUE;
1705             hdr_tcp = 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 '-u'\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 '-u'\n");
1724                 print_usage(stderr);
1725                 exit(1);
1726             }
1727             hdr_ip = TRUE;
1728             hdr_ip_proto = 17;
1729             hdr_ethernet = TRUE;
1730             hdr_ethernet_proto = 0x800;
1731             break;
1732
1733         case 'T':
1734             hdr_tcp = TRUE;
1735             hdr_udp = FALSE;
1736             hdr_sctp = FALSE;
1737             hdr_data_chunk = FALSE;
1738             hdr_src_port = (guint32)strtol(optarg, &p, 10);
1739             if (p == optarg || (*p != ',' && *p != '\0')) {
1740                 fprintf(stderr, "Bad src port for '-T'\n");
1741                 print_usage(stderr);
1742                 exit(1);
1743             }
1744             if (*p == '\0') {
1745                 fprintf(stderr, "No dest port specified for '-u'\n");
1746                 print_usage(stderr);
1747                 exit(1);
1748             }
1749             p++;
1750             optarg = p;
1751             hdr_dest_port = (guint32)strtol(optarg, &p, 10);
1752             if (p == optarg || *p != '\0') {
1753                 fprintf(stderr, "Bad dest port for '-T'\n");
1754                 print_usage(stderr);
1755                 exit(1);
1756             }
1757             hdr_ip = TRUE;
1758             hdr_ip_proto = 6;
1759             hdr_ethernet = TRUE;
1760             hdr_ethernet_proto = 0x800;
1761             break;
1762
1763         case 'a':
1764             identify_ascii = TRUE;
1765             break;
1766
1767         case 'v':
1768             show_version("Text2pcap (Wireshark)", comp_info_str, runtime_info_str);
1769             g_string_free(comp_info_str, TRUE);
1770             g_string_free(runtime_info_str, TRUE);
1771             exit(0);
1772             break;
1773
1774         case '4':
1775         case '6':
1776             p = strchr(optarg, ',');
1777
1778             if (!p) {
1779                 fprintf(stderr, "Bad source param addr for '-%c'\n", c);
1780                 print_usage(stderr);
1781                 exit(1);
1782             }
1783
1784             *p = '\0';
1785             if (c == '6')
1786             {
1787                 hdr_ipv6 = TRUE;
1788                 hdr_ethernet_proto = 0x86DD;
1789             }
1790             else
1791             {
1792                 hdr_ip = TRUE;
1793                 hdr_ethernet_proto = 0x800;
1794             }
1795             hdr_ethernet = TRUE;
1796
1797             if (hdr_ipv6 == TRUE) {
1798                 if (inet_pton( AF_INET6, optarg, hdr_ipv6_src_addr) <= 0) {
1799                         fprintf(stderr, "Bad src addr -%c '%s'\n", c, p);
1800                         print_usage(stderr);
1801                         exit(1);
1802                 }
1803             } else {
1804                 if (inet_pton( AF_INET, optarg, &hdr_ip_src_addr) <= 0) {
1805                         fprintf(stderr, "Bad src addr -%c '%s'\n", c, p);
1806                         print_usage(stderr);
1807                         exit(1);
1808                 }
1809             }
1810
1811             p++;
1812             if (*p == '\0') {
1813                 fprintf(stderr, "No dest addr specified for '-%c'\n", c);
1814                 print_usage(stderr);
1815                 exit(1);
1816             }
1817
1818             if (hdr_ipv6 == TRUE) {
1819                 if (inet_pton( AF_INET6, p, hdr_ipv6_dest_addr) <= 0) {
1820                         fprintf(stderr, "Bad dest addr for -%c '%s'\n", c, p);
1821                         print_usage(stderr);
1822                         exit(1);
1823                 }
1824             } else {
1825                 if (inet_pton( AF_INET, p, &hdr_ip_dest_addr) <= 0) {
1826                         fprintf(stderr, "Bad dest addr for -%c '%s'\n", c, p);
1827                         print_usage(stderr);
1828                         exit(1);
1829                 }
1830             }
1831             break;
1832
1833
1834         case '?':
1835         default:
1836             print_usage(stderr);
1837             exit(1);
1838         }
1839     }
1840
1841     if (optind >= argc || argc-optind < 2) {
1842         fprintf(stderr, "Must specify input and output filename\n");
1843         print_usage(stderr);
1844         exit(1);
1845     }
1846
1847     if (strcmp(argv[optind], "-")) {
1848         input_filename = g_strdup(argv[optind]);
1849         input_file = ws_fopen(input_filename, "rb");
1850         if (!input_file) {
1851             fprintf(stderr, "Cannot open file [%s] for reading: %s\n",
1852                     input_filename, g_strerror(errno));
1853             exit(1);
1854         }
1855     } else {
1856         input_filename = "Standard input";
1857         input_file = stdin;
1858     }
1859
1860     if (strcmp(argv[optind+1], "-")) {
1861         output_filename = g_strdup(argv[optind+1]);
1862         output_file = ws_fopen(output_filename, "wb");
1863         if (!output_file) {
1864             fprintf(stderr, "Cannot open file [%s] for writing: %s\n",
1865                     output_filename, g_strerror(errno));
1866             exit(1);
1867         }
1868     } else {
1869         output_filename = "Standard output";
1870         output_file = stdout;
1871     }
1872
1873     /* Some validation */
1874     if (pcap_link_type != 1 && hdr_ethernet) {
1875         fprintf(stderr, "Dummy headers (-e, -i, -u, -s, -S -T) cannot be specified with link type override (-l)\n");
1876         exit(1);
1877     }
1878
1879     /* Set up our variables */
1880     if (!input_file) {
1881         input_file = stdin;
1882         input_filename = "Standard input";
1883     }
1884     if (!output_file) {
1885         output_file = stdout;
1886         output_filename = "Standard output";
1887     }
1888
1889     ts_sec = time(0);               /* initialize to current time */
1890     timecode_default = *localtime(&ts_sec);
1891     timecode_default.tm_isdst = -1; /* Unknown for now, depends on time given to the strptime() function */
1892
1893     /* Display summary of our state */
1894     if (!quiet) {
1895         fprintf(stderr, "Input from: %s\n", input_filename);
1896         fprintf(stderr, "Output to: %s\n",  output_filename);
1897         fprintf(stderr, "Output format: %s\n", use_pcapng ? "PCAP-NG" : "PCAP");
1898
1899         if (hdr_ethernet) fprintf(stderr, "Generate dummy Ethernet header: Protocol: 0x%0X\n",
1900                                   hdr_ethernet_proto);
1901         if (hdr_ip) fprintf(stderr, "Generate dummy IP header: Protocol: %ld\n",
1902                             hdr_ip_proto);
1903         if (hdr_udp) fprintf(stderr, "Generate dummy UDP header: Source port: %u. Dest port: %u\n",
1904                              hdr_src_port, hdr_dest_port);
1905         if (hdr_tcp) fprintf(stderr, "Generate dummy TCP header: Source port: %u. Dest port: %u\n",
1906                              hdr_src_port, hdr_dest_port);
1907         if (hdr_sctp) fprintf(stderr, "Generate dummy SCTP header: Source port: %u. Dest port: %u. Tag: %u\n",
1908                               hdr_sctp_src, hdr_sctp_dest, hdr_sctp_tag);
1909         if (hdr_data_chunk) fprintf(stderr, "Generate dummy DATA chunk header: TSN: %u. SID: %u. SSN: %u. PPID: %u\n",
1910                                     hdr_data_chunk_tsn, hdr_data_chunk_sid, hdr_data_chunk_ssn, hdr_data_chunk_ppid);
1911     }
1912 }
1913
1914 int
1915 main(int argc, char *argv[])
1916 {
1917     parse_options(argc, argv);
1918
1919     assert(input_file  != NULL);
1920     assert(output_file != NULL);
1921
1922     write_file_header();
1923
1924     header_length = 0;
1925     if (hdr_ethernet) {
1926         header_length += (int)sizeof(HDR_ETHERNET);
1927     }
1928     if (hdr_ip) {
1929         ip_offset = header_length;
1930         header_length += (int)sizeof(HDR_IP);
1931     } else if (hdr_ipv6) {
1932         ip_offset = header_length;
1933         header_length += (int)sizeof(HDR_IPv6);
1934     }
1935     if (hdr_sctp) {
1936         header_length += (int)sizeof(HDR_SCTP);
1937     }
1938     if (hdr_data_chunk) {
1939         header_length += (int)sizeof(HDR_DATA_CHUNK);
1940     }
1941     if (hdr_tcp) {
1942         header_length += (int)sizeof(HDR_TCP);
1943     }
1944     if (hdr_udp) {
1945         header_length += (int)sizeof(HDR_UDP);
1946     }
1947     curr_offset = header_length;
1948
1949     yyin = input_file;
1950     yylex();
1951
1952     write_current_packet(FALSE);
1953     write_file_trailer();
1954     fclose(input_file);
1955     fclose(output_file);
1956     if (debug)
1957         fprintf(stderr, "\n-------------------------\n");
1958     if (!quiet) {
1959         fprintf(stderr, "Read %u potential packet%s, wrote %u packet%s (%" G_GINT64_MODIFIER "u byte%s).\n",
1960                 num_packets_read, (num_packets_read == 1) ? "" : "s",
1961                 num_packets_written, (num_packets_written == 1) ? "" : "s",
1962                 bytes_written, (bytes_written == 1) ? "" : "s");
1963     }
1964     return 0;
1965 }
1966
1967 /*
1968  * Editor modelines  -  http://www.wireshark.org/tools/modelines.html
1969  *
1970  * Local variables:
1971  * c-basic-offset: 4
1972  * tab-width: 8
1973  * indent-tabs-mode: nil
1974  * End:
1975  *
1976  * vi: set shiftwidth=4 tabstop=8 expandtab:
1977  * :indentSize=4:tabSize=8:noTabs=true:
1978  */
1979