wireshark/packet-vines.c
Guy Harris 43ccfd8054 Add an additional "protocol index" argument to "{old_}dissector_add()",
"{old_}heur_dissector_add()", "{old_}conv_dissector_add()", and
"register_dissector()", so that an entry in those tables has associated
with it the protocol index of the protocol the dissector handles (or -1,
if there is no protocol index for it).

This is for future use in a number of places.

(Arguably, "proto_register_protocol()" should take a dissector pointer
as an argument, but

	1) it'd have to handle both regular and heuristic dissectors;

	2) making it take either a "dissector_t" or a union of that and
	   a "heur_dissector_t" introduces some painful header-file
	   interdependencies

so I'm punting on that for now.  As with other Ethereal internal APIs,
these APIs are subject to change in the future, at least until Ethereal
1.0 comes out....)

svn path=/trunk/; revision=2849
2001-01-09 06:32:10 +00:00

493 lines
13 KiB
C

/* packet-vines.c
* Routines for Banyan VINES protocol packet disassembly
*
* $Id: packet-vines.c,v 1.23 2001/01/09 06:31:44 guy Exp $
*
* Don Lafontaine <lafont02@cn.ca>
*
* Ethereal - Network traffic analyzer
* By Gerald Combs <gerald@zing.org>
* Copyright 1998 Gerald Combs
* Joerg Mayer <jmayer@telemation.de>
*
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*/
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#ifdef HAVE_SYS_TYPES_H
#include <sys/types.h>
#endif
#ifdef HAVE_NETINET_IN_H
#include <netinet/in.h>
#endif
#include <string.h>
#include <glib.h>
#include "etypes.h"
#include "ppptypes.h"
#include "packet.h"
#include "packet-vines.h"
#include "packet-ip.h"
#define UDP_PORT_VINES 573
static int proto_vines = -1;
static int hf_vines_protocol = -1;
static gint ett_vines = -1;
static int proto_vines_frp = -1;
static gint ett_vines_frp = -1;
static int proto_vines_spp = -1;
static gint ett_vines_spp = -1;
static void dissect_vines_frp(tvbuff_t *, packet_info *, proto_tree *);
#if 0
static void dissect_vines_arp(tvbuff_t *, packet_info *, proto_tree *);
static void dissect_vines_icp(tvbuff_t *, packet_info *, proto_tree *);
static void dissect_vines_ipc(tvbuff_t *, packet_info *, proto_tree *);
static void dissect_vines_rtp(tvbuff_t *, packet_info *, proto_tree *);
#endif
static void dissect_vines_spp(tvbuff_t *, packet_info *, proto_tree *);
static void dissect_vines(tvbuff_t *, packet_info *, proto_tree *);
void
capture_vines(const u_char *pd, int offset, packet_counts *ld)
{
ld->vines++;
}
/* AFAIK Vines FRP (Fragmentation Protocol) is used on all media except
* Ethernet and TR (and probably FDDI) - Fragmentation on these media types
* is not possible
* FIXME: Do we need to use this header with PPP too?
*/
static void
dissect_vines_frp(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
{
guint8 vines_frp_ctrl;
proto_tree *vines_frp_tree;
proto_item *ti;
gchar frp_flags_str[32];
tvbuff_t *next_tvb;
CHECK_DISPLAY_AS_DATA(proto_vines_frp, tvb, pinfo, tree);
pinfo->current_proto = "Vines FRP";
if (check_col(pinfo->fd, COL_PROTOCOL))
col_set_str(pinfo->fd, COL_PROTOCOL, "Vines FRP");
if (check_col(pinfo->fd, COL_INFO))
col_clear(pinfo->fd, COL_INFO);
if (tree) {
ti = proto_tree_add_item(tree, proto_vines_frp, tvb, 0, 2,
FALSE);
vines_frp_tree = proto_item_add_subtree(ti, ett_vines_frp);
vines_frp_ctrl = tvb_get_guint8(tvb, 0);
/*
* 1: first fragment of vines packet
* 2: last fragment of vines packet
* 4 ... 80: unused
*/
switch (vines_frp_ctrl) {
case 0:
strcpy(frp_flags_str, "middle");
break;
case 1:
strcpy(frp_flags_str, "first");
break;
case 2:
strcpy(frp_flags_str, "last");
break;
case 3:
strcpy(frp_flags_str, "only");
break;
default:
strcpy(frp_flags_str, "please report: unknown");
break;
}
proto_tree_add_text(vines_frp_tree, tvb, 0, 1,
"Control Flags: 0x%02x = %s fragment",
vines_frp_ctrl, frp_flags_str);
proto_tree_add_text(vines_frp_tree, tvb, 1, 1,
"Sequence Number: 0x%02x",
tvb_get_guint8(tvb, 1));
}
/* Decode the "real" Vines now */
next_tvb = tvb_new_subset(tvb, 2, -1, -1);
dissect_vines(tvb, pinfo, tree);
}
void
proto_register_vines_frp(void)
{
static gint *ett[] = {
&ett_vines_frp,
};
proto_vines_frp = proto_register_protocol(
"Banyan Vines Fragmentation Protocol", "Vines FRP", "vines_frp");
proto_register_subtree_array(ett, array_length(ett));
}
void
proto_reg_handoff_vines_frp(void)
{
dissector_add("ip.proto", IP_PROTO_VINES, dissect_vines_frp,
proto_vines_frp);
/* XXX: AFAIK, src and dst port must be the same; should
the dissector check for that? */
dissector_add("udp.port", UDP_PORT_VINES, dissect_vines_frp,
proto_vines_frp);
}
gchar *
vines_addr_to_str(const guint8 *addrp)
{
static gchar str[3][214];
static gchar *cur;
if (cur == &str[0][0]) {
cur = &str[1][0];
} else if (cur == &str[1][0]) {
cur = &str[2][0];
} else {
cur = &str[0][0];
}
sprintf(cur, "%08x.%04x", pntohl(&addrp[0]), pntohs(&addrp[4]));
return cur;
}
static void
dissect_vines(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
{
int offset = 0;
e_vip viph;
proto_tree *vip_tree;
proto_item *ti;
/* gchar tos_str[32]; */
guint8 *dst_addr, *src_addr;
int is_broadcast = 0;
int hops = 0;
tvbuff_t *next_tvb;
CHECK_DISPLAY_AS_DATA(proto_vines, tvb, pinfo, tree);
pinfo->current_proto = "Vines";
if (check_col(pinfo->fd, COL_PROTOCOL))
col_set_str(pinfo->fd, COL_PROTOCOL, "Vines");
if (check_col(pinfo->fd, COL_INFO))
col_clear(pinfo->fd, COL_INFO);
/* To do: check for runts, errs, etc. */
/* Avoids alignment problems on many architectures. */
tvb_memcpy(tvb, (guint8 *)&viph, offset, sizeof(e_vip));
viph.vip_chksum = ntohs(viph.vip_chksum);
viph.vip_pktlen = ntohs(viph.vip_pktlen);
viph.vip_dnet = ntohl(viph.vip_dnet);
viph.vip_dsub = ntohs(viph.vip_dsub);
viph.vip_snet = ntohl(viph.vip_snet);
viph.vip_ssub = ntohs(viph.vip_ssub);
switch (viph.vip_proto) {
case VIP_PROTO_IPC:
if (check_col(pinfo->fd, COL_PROTOCOL))
col_set_str(pinfo->fd, COL_PROTOCOL, "Vines IPC");
if (check_col(pinfo->fd, COL_INFO))
col_add_fstr(pinfo->fd, COL_INFO, "IPC (%02x)", viph.vip_proto);
break;
case VIP_PROTO_SPP:
if (check_col(pinfo->fd, COL_PROTOCOL))
col_set_str(pinfo->fd, COL_PROTOCOL, "Vines SPP");
if (check_col(pinfo->fd, COL_INFO))
col_add_fstr(pinfo->fd, COL_INFO, "SPP (%02x)", viph.vip_proto);
break;
case VIP_PROTO_ARP:
if (check_col(pinfo->fd, COL_PROTOCOL))
col_set_str(pinfo->fd, COL_PROTOCOL, "Vines ARP");
if (check_col(pinfo->fd, COL_INFO))
col_add_fstr(pinfo->fd, COL_INFO, "ARP (%02x)", viph.vip_proto);
break;
case VIP_PROTO_RTP:
if (check_col(pinfo->fd, COL_PROTOCOL))
col_set_str(pinfo->fd, COL_PROTOCOL, "Vines RTP");
if (check_col(pinfo->fd, COL_INFO))
col_add_fstr(pinfo->fd, COL_INFO, "RTP (%02x)", viph.vip_proto);
break;
case VIP_PROTO_ICP:
if (check_col(pinfo->fd, COL_PROTOCOL))
col_set_str(pinfo->fd, COL_PROTOCOL, "Vines ICP");
if (check_col(pinfo->fd, COL_INFO))
col_add_fstr(pinfo->fd, COL_INFO, "ICP (%02x)", viph.vip_proto);
break;
default:
if (check_col(pinfo->fd, COL_PROTOCOL))
col_set_str(pinfo->fd, COL_PROTOCOL, "Vines IP");
if (check_col(pinfo->fd, COL_INFO))
col_add_fstr(pinfo->fd, COL_INFO, "Unknown VIP protocol (%02x)",
viph.vip_proto);
}
src_addr = tvb_get_ptr(tvb, offset+12, VINES_ADDR_LEN);
SET_ADDRESS(&pinfo->net_src, AT_VINES, VINES_ADDR_LEN, src_addr);
SET_ADDRESS(&pinfo->src, AT_VINES, VINES_ADDR_LEN, src_addr);
dst_addr = tvb_get_ptr(tvb, offset+6, VINES_ADDR_LEN);
SET_ADDRESS(&pinfo->net_dst, AT_VINES, VINES_ADDR_LEN,dst_addr);
SET_ADDRESS(&pinfo->dst, AT_VINES, VINES_ADDR_LEN, dst_addr);
/* helpers to decode flags */
/* FIXME: Not used yet */
if ((viph.vip_dnet == 0xffffffff) && (viph.vip_dsub == 0xffff)) {
is_broadcast = 1;
}
hops = viph.vip_tctl & 0xf;
/*
viph.ip_tos = IPTOS_TOS(viph.ip_tos);
switch (viph.ip_tos) {
case IPTOS_NONE:
strcpy(tos_str, "None");
break;
case IPTOS_LOWDELAY:
strcpy(tos_str, "Minimize delay");
break;
case IPTOS_THROUGHPUT:
strcpy(tos_str, "Maximize throughput");
break;
case IPTOS_RELIABILITY:
strcpy(tos_str, "Maximize reliability");
break;
case IPTOS_LOWCOST:
strcpy(tos_str, "Minimize cost");
break;
default:
strcpy(tos_str, "Unknon. Malformed?");
break;
}
*/
if (tree) {
ti = proto_tree_add_protocol_format(tree, proto_vines, tvb,
offset, (viph.vip_pktlen),
"Vines IP");
vip_tree = proto_item_add_subtree(ti, ett_vines);
proto_tree_add_text(vip_tree, tvb, offset, 2,
"Packet checksum: 0x%04x",
viph.vip_chksum);
proto_tree_add_text(vip_tree, tvb, offset + 2, 2,
"Packet length: 0x%04x (%d)",
viph.vip_pktlen, viph.vip_pktlen);
proto_tree_add_text(vip_tree, tvb, offset + 4, 1,
"Transport control: 0x%02x",
viph.vip_tctl);
proto_tree_add_uint(vip_tree, hf_vines_protocol, tvb,
offset + 5, 1,
viph.vip_proto);
proto_tree_add_text(vip_tree, tvb, offset + 6,
VINES_ADDR_LEN,
"Destination: %s",
vines_addr_to_str(dst_addr));
proto_tree_add_text(vip_tree, tvb, offset + 12,
VINES_ADDR_LEN,
"Source: %s",
vines_addr_to_str(src_addr));
}
offset += 18;
switch (viph.vip_proto) {
case VIP_PROTO_SPP:
next_tvb = tvb_new_subset(tvb, offset, -1, -1);
dissect_vines_spp(next_tvb, pinfo, tree);
break;
default:
dissect_data(tvb, offset, pinfo, tree);
break;
}
}
void
proto_register_vines(void)
{
static gint *ett[] = {
&ett_vines,
};
static hf_register_info hf[] = {
{ &hf_vines_protocol,
{ "Protocol", "vines.protocol",
FT_UINT8, BASE_HEX, NULL, 0x0,
"Vines protocol" }}
};
proto_vines = proto_register_protocol("Banyan Vines", "Vines", "vines");
proto_register_field_array(proto_vines, hf, array_length(hf));
proto_register_subtree_array(ett, array_length(ett));
}
void
proto_reg_handoff_vines(void)
{
dissector_add("ethertype", ETHERTYPE_VINES, dissect_vines, proto_vines);
dissector_add("ppp.protocol", PPP_VINES, dissect_vines, proto_vines);
}
static void
dissect_vines_spp(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
{
int offset = 0;
e_vspp viph;
proto_tree *vspp_tree;
proto_item *ti;
CHECK_DISPLAY_AS_DATA(proto_vines_spp, tvb, pinfo, tree);
pinfo->current_proto = "Vines SPP";
if (check_col(pinfo->fd, COL_PROTOCOL))
col_set_str(pinfo->fd, COL_PROTOCOL, "VSPP");
if (check_col(pinfo->fd, COL_INFO))
col_clear(pinfo->fd, COL_INFO);
/* To do: check for runts, errs, etc. */
/* Avoids alignment problems on many architectures. */
tvb_memcpy(tvb, (guint8 *)&viph, offset, sizeof(e_vspp));
viph.vspp_sport = ntohs(viph.vspp_sport);
viph.vspp_dport = ntohs(viph.vspp_dport);
viph.vspp_lclid = ntohs(viph.vspp_lclid);
viph.vspp_rmtid = ntohs(viph.vspp_rmtid);
switch (viph.vspp_pkttype) {
case VSPP_PKTTYPE_DATA:
if (check_col(pinfo->fd, COL_PROTOCOL))
col_set_str(pinfo->fd, COL_PROTOCOL, "VSPP Data");
break;
case VSPP_PKTTYPE_DISC:
if (check_col(pinfo->fd, COL_PROTOCOL))
col_set_str(pinfo->fd, COL_PROTOCOL, "VSPP Disconnect");
break;
case VSPP_PKTTYPE_PROBE:
if (check_col(pinfo->fd, COL_PROTOCOL))
col_set_str(pinfo->fd, COL_PROTOCOL, "VSPP Probe");
break;
case VSPP_PKTTYPE_ACK:
if (check_col(pinfo->fd, COL_PROTOCOL))
col_set_str(pinfo->fd, COL_PROTOCOL, "VSPP Ack");
break;
default:
if (check_col(pinfo->fd, COL_PROTOCOL))
col_set_str(pinfo->fd, COL_PROTOCOL, "VSPP Unknown");
}
if (check_col(pinfo->fd, COL_INFO))
col_add_fstr(pinfo->fd, COL_INFO,
"NS=%04x NR=%04x Window=%04x RID=%04x LID=%04x D=%04x S=%04x",
viph.vspp_seqno, viph.vspp_ack, viph.vspp_win,
viph.vspp_rmtid, viph.vspp_lclid, viph.vspp_dport,
viph.vspp_sport);
/*
iph.ip_tos = IPTOS_TOS(iph.ip_tos);
switch (iph.ip_tos) {
case IPTOS_NONE:
strcpy(tos_str, "None");
break;
case IPTOS_LOWDELAY:
strcpy(tos_str, "Minimize delay");
break;
case IPTOS_THROUGHPUT:
strcpy(tos_str, "Maximize throughput");
break;
case IPTOS_RELIABILITY:
strcpy(tos_str, "Maximize reliability");
break;
case IPTOS_LOWCOST:
strcpy(tos_str, "Minimize cost");
break;
default:
strcpy(tos_str, "Unknon. Malformed?");
break;
}
*/
if (tree) {
ti = proto_tree_add_item(tree, proto_vines_spp, tvb, offset,
sizeof(viph), FALSE);
vspp_tree = proto_item_add_subtree(ti, ett_vines_spp);
proto_tree_add_text(vspp_tree, tvb, offset, 2,
"Source port: 0x%04x", viph.vspp_sport);
proto_tree_add_text(vspp_tree, tvb, offset + 2, 2,
"Destination port: 0x%04x",
viph.vspp_dport);
proto_tree_add_text(vspp_tree, tvb, offset + 4, 1,
"Packet type: 0x%02x", viph.vspp_pkttype);
proto_tree_add_text(vspp_tree, tvb, offset + 5, 1,
"Control: 0x%02x", viph.vspp_control);
proto_tree_add_text(vspp_tree, tvb, offset + 6, 2,
"Local Connection ID: 0x%04x",
viph.vspp_lclid);
proto_tree_add_text(vspp_tree, tvb, offset + 8, 2,
"Remote Connection ID: 0x%04x",
viph.vspp_rmtid);
proto_tree_add_text(vspp_tree, tvb, offset + 10, 2,
"Sequence number: 0x%04x",
viph.vspp_seqno);
proto_tree_add_text(vspp_tree, tvb, offset + 12, 2,
"Ack number: 0x%04x", viph.vspp_ack);
proto_tree_add_text(vspp_tree, tvb, offset + 14, 2,
"Window: 0x%04x", viph.vspp_win);
}
offset += 16; /* sizeof SPP */
dissect_data(tvb, offset, pinfo, tree);
}
void
proto_register_vines_spp(void)
{
static gint *ett[] = {
&ett_vines_spp,
};
proto_vines_spp = proto_register_protocol("Banyan Vines SPP",
"Vines SPP", "vines_spp");
proto_register_subtree_array(ett, array_length(ett));
}