1 /* 2 * Copyright (c) 1992, 1993, 1994, 1995, 1996, 1997 3 * The Regents of the University of California. All rights reserved. 4 * 5 * Redistribution and use in source and binary forms, with or without 6 * modification, are permitted provided that: (1) source code distributions 7 * retain the above copyright notice and this paragraph in its entirety, (2) 8 * distributions including binary code include the above copyright notice and 9 * this paragraph in its entirety in the documentation or other materials 10 * provided with the distribution, and (3) all advertising materials mentioning 11 * features or use of this software display the following acknowledgement: 12 * ``This product includes software developed by the University of California, 13 * Lawrence Berkeley Laboratory and its contributors.'' Neither the name of 14 * the University nor the names of its contributors may be used to endorse 15 * or promote products derived from this software without specific prior 16 * written permission. 17 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED 18 * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF 19 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. 20 */ 21 22 #include <sys/cdefs.h> 23 #ifndef lint 24 __RCSID("$NetBSD: print-decnet.c,v 1.12 2024/09/02 16:15:31 christos Exp $"); 25 #endif 26 27 /* \summary: DECnet printer */ 28 29 #include <config.h> 30 31 #include "netdissect-stdinc.h" 32 33 #include <stdio.h> 34 #include <stdlib.h> 35 36 #define ND_LONGJMP_FROM_TCHECK 37 #include "netdissect.h" 38 #include "extract.h" 39 #include "addrtoname.h" 40 41 42 #ifndef _WIN32 43 typedef nd_uint8_t byte; /* single byte field */ 44 #else 45 /* 46 * the keyword 'byte' generates conflicts in Windows 47 */ 48 typedef nd_uint8_t Byte; /* single byte field */ 49 #define byte Byte 50 #endif /* _WIN32 */ 51 typedef nd_uint16_t word; /* 2 byte field */ 52 typedef nd_uint32_t longword; /* 4 bytes field */ 53 54 /* 55 * Definitions for DECNET Phase IV protocol headers 56 */ 57 typedef union { 58 nd_mac_addr dne_addr; /* full Ethernet address */ 59 struct { 60 nd_byte dne_hiord[4]; /* DECnet HIORD prefix */ 61 nd_byte dne_nodeaddr[2]; /* DECnet node address */ 62 } dne_remote; 63 } etheraddr; /* Ethernet address */ 64 65 #define HIORD 0x000400aa /* high 32-bits of address (swapped) */ 66 67 #define AREAMASK 0176000 /* mask for area field */ 68 #define AREASHIFT 10 /* bit-offset for area field */ 69 #define NODEMASK 01777 /* mask for node address field */ 70 71 /* 72 * Define long and short header formats. 73 */ 74 struct shorthdr 75 { 76 byte sh_flags; /* route flags */ 77 word sh_dst; /* destination node address */ 78 word sh_src; /* source node address */ 79 byte sh_visits; /* visit count */ 80 }; 81 82 struct longhdr 83 { 84 byte lg_flags; /* route flags */ 85 byte lg_darea; /* destination area (reserved) */ 86 byte lg_dsarea; /* destination subarea (reserved) */ 87 etheraddr lg_dst; /* destination id */ 88 byte lg_sarea; /* source area (reserved) */ 89 byte lg_ssarea; /* source subarea (reserved) */ 90 etheraddr lg_src; /* source id */ 91 byte lg_nextl2; /* next level 2 router (reserved) */ 92 byte lg_visits; /* visit count */ 93 byte lg_service; /* service class (reserved) */ 94 byte lg_pt; /* protocol type (reserved) */ 95 }; 96 97 union routehdr 98 { 99 struct shorthdr rh_short; /* short route header */ 100 struct longhdr rh_long; /* long route header */ 101 }; 102 103 /* 104 * Define the values of various fields in the protocol messages. 105 * 106 * 1. Data packet formats. 107 */ 108 #define RMF_MASK 7 /* mask for message type */ 109 #define RMF_SHORT 2 /* short message format */ 110 #define RMF_LONG 6 /* long message format */ 111 #ifndef RMF_RQR 112 #define RMF_RQR 010 /* request return to sender */ 113 #define RMF_RTS 020 /* returning to sender */ 114 #define RMF_IE 040 /* intra-ethernet packet */ 115 #endif /* RMR_RQR */ 116 #define RMF_FVER 0100 /* future version flag */ 117 #define RMF_PAD 0200 /* pad field */ 118 #define RMF_PADMASK 0177 /* pad field mask */ 119 120 #define VIS_MASK 077 /* visit field mask */ 121 122 /* 123 * 2. Control packet formats. 124 */ 125 #define RMF_CTLMASK 017 /* mask for message type */ 126 #define RMF_CTLMSG 01 /* control message indicator */ 127 #define RMF_INIT 01 /* initialization message */ 128 #define RMF_VER 03 /* verification message */ 129 #define RMF_TEST 05 /* hello and test message */ 130 #define RMF_L1ROUT 07 /* level 1 routing message */ 131 #define RMF_L2ROUT 011 /* level 2 routing message */ 132 #define RMF_RHELLO 013 /* router hello message */ 133 #define RMF_EHELLO 015 /* endnode hello message */ 134 135 #define TI_L2ROUT 01 /* level 2 router */ 136 #define TI_L1ROUT 02 /* level 1 router */ 137 #define TI_ENDNODE 03 /* endnode */ 138 #define TI_VERIF 04 /* verification required */ 139 #define TI_BLOCK 010 /* blocking requested */ 140 141 #define VE_VERS 2 /* version number (2) */ 142 #define VE_ECO 0 /* ECO number */ 143 #define VE_UECO 0 /* user ECO number (0) */ 144 145 #define P3_VERS 1 /* phase III version number (1) */ 146 #define P3_ECO 3 /* ECO number (3) */ 147 #define P3_UECO 0 /* user ECO number (0) */ 148 149 #define II_L2ROUT 01 /* level 2 router */ 150 #define II_L1ROUT 02 /* level 1 router */ 151 #define II_ENDNODE 03 /* endnode */ 152 #define II_VERIF 04 /* verification required */ 153 #define II_NOMCAST 040 /* no multicast traffic accepted */ 154 #define II_BLOCK 0100 /* blocking requested */ 155 #define II_TYPEMASK 03 /* mask for node type */ 156 157 #define TESTDATA 0252 /* test data bytes */ 158 #define TESTLEN 1 /* length of transmitted test data */ 159 160 /* 161 * Define control message formats. 162 */ 163 struct initmsg /* initialization message */ 164 { 165 byte in_flags; /* route flags */ 166 word in_src; /* source node address */ 167 byte in_info; /* routing layer information */ 168 word in_blksize; /* maximum data link block size */ 169 byte in_vers; /* version number */ 170 byte in_eco; /* ECO number */ 171 byte in_ueco; /* user ECO number */ 172 word in_hello; /* hello timer */ 173 byte in_rsvd; /* reserved image field */ 174 }; 175 176 struct verifmsg /* verification message */ 177 { 178 byte ve_flags; /* route flags */ 179 word ve_src; /* source node address */ 180 byte ve_fcnval; /* function value image field */ 181 }; 182 183 struct testmsg /* hello and test message */ 184 { 185 byte te_flags; /* route flags */ 186 word te_src; /* source node address */ 187 byte te_data; /* test data image field */ 188 }; 189 190 struct l1rout /* level 1 routing message */ 191 { 192 byte r1_flags; /* route flags */ 193 word r1_src; /* source node address */ 194 byte r1_rsvd; /* reserved field */ 195 }; 196 197 struct l2rout /* level 2 routing message */ 198 { 199 byte r2_flags; /* route flags */ 200 word r2_src; /* source node address */ 201 byte r2_rsvd; /* reserved field */ 202 }; 203 204 struct rhellomsg /* router hello message */ 205 { 206 byte rh_flags; /* route flags */ 207 byte rh_vers; /* version number */ 208 byte rh_eco; /* ECO number */ 209 byte rh_ueco; /* user ECO number */ 210 etheraddr rh_src; /* source id */ 211 byte rh_info; /* routing layer information */ 212 word rh_blksize; /* maximum data link block size */ 213 byte rh_priority; /* router's priority */ 214 byte rh_area; /* reserved */ 215 word rh_hello; /* hello timer */ 216 byte rh_mpd; /* reserved */ 217 }; 218 219 struct ehellomsg /* endnode hello message */ 220 { 221 byte eh_flags; /* route flags */ 222 byte eh_vers; /* version number */ 223 byte eh_eco; /* ECO number */ 224 byte eh_ueco; /* user ECO number */ 225 etheraddr eh_src; /* source id */ 226 byte eh_info; /* routing layer information */ 227 word eh_blksize; /* maximum data link block size */ 228 byte eh_area; /* area (reserved) */ 229 byte eh_seed[8]; /* verification seed */ 230 etheraddr eh_router; /* designated router */ 231 word eh_hello; /* hello timer */ 232 byte eh_mpd; /* (reserved) */ 233 byte eh_data; /* test data image field */ 234 }; 235 236 union controlmsg 237 { 238 struct initmsg cm_init; /* initialization message */ 239 struct verifmsg cm_ver; /* verification message */ 240 struct testmsg cm_test; /* hello and test message */ 241 struct l1rout cm_l1rou; /* level 1 routing message */ 242 struct l2rout cm_l2rout; /* level 2 routing message */ 243 struct rhellomsg cm_rhello; /* router hello message */ 244 struct ehellomsg cm_ehello; /* endnode hello message */ 245 }; 246 247 /* Macros for decoding routing-info fields */ 248 #define RI_COST(x) ((x)&0777) 249 #define RI_HOPS(x) (((x)>>10)&037) 250 251 /* 252 * NSP protocol fields and values. 253 */ 254 255 #define NSP_TYPEMASK 014 /* mask to isolate type code */ 256 #define NSP_SUBMASK 0160 /* mask to isolate subtype code */ 257 #define NSP_SUBSHFT 4 /* shift to move subtype code */ 258 259 #define MFT_DATA 0 /* data message */ 260 #define MFT_ACK 04 /* acknowledgement message */ 261 #define MFT_CTL 010 /* control message */ 262 263 #define MFS_ILS 020 /* data or I/LS indicator */ 264 #define MFS_BOM 040 /* beginning of message (data) */ 265 #define MFS_MOM 0 /* middle of message (data) */ 266 #define MFS_EOM 0100 /* end of message (data) */ 267 #define MFS_INT 040 /* interrupt message */ 268 269 #define MFS_DACK 0 /* data acknowledgement */ 270 #define MFS_IACK 020 /* I/LS acknowledgement */ 271 #define MFS_CACK 040 /* connect acknowledgement */ 272 273 #define MFS_NOP 0 /* no operation */ 274 #define MFS_CI 020 /* connect initiate */ 275 #define MFS_CC 040 /* connect confirm */ 276 #define MFS_DI 060 /* disconnect initiate */ 277 #define MFS_DC 0100 /* disconnect confirm */ 278 #define MFS_RCI 0140 /* retransmitted connect initiate */ 279 280 #define SGQ_ACK 0100000 /* ack */ 281 #define SGQ_NAK 0110000 /* negative ack */ 282 #define SGQ_OACK 0120000 /* other channel ack */ 283 #define SGQ_ONAK 0130000 /* other channel negative ack */ 284 #define SGQ_MASK 07777 /* mask to isolate seq # */ 285 #define SGQ_OTHER 020000 /* other channel qualifier */ 286 #define SGQ_DELAY 010000 /* ack delay flag */ 287 288 #define SGQ_EOM 0100000 /* pseudo flag for end-of-message */ 289 290 #define LSM_MASK 03 /* mask for modifier field */ 291 #define LSM_NOCHANGE 0 /* no change */ 292 #define LSM_DONOTSEND 1 /* do not send data */ 293 #define LSM_SEND 2 /* send data */ 294 295 #define LSI_MASK 014 /* mask for interpretation field */ 296 #define LSI_DATA 0 /* data segment or message count */ 297 #define LSI_INTR 4 /* interrupt request count */ 298 #define LSI_INTM 0377 /* funny marker for int. message */ 299 300 #define COS_MASK 014 /* mask for flow control field */ 301 #define COS_NONE 0 /* no flow control */ 302 #define COS_SEGMENT 04 /* segment flow control */ 303 #define COS_MESSAGE 010 /* message flow control */ 304 #define COS_DEFAULT 1 /* default value for field */ 305 306 #define COI_MASK 3 /* mask for version field */ 307 #define COI_32 0 /* version 3.2 */ 308 #define COI_31 1 /* version 3.1 */ 309 #define COI_40 2 /* version 4.0 */ 310 #define COI_41 3 /* version 4.1 */ 311 312 #define MNU_MASK 140 /* mask for session control version */ 313 #define MNU_10 000 /* session V1.0 */ 314 #define MNU_20 040 /* session V2.0 */ 315 #define MNU_ACCESS 1 /* access control present */ 316 #define MNU_USRDATA 2 /* user data field present */ 317 #define MNU_INVKPROXY 4 /* invoke proxy field present */ 318 #define MNU_UICPROXY 8 /* use uic-based proxy */ 319 320 #define DC_NORESOURCES 1 /* no resource reason code */ 321 #define DC_NOLINK 41 /* no link terminate reason code */ 322 #define DC_COMPLETE 42 /* disconnect complete reason code */ 323 324 #define DI_NOERROR 0 /* user disconnect */ 325 #define DI_SHUT 3 /* node is shutting down */ 326 #define DI_NOUSER 4 /* destination end user does not exist */ 327 #define DI_INVDEST 5 /* invalid end user destination */ 328 #define DI_REMRESRC 6 /* insufficient remote resources */ 329 #define DI_TPA 8 /* third party abort */ 330 #define DI_PROTOCOL 7 /* protocol error discovered */ 331 #define DI_ABORT 9 /* user abort */ 332 #define DI_LOCALRESRC 32 /* insufficient local resources */ 333 #define DI_REMUSERRESRC 33 /* insufficient remote user resources */ 334 #define DI_BADACCESS 34 /* bad access control information */ 335 #define DI_BADACCNT 36 /* bad ACCOUNT information */ 336 #define DI_CONNECTABORT 38 /* connect request cancelled */ 337 #define DI_TIMEDOUT 38 /* remote node or user crashed */ 338 #define DI_UNREACHABLE 39 /* local timers expired due to ... */ 339 #define DI_BADIMAGE 43 /* bad image data in connect */ 340 #define DI_SERVMISMATCH 54 /* cryptographic service mismatch */ 341 342 #define UC_OBJREJECT 0 /* object rejected connect */ 343 #define UC_USERDISCONNECT 0 /* user disconnect */ 344 #define UC_RESOURCES 1 /* insufficient resources (local or remote) */ 345 #define UC_NOSUCHNODE 2 /* unrecognized node name */ 346 #define UC_REMOTESHUT 3 /* remote node shutting down */ 347 #define UC_NOSUCHOBJ 4 /* unrecognized object */ 348 #define UC_INVOBJFORMAT 5 /* invalid object name format */ 349 #define UC_OBJTOOBUSY 6 /* object too busy */ 350 #define UC_NETWORKABORT 8 /* network abort */ 351 #define UC_USERABORT 9 /* user abort */ 352 #define UC_INVNODEFORMAT 10 /* invalid node name format */ 353 #define UC_LOCALSHUT 11 /* local node shutting down */ 354 #define UC_ACCESSREJECT 34 /* invalid access control information */ 355 #define UC_NORESPONSE 38 /* no response from object */ 356 #define UC_UNREACHABLE 39 /* node unreachable */ 357 358 /* 359 * NSP message formats. 360 */ 361 struct nsphdr /* general nsp header */ 362 { 363 byte nh_flags; /* message flags */ 364 word nh_dst; /* destination link address */ 365 word nh_src; /* source link address */ 366 }; 367 368 struct seghdr /* data segment header */ 369 { 370 byte sh_flags; /* message flags */ 371 word sh_dst; /* destination link address */ 372 word sh_src; /* source link address */ 373 word sh_seq[3]; /* sequence numbers */ 374 }; 375 376 struct minseghdr /* minimum data segment header */ 377 { 378 byte ms_flags; /* message flags */ 379 word ms_dst; /* destination link address */ 380 word ms_src; /* source link address */ 381 word ms_seq; /* sequence number */ 382 }; 383 384 struct lsmsg /* link service message (after hdr) */ 385 { 386 byte ls_lsflags; /* link service flags */ 387 byte ls_fcval; /* flow control value */ 388 }; 389 390 struct ackmsg /* acknowledgement message */ 391 { 392 byte ak_flags; /* message flags */ 393 word ak_dst; /* destination link address */ 394 word ak_src; /* source link address */ 395 word ak_acknum[2]; /* acknowledgement numbers */ 396 }; 397 398 struct minackmsg /* minimum acknowledgement message */ 399 { 400 byte mk_flags; /* message flags */ 401 word mk_dst; /* destination link address */ 402 word mk_src; /* source link address */ 403 word mk_acknum; /* acknowledgement number */ 404 }; 405 406 struct ciackmsg /* connect acknowledgement message */ 407 { 408 byte ck_flags; /* message flags */ 409 word ck_dst; /* destination link address */ 410 }; 411 412 struct cimsg /* connect initiate message */ 413 { 414 byte ci_flags; /* message flags */ 415 word ci_dst; /* destination link address (0) */ 416 word ci_src; /* source link address */ 417 byte ci_services; /* requested services */ 418 byte ci_info; /* information */ 419 word ci_segsize; /* maximum segment size */ 420 }; 421 422 struct ccmsg /* connect confirm message */ 423 { 424 byte cc_flags; /* message flags */ 425 word cc_dst; /* destination link address */ 426 word cc_src; /* source link address */ 427 byte cc_services; /* requested services */ 428 byte cc_info; /* information */ 429 word cc_segsize; /* maximum segment size */ 430 byte cc_optlen; /* optional data length */ 431 }; 432 433 struct cnmsg /* generic connect message */ 434 { 435 byte cn_flags; /* message flags */ 436 word cn_dst; /* destination link address */ 437 word cn_src; /* source link address */ 438 byte cn_services; /* requested services */ 439 byte cn_info; /* information */ 440 word cn_segsize; /* maximum segment size */ 441 }; 442 443 struct dimsg /* disconnect initiate message */ 444 { 445 byte di_flags; /* message flags */ 446 word di_dst; /* destination link address */ 447 word di_src; /* source link address */ 448 word di_reason; /* reason code */ 449 byte di_optlen; /* optional data length */ 450 }; 451 452 struct dcmsg /* disconnect confirm message */ 453 { 454 byte dc_flags; /* message flags */ 455 word dc_dst; /* destination link address */ 456 word dc_src; /* source link address */ 457 word dc_reason; /* reason code */ 458 }; 459 460 /* Forwards */ 461 static int print_decnet_ctlmsg(netdissect_options *, const union routehdr *, u_int, u_int); 462 static void print_t_info(netdissect_options *, u_int); 463 static void print_l1_routes(netdissect_options *, const u_char *, u_int); 464 static void print_l2_routes(netdissect_options *, const u_char *, u_int); 465 static void print_i_info(netdissect_options *, u_int); 466 static void print_elist(const u_char *, u_int); 467 static int print_nsp(netdissect_options *, const u_char *, u_int); 468 static void print_reason(netdissect_options *, u_int); 469 470 void 471 decnet_print(netdissect_options *ndo, 472 const u_char *ap, u_int length, 473 u_int caplen) 474 { 475 const union routehdr *rhp; 476 u_int mflags; 477 uint16_t dst, src; 478 u_int hops; 479 u_int nsplen, pktlen; 480 const u_char *nspp; 481 482 ndo->ndo_protocol = "decnet"; 483 if (length < sizeof(struct shorthdr)) { 484 ND_PRINT(" (length %u < %zu)", length, sizeof(struct shorthdr)); 485 goto invalid; 486 } 487 488 pktlen = GET_LE_U_2(ap); 489 if (pktlen < sizeof(struct shorthdr)) { 490 ND_PRINT(" (pktlen %u < %zu)", pktlen, sizeof(struct shorthdr)); 491 goto invalid; 492 } 493 if (pktlen > length) { 494 ND_PRINT(" (pktlen %u > %u)", pktlen, length); 495 goto invalid; 496 } 497 length = pktlen; 498 499 rhp = (const union routehdr *)(ap + sizeof(short)); 500 mflags = GET_U_1(rhp->rh_short.sh_flags); 501 502 if (mflags & RMF_PAD) { 503 /* pad bytes of some sort in front of message */ 504 u_int padlen = mflags & RMF_PADMASK; 505 if (ndo->ndo_vflag) 506 ND_PRINT("[pad:%u] ", padlen); 507 if (length < padlen + 2) { 508 ND_PRINT(" (length %u < %u)", length, padlen + 2); 509 goto invalid; 510 } 511 ND_TCHECK_LEN(ap + sizeof(short), padlen); 512 ap += padlen; 513 length -= padlen; 514 caplen -= padlen; 515 rhp = (const union routehdr *)(ap + sizeof(short)); 516 mflags = GET_U_1(rhp->rh_short.sh_flags); 517 } 518 519 if (mflags & RMF_FVER) { 520 ND_PRINT("future-version-decnet"); 521 ND_DEFAULTPRINT(ap, ND_MIN(length, caplen)); 522 return; 523 } 524 525 /* is it a control message? */ 526 if (mflags & RMF_CTLMSG) { 527 if (!print_decnet_ctlmsg(ndo, rhp, length, caplen)) 528 goto invalid; 529 return; 530 } 531 532 switch (mflags & RMF_MASK) { 533 case RMF_LONG: 534 if (length < sizeof(struct longhdr)) { 535 ND_PRINT(" (length %u < %zu)", length, sizeof(struct longhdr)); 536 goto invalid; 537 } 538 ND_TCHECK_SIZE(&rhp->rh_long); 539 dst = 540 GET_LE_U_2(rhp->rh_long.lg_dst.dne_remote.dne_nodeaddr); 541 src = 542 GET_LE_U_2(rhp->rh_long.lg_src.dne_remote.dne_nodeaddr); 543 hops = GET_U_1(rhp->rh_long.lg_visits); 544 nspp = ap + sizeof(short) + sizeof(struct longhdr); 545 nsplen = length - sizeof(struct longhdr); 546 break; 547 case RMF_SHORT: 548 dst = GET_LE_U_2(rhp->rh_short.sh_dst); 549 src = GET_LE_U_2(rhp->rh_short.sh_src); 550 hops = (GET_U_1(rhp->rh_short.sh_visits) & VIS_MASK)+1; 551 nspp = ap + sizeof(short) + sizeof(struct shorthdr); 552 nsplen = length - sizeof(struct shorthdr); 553 break; 554 default: 555 ND_PRINT("unknown message flags under mask"); 556 ND_DEFAULTPRINT((const u_char *)ap, ND_MIN(length, caplen)); 557 return; 558 } 559 560 ND_PRINT("%s > %s %u ", 561 dnaddr_string(ndo, src), dnaddr_string(ndo, dst), pktlen); 562 if (ndo->ndo_vflag) { 563 if (mflags & RMF_RQR) 564 ND_PRINT("RQR "); 565 if (mflags & RMF_RTS) 566 ND_PRINT("RTS "); 567 if (mflags & RMF_IE) 568 ND_PRINT("IE "); 569 ND_PRINT("%u hops ", hops); 570 } 571 572 if (!print_nsp(ndo, nspp, nsplen)) 573 goto invalid; 574 return; 575 576 invalid: 577 nd_print_invalid(ndo); 578 } 579 580 static int 581 print_decnet_ctlmsg(netdissect_options *ndo, 582 const union routehdr *rhp, u_int length, 583 u_int caplen) 584 { 585 /* Our caller has already checked for mflags */ 586 u_int mflags = GET_U_1(rhp->rh_short.sh_flags); 587 const union controlmsg *cmp = (const union controlmsg *)rhp; 588 uint16_t src, dst; 589 u_int info, blksize, eco, ueco, hello, other, vers; 590 u_int priority; 591 const u_char *rhpx = (const u_char *)rhp; 592 593 switch (mflags & RMF_CTLMASK) { 594 case RMF_INIT: 595 ND_PRINT("init "); 596 if (length < sizeof(struct initmsg)) 597 goto invalid; 598 ND_TCHECK_SIZE(&cmp->cm_init); 599 src = GET_LE_U_2(cmp->cm_init.in_src); 600 info = GET_U_1(cmp->cm_init.in_info); 601 blksize = GET_LE_U_2(cmp->cm_init.in_blksize); 602 vers = GET_U_1(cmp->cm_init.in_vers); 603 eco = GET_U_1(cmp->cm_init.in_eco); 604 ueco = GET_U_1(cmp->cm_init.in_ueco); 605 hello = GET_LE_U_2(cmp->cm_init.in_hello); 606 print_t_info(ndo, info); 607 ND_PRINT("src %sblksize %u vers %u eco %u ueco %u hello %u", 608 dnaddr_string(ndo, src), blksize, vers, eco, ueco, 609 hello); 610 break; 611 case RMF_VER: 612 ND_PRINT("verification "); 613 if (length < sizeof(struct verifmsg)) 614 goto invalid; 615 src = GET_LE_U_2(cmp->cm_ver.ve_src); 616 other = GET_U_1(cmp->cm_ver.ve_fcnval); 617 ND_PRINT("src %s fcnval %o", dnaddr_string(ndo, src), other); 618 break; 619 case RMF_TEST: 620 ND_PRINT("test "); 621 if (length < sizeof(struct testmsg)) 622 goto invalid; 623 src = GET_LE_U_2(cmp->cm_test.te_src); 624 other = GET_U_1(cmp->cm_test.te_data); 625 ND_PRINT("src %s data %o", dnaddr_string(ndo, src), other); 626 break; 627 case RMF_L1ROUT: 628 ND_PRINT("lev-1-routing "); 629 if (length < sizeof(struct l1rout)) 630 goto invalid; 631 ND_TCHECK_SIZE(&cmp->cm_l1rou); 632 src = GET_LE_U_2(cmp->cm_l1rou.r1_src); 633 ND_PRINT("src %s ", dnaddr_string(ndo, src)); 634 print_l1_routes(ndo, &(rhpx[sizeof(struct l1rout)]), 635 length - sizeof(struct l1rout)); 636 break; 637 case RMF_L2ROUT: 638 ND_PRINT("lev-2-routing "); 639 if (length < sizeof(struct l2rout)) 640 goto invalid; 641 ND_TCHECK_SIZE(&cmp->cm_l2rout); 642 src = GET_LE_U_2(cmp->cm_l2rout.r2_src); 643 ND_PRINT("src %s ", dnaddr_string(ndo, src)); 644 print_l2_routes(ndo, &(rhpx[sizeof(struct l2rout)]), 645 length - sizeof(struct l2rout)); 646 break; 647 case RMF_RHELLO: 648 ND_PRINT("router-hello "); 649 if (length < sizeof(struct rhellomsg)) 650 goto invalid; 651 ND_TCHECK_SIZE(&cmp->cm_rhello); 652 vers = GET_U_1(cmp->cm_rhello.rh_vers); 653 eco = GET_U_1(cmp->cm_rhello.rh_eco); 654 ueco = GET_U_1(cmp->cm_rhello.rh_ueco); 655 src = 656 GET_LE_U_2(cmp->cm_rhello.rh_src.dne_remote.dne_nodeaddr); 657 info = GET_U_1(cmp->cm_rhello.rh_info); 658 blksize = GET_LE_U_2(cmp->cm_rhello.rh_blksize); 659 priority = GET_U_1(cmp->cm_rhello.rh_priority); 660 hello = GET_LE_U_2(cmp->cm_rhello.rh_hello); 661 print_i_info(ndo, info); 662 ND_PRINT("vers %u eco %u ueco %u src %s blksize %u pri %u hello %u", 663 vers, eco, ueco, dnaddr_string(ndo, src), 664 blksize, priority, hello); 665 print_elist(&(rhpx[sizeof(struct rhellomsg)]), 666 length - sizeof(struct rhellomsg)); 667 break; 668 case RMF_EHELLO: 669 ND_PRINT("endnode-hello "); 670 if (length < sizeof(struct ehellomsg)) 671 goto invalid; 672 vers = GET_U_1(cmp->cm_ehello.eh_vers); 673 eco = GET_U_1(cmp->cm_ehello.eh_eco); 674 ueco = GET_U_1(cmp->cm_ehello.eh_ueco); 675 src = 676 GET_LE_U_2(cmp->cm_ehello.eh_src.dne_remote.dne_nodeaddr); 677 info = GET_U_1(cmp->cm_ehello.eh_info); 678 blksize = GET_LE_U_2(cmp->cm_ehello.eh_blksize); 679 /*seed*/ 680 dst = 681 GET_LE_U_2(cmp->cm_ehello.eh_router.dne_remote.dne_nodeaddr); 682 hello = GET_LE_U_2(cmp->cm_ehello.eh_hello); 683 other = GET_U_1(cmp->cm_ehello.eh_data); 684 print_i_info(ndo, info); 685 ND_PRINT("vers %u eco %u ueco %u src %s blksize %u rtr %s hello %u data %o", 686 vers, eco, ueco, dnaddr_string(ndo, src), 687 blksize, dnaddr_string(ndo, dst), hello, other); 688 break; 689 690 default: 691 ND_PRINT("unknown control message"); 692 ND_DEFAULTPRINT((const u_char *)rhp, ND_MIN(length, caplen)); 693 break; 694 } 695 return (1); 696 697 invalid: 698 return (0); 699 } 700 701 static void 702 print_t_info(netdissect_options *ndo, 703 u_int info) 704 { 705 u_int ntype = info & 3; 706 switch (ntype) { 707 case 0: ND_PRINT("reserved-ntype? "); break; 708 case TI_L2ROUT: ND_PRINT("l2rout "); break; 709 case TI_L1ROUT: ND_PRINT("l1rout "); break; 710 case TI_ENDNODE: ND_PRINT("endnode "); break; 711 } 712 if (info & TI_VERIF) 713 ND_PRINT("verif "); 714 if (info & TI_BLOCK) 715 ND_PRINT("blo "); 716 } 717 718 static void 719 print_l1_routes(netdissect_options *ndo, 720 const u_char *rp, u_int len) 721 { 722 u_int count; 723 u_int id; 724 u_int info; 725 726 /* The last short is a checksum */ 727 while (len > (3 * sizeof(short))) { 728 ND_TCHECK_LEN(rp, 3 * sizeof(short)); 729 count = GET_LE_U_2(rp); 730 if (count > 1024) 731 return; /* seems to be bogus from here on */ 732 rp += sizeof(short); 733 len -= sizeof(short); 734 id = GET_LE_U_2(rp); 735 rp += sizeof(short); 736 len -= sizeof(short); 737 info = GET_LE_U_2(rp); 738 rp += sizeof(short); 739 len -= sizeof(short); 740 ND_PRINT("{ids %u-%u cost %u hops %u} ", id, id + count, 741 RI_COST(info), RI_HOPS(info)); 742 } 743 } 744 745 static void 746 print_l2_routes(netdissect_options *ndo, 747 const u_char *rp, u_int len) 748 { 749 u_int count; 750 u_int area; 751 u_int info; 752 753 /* The last short is a checksum */ 754 while (len > (3 * sizeof(short))) { 755 ND_TCHECK_LEN(rp, 3 * sizeof(short)); 756 count = GET_LE_U_2(rp); 757 if (count > 1024) 758 return; /* seems to be bogus from here on */ 759 rp += sizeof(short); 760 len -= sizeof(short); 761 area = GET_LE_U_2(rp); 762 rp += sizeof(short); 763 len -= sizeof(short); 764 info = GET_LE_U_2(rp); 765 rp += sizeof(short); 766 len -= sizeof(short); 767 ND_PRINT("{areas %u-%u cost %u hops %u} ", area, area + count, 768 RI_COST(info), RI_HOPS(info)); 769 } 770 } 771 772 static void 773 print_i_info(netdissect_options *ndo, 774 u_int info) 775 { 776 u_int ntype = info & II_TYPEMASK; 777 switch (ntype) { 778 case 0: ND_PRINT("reserved-ntype? "); break; 779 case II_L2ROUT: ND_PRINT("l2rout "); break; 780 case II_L1ROUT: ND_PRINT("l1rout "); break; 781 case II_ENDNODE: ND_PRINT("endnode "); break; 782 } 783 if (info & II_VERIF) 784 ND_PRINT("verif "); 785 if (info & II_NOMCAST) 786 ND_PRINT("nomcast "); 787 if (info & II_BLOCK) 788 ND_PRINT("blo "); 789 } 790 791 static void 792 print_elist(const u_char *elp _U_, u_int len _U_) 793 { 794 /* Not enough examples available for me to debug this */ 795 } 796 797 static int 798 print_nsp(netdissect_options *ndo, 799 const u_char *nspp, u_int nsplen) 800 { 801 const struct nsphdr *nsphp = (const struct nsphdr *)nspp; 802 u_int dst, src, flags; 803 804 if (nsplen < sizeof(struct nsphdr)) { 805 ND_PRINT(" (nsplen %u < %zu)", nsplen, sizeof(struct nsphdr)); 806 goto invalid; 807 } 808 flags = GET_U_1(nsphp->nh_flags); 809 dst = GET_LE_U_2(nsphp->nh_dst); 810 src = GET_LE_U_2(nsphp->nh_src); 811 812 switch (flags & NSP_TYPEMASK) { 813 case MFT_DATA: 814 switch (flags & NSP_SUBMASK) { 815 case MFS_BOM: 816 case MFS_MOM: 817 case MFS_EOM: 818 case MFS_BOM+MFS_EOM: 819 ND_PRINT("data %u>%u ", src, dst); 820 { 821 const struct seghdr *shp = (const struct seghdr *)nspp; 822 u_int ack; 823 u_int data_off = sizeof(struct minseghdr); 824 825 if (nsplen < data_off) 826 goto invalid; 827 ack = GET_LE_U_2(shp->sh_seq[0]); 828 if (ack & SGQ_ACK) { /* acknum field */ 829 if ((ack & SGQ_NAK) == SGQ_NAK) 830 ND_PRINT("nak %u ", ack & SGQ_MASK); 831 else 832 ND_PRINT("ack %u ", ack & SGQ_MASK); 833 data_off += sizeof(short); 834 if (nsplen < data_off) 835 goto invalid; 836 ack = GET_LE_U_2(shp->sh_seq[1]); 837 if (ack & SGQ_OACK) { /* ackoth field */ 838 if ((ack & SGQ_ONAK) == SGQ_ONAK) 839 ND_PRINT("onak %u ", ack & SGQ_MASK); 840 else 841 ND_PRINT("oack %u ", ack & SGQ_MASK); 842 data_off += sizeof(short); 843 if (nsplen < data_off) 844 goto invalid; 845 ack = GET_LE_U_2(shp->sh_seq[2]); 846 } 847 } 848 ND_PRINT("seg %u ", ack & SGQ_MASK); 849 } 850 break; 851 case MFS_ILS+MFS_INT: 852 ND_PRINT("intr "); 853 { 854 const struct seghdr *shp = (const struct seghdr *)nspp; 855 u_int ack; 856 u_int data_off = sizeof(struct minseghdr); 857 858 if (nsplen < data_off) 859 goto invalid; 860 ack = GET_LE_U_2(shp->sh_seq[0]); 861 if (ack & SGQ_ACK) { /* acknum field */ 862 if ((ack & SGQ_NAK) == SGQ_NAK) 863 ND_PRINT("nak %u ", ack & SGQ_MASK); 864 else 865 ND_PRINT("ack %u ", ack & SGQ_MASK); 866 data_off += sizeof(short); 867 if (nsplen < data_off) 868 goto invalid; 869 ack = GET_LE_U_2(shp->sh_seq[1]); 870 if (ack & SGQ_OACK) { /* ackdat field */ 871 if ((ack & SGQ_ONAK) == SGQ_ONAK) 872 ND_PRINT("nakdat %u ", ack & SGQ_MASK); 873 else 874 ND_PRINT("ackdat %u ", ack & SGQ_MASK); 875 data_off += sizeof(short); 876 if (nsplen < data_off) 877 goto invalid; 878 ack = GET_LE_U_2(shp->sh_seq[2]); 879 } 880 } 881 ND_PRINT("seg %u ", ack & SGQ_MASK); 882 } 883 break; 884 case MFS_ILS: 885 ND_PRINT("link-service %u>%u ", src, dst); 886 { 887 const struct seghdr *shp = (const struct seghdr *)nspp; 888 const struct lsmsg *lsmp = 889 (const struct lsmsg *)(nspp + sizeof(struct seghdr)); 890 u_int ack; 891 u_int lsflags, fcval; 892 893 if (nsplen < sizeof(struct seghdr) + sizeof(struct lsmsg)) 894 goto invalid; 895 ack = GET_LE_U_2(shp->sh_seq[0]); 896 if (ack & SGQ_ACK) { /* acknum field */ 897 if ((ack & SGQ_NAK) == SGQ_NAK) 898 ND_PRINT("nak %u ", ack & SGQ_MASK); 899 else 900 ND_PRINT("ack %u ", ack & SGQ_MASK); 901 ack = GET_LE_U_2(shp->sh_seq[1]); 902 if (ack & SGQ_OACK) { /* ackdat field */ 903 if ((ack & SGQ_ONAK) == SGQ_ONAK) 904 ND_PRINT("nakdat %u ", ack & SGQ_MASK); 905 else 906 ND_PRINT("ackdat %u ", ack & SGQ_MASK); 907 ack = GET_LE_U_2(shp->sh_seq[2]); 908 } 909 } 910 ND_PRINT("seg %u ", ack & SGQ_MASK); 911 lsflags = GET_U_1(lsmp->ls_lsflags); 912 fcval = GET_U_1(lsmp->ls_fcval); 913 switch (lsflags & LSI_MASK) { 914 case LSI_DATA: 915 ND_PRINT("dat seg count %u ", fcval); 916 switch (lsflags & LSM_MASK) { 917 case LSM_NOCHANGE: 918 break; 919 case LSM_DONOTSEND: 920 ND_PRINT("donotsend-data "); 921 break; 922 case LSM_SEND: 923 ND_PRINT("send-data "); 924 break; 925 default: 926 ND_PRINT("reserved-fcmod? %x", lsflags); 927 break; 928 } 929 break; 930 case LSI_INTR: 931 ND_PRINT("intr req count %u ", fcval); 932 break; 933 default: 934 ND_PRINT("reserved-fcval-int? %x", lsflags); 935 break; 936 } 937 } 938 break; 939 default: 940 ND_PRINT("reserved-subtype? %x %u > %u", flags, src, dst); 941 break; 942 } 943 break; 944 case MFT_ACK: 945 switch (flags & NSP_SUBMASK) { 946 case MFS_DACK: 947 ND_PRINT("data-ack %u>%u ", src, dst); 948 { 949 const struct ackmsg *amp = (const struct ackmsg *)nspp; 950 u_int ack; 951 952 if (nsplen < sizeof(struct ackmsg)) 953 goto invalid; 954 ND_TCHECK_SIZE(amp); 955 ack = GET_LE_U_2(amp->ak_acknum[0]); 956 if (ack & SGQ_ACK) { /* acknum field */ 957 if ((ack & SGQ_NAK) == SGQ_NAK) 958 ND_PRINT("nak %u ", ack & SGQ_MASK); 959 else 960 ND_PRINT("ack %u ", ack & SGQ_MASK); 961 ack = GET_LE_U_2(amp->ak_acknum[1]); 962 if (ack & SGQ_OACK) { /* ackoth field */ 963 if ((ack & SGQ_ONAK) == SGQ_ONAK) 964 ND_PRINT("onak %u ", ack & SGQ_MASK); 965 else 966 ND_PRINT("oack %u ", ack & SGQ_MASK); 967 } 968 } 969 } 970 break; 971 case MFS_IACK: 972 ND_PRINT("ils-ack %u>%u ", src, dst); 973 { 974 const struct ackmsg *amp = (const struct ackmsg *)nspp; 975 u_int ack; 976 977 if (nsplen < sizeof(struct ackmsg)) 978 goto invalid; 979 ND_TCHECK_SIZE(amp); 980 ack = GET_LE_U_2(amp->ak_acknum[0]); 981 if (ack & SGQ_ACK) { /* acknum field */ 982 if ((ack & SGQ_NAK) == SGQ_NAK) 983 ND_PRINT("nak %u ", ack & SGQ_MASK); 984 else 985 ND_PRINT("ack %u ", ack & SGQ_MASK); 986 ack = GET_LE_U_2(amp->ak_acknum[1]); 987 if (ack & SGQ_OACK) { /* ackdat field */ 988 if ((ack & SGQ_ONAK) == SGQ_ONAK) 989 ND_PRINT("nakdat %u ", ack & SGQ_MASK); 990 else 991 ND_PRINT("ackdat %u ", ack & SGQ_MASK); 992 } 993 } 994 } 995 break; 996 case MFS_CACK: 997 ND_PRINT("conn-ack %u", dst); 998 break; 999 default: 1000 ND_PRINT("reserved-acktype? %x %u > %u", flags, src, dst); 1001 break; 1002 } 1003 break; 1004 case MFT_CTL: 1005 switch (flags & NSP_SUBMASK) { 1006 case MFS_CI: 1007 case MFS_RCI: 1008 if ((flags & NSP_SUBMASK) == MFS_CI) 1009 ND_PRINT("conn-initiate "); 1010 else 1011 ND_PRINT("retrans-conn-initiate "); 1012 ND_PRINT("%u>%u ", src, dst); 1013 { 1014 const struct cimsg *cimp = (const struct cimsg *)nspp; 1015 u_int services, info, segsize; 1016 1017 if (nsplen < sizeof(struct cimsg)) 1018 goto invalid; 1019 services = GET_U_1(cimp->ci_services); 1020 info = GET_U_1(cimp->ci_info); 1021 segsize = GET_LE_U_2(cimp->ci_segsize); 1022 1023 switch (services & COS_MASK) { 1024 case COS_NONE: 1025 break; 1026 case COS_SEGMENT: 1027 ND_PRINT("seg "); 1028 break; 1029 case COS_MESSAGE: 1030 ND_PRINT("msg "); 1031 break; 1032 } 1033 switch (info & COI_MASK) { 1034 case COI_32: 1035 ND_PRINT("ver 3.2 "); 1036 break; 1037 case COI_31: 1038 ND_PRINT("ver 3.1 "); 1039 break; 1040 case COI_40: 1041 ND_PRINT("ver 4.0 "); 1042 break; 1043 case COI_41: 1044 ND_PRINT("ver 4.1 "); 1045 break; 1046 } 1047 ND_PRINT("segsize %u ", segsize); 1048 } 1049 break; 1050 case MFS_CC: 1051 ND_PRINT("conn-confirm %u>%u ", src, dst); 1052 { 1053 const struct ccmsg *ccmp = (const struct ccmsg *)nspp; 1054 u_int services, info; 1055 u_int segsize, optlen; 1056 1057 if (nsplen < sizeof(struct ccmsg)) 1058 goto invalid; 1059 services = GET_U_1(ccmp->cc_services); 1060 info = GET_U_1(ccmp->cc_info); 1061 segsize = GET_LE_U_2(ccmp->cc_segsize); 1062 optlen = GET_U_1(ccmp->cc_optlen); 1063 1064 switch (services & COS_MASK) { 1065 case COS_NONE: 1066 break; 1067 case COS_SEGMENT: 1068 ND_PRINT("seg "); 1069 break; 1070 case COS_MESSAGE: 1071 ND_PRINT("msg "); 1072 break; 1073 } 1074 switch (info & COI_MASK) { 1075 case COI_32: 1076 ND_PRINT("ver 3.2 "); 1077 break; 1078 case COI_31: 1079 ND_PRINT("ver 3.1 "); 1080 break; 1081 case COI_40: 1082 ND_PRINT("ver 4.0 "); 1083 break; 1084 case COI_41: 1085 ND_PRINT("ver 4.1 "); 1086 break; 1087 } 1088 ND_PRINT("segsize %u ", segsize); 1089 if (optlen) { 1090 ND_PRINT("optlen %u ", optlen); 1091 } 1092 } 1093 break; 1094 case MFS_DI: 1095 ND_PRINT("disconn-initiate %u>%u ", src, dst); 1096 { 1097 const struct dimsg *dimp = (const struct dimsg *)nspp; 1098 u_int reason; 1099 u_int optlen; 1100 1101 if (nsplen < sizeof(struct dimsg)) 1102 goto invalid; 1103 reason = GET_LE_U_2(dimp->di_reason); 1104 optlen = GET_U_1(dimp->di_optlen); 1105 1106 print_reason(ndo, reason); 1107 if (optlen) { 1108 ND_PRINT("optlen %u ", optlen); 1109 } 1110 } 1111 break; 1112 case MFS_DC: 1113 ND_PRINT("disconn-confirm %u>%u ", src, dst); 1114 { 1115 const struct dcmsg *dcmp = (const struct dcmsg *)nspp; 1116 u_int reason; 1117 1118 reason = GET_LE_U_2(dcmp->dc_reason); 1119 1120 print_reason(ndo, reason); 1121 } 1122 break; 1123 default: 1124 ND_PRINT("reserved-ctltype? %x %u > %u", flags, src, dst); 1125 break; 1126 } 1127 break; 1128 default: 1129 ND_PRINT("reserved-type? %x %u > %u", flags, src, dst); 1130 break; 1131 } 1132 return (1); 1133 1134 invalid: 1135 return (0); 1136 } 1137 1138 static const struct tok reason2str[] = { 1139 { UC_OBJREJECT, "object rejected connect" }, 1140 { UC_RESOURCES, "insufficient resources" }, 1141 { UC_NOSUCHNODE, "unrecognized node name" }, 1142 { DI_SHUT, "node is shutting down" }, 1143 { UC_NOSUCHOBJ, "unrecognized object" }, 1144 { UC_INVOBJFORMAT, "invalid object name format" }, 1145 { UC_OBJTOOBUSY, "object too busy" }, 1146 { DI_PROTOCOL, "protocol error discovered" }, 1147 { DI_TPA, "third party abort" }, 1148 { UC_USERABORT, "user abort" }, 1149 { UC_INVNODEFORMAT, "invalid node name format" }, 1150 { UC_LOCALSHUT, "local node shutting down" }, 1151 { DI_LOCALRESRC, "insufficient local resources" }, 1152 { DI_REMUSERRESRC, "insufficient remote user resources" }, 1153 { UC_ACCESSREJECT, "invalid access control information" }, 1154 { DI_BADACCNT, "bad ACCOUNT information" }, 1155 { UC_NORESPONSE, "no response from object" }, 1156 { UC_UNREACHABLE, "node unreachable" }, 1157 { DC_NOLINK, "no link terminate" }, 1158 { DC_COMPLETE, "disconnect complete" }, 1159 { DI_BADIMAGE, "bad image data in connect" }, 1160 { DI_SERVMISMATCH, "cryptographic service mismatch" }, 1161 { 0, NULL } 1162 }; 1163 1164 static void 1165 print_reason(netdissect_options *ndo, 1166 u_int reason) 1167 { 1168 ND_PRINT("%s ", tok2str(reason2str, "reason-%u", reason)); 1169 } 1170 1171 const char * 1172 dnnum_string(netdissect_options *ndo, u_short dnaddr) 1173 { 1174 char *str; 1175 size_t siz; 1176 u_int area = (u_short)(dnaddr & AREAMASK) >> AREASHIFT; 1177 u_int node = dnaddr & NODEMASK; 1178 1179 /* malloc() return used by the 'dnaddrtable' hash table: do not free() */ 1180 str = (char *)malloc(siz = sizeof("00.0000")); 1181 if (str == NULL) 1182 (*ndo->ndo_error)(ndo, S_ERR_ND_MEM_ALLOC, "%s: malloc", __func__); 1183 snprintf(str, siz, "%u.%u", area, node); 1184 return(str); 1185 } 1186