text2pcap.c

   1 /**-*-C-*-**********************************************************************
   2  *
   3  * text2pcap.c
   4  *
   5  * Utility to convert an ASCII hexdump into a libpcap-format capture file
   6  *
   7  * (c) Copyright 2001 Ashok Narayanan <ashokn@cisco.com>
   8  *
   9  * $Id$
  10  *
  11  * Wireshark - Network traffic analyzer
  12  * By Gerald Combs <gerald@wireshark.org>
  13  * Copyright 1998 Gerald Combs
  14  *
  15  * This program is free software; you can redistribute it and/or
  16  * modify it under the terms of the GNU General Public License
  17  * as published by the Free Software Foundation; either version 2
  18  * of the License, or (at your option) any later version.
  19  *
  20  * This program is distributed in the hope that it will be useful,
  21  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  22  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23  * GNU General Public License for more details.
  24  *
  25  * You should have received a copy of the GNU General Public License
  26  * along with this program; if not, write to the Free Software
  27  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  28  *
  29  *******************************************************************************/
  30
  31 /*******************************************************************************
  32  *
  33  * This utility reads in an ASCII hexdump of this common format:
  34  *
  35  * 00000000  00 E0 1E A7 05 6F 00 10 5A A0 B9 12 08 00 46 00 .....o..Z.....F.
  36  * 00000010  03 68 00 00 00 00 0A 2E EE 33 0F 19 08 7F 0F 19 .h.......3...\7f..
  37  * 00000020  03 80 94 04 00 00 10 01 16 A2 0A 00 03 50 00 0C .............P..
  38  * 00000030  01 01 0F 19 03 80 11 01 1E 61 00 0C 03 01 0F 19 .........a......
  39  *
  40  * Each bytestring line consists of an offset, one or more bytes, and
  41  * text at the end. An offset is defined as a hex string of more than
  42  * two characters. A byte is defined as a hex string of exactly two
  43  * characters. The text at the end is ignored, as is any text before
  44  * the offset. Bytes read from a bytestring line are added to the
  45  * current packet only if all the following conditions are satisfied:
  46  *
  47  * - No text appears between the offset and the bytes (any bytes appearing after
  48  *   such text would be ignored)
  49  *
  50  * - The offset must be arithmetically correct, i.e. if the offset is 00000020, then
  51  *   exactly 32 bytes must have been read into this packet before this. If the offset
  52  *   is wrong, the packet is immediately terminated
  53  *
  54  * A packet start is signaled by a zero offset.
  55  *
  56  * Lines starting with #TEXT2PCAP are directives. These allow the user
  57  * to embed instructions into the capture file which allows text2pcap
  58  * to take some actions (e.g. specifying the encapsulation
  59  * etc.). Currently no directives are implemented.
  60  *
  61  * Lines beginning with # which are not directives are ignored as
  62  * comments. Currently all non-hexdump text is ignored by text2pcap;
  63  * in the future, text processing may be added, but lines prefixed
  64  * with '#' will still be ignored.
  65  *
  66  * The output is a libpcap packet containing Ethernet frames by
  67  * default. This program takes options which allow the user to add
  68  * dummy Ethernet, IP and UDP or TCP headers to the packets in order
  69  * to allow dumps of L3 or higher protocols to be decoded.
  70  *
  71  * Considerable flexibility is built into this code to read hexdumps
  72  * of slightly different formats. For example, any text prefixing the
  73  * hexdump line is dropped (including mail forwarding '>'). The offset
  74  * can be any hex number of four digits or greater.
  75  *
  76  * This converter cannot read a single packet greater than 64KiB-1. Packet
  77  * snaplength is automatically set to 64KiB-1.
  78  */
  79
  80 #include "config.h"
  81
  82 /*
  83  * Just make sure we include the prototype for strptime as well
  84  * (needed for glibc 2.2) but make sure we do this only if not
  85  * yet defined.
  86  */
  87 #ifndef __USE_XOPEN
  88 #  define __USE_XOPEN
  89 #endif
  90 #ifndef _XOPEN_SOURCE
  91 #  ifndef __sun
  92 #    define _XOPEN_SOURCE 600
  93 #  endif
  94 #endif
  95
  96 /*
  97  * Defining _XOPEN_SOURCE is needed on some platforms, e.g. platforms
  98  * using glibc, to expand the set of things system header files define.
  99  *
 100  * Unfortunately, on other platforms, such as some versions of Solaris
 101  * (including Solaris 10), it *reduces* that set as well, causing
 102  * strptime() not to be declared, presumably because the version of the
 103  * X/Open spec that _XOPEN_SOURCE implies doesn't include strptime() and
 104  * blah blah blah namespace pollution blah blah blah.
 105  *
 106  * So we define __EXTENSIONS__ so that "strptime()" is declared.
 107  */
 108 #ifndef __EXTENSIONS__
 109 #  define __EXTENSIONS__
 110 #endif
 111
 112 #include <ctype.h>
 113 #include <stdio.h>
 114 #include <stdlib.h>
 115 #include <string.h>
 116 #include <wsutil/file_util.h>
 117
 118 #include <time.h>
 119 #include <glib.h>
 120
 121 #ifdef HAVE_UNISTD_H
 122 # include <unistd.h>
 123 #endif
 124
 125 #include <errno.h>
 126 #include <assert.h>
 127
 128 #ifndef HAVE_GETOPT
 129 #include "wsutil/wsgetopt.h"
 130 #endif
 131
 132 #ifdef NEED_STRPTIME_H
 133 # include "wsutil/strptime.h"
 134 #endif
 135
 136 #include "pcapio.h"
 137 #include "text2pcap.h"
 138 #include "svnversion.h"
 139
 140 #ifdef _WIN32
 141 #include <wsutil/unicode-utils.h>
 142 #endif /* _WIN32 */
 143
 144 #ifdef HAVE_ARPA_INET_H
 145 #include <arpa/inet.h>
 146 #endif
 147
 148 #ifdef HAVE_WINSOCK2_H
 149 #include <winsock2.h>       /* needed to define AF_ values on Windows */
 150 #endif
 151
 152 #ifdef NEED_INET_ATON_H
 153 # include "wsutil/inet_aton.h"
 154 #endif
 155
 156 #ifdef NEED_INET_V6DEFS_H
 157 # include "wsutil/inet_v6defs.h"
 158 #endif
 159
 160 /*--- Options --------------------------------------------------------------------*/
 161
 162 /* File format */
 163 static gboolean use_pcapng = FALSE;
 164
 165 /* Debug level */
 166 static int debug = 0;
 167 /* Be quiet */
 168 static int quiet = FALSE;
 169
 170 /* Dummy Ethernet header */
 171 static int hdr_ethernet = FALSE;
 172 static guint32 hdr_ethernet_proto = 0;
 173
 174 /* Dummy IP header */
 175 static int hdr_ip = FALSE;
 176 static int hdr_ipv6 = FALSE;
 177 static long hdr_ip_proto = 0;
 178
 179 /* Destination and source addresses for IP header */
 180 static unsigned long hdr_ip_dest_addr = 0;
 181 static unsigned long hdr_ip_src_addr = 0;
 182 static guint8 hdr_ipv6_dest_addr[16] = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
 183 static guint8 hdr_ipv6_src_addr[16] = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
 184 static guint8 NO_IPv6_ADDRESS[16] = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
 185
 186 /* Dummy UDP header */
 187 static int hdr_udp = FALSE;
 188 static guint32 hdr_dest_port = 0;
 189 static guint32 hdr_src_port = 0;
 190
 191 /* Dummy TCP header */
 192 static int hdr_tcp = FALSE;
 193
 194 /* Dummy SCTP header */
 195 static int hdr_sctp = FALSE;
 196 static guint32 hdr_sctp_src  = 0;
 197 static guint32 hdr_sctp_dest = 0;
 198 static guint32 hdr_sctp_tag  = 0;
 199
 200 /* Dummy DATA chunk header */
 201 static int hdr_data_chunk = FALSE;
 202 static guint8  hdr_data_chunk_type = 0;
 203 static guint8  hdr_data_chunk_bits = 0;
 204 static guint32 hdr_data_chunk_tsn  = 0;
 205 static guint16 hdr_data_chunk_sid  = 0;
 206 static guint16 hdr_data_chunk_ssn  = 0;
 207 static guint32 hdr_data_chunk_ppid = 0;
 208
 209 /* ASCII text dump identification */
 210 static int identify_ascii = FALSE;
 211
 212 static gboolean has_direction = FALSE;
 213 static guint32 direction = 0;
 214
 215 /*--- Local date -----------------------------------------------------------------*/
 216
 217 /* This is where we store the packet currently being built */
 218 #define MAX_PACKET 65535
 219 static guint8 packet_buf[MAX_PACKET];
 220 static guint32 header_length;
 221 static guint32 ip_offset;
 222 static guint32 curr_offset;
 223 static guint32 max_offset = MAX_PACKET;
 224 static guint32 packet_start = 0;
 225 static void start_new_packet(gboolean);
 226
 227 /* This buffer contains strings present before the packet offset 0 */
 228 #define PACKET_PREAMBLE_MAX_LEN     2048
 229 static guint8 packet_preamble[PACKET_PREAMBLE_MAX_LEN+1];
 230 static int packet_preamble_len = 0;
 231
 232 /* Number of packets read and written */
 233 static guint32 num_packets_read = 0;
 234 static guint32 num_packets_written = 0;
 235 static guint64 bytes_written = 0;
 236
 237 /* Time code of packet, derived from packet_preamble */
 238 static time_t ts_sec  = 0;
 239 static guint32 ts_usec = 0;
 240 static char *ts_fmt = NULL;
 241 static struct tm timecode_default;
 242
 243 static guint8* pkt_lnstart;
 244
 245 /* Input file */
 246 static const char *input_filename;
 247 static FILE *input_file = NULL;
 248 /* Output file */
 249 static const char *output_filename;
 250 static FILE *output_file = NULL;
 251
 252 /* Offset base to parse */
 253 static guint32 offset_base = 16;
 254
 255 extern FILE *yyin;
 256
 257 /* ----- State machine -----------------------------------------------------------*/
 258
 259 /* Current state of parser */
 260 typedef enum {
 261     INIT,             /* Waiting for start of new packet */
 262     START_OF_LINE,    /* Starting from beginning of line */
 263     READ_OFFSET,      /* Just read the offset */
 264     READ_BYTE,        /* Just read a byte */
 265     READ_TEXT         /* Just read text - ignore until EOL */
 266 } parser_state_t;
 267 static parser_state_t state = INIT;
 268
 269 static const char *state_str[] = {"Init",
 270                            "Start-of-line",
 271                            "Offset",
 272                            "Byte",
 273                            "Text"
 274 };
 275
 276 static const char *token_str[] = {"",
 277                            "Byte",
 278                            "Offset",
 279                            "Directive",
 280                            "Text",
 281                            "End-of-line"
 282 };
 283
 284 /* ----- Skeleton Packet Headers --------------------------------------------------*/
 285
 286 typedef struct {
 287     guint8  dest_addr[6];
 288     guint8  src_addr[6];
 289     guint16 l3pid;
 290 } hdr_ethernet_t;
 291
 292 static hdr_ethernet_t HDR_ETHERNET = {
 293     {0x0a, 0x02, 0x02, 0x02, 0x02, 0x02},
 294     {0x0a, 0x01, 0x01, 0x01, 0x01, 0x01},
 295     0};
 296
 297 typedef struct {
 298     guint8  ver_hdrlen;
 299     guint8  dscp;
 300     guint16 packet_length;
 301     guint16 identification;
 302     guint8  flags;
 303     guint8  fragment;
 304     guint8  ttl;
 305     guint8  protocol;
 306     guint16 hdr_checksum;
 307     guint32 src_addr;
 308     guint32 dest_addr;
 309 } hdr_ip_t;
 310
 311 static hdr_ip_t HDR_IP = {0x45, 0, 0, 0x3412, 0, 0, 0xff, 0, 0,
 312 #ifdef WORDS_BIGENDIAN
 313 0x0a010101, 0x0a020202
 314 #else
 315 0x0101010a, 0x0202020a
 316 #endif
 317 };
 318
 319 static struct {         /* pseudo header for checksum calculation */
 320     guint32 src_addr;
 321     guint32 dest_addr;
 322     guint8  zero;
 323     guint8  protocol;
 324     guint16 length;
 325 } pseudoh;
 326
 327
 328 /* headers taken from glibc */
 329
 330 /* IPv6 address */
 331 struct hdr_in6_addr
 332 {
 333     union
 334     {
 335        guint8  __u6_addr8[16];
 336        guint16 __u6_addr16[8];
 337        guint32 __u6_addr32[4];
 338     } __in6_u;
 339 };
 340
 341 typedef struct {
 342         union  {
 343                 struct ip6_hdrctl {
 344                         guint32 ip6_un1_flow;   /* 24 bits of flow-ID */
 345                         guint16 ip6_un1_plen;   /* payload length */
 346                         guint8  ip6_un1_nxt;    /* next header */
 347                         guint8  ip6_un1_hlim;   /* hop limit */
 348                 } ip6_un1;
 349                 guint8 ip6_un2_vfc;       /* 4 bits version, 4 bits priority */
 350         } ip6_ctlun;
 351         struct hdr_in6_addr ip6_src;      /* source address */
 352         struct hdr_in6_addr ip6_dst;      /* destination address */
 353 } hdr_ipv6_t;
 354
 355 static hdr_ipv6_t HDR_IPv6;
 356
 357 static struct {                 /* pseudo header ipv6 for checksum calculation */
 358         struct  hdr_in6_addr src_addr6;
 359         struct  hdr_in6_addr dst_addr6;
 360         guint32 protocol;
 361         guint32 zero;
 362 } pseudoh6;
 363
 364
 365 typedef struct {
 366     guint16 source_port;
 367     guint16 dest_port;
 368     guint16 length;
 369     guint16 checksum;
 370 } hdr_udp_t;
 371
 372 static hdr_udp_t HDR_UDP = {0, 0, 0, 0};
 373
 374 typedef struct {
 375     guint16 source_port;
 376     guint16 dest_port;
 377     guint32 seq_num;
 378     guint32 ack_num;
 379     guint8  hdr_length;
 380     guint8  flags;
 381     guint16 window;
 382     guint16 checksum;
 383     guint16 urg;
 384 } hdr_tcp_t;
 385
 386 static hdr_tcp_t HDR_TCP = {0, 0, 0, 0, 0x50, 0, 0, 0, 0};
 387
 388 typedef struct {
 389     guint16 src_port;
 390     guint16 dest_port;
 391     guint32 tag;
 392     guint32 checksum;
 393 } hdr_sctp_t;
 394
 395 static hdr_sctp_t HDR_SCTP = {0, 0, 0, 0};
 396
 397 typedef struct {
 398     guint8  type;
 399     guint8  bits;
 400     guint16 length;
 401     guint32 tsn;
 402     guint16 sid;
 403     guint16 ssn;
 404     guint32 ppid;
 405 } hdr_data_chunk_t;
 406
 407 static hdr_data_chunk_t HDR_DATA_CHUNK = {0, 0, 0, 0, 0, 0, 0};
 408
 409 static char tempbuf[64];
 410
 411 /*----------------------------------------------------------------------
 412  * Stuff for writing a PCap file
 413  */
 414 #define PCAP_MAGIC          0xa1b2c3d4
 415 #define PCAP_SNAPLEN        0xffff
 416
 417 /* "libpcap" file header (minus magic number). */
 418 struct pcap_hdr {
 419     guint32 magic;          /* magic */
 420     guint16 version_major;  /* major version number */
 421     guint16 version_minor;  /* minor version number */
 422     guint32 thiszone;       /* GMT to local correction */
 423     guint32 sigfigs;        /* accuracy of timestamps */
 424     guint32 snaplen;        /* max length of captured packets, in octets */
 425     guint32 network;        /* data link type */
 426 };
 427
 428 /* "libpcap" record header. */
 429 struct pcaprec_hdr {
 430     guint32 ts_sec;         /* timestamp seconds */
 431     guint32 ts_usec;        /* timestamp microseconds */
 432     guint32 incl_len;       /* number of octets of packet saved in file */
 433     guint32 orig_len;       /* actual length of packet */
 434 };
 435
 436 /* Link-layer type; see net/bpf.h for details */
 437 static guint32 pcap_link_type = 1;   /* Default is DLT-EN10MB */
 438
 439 /*----------------------------------------------------------------------
 440  * Parse a single hex number
 441  * Will abort the program if it can't parse the number
 442  * Pass in TRUE if this is an offset, FALSE if not
 443  */
 444 static guint32
 445 parse_num (const char *str, int offset)
 446 {
 447     guint32 num;
 448     char *c;
 449
 450     num = (guint32)strtoul(str, &c, offset ? offset_base : 16);
 451     if (c==str) {
 452         fprintf(stderr, "FATAL ERROR: Bad hex number? [%s]\n", str);
 453         exit(-1);
 454     }
 455     return num;
 456 }
 457
 458 /*----------------------------------------------------------------------
 459  * Write this byte into current packet
 460  */
 461 static void
 462 write_byte (const char *str)
 463 {
 464     guint32 num;
 465
 466     num = parse_num(str, FALSE);
 467     packet_buf[curr_offset] = (guint8) num;
 468     curr_offset ++;
 469     if (curr_offset - header_length >= max_offset) /* packet full */
 470         start_new_packet(TRUE);
 471 }
 472
 473 /*----------------------------------------------------------------------
 474  * Write a number of bytes into current packet
 475  */
 476
 477 static void
 478 write_bytes(const char bytes[], guint32 nbytes)
 479 {
 480     guint32 i;
 481
 482     if (curr_offset + nbytes < MAX_PACKET) {
 483         for (i = 0; i < nbytes; i++) {
 484             packet_buf[curr_offset] = bytes[i];
 485             curr_offset++;
 486         }
 487     }
 488 }
 489
 490 /*----------------------------------------------------------------------
 491  * Remove bytes from the current packet
 492  */
 493 static void
 494 unwrite_bytes (guint32 nbytes)
 495 {
 496     curr_offset -= nbytes;
 497 }
 498
 499 /*----------------------------------------------------------------------
 500  * Compute one's complement checksum (from RFC1071)
 501  */
 502 static guint16
 503 in_checksum (void *buf, guint32 count)
 504 {
 505     guint32 sum = 0;
 506     guint16 *addr = (guint16 *)buf;
 507
 508     while (count > 1) {
 509         /*  This is the inner loop */
 510         sum += g_ntohs(* (guint16 *) addr);
 511         addr++;
 512         count -= 2;
 513     }
 514
 515     /*  Add left-over byte, if any */
 516     if (count > 0)
 517         sum += g_ntohs(* (guint8 *) addr);
 518
 519     /*  Fold 32-bit sum to 16 bits */
 520     while (sum>>16)
 521         sum = (sum & 0xffff) + (sum >> 16);
 522
 523     sum = ~sum;
 524     return g_htons(sum);
 525 }
 526
 527 /* The CRC32C code is taken from draft-ietf-tsvwg-sctpcsum-01.txt.
 528  * That code is copyrighted by D. Otis and has been modified.
 529  */
 530
 531 #define CRC32C(c,d) (c=(c>>8)^crc_c[(c^(d))&0xFF])
 532 static guint32 crc_c[256] =
 533 {
 534 0x00000000L, 0xF26B8303L, 0xE13B70F7L, 0x1350F3F4L,
 535 0xC79A971FL, 0x35F1141CL, 0x26A1E7E8L, 0xD4CA64EBL,
 536 0x8AD958CFL, 0x78B2DBCCL, 0x6BE22838L, 0x9989AB3BL,
 537 0x4D43CFD0L, 0xBF284CD3L, 0xAC78BF27L, 0x5E133C24L,
 538 0x105EC76FL, 0xE235446CL, 0xF165B798L, 0x030E349BL,
 539 0xD7C45070L, 0x25AFD373L, 0x36FF2087L, 0xC494A384L,
 540 0x9A879FA0L, 0x68EC1CA3L, 0x7BBCEF57L, 0x89D76C54L,
 541 0x5D1D08BFL, 0xAF768BBCL, 0xBC267848L, 0x4E4DFB4BL,
 542 0x20BD8EDEL, 0xD2D60DDDL, 0xC186FE29L, 0x33ED7D2AL,
 543 0xE72719C1L, 0x154C9AC2L, 0x061C6936L, 0xF477EA35L,
 544 0xAA64D611L, 0x580F5512L, 0x4B5FA6E6L, 0xB93425E5L,
 545 0x6DFE410EL, 0x9F95C20DL, 0x8CC531F9L, 0x7EAEB2FAL,
 546 0x30E349B1L, 0xC288CAB2L, 0xD1D83946L, 0x23B3BA45L,
 547 0xF779DEAEL, 0x05125DADL, 0x1642AE59L, 0xE4292D5AL,
 548 0xBA3A117EL, 0x4851927DL, 0x5B016189L, 0xA96AE28AL,
 549 0x7DA08661L, 0x8FCB0562L, 0x9C9BF696L, 0x6EF07595L,
 550 0x417B1DBCL, 0xB3109EBFL, 0xA0406D4BL, 0x522BEE48L,
 551 0x86E18AA3L, 0x748A09A0L, 0x67DAFA54L, 0x95B17957L,
 552 0xCBA24573L, 0x39C9C670L, 0x2A993584L, 0xD8F2B687L,
 553 0x0C38D26CL, 0xFE53516FL, 0xED03A29BL, 0x1F682198L,
 554 0x5125DAD3L, 0xA34E59D0L, 0xB01EAA24L, 0x42752927L,
 555 0x96BF4DCCL, 0x64D4CECFL, 0x77843D3BL, 0x85EFBE38L,
 556 0xDBFC821CL, 0x2997011FL, 0x3AC7F2EBL, 0xC8AC71E8L,
 557 0x1C661503L, 0xEE0D9600L, 0xFD5D65F4L, 0x0F36E6F7L,
 558 0x61C69362L, 0x93AD1061L, 0x80FDE395L, 0x72966096L,
 559 0xA65C047DL, 0x5437877EL, 0x4767748AL, 0xB50CF789L,
 560 0xEB1FCBADL, 0x197448AEL, 0x0A24BB5AL, 0xF84F3859L,
 561 0x2C855CB2L, 0xDEEEDFB1L, 0xCDBE2C45L, 0x3FD5AF46L,
 562 0x7198540DL, 0x83F3D70EL, 0x90A324FAL, 0x62C8A7F9L,
 563 0xB602C312L, 0x44694011L, 0x5739B3E5L, 0xA55230E6L,
 564 0xFB410CC2L, 0x092A8FC1L, 0x1A7A7C35L, 0xE811FF36L,
 565 0x3CDB9BDDL, 0xCEB018DEL, 0xDDE0EB2AL, 0x2F8B6829L,
 566 0x82F63B78L, 0x709DB87BL, 0x63CD4B8FL, 0x91A6C88CL,
 567 0x456CAC67L, 0xB7072F64L, 0xA457DC90L, 0x563C5F93L,
 568 0x082F63B7L, 0xFA44E0B4L, 0xE9141340L, 0x1B7F9043L,
 569 0xCFB5F4A8L, 0x3DDE77ABL, 0x2E8E845FL, 0xDCE5075CL,
 570 0x92A8FC17L, 0x60C37F14L, 0x73938CE0L, 0x81F80FE3L,
 571 0x55326B08L, 0xA759E80BL, 0xB4091BFFL, 0x466298FCL,
 572 0x1871A4D8L, 0xEA1A27DBL, 0xF94AD42FL, 0x0B21572CL,
 573 0xDFEB33C7L, 0x2D80B0C4L, 0x3ED04330L, 0xCCBBC033L,
 574 0xA24BB5A6L, 0x502036A5L, 0x4370C551L, 0xB11B4652L,
 575 0x65D122B9L, 0x97BAA1BAL, 0x84EA524EL, 0x7681D14DL,
 576 0x2892ED69L, 0xDAF96E6AL, 0xC9A99D9EL, 0x3BC21E9DL,
 577 0xEF087A76L, 0x1D63F975L, 0x0E330A81L, 0xFC588982L,
 578 0xB21572C9L, 0x407EF1CAL, 0x532E023EL, 0xA145813DL,
 579 0x758FE5D6L, 0x87E466D5L, 0x94B49521L, 0x66DF1622L,
 580 0x38CC2A06L, 0xCAA7A905L, 0xD9F75AF1L, 0x2B9CD9F2L,
 581 0xFF56BD19L, 0x0D3D3E1AL, 0x1E6DCDEEL, 0xEC064EEDL,
 582 0xC38D26C4L, 0x31E6A5C7L, 0x22B65633L, 0xD0DDD530L,
 583 0x0417B1DBL, 0xF67C32D8L, 0xE52CC12CL, 0x1747422FL,
 584 0x49547E0BL, 0xBB3FFD08L, 0xA86F0EFCL, 0x5A048DFFL,
 585 0x8ECEE914L, 0x7CA56A17L, 0x6FF599E3L, 0x9D9E1AE0L,
 586 0xD3D3E1ABL, 0x21B862A8L, 0x32E8915CL, 0xC083125FL,
 587 0x144976B4L, 0xE622F5B7L, 0xF5720643L, 0x07198540L,
 588 0x590AB964L, 0xAB613A67L, 0xB831C993L, 0x4A5A4A90L,
 589 0x9E902E7BL, 0x6CFBAD78L, 0x7FAB5E8CL, 0x8DC0DD8FL,
 590 0xE330A81AL, 0x115B2B19L, 0x020BD8EDL, 0xF0605BEEL,
 591 0x24AA3F05L, 0xD6C1BC06L, 0xC5914FF2L, 0x37FACCF1L,
 592 0x69E9F0D5L, 0x9B8273D6L, 0x88D28022L, 0x7AB90321L,
 593 0xAE7367CAL, 0x5C18E4C9L, 0x4F48173DL, 0xBD23943EL,
 594 0xF36E6F75L, 0x0105EC76L, 0x12551F82L, 0xE03E9C81L,
 595 0x34F4F86AL, 0xC69F7B69L, 0xD5CF889DL, 0x27A40B9EL,
 596 0x79B737BAL, 0x8BDCB4B9L, 0x988C474DL, 0x6AE7C44EL,
 597 0xBE2DA0A5L, 0x4C4623A6L, 0x5F16D052L, 0xAD7D5351L,
 598 };
 599
 600 static guint32
 601 crc32c(const guint8* buf, unsigned int len, guint32 crc32_init)
 602 {
 603     unsigned int i;
 604     guint32 crc32;
 605
 606     crc32 = crc32_init;
 607     for (i = 0; i < len; i++)
 608         CRC32C(crc32, buf[i]);
 609
 610     return ( crc32 );
 611 }
 612
 613 static guint32
 614 finalize_crc32c(guint32 crc32)
 615 {
 616     guint32 result;
 617     guint8 byte0,byte1,byte2,byte3;
 618
 619     result = ~crc32;
 620     byte0 = result & 0xff;
 621     byte1 = (result>>8) & 0xff;
 622     byte2 = (result>>16) & 0xff;
 623     byte3 = (result>>24) & 0xff;
 624     result = ((byte0 << 24) | (byte1 << 16) | (byte2 << 8) | byte3);
 625     return ( result );
 626 }
 627
 628 static guint16
 629 number_of_padding_bytes (guint32 length)
 630 {
 631     guint16 remainder;
 632
 633     remainder = length % 4;
 634
 635     if (remainder == 0)
 636         return 0;
 637     else
 638         return 4 - remainder;
 639 }
 640
 641 /*----------------------------------------------------------------------
 642  * Write current packet out
 643  */
 644 static void
 645 write_current_packet(gboolean cont)
 646 {
 647     guint32 length = 0;
 648     guint16 padding_length = 0;
 649     int err;
 650     gboolean success;
 651
 652     if (curr_offset > header_length) {
 653         /* Write the packet */
 654
 655         /* if defined IPv6 we should rewrite hdr_ethernet_proto anyways */
 656         if(hdr_ipv6) {
 657             hdr_ethernet_proto = 0x86DD;
 658             hdr_ip = FALSE;
 659         }
 660
 661         /* Compute packet length */
 662         length = curr_offset;
 663         if (hdr_sctp) {
 664             padding_length = number_of_padding_bytes(length - header_length );
 665         } else {
 666             padding_length = 0;
 667         }
 668         /* Reset curr_offset, since we now write the headers */
 669         curr_offset = 0;
 670
 671         /* Write Ethernet header */
 672         if (hdr_ethernet) {
 673             HDR_ETHERNET.l3pid = g_htons(hdr_ethernet_proto);
 674             write_bytes((const char *)&HDR_ETHERNET, sizeof(HDR_ETHERNET));
 675         }
 676
 677         /* Write IP header */
 678         if (hdr_ip) {
 679             if(hdr_ip_src_addr) HDR_IP.src_addr = hdr_ip_src_addr;
 680             if(hdr_ip_dest_addr) HDR_IP.dest_addr = hdr_ip_dest_addr;
 681
 682             HDR_IP.packet_length = g_htons(length - ip_offset + padding_length);
 683             HDR_IP.protocol = (guint8) hdr_ip_proto;
 684             HDR_IP.hdr_checksum = 0;
 685             HDR_IP.hdr_checksum = in_checksum(&HDR_IP, sizeof(HDR_IP));
 686             write_bytes((const char *)&HDR_IP, sizeof(HDR_IP));
 687         } else if (hdr_ipv6) {
 688             if(memcmp(hdr_ipv6_src_addr, NO_IPv6_ADDRESS, sizeof(struct hdr_in6_addr)))
 689                 memcpy(&HDR_IPv6.ip6_src, &hdr_ipv6_src_addr, sizeof(struct hdr_in6_addr));
 690             if(memcmp(hdr_ipv6_dest_addr, NO_IPv6_ADDRESS, sizeof(struct hdr_in6_addr)))
 691                 memcpy(&HDR_IPv6.ip6_dst, &hdr_ipv6_dest_addr, sizeof(struct hdr_in6_addr));
 692
 693             HDR_IPv6.ip6_ctlun.ip6_un2_vfc &= 0x0F;
 694             HDR_IPv6.ip6_ctlun.ip6_un2_vfc |= (6<< 4);
 695             HDR_IPv6.ip6_ctlun.ip6_un1.ip6_un1_plen = g_htons(length - ip_offset + padding_length);
 696             HDR_IPv6.ip6_ctlun.ip6_un1.ip6_un1_nxt  = (guint8) hdr_ip_proto;
 697             HDR_IPv6.ip6_ctlun.ip6_un1.ip6_un1_hlim = 32;
 698             write_bytes((const char *)&HDR_IPv6, sizeof(HDR_IPv6));
 699
 700             /* initialize pseudo ipv6 header for checksum calculation */
 701             pseudoh6.src_addr6  = HDR_IPv6.ip6_src;
 702             pseudoh6.dst_addr6  = HDR_IPv6.ip6_dst;
 703             pseudoh6.zero       = 0;
 704             pseudoh6.protocol   = (guint8) hdr_ip_proto;
 705             pseudoh.length      = g_htons(length - g_ntohs(HDR_IPv6.ip6_ctlun.ip6_un1.ip6_un1_plen) + sizeof(HDR_UDP));
 706         }
 707
 708         if(!hdr_ipv6) {
 709             /* initialize pseudo header for checksum calculation */
 710             pseudoh.src_addr    = HDR_IP.src_addr;
 711             pseudoh.dest_addr   = HDR_IP.dest_addr;
 712             pseudoh.zero        = 0;
 713             pseudoh.protocol    = (guint8) hdr_ip_proto;
 714             pseudoh.length      = g_htons(length - header_length + sizeof(HDR_UDP));
 715         }
 716
 717         /* Write UDP header */
 718         if (hdr_udp) {
 719             guint16 x16;
 720             guint32 u;
 721
 722             /* initialize the UDP header */
 723             HDR_UDP.source_port = g_htons(hdr_src_port);
 724             HDR_UDP.dest_port = g_htons(hdr_dest_port);
 725             HDR_UDP.length      = pseudoh.length;
 726             HDR_UDP.checksum = 0;
 727             /* Note: g_ntohs()/g_htons() macro arg may be eval'd twice so calc value before invoking macro */
 728             x16  = hdr_ipv6 ? in_checksum(&pseudoh6, sizeof(pseudoh6)) : in_checksum(&pseudoh, sizeof(pseudoh));
 729             u    = g_ntohs(x16);
 730             x16  = in_checksum(&HDR_UDP, sizeof(HDR_UDP));
 731             u   += g_ntohs(x16);
 732             x16  = in_checksum(packet_buf + header_length, length - header_length);
 733             u   += g_ntohs(x16);
 734             x16  = (u & 0xffff) + (u>>16);
 735             HDR_UDP.checksum = g_htons(x16);
 736             if (HDR_UDP.checksum == 0) /* differentiate between 'none' and 0 */
 737                 HDR_UDP.checksum = g_htons(1);
 738             write_bytes((const char *)&HDR_UDP, sizeof(HDR_UDP));
 739         }
 740
 741         /* Write TCP header */
 742         if (hdr_tcp) {
 743             guint16 x16;
 744             guint32 u;
 745
 746              /* initialize pseudo header for checksum calculation */
 747             pseudoh.src_addr    = HDR_IP.src_addr;
 748             pseudoh.dest_addr   = HDR_IP.dest_addr;
 749             pseudoh.zero        = 0;
 750             pseudoh.protocol    = (guint8) hdr_ip_proto;
 751             pseudoh.length      = g_htons(length - header_length + sizeof(HDR_TCP));
 752             /* initialize the TCP header */
 753             HDR_TCP.source_port = g_htons(hdr_src_port);
 754             HDR_TCP.dest_port = g_htons(hdr_dest_port);
 755             /* HDR_TCP.seq_num already correct */
 756             HDR_TCP.window = g_htons(0x2000);
 757             HDR_TCP.checksum = 0;
 758             /* Note: g_ntohs()/g_htons() macro arg may be eval'd twice so calc value before invoking macro */
 759             x16  = in_checksum(&pseudoh, sizeof(pseudoh));
 760             u    = g_ntohs(x16);
 761             x16  = in_checksum(&HDR_TCP, sizeof(HDR_TCP));
 762             u   += g_ntohs(x16);
 763             x16  = in_checksum(packet_buf + header_length, length - header_length);
 764             u   += g_ntohs(x16);
 765             x16  = (u & 0xffff) + (u>>16);
 766             HDR_TCP.checksum = g_htons(x16);
 767             if (HDR_TCP.checksum == 0) /* differentiate between 'none' and 0 */
 768                 HDR_TCP.checksum = g_htons(1);
 769             write_bytes((const char *)&HDR_TCP, sizeof(HDR_TCP));
 770             HDR_TCP.seq_num = g_ntohl(HDR_TCP.seq_num) + length - header_length;
 771             HDR_TCP.seq_num = g_htonl(HDR_TCP.seq_num);
 772         }
 773
 774         /* Compute DATA chunk header */
 775         if (hdr_data_chunk) {
 776             hdr_data_chunk_bits = 0;
 777             if (packet_start == 0) {
 778                 hdr_data_chunk_bits |= 0x02;
 779             }
 780             if (!cont) {
 781                 hdr_data_chunk_bits |= 0x01;
 782             }
 783             HDR_DATA_CHUNK.type   = hdr_data_chunk_type;
 784             HDR_DATA_CHUNK.bits   = hdr_data_chunk_bits;
 785             HDR_DATA_CHUNK.length = g_htons(length - header_length + sizeof(HDR_DATA_CHUNK));
 786             HDR_DATA_CHUNK.tsn    = g_htonl(hdr_data_chunk_tsn);
 787             HDR_DATA_CHUNK.sid    = g_htons(hdr_data_chunk_sid);
 788             HDR_DATA_CHUNK.ssn    = g_htons(hdr_data_chunk_ssn);
 789             HDR_DATA_CHUNK.ppid   = g_htonl(hdr_data_chunk_ppid);
 790             hdr_data_chunk_tsn++;
 791             if (!cont) {
 792                 hdr_data_chunk_ssn++;
 793             }
 794         }
 795
 796         /* Write SCTP common header */
 797         if (hdr_sctp) {
 798             guint32 zero = 0;
 799
 800             HDR_SCTP.src_port  = g_htons(hdr_sctp_src);
 801             HDR_SCTP.dest_port = g_htons(hdr_sctp_dest);
 802             HDR_SCTP.tag       = g_htonl(hdr_sctp_tag);
 803             HDR_SCTP.checksum  = g_htonl(0);
 804             HDR_SCTP.checksum  = crc32c((guint8 *)&HDR_SCTP, sizeof(HDR_SCTP), ~0L);
 805             if (hdr_data_chunk) {
 806                 HDR_SCTP.checksum  = crc32c((guint8 *)&HDR_DATA_CHUNK, sizeof(HDR_DATA_CHUNK), HDR_SCTP.checksum);
 807                 HDR_SCTP.checksum  = crc32c((guint8 *)packet_buf + header_length, length - header_length, HDR_SCTP.checksum);
 808                 HDR_SCTP.checksum  = crc32c((guint8 *)&zero, padding_length, HDR_SCTP.checksum);
 809             } else {
 810                 HDR_SCTP.checksum  = crc32c((guint8 *)packet_buf + header_length, length - header_length, HDR_SCTP.checksum);
 811             }
 812             HDR_SCTP.checksum = finalize_crc32c(HDR_SCTP.checksum);
 813             HDR_SCTP.checksum  = g_htonl(HDR_SCTP.checksum);
 814             write_bytes((const char *)&HDR_SCTP, sizeof(HDR_SCTP));
 815         }
 816
 817         /* Write DATA chunk header */
 818         if (hdr_data_chunk) {
 819             write_bytes((const char *)&HDR_DATA_CHUNK, sizeof(HDR_DATA_CHUNK));
 820         }
 821
 822         /* Reset curr_offset, since we now write the trailers */
 823         curr_offset = length;
 824
 825         /* Write DATA chunk padding */
 826         if (hdr_data_chunk && (padding_length > 0)) {
 827             memset(tempbuf, 0, padding_length);
 828             write_bytes((const char *)&tempbuf, padding_length);
 829             length += padding_length;
 830         }
 831
 832         /* Write Ethernet trailer */
 833         if (hdr_ethernet && (length < 60)) {
 834             memset(tempbuf, 0, 60 - length);
 835             write_bytes((const char *)&tempbuf, 60 - length);
 836             length = 60;
 837         }
 838         if (use_pcapng) {
 839             success = libpcap_write_enhanced_packet_block(libpcap_write_to_file, output_file,
 840                                                           NULL,
 841                                                           ts_sec, ts_usec,
 842                                                           length, length,
 843                                                           0,
 844                                                           1000000,
 845                                                           packet_buf, direction,
 846                                                           &bytes_written, &err);
 847         } else {
 848             success = libpcap_write_packet(libpcap_write_to_file, output_file,
 849                                            ts_sec, ts_usec,
 850                                            length, length,
 851                                            packet_buf,
 852                                            &bytes_written, &err);
 853         }
 854         if (!success) {
 855             fprintf(stderr, "File write error [%s] : %s\n",
 856                     output_filename, g_strerror(err));
 857             exit(-1);
 858         }
 859         if (ts_fmt == NULL) {
 860             /* fake packet counter */
 861             ts_usec++;
 862         }
 863         if (!quiet) {
 864             fprintf(stderr, "Wrote packet of %u bytes.\n", length);
 865         }
 866         num_packets_written ++;
 867     }
 868
 869     packet_start += curr_offset - header_length;
 870     curr_offset = header_length;
 871     return;
 872 }
 873
 874 /*----------------------------------------------------------------------
 875  * Write file header and trailer
 876  */
 877 static void
 878 write_file_header (void)
 879 {
 880     int err;
 881     gboolean success;
 882
 883     if (use_pcapng) {
 884 #ifdef SVNVERSION
 885         const char *appname = "text2pcap (" SVNVERSION " from " SVNPATH ")";
 886 #else
 887         const char *appname = "text2pcap";
 888 #endif
 889         char comment[100];
 890
 891         g_snprintf(comment, sizeof(comment), "Generated from input file %s.", input_filename);
 892         success = libpcap_write_session_header_block(libpcap_write_to_file, output_file,
 893                                                      comment,
 894                                                      NULL,
 895                                                      NULL,
 896                                                      appname,
 897                                                      -1,
 898                                                      &bytes_written,
 899                                                      &err);
 900         if (success) {
 901             success = libpcap_write_interface_description_block(libpcap_write_to_file, output_file,
 902                                                                 NULL,
 903                                                                 NULL,
 904                                                                 NULL,
 905                                                                 "",
 906                                                                 NULL,
 907                                                                 pcap_link_type,
 908                                                                 PCAP_SNAPLEN,
 909                                                                 &bytes_written,
 910                                                                 0,
 911                                                                 6,
 912                                                                 &err);
 913         }
 914     } else {
 915         success = libpcap_write_file_header(libpcap_write_to_file, output_file, pcap_link_type, PCAP_SNAPLEN,
 916                                             FALSE, &bytes_written, &err);
 917     }
 918     if (!success) {
 919         fprintf(stderr, "File write error [%s] : %s\n",
 920                 output_filename, g_strerror(err));
 921         exit(-1);
 922     }
 923 }
 924
 925 static void
 926 write_file_trailer (void)
 927 {
 928     int err;
 929     gboolean success;
 930
 931     if (use_pcapng) {
 932         success = libpcap_write_interface_statistics_block(libpcap_write_to_file, output_file,
 933                                                            0,
 934                                                            &bytes_written,
 935                                                            "Counters provided by text2pcap",
 936                                                            0,
 937                                                            0,
 938                                                            num_packets_written,
 939                                                            num_packets_written - num_packets_written,
 940                                                            &err);
 941
 942     } else {
 943         success = TRUE;
 944     }
 945     if (!success) {
 946         fprintf(stderr, "File write error [%s] : %s\n",
 947                 output_filename, g_strerror(err));
 948         exit(-1);
 949     }
 950    return;
 951 }
 952
 953 /*----------------------------------------------------------------------
 954  * Append a token to the packet preamble.
 955  */
 956 static void
 957 append_to_preamble(char *str)
 958 {
 959     size_t toklen;
 960
 961     if (packet_preamble_len != 0) {
 962         if (packet_preamble_len == PACKET_PREAMBLE_MAX_LEN)
 963             return; /* no room to add more preamble */
 964         /* Add a blank separator between the previous token and this token. */
 965         packet_preamble[packet_preamble_len++] = ' ';
 966     }
 967     toklen = strlen(str);
 968     if (toklen != 0) {
 969         if (packet_preamble_len + toklen > PACKET_PREAMBLE_MAX_LEN)
 970             return; /* no room to add the token to the preamble */
 971         g_strlcpy(&packet_preamble[packet_preamble_len], str, PACKET_PREAMBLE_MAX_LEN);
 972         packet_preamble_len += (int) toklen;
 973         if (debug >= 2) {
 974             char *c;
 975             char xs[PACKET_PREAMBLE_MAX_LEN];
 976             g_strlcpy(xs, packet_preamble, PACKET_PREAMBLE_MAX_LEN);
 977             while ((c = strchr(xs, '\r')) != NULL) *c=' ';
 978             fprintf (stderr, "[[append_to_preamble: \"%s\"]]", xs);
 979         }
 980     }
 981 }
 982
 983 /*----------------------------------------------------------------------
 984  * Parse the preamble to get the timecode.
 985  */
 986
 987 static void
 988 parse_preamble (void)
 989 {
 990     struct tm timecode;
 991     char *subsecs;
 992     char *p;
 993     int  subseclen;
 994     int  i;
 995
 996      /*
 997      * Null-terminate the preamble.
 998      */
 999     packet_preamble[packet_preamble_len] = '\0';
1000     if (debug > 0)
1001         fprintf(stderr, "[[parse_preamble: \"%s\"]]\n", packet_preamble);
1002
1003     if (has_direction) {
1004         switch (packet_preamble[0]) {
1005         case 'i':
1006         case 'I':
1007             direction = 0x00000001;
1008             packet_preamble[0] = ' ';
1009             break;
1010         case 'o':
1011         case 'O':
1012             direction = 0x00000002;
1013             packet_preamble[0] = ' ';
1014             break;
1015         default:
1016             direction = 0x00000000;
1017             break;
1018         }
1019         i = 0;
1020         while (packet_preamble[i] == ' ' ||
1021                packet_preamble[i] == '\r' ||
1022                packet_preamble[i] == '\t') {
1023             i++;
1024         }
1025         packet_preamble_len -= i;
1026         /* Also move the trailing '\0'. */
1027         memmove(packet_preamble, packet_preamble + i, packet_preamble_len + 1);
1028     }
1029
1030
1031     /*
1032      * If no "-t" flag was specified, don't attempt to parse the packet
1033      * preamble to extract a time stamp.
1034      */
1035     if (ts_fmt == NULL) {
1036         /* Clear Preamble */
1037         packet_preamble_len = 0;
1038         return;
1039     }
1040
1041     /*
1042      * Initialize to today localtime, just in case not all fields
1043      * of the date and time are specified.
1044      */
1045
1046     timecode = timecode_default;
1047     ts_usec = 0;
1048
1049     /* Ensure preamble has more than two chars before attempting to parse.
1050      * This should cover line breaks etc that get counted.
1051      */
1052     if (strlen(packet_preamble) > 2) {
1053         /* Get Time leaving subseconds */
1054         subsecs = strptime( packet_preamble, ts_fmt, &timecode );
1055         if (subsecs != NULL) {
1056             /* Get the long time from the tm structure */
1057             /*  (will return -1 if failure)            */
1058             ts_sec  = mktime( &timecode );
1059         } else
1060             ts_sec = -1;    /* we failed to parse it */
1061
1062         /* This will ensure incorrectly parsed dates get set to zero */
1063         if (-1 == ts_sec) {
1064             /* Sanitize - remove all '\r' */
1065             char *c;
1066             while ((c = strchr(packet_preamble, '\r')) != NULL) *c=' ';
1067             fprintf (stderr, "Failure processing time \"%s\" using time format \"%s\"\n   (defaulting to Jan 1,1970 00:00:00 GMT)\n",
1068                  packet_preamble, ts_fmt);
1069             if (debug >= 2) {
1070                 fprintf(stderr, "timecode: %02d/%02d/%d %02d:%02d:%02d %d\n",
1071                     timecode.tm_mday, timecode.tm_mon, timecode.tm_year,
1072                     timecode.tm_hour, timecode.tm_min, timecode.tm_sec, timecode.tm_isdst);
1073             }
1074             ts_sec  = 0;  /* Jan 1,1970: 00:00 GMT; tshark/wireshark will display date/time as adjusted by timezone */
1075             ts_usec = 0;
1076         } else {
1077             /* Parse subseconds */
1078             ts_usec = (guint32)strtol(subsecs, &p, 10);
1079             if (subsecs == p) {
1080                 /* Error */
1081                 ts_usec = 0;
1082             } else {
1083                 /*
1084                  * Convert that number to a number
1085                  * of microseconds; if it's N digits
1086                  * long, it's in units of 10^(-N) seconds,
1087                  * so, to convert it to units of
1088                  * 10^-6 seconds, we multiply by
1089                  * 10^(6-N).
1090                  */
1091                 subseclen = (int) (p - subsecs);
1092                 if (subseclen > 6) {
1093                     /*
1094                      * *More* than 6 digits; 6-N is
1095                      * negative, so we divide by
1096                      * 10^(N-6).
1097                      */
1098                     for (i = subseclen - 6; i != 0; i--)
1099                         ts_usec /= 10;
1100                 } else if (subseclen < 6) {
1101                     for (i = 6 - subseclen; i != 0; i--)
1102                         ts_usec *= 10;
1103                 }
1104             }
1105         }
1106     }
1107     if (debug >= 2) {
1108         char *c;
1109         while ((c = strchr(packet_preamble, '\r')) != NULL) *c=' ';
1110         fprintf(stderr, "[[parse_preamble: \"%s\"]]\n", packet_preamble);
1111         fprintf(stderr, "Format(%s), time(%u), subsecs(%u)\n", ts_fmt, (guint32)ts_sec, ts_usec);
1112     }
1113
1114
1115     /* Clear Preamble */
1116     packet_preamble_len = 0;
1117 }
1118
1119 /*----------------------------------------------------------------------
1120  * Start a new packet
1121  */
1122 static void
1123 start_new_packet(gboolean cont)
1124 {
1125     if (debug >= 1)
1126         fprintf(stderr, "Start new packet (cont = %s).\n", cont ? "TRUE" : "FALSE");
1127
1128     /* Write out the current packet, if required */
1129     write_current_packet(cont);
1130     num_packets_read ++;
1131
1132     /* Ensure we parse the packet preamble as it may contain the time */
1133     parse_preamble();
1134 }
1135
1136 /*----------------------------------------------------------------------
1137  * Process a directive
1138  */
1139 static void
1140 process_directive (char *str)
1141 {
1142     fprintf(stderr, "\n--- Directive [%s] currently unsupported ---\n", str + 10);
1143 }
1144
1145 /*----------------------------------------------------------------------
1146  * Parse a single token (called from the scanner)
1147  */
1148 void
1149 parse_token (token_t token, char *str)
1150 {
1151     guint32 num;
1152     int by_eol;
1153     int rollback = 0;
1154     int line_size;
1155     int i;
1156     char* s2;
1157     char tmp_str[3];
1158
1159     /*
1160      * This is implemented as a simple state machine of five states.
1161      * State transitions are caused by tokens being received from the
1162      * scanner. The code should be self_documenting.
1163      */
1164
1165     if (debug >= 2) {
1166         /* Sanitize - remove all '\r' */
1167         char *c;
1168         if (str!=NULL) { while ((c = strchr(str, '\r')) != NULL) *c=' '; }
1169
1170         fprintf(stderr, "(%s, %s \"%s\") -> (",
1171                 state_str[state], token_str[token], str ? str : "");
1172     }
1173
1174     switch(state) {
1175
1176     /* ----- Waiting for new packet -------------------------------------------*/
1177     case INIT:
1178         switch(token) {
1179         case T_TEXT:
1180             append_to_preamble(str);
1181             break;
1182         case T_DIRECTIVE:
1183             process_directive(str);
1184             break;
1185         case T_OFFSET:
1186             num = parse_num(str, TRUE);
1187             if (num == 0) {
1188                 /* New packet starts here */
1189                 start_new_packet(FALSE);
1190                 state = READ_OFFSET;
1191                 pkt_lnstart = packet_buf + num;
1192             }
1193             break;
1194         case T_EOL:
1195             /* Some describing text may be parsed as offset, but the invalid
1196                offset will be checked in the state of START_OF_LINE, so
1197                we add this transition to gain flexibility */
1198             state = START_OF_LINE;
1199             break;
1200         default:
1201             break;
1202         }
1203         break;
1204
1205     /* ----- Processing packet, start of new line -----------------------------*/
1206     case START_OF_LINE:
1207         switch(token) {
1208         case T_TEXT:
1209             append_to_preamble(str);
1210             break;
1211         case T_DIRECTIVE:
1212             process_directive(str);
1213             break;
1214         case T_OFFSET:
1215             num = parse_num(str, TRUE);
1216             if (num == 0) {
1217                 /* New packet starts here */
1218                 start_new_packet(FALSE);
1219                 packet_start = 0;
1220                 state = READ_OFFSET;
1221             } else if ((num - packet_start) != curr_offset - header_length) {
1222                 /*
1223                  * The offset we read isn't the one we expected.
1224                  * This may only mean that we mistakenly interpreted
1225                  * some text as byte values (e.g., if the text dump
1226                  * of packet data included a number with spaces around
1227                  * it).  If the offset is less than what we expected,
1228                  * assume that's the problem, and throw away the putative
1229                  * extra byte values.
1230                  */
1231                 if (num < curr_offset) {
1232                     unwrite_bytes(curr_offset - num);
1233                     state = READ_OFFSET;
1234                 } else {
1235                     /* Bad offset; switch to INIT state */
1236                     if (debug >= 1)
1237                         fprintf(stderr, "Inconsistent offset. Expecting %0X, got %0X. Ignoring rest of packet\n",
1238                                 curr_offset, num);
1239                     write_current_packet(FALSE);
1240                     state = INIT;
1241                 }
1242             } else
1243                 state = READ_OFFSET;
1244                 pkt_lnstart = packet_buf + num;
1245             break;
1246         case T_EOL:
1247             state = START_OF_LINE;
1248             break;
1249         default:
1250             break;
1251         }
1252         break;
1253
1254     /* ----- Processing packet, read offset -----------------------------------*/
1255     case READ_OFFSET:
1256         switch(token) {
1257         case T_BYTE:
1258             /* Record the byte */
1259             state = READ_BYTE;
1260             write_byte(str);
1261             break;
1262         case T_TEXT:
1263         case T_DIRECTIVE:
1264         case T_OFFSET:
1265             state = READ_TEXT;
1266             break;
1267         case T_EOL:
1268             state = START_OF_LINE;
1269             break;
1270         default:
1271             break;
1272         }
1273         break;
1274
1275     /* ----- Processing packet, read byte -------------------------------------*/
1276     case READ_BYTE:
1277         switch(token) {
1278         case T_BYTE:
1279             /* Record the byte */
1280             write_byte(str);
1281             break;
1282         case T_TEXT:
1283         case T_DIRECTIVE:
1284         case T_OFFSET:
1285         case T_EOL:
1286             by_eol = 0;
1287             state = READ_TEXT;
1288             if (token == T_EOL) {
1289                 by_eol = 1;
1290                 state = START_OF_LINE;
1291             }
1292             if (identify_ascii) {
1293                 /* Here a line of pkt bytes reading is finished
1294                    compare the ascii and hex to avoid such situation:
1295                    "61 62 20 ab ", when ab is ascii dump then it should
1296                    not be treat as byte */
1297                 rollback = 0;
1298                 /* s2 is the ASCII string, s1 is the HEX string, e.g, when
1299                    s2 = "ab ", s1 = "616220"
1300                    we should find out the largest tail of s1 matches the head
1301                    of s2, it means the matched part in tail is the ASCII dump
1302                    of the head byte. These matched should be rollback */
1303                 line_size = curr_offset-(int)(pkt_lnstart-packet_buf);
1304                 s2 = (char*)g_malloc((line_size+1)/4+1);
1305                 /* gather the possible pattern */
1306                 for (i = 0; i < (line_size+1)/4; i++) {
1307                     tmp_str[0] = pkt_lnstart[i*3];
1308                     tmp_str[1] = pkt_lnstart[i*3+1];
1309                     tmp_str[2] = '\0';
1310                     /* it is a valid convertable string */
1311                     if (!isxdigit(tmp_str[0]) || !isxdigit(tmp_str[0])) {
1312                         break;
1313                     }
1314                     s2[i] = (char)strtoul(tmp_str, (char **)NULL, 16);
1315                     rollback++;
1316                     /* the 3rd entry is not a delimiter, so the possible byte pattern will not shown */
1317                     if (!(pkt_lnstart[i*3+2] == ' ')) {
1318                         if (by_eol != 1)
1319                             rollback--;
1320                         break;
1321                     }
1322                 }
1323                 /* If packet line start contains possible byte pattern, the line end
1324                    should contain the matched pattern if the user open the -a flag.
1325                    The packet will be possible invalid if the byte pattern cannot find
1326                    a matched one in the line of packet buffer.*/
1327                 if (rollback > 0) {
1328                     if (strncmp(pkt_lnstart+line_size-rollback, s2, rollback) == 0) {
1329                         unwrite_bytes(rollback);
1330                     }
1331                     /* Not matched. This line contains invalid packet bytes, so
1332                        discard the whole line */
1333                     else {
1334                         unwrite_bytes(line_size);
1335                     }
1336                 }
1337                 g_free(s2);
1338             }
1339             break;
1340         default:
1341             break;
1342         }
1343         break;
1344
1345     /* ----- Processing packet, read text -------------------------------------*/
1346     case READ_TEXT:
1347         switch(token) {
1348         case T_EOL:
1349             state = START_OF_LINE;
1350             break;
1351         default:
1352             break;
1353         }
1354         break;
1355
1356     default:
1357         fprintf(stderr, "FATAL ERROR: Bad state (%d)", state);
1358         exit(-1);
1359     }
1360
1361     if (debug>=2)
1362         fprintf(stderr, ", %s)\n", state_str[state]);
1363
1364 }
1365
1366 /*----------------------------------------------------------------------
1367  * Print usage string and exit
1368  */
1369 static void
1370 usage (void)
1371 {
1372     fprintf(stderr,
1373             "Text2pcap %s"
1374 #ifdef SVNVERSION
1375             " (" SVNVERSION " from " SVNPATH ")"
1376 #endif
1377             "\n"
1378             "Generate a capture file from an ASCII hexdump of packets.\n"
1379             "See http://www.wireshark.org for more information.\n"
1380             "\n"
1381             "Usage: text2pcap [options] <infile> <outfile>\n"
1382             "\n"
1383             "where  <infile> specifies input  filename (use - for standard input)\n"
1384             "      <outfile> specifies output filename (use - for standard output)\n"
1385             "\n"
1386             "Input:\n"
1387             "  -o hex|oct|dec         parse offsets as (h)ex, (o)ctal or (d)ecimal;\n"
1388             "                         default is hex.\n"
1389             "  -t <timefmt>           treat the text before the packet as a date/time code;\n"
1390             "                         the specified argument is a format string of the sort\n"
1391             "                         supported by strptime.\n"
1392             "                         Example: The time \"10:15:14.5476\" has the format code\n"
1393             "                         \"%%H:%%M:%%S.\"\n"
1394             "                         NOTE: The subsecond component delimiter, '.', must be\n"
1395             "                         given, but no pattern is required; the remaining\n"
1396             "                         number is assumed to be fractions of a second.\n"
1397             "                         NOTE: Date/time fields from the current date/time are\n"
1398             "                         used as the default for unspecified fields.\n"
1399             "  -D                     the text before the packet starts with an I or an O,\n"
1400             "                         indicating that the packet is inbound or outbound.\n"
1401             "                         This is only stored if the output format is PCAP-NG.\n"
1402             "  -a                     enable ASCII text dump identification.\n"
1403             "                         The start of the ASCII text dump can be identified\n"
1404             "                         and excluded from the packet data, even if it looks\n"
1405             "                         like a HEX dump.\n"
1406             "                         NOTE: Do not enable it if the input file does not\n"
1407             "                         contain the ASCII text dump.\n"
1408             "\n"
1409             "Output:\n"
1410             "  -l <typenum>           link-layer type number; default is 1 (Ethernet).  See\n"
1411             "                         http://www.tcpdump.org/linktypes.html for a list of\n"
1412             "                         numbers.  Use this option if your dump is a complete\n"
1413             "                         hex dump of an encapsulated packet and you wish to\n"
1414             "                         specify the exact type of encapsulation.\n"
1415             "                         Example: -l 7 for ARCNet packets.\n"
1416             "  -m <max-packet>        max packet length in output; default is %d\n"
1417             "\n"
1418             "Prepend dummy header:\n"
1419             "  -e <l3pid>             prepend dummy Ethernet II header with specified L3PID\n"
1420             "                         (in HEX).\n"
1421             "                         Example: -e 0x806 to specify an ARP packet.\n"
1422             "  -i <proto>             prepend dummy IP header with specified IP protocol\n"
1423             "                         (in DECIMAL).\n"
1424             "                         Automatically prepends Ethernet header as well.\n"
1425             "                         Example: -i 46\n"
1426             "  -4 <srcip>,<destip>    prepend dummy IPv4 header with specified\n"
1427             "                         dest and source address.\n"
1428             "                         Example: -4 10.0.0.1,10.0.0.2\n"
1429             "  -6 <srcip>,<destip>    replace IPv6 header with specified\n"
1430             "                         dest and source address.\n"
1431             "                         Example: -6 fe80:0:0:0:202:b3ff:fe1e:8329, 2001:0db8:85a3:0000:0000:8a2e:0370:7334\n"
1432             "  -u <srcp>,<destp>      prepend dummy UDP header with specified\n"
1433             "                         source and destination ports (in DECIMAL).\n"
1434             "                         Automatically prepends Ethernet & IP headers as well.\n"
1435             "                         Example: -u 1000,69 to make the packets look like\n"
1436             "                         TFTP/UDP packets.\n"
1437             "  -T <srcp>,<destp>      prepend dummy TCP header with specified\n"
1438             "                         source and destination ports (in DECIMAL).\n"
1439             "                         Automatically prepends Ethernet & IP headers as well.\n"
1440             "                         Example: -T 50,60\n"
1441             "  -s <srcp>,<dstp>,<tag> prepend dummy SCTP header with specified\n"
1442             "                         source/dest ports and verification tag (in DECIMAL).\n"
1443             "                         Automatically prepends Ethernet & IP headers as well.\n"
1444             "                         Example: -s 30,40,34\n"
1445             "  -S <srcp>,<dstp>,<ppi> prepend dummy SCTP header with specified\n"
1446             "                         source/dest ports and verification tag 0.\n"
1447             "                         Automatically prepends a dummy SCTP DATA\n"
1448             "                         chunk header with payload protocol identifier ppi.\n"
1449             "                         Example: -S 30,40,34\n"
1450             "\n"
1451             "Miscellaneous:\n"
1452             "  -h                     display this help and exit.\n"
1453             "  -d                     show detailed debug of parser states.\n"
1454             "  -q                     generate no output at all (automatically disables -d).\n"
1455             "  -n                     use PCAP-NG instead of PCAP as output format.\n"
1456             "",
1457             VERSION, MAX_PACKET);
1458
1459     exit(-1);
1460 }
1461
1462 /*----------------------------------------------------------------------
1463  * Parse CLI options
1464  */
1465 static void
1466 parse_options (int argc, char *argv[])
1467 {
1468     int c;
1469     char *p;
1470
1471 #ifdef _WIN32
1472     arg_list_utf_16to8(argc, argv);
1473     create_app_running_mutex();
1474 #endif /* _WIN32 */
1475
1476     /* Scan CLI parameters */
1477     while ((c = getopt(argc, argv, "Ddhqe:i:l:m:no:u:s:S:t:T:a:4:6:")) != -1) {
1478         switch(c) {
1479         case '?': usage(); break;
1480         case 'h': usage(); break;
1481         case 'd': if (!quiet) debug++; break;
1482         case 'D': has_direction = TRUE; break;
1483         case 'q': quiet = TRUE; debug = FALSE; break;
1484         case 'l': pcap_link_type = (guint32)strtol(optarg, NULL, 0); break;
1485         case 'm': max_offset = (guint32)strtol(optarg, NULL, 0); break;
1486         case 'n': use_pcapng = TRUE; break;
1487         case 'o':
1488             if (optarg[0]!='h' && optarg[0] != 'o' && optarg[0] != 'd') {
1489                 fprintf(stderr, "Bad argument for '-o': %s\n", optarg);
1490                 usage();
1491             }
1492             switch(optarg[0]) {
1493             case 'o': offset_base = 8; break;
1494             case 'h': offset_base = 16; break;
1495             case 'd': offset_base = 10; break;
1496             }
1497             break;
1498         case 'e':
1499             hdr_ethernet = TRUE;
1500             if (sscanf(optarg, "%x", &hdr_ethernet_proto) < 1) {
1501                 fprintf(stderr, "Bad argument for '-e': %s\n", optarg);
1502                 usage();
1503             }
1504             break;
1505
1506         case 'i':
1507             hdr_ip = TRUE;
1508             hdr_ip_proto = strtol(optarg, &p, 10);
1509             if (p == optarg || *p != '\0' || hdr_ip_proto < 0 ||
1510                   hdr_ip_proto > 255) {
1511                 fprintf(stderr, "Bad argument for '-i': %s\n", optarg);
1512                 usage();
1513             }
1514             hdr_ethernet = TRUE;
1515             hdr_ethernet_proto = 0x800;
1516             break;
1517
1518         case 's':
1519             hdr_sctp = TRUE;
1520             hdr_data_chunk = FALSE;
1521             hdr_tcp = FALSE;
1522             hdr_udp = FALSE;
1523             hdr_sctp_src   = (guint32)strtol(optarg, &p, 10);
1524             if (p == optarg || (*p != ',' && *p != '\0')) {
1525                 fprintf(stderr, "Bad src port for '-%c'\n", c);
1526                 usage();
1527             }
1528             if (*p == '\0') {
1529                 fprintf(stderr, "No dest port specified for '-%c'\n", c);
1530                 usage();
1531             }
1532             p++;
1533             optarg = p;
1534             hdr_sctp_dest = (guint32)strtol(optarg, &p, 10);
1535             if (p == optarg || (*p != ',' && *p != '\0')) {
1536                 fprintf(stderr, "Bad dest port for '-s'\n");
1537                 usage();
1538             }
1539             if (*p == '\0') {
1540                 fprintf(stderr, "No tag specified for '-%c'\n", c);
1541                 usage();
1542             }
1543             p++;
1544             optarg = p;
1545             hdr_sctp_tag = (guint32)strtol(optarg, &p, 10);
1546             if (p == optarg || *p != '\0') {
1547                 fprintf(stderr, "Bad tag for '-%c'\n", c);
1548                 usage();
1549             }
1550
1551             hdr_ip = TRUE;
1552             hdr_ip_proto = 132;
1553             hdr_ethernet = TRUE;
1554             hdr_ethernet_proto = 0x800;
1555             break;
1556         case 'S':
1557             hdr_sctp = TRUE;
1558             hdr_data_chunk = TRUE;
1559             hdr_tcp = FALSE;
1560             hdr_udp = FALSE;
1561             hdr_sctp_src   = (guint32)strtol(optarg, &p, 10);
1562             if (p == optarg || (*p != ',' && *p != '\0')) {
1563                 fprintf(stderr, "Bad src port for '-%c'\n", c);
1564                 usage();
1565             }
1566             if (*p == '\0') {
1567                 fprintf(stderr, "No dest port specified for '-%c'\n", c);
1568                 usage();
1569             }
1570             p++;
1571             optarg = p;
1572             hdr_sctp_dest = (guint32)strtol(optarg, &p, 10);
1573             if (p == optarg || (*p != ',' && *p != '\0')) {
1574                 fprintf(stderr, "Bad dest port for '-s'\n");
1575                 usage();
1576             }
1577             if (*p == '\0') {
1578                 fprintf(stderr, "No ppi specified for '-%c'\n", c);
1579                 usage();
1580             }
1581             p++;
1582             optarg = p;
1583             hdr_data_chunk_ppid = (guint32)strtoul(optarg, &p, 10);
1584             if (p == optarg || *p != '\0') {
1585                 fprintf(stderr, "Bad ppi for '-%c'\n", c);
1586                 usage();
1587             }
1588
1589             hdr_ip = TRUE;
1590             hdr_ip_proto = 132;
1591             hdr_ethernet = TRUE;
1592             hdr_ethernet_proto = 0x800;
1593             break;
1594
1595         case 't':
1596             ts_fmt = optarg;
1597             break;
1598
1599         case 'u':
1600             hdr_udp = TRUE;
1601             hdr_tcp = FALSE;
1602             hdr_sctp = FALSE;
1603             hdr_data_chunk = FALSE;
1604             hdr_src_port = (guint32)strtol(optarg, &p, 10);
1605             if (p == optarg || (*p != ',' && *p != '\0')) {
1606                 fprintf(stderr, "Bad src port for '-u'\n");
1607                 usage();
1608             }
1609             if (*p == '\0') {
1610                 fprintf(stderr, "No dest port specified for '-u'\n");
1611                 usage();
1612             }
1613             p++;
1614             optarg = p;
1615             hdr_dest_port = (guint32)strtol(optarg, &p, 10);
1616             if (p == optarg || *p != '\0') {
1617                 fprintf(stderr, "Bad dest port for '-u'\n");
1618                 usage();
1619             }
1620             hdr_ip = TRUE;
1621             hdr_ip_proto = 17;
1622             hdr_ethernet = TRUE;
1623             hdr_ethernet_proto = 0x800;
1624             break;
1625
1626         case 'T':
1627             hdr_tcp = TRUE;
1628             hdr_udp = FALSE;
1629             hdr_sctp = FALSE;
1630             hdr_data_chunk = FALSE;
1631             hdr_src_port = (guint32)strtol(optarg, &p, 10);
1632             if (p == optarg || (*p != ',' && *p != '\0')) {
1633                 fprintf(stderr, "Bad src port for '-T'\n");
1634                 usage();
1635             }
1636             if (*p == '\0') {
1637                 fprintf(stderr, "No dest port specified for '-u'\n");
1638                 usage();
1639             }
1640             p++;
1641             optarg = p;
1642             hdr_dest_port = (guint32)strtol(optarg, &p, 10);
1643             if (p == optarg || *p != '\0') {
1644                 fprintf(stderr, "Bad dest port for '-T'\n");
1645                 usage();
1646             }
1647             hdr_ip = TRUE;
1648             hdr_ip_proto = 6;
1649             hdr_ethernet = TRUE;
1650             hdr_ethernet_proto = 0x800;
1651             break;
1652
1653         case 'a':
1654             identify_ascii = TRUE;
1655             break;
1656
1657         case '4':
1658         case '6':
1659             p = strchr(optarg, ',');
1660
1661             if (!p) {
1662                 fprintf(stderr, "Bad source param addr for '-%c'\n", c);
1663                 usage();
1664             }
1665
1666             *p = '\0';
1667             if(c == '6')
1668             {
1669                 hdr_ipv6 = TRUE;
1670                 hdr_ethernet_proto = 0x86DD;
1671             }
1672             else
1673             {
1674                 hdr_ip = TRUE;
1675                 hdr_ethernet_proto = 0x800;
1676             }
1677             hdr_ethernet = TRUE;
1678
1679             if (hdr_ipv6 == TRUE) {
1680                 if(inet_pton( AF_INET6, optarg, hdr_ipv6_src_addr) <= 0) {
1681                         fprintf(stderr, "Bad src addr -%c '%s'\n", c, p);
1682                         usage();
1683                 }
1684             } else {
1685                 if(inet_pton( AF_INET, optarg, &hdr_ip_src_addr) <= 0) {
1686                         fprintf(stderr, "Bad src addr -%c '%s'\n", c, p);
1687                         usage();
1688                 }
1689             }
1690
1691             p++;
1692             if (*p == '\0') {
1693                 fprintf(stderr, "No dest addr specified for '-%c'\n", c);
1694                 usage();
1695             }
1696
1697             if (hdr_ipv6 == TRUE) {
1698                 if(inet_pton( AF_INET6, p, hdr_ipv6_dest_addr) <= 0) {
1699                         fprintf(stderr, "Bad dest addr for -%c '%s'\n", c, p);
1700                         usage();
1701                 }
1702             } else {
1703                 if(inet_pton( AF_INET, p, &hdr_ip_dest_addr) <= 0) {
1704                         fprintf(stderr, "Bad dest addr for -%c '%s'\n", c, p);
1705                         usage();
1706                 }
1707             }
1708             break;
1709
1710
1711         default:
1712             usage();
1713         }
1714     }
1715
1716     if (optind >= argc || argc-optind < 2) {
1717         fprintf(stderr, "Must specify input and output filename\n");
1718         usage();
1719     }
1720
1721     if (strcmp(argv[optind], "-")) {
1722         input_filename = g_strdup(argv[optind]);
1723         input_file = ws_fopen(input_filename, "rb");
1724         if (!input_file) {
1725             fprintf(stderr, "Cannot open file [%s] for reading: %s\n",
1726                     input_filename, g_strerror(errno));
1727             exit(-1);
1728         }
1729     } else {
1730         input_filename = "Standard input";
1731         input_file = stdin;
1732     }
1733
1734     if (strcmp(argv[optind+1], "-")) {
1735         output_filename = g_strdup(argv[optind+1]);
1736         output_file = ws_fopen(output_filename, "wb");
1737         if (!output_file) {
1738             fprintf(stderr, "Cannot open file [%s] for writing: %s\n",
1739                     output_filename, g_strerror(errno));
1740             exit(-1);
1741         }
1742     } else {
1743         output_filename = "Standard output";
1744         output_file = stdout;
1745     }
1746
1747     /* Some validation */
1748     if (pcap_link_type != 1 && hdr_ethernet) {
1749         fprintf(stderr, "Dummy headers (-e, -i, -u, -s, -S -T) cannot be specified with link type override (-l)\n");
1750         exit(-1);
1751     }
1752
1753     /* Set up our variables */
1754     if (!input_file) {
1755         input_file = stdin;
1756         input_filename = "Standard input";
1757     }
1758     if (!output_file) {
1759         output_file = stdout;
1760         output_filename = "Standard output";
1761     }
1762
1763     ts_sec = time(0);               /* initialize to current time */
1764     timecode_default = *localtime(&ts_sec);
1765     timecode_default.tm_isdst = -1; /* Unknown for now, depends on time given to the strptime() function */
1766
1767     /* Display summary of our state */
1768     if (!quiet) {
1769         fprintf(stderr, "Input from: %s\n", input_filename);
1770         fprintf(stderr, "Output to: %s\n", output_filename);
1771         fprintf(stderr, "Output format: %s\n", use_pcapng ? "PCAP-NG" : "PCAP");
1772
1773         if (hdr_ethernet) fprintf(stderr, "Generate dummy Ethernet header: Protocol: 0x%0X\n",
1774                                   hdr_ethernet_proto);
1775         if (hdr_ip) fprintf(stderr, "Generate dummy IP header: Protocol: %ld\n",
1776                             hdr_ip_proto);
1777         if (hdr_udp) fprintf(stderr, "Generate dummy UDP header: Source port: %u. Dest port: %u\n",
1778                              hdr_src_port, hdr_dest_port);
1779         if (hdr_tcp) fprintf(stderr, "Generate dummy TCP header: Source port: %u. Dest port: %u\n",
1780                              hdr_src_port, hdr_dest_port);
1781         if (hdr_sctp) fprintf(stderr, "Generate dummy SCTP header: Source port: %u. Dest port: %u. Tag: %u\n",
1782                               hdr_sctp_src, hdr_sctp_dest, hdr_sctp_tag);
1783         if (hdr_data_chunk) fprintf(stderr, "Generate dummy DATA chunk header: TSN: %u. SID: %d. SSN: %d. PPID: %u\n",
1784                                     hdr_data_chunk_tsn, hdr_data_chunk_sid, hdr_data_chunk_ssn, hdr_data_chunk_ppid);
1785     }
1786 }
1787
1788 int
1789 main(int argc, char *argv[])
1790 {
1791     parse_options(argc, argv);
1792
1793     assert(input_file != NULL);
1794     assert(output_file != NULL);
1795
1796     write_file_header();
1797
1798     header_length = 0;
1799     if (hdr_ethernet) {
1800         header_length += (int)sizeof(HDR_ETHERNET);
1801     }
1802     if (hdr_ip) {
1803         ip_offset = header_length;
1804         header_length += (int)sizeof(HDR_IP);
1805     } else if (hdr_ipv6) {
1806         ip_offset = header_length;
1807         header_length += (int)sizeof(HDR_IPv6);
1808     }
1809     if (hdr_sctp) {
1810         header_length += (int)sizeof(HDR_SCTP);
1811     }
1812     if (hdr_data_chunk) {
1813         header_length += (int)sizeof(HDR_DATA_CHUNK);
1814     }
1815     if (hdr_tcp) {
1816         header_length += (int)sizeof(HDR_TCP);
1817     }
1818     if (hdr_udp) {
1819         header_length += (int)sizeof(HDR_UDP);
1820     }
1821     curr_offset = header_length;
1822
1823     yyin = input_file;
1824     yylex();
1825
1826     write_current_packet(FALSE);
1827     write_file_trailer();
1828     fclose(input_file);
1829     fclose(output_file);
1830     if (debug)
1831         fprintf(stderr, "\n-------------------------\n");
1832     if (!quiet) {
1833         fprintf(stderr, "Read %u potential packet%s, wrote %u packet%s (%" G_GINT64_MODIFIER "u byte%s).\n",
1834                 num_packets_read, (num_packets_read == 1) ? "" : "s",
1835                 num_packets_written, (num_packets_written == 1) ? "" : "s",
1836                 bytes_written, (bytes_written == 1) ? "" : "s");
1837     }
1838     return 0;
1839 }
1840
1841 /*
1842  * Editor modelines  -  http://www.wireshark.org/tools/modelines.html
1843  *
1844  * Local variables:
1845  * c-basic-offset: 4
1846  * tab-width: 4
1847  * indent-tabs-mode: nil
1848  * End:
1849  *
1850  * vi: set shiftwidth=4 tabstop=4 expandtab:
1851  * :indentSize=4:tabSize=4:noTabs=true:
1852  */
1853