]> The Tcpdump Group git mirrors - tcpdump/blob - print-radius.c
projects / tcpdump / blob
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
RADIUS: Update and comment registry arrays. [skip ci]
[tcpdump] / print-radius.c
1 /*
2 * Copyright (C) 2000 Alfredo Andres Omella. All rights reserved.
3 *
4 * Redistribution and use in source and binary forms, with or without
5 * modification, are permitted provided that the following conditions
6 * are met:
7 *
8 * 1. Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 * notice, this list of conditions and the following disclaimer in
12 * the documentation and/or other materials provided with the
13 * distribution.
14 * 3. The names of the authors may not be used to endorse or promote
15 * products derived from this software without specific prior
16 * written permission.
17 *
18 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
19 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
20 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
21 */
22
23 /* \summary: Radius protocol printer */
24
25 /*
26 * Radius printer routines as specified on:
27 *
28 * RFC 2865:
29 * "Remote Authentication Dial In User Service (RADIUS)"
30 *
31 * RFC 2866:
32 * "RADIUS Accounting"
33 *
34 * RFC 2867:
35 * "RADIUS Accounting Modifications for Tunnel Protocol Support"
36 *
37 * RFC 2868:
38 * "RADIUS Attributes for Tunnel Protocol Support"
39 *
40 * RFC 2869:
41 * "RADIUS Extensions"
42 *
43 * RFC 3162:
44 * "RADIUS and IPv6"
45 *
46 * RFC 3580:
47 * "IEEE 802.1X Remote Authentication Dial In User Service (RADIUS)"
48 * "Usage Guidelines"
49 *
50 * RFC 4072:
51 * "Diameter Extensible Authentication Protocol (EAP) Application"
52 *
53 * RFC 4675:
54 * "RADIUS Attributes for Virtual LAN and Priority Support"
55 *
56 * RFC 4818:
57 * "RADIUS Delegated-IPv6-Prefix Attribute"
58 *
59 * RFC 4849:
60 * "RADIUS Filter Rule Attribute"
61 *
62 * RFC 5090:
63 * "RADIUS Extension for Digest Authentication"
64 *
65 * RFC 5176:
66 * "Dynamic Authorization Extensions to RADIUS"
67 *
68 * RFC 5447:
69 * "Diameter Mobile IPv6"
70 *
71 * RFC 5580:
72 * "Carrying Location Objects in RADIUS and Diameter"
73 *
74 * RFC 6572:
75 * "RADIUS Support for Proxy Mobile IPv6"
76 *
77 * RFC 7155:
78 * "Diameter Network Access Server Application"
79 *
80 * Alfredo Andres Omella (aandres@s21sec.com) v0.1 2000/09/15
81 *
82 * TODO: Among other things to print ok MacIntosh and Vendor values
83 */
84
85 #ifdef HAVE_CONFIG_H
86 #include <config.h>
87 #endif
88
89 #include "netdissect-stdinc.h"
90
91 #include <string.h>
92
93 #include "netdissect-ctype.h"
94
95 #include "netdissect.h"
96 #include "addrtoname.h"
97 #include "extract.h"
98 #include "oui.h"
99 #include "ntp.h"
100
101
102 #define TAM_SIZE(x) (sizeof(x)/sizeof(x[0]) )
103
104 #define PRINT_HEX(bytes_len, ptr_data) \
105 while(bytes_len) \
106 { \
107 ND_PRINT("%02X", *ptr_data ); \
108 ptr_data++; \
109 bytes_len--; \
110 }
111
112
113 /* Radius packet codes */
114 /* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-27 */
115 #define RADCMD_ACCESS_REQ 1 /* Access-Request */
116 #define RADCMD_ACCESS_ACC 2 /* Access-Accept */
117 #define RADCMD_ACCESS_REJ 3 /* Access-Reject */
118 #define RADCMD_ACCOUN_REQ 4 /* Accounting-Request */
119 #define RADCMD_ACCOUN_RES 5 /* Accounting-Response */
120 #define RADCMD_ACCESS_CHA 11 /* Access-Challenge */
121 #define RADCMD_STATUS_SER 12 /* Status-Server */
122 #define RADCMD_STATUS_CLI 13 /* Status-Client */
123 #define RADCMD_DISCON_REQ 40 /* Disconnect-Request */
124 #define RADCMD_DISCON_ACK 41 /* Disconnect-ACK */
125 #define RADCMD_DISCON_NAK 42 /* Disconnect-NAK */
126 #define RADCMD_COA_REQ 43 /* CoA-Request */
127 #define RADCMD_COA_ACK 44 /* CoA-ACK */
128 #define RADCMD_COA_NAK 45 /* CoA-NAK */
129 #define RADCMD_RESERVED 255 /* Reserved */
130
131 static const struct tok radius_command_values[] = {
132 { RADCMD_ACCESS_REQ, "Access-Request" },
133 { RADCMD_ACCESS_ACC, "Access-Accept" },
134 { RADCMD_ACCESS_REJ, "Access-Reject" },
135 { RADCMD_ACCOUN_REQ, "Accounting-Request" },
136 { RADCMD_ACCOUN_RES, "Accounting-Response" },
137 { RADCMD_ACCESS_CHA, "Access-Challenge" },
138 { RADCMD_STATUS_SER, "Status-Server" },
139 { RADCMD_STATUS_CLI, "Status-Client" },
140 { RADCMD_DISCON_REQ, "Disconnect-Request" },
141 { RADCMD_DISCON_ACK, "Disconnect-ACK" },
142 { RADCMD_DISCON_NAK, "Disconnect-NAK" },
143 { RADCMD_COA_REQ, "CoA-Request" },
144 { RADCMD_COA_ACK, "CoA-ACK" },
145 { RADCMD_COA_NAK, "CoA-NAK" },
146 { RADCMD_RESERVED, "Reserved" },
147 { 0, NULL}
148 };
149
150 /********************************/
151 /* Begin Radius Attribute types */
152 /********************************/
153 #define SERV_TYPE 6
154 #define FRM_IPADDR 8
155 #define LOG_IPHOST 14
156 #define LOG_SERVICE 15
157 #define FRM_IPX 23
158 #define SESSION_TIMEOUT 27
159 #define IDLE_TIMEOUT 28
160 #define FRM_ATALK_LINK 37
161 #define FRM_ATALK_NETWORK 38
162
163 #define ACCT_DELAY 41
164 #define ACCT_SESSION_TIME 46
165
166 #define EGRESS_VLAN_ID 56
167 #define EGRESS_VLAN_NAME 58
168
169 #define TUNNEL_TYPE 64
170 #define TUNNEL_MEDIUM 65
171 #define TUNNEL_CLIENT_END 66
172 #define TUNNEL_SERVER_END 67
173 #define TUNNEL_PASS 69
174
175 #define ARAP_PASS 70
176 #define ARAP_FEATURES 71
177
178 #define EAP_MESSAGE 79
179
180 #define TUNNEL_PRIV_GROUP 81
181 #define TUNNEL_ASSIGN_ID 82
182 #define TUNNEL_PREFERENCE 83
183
184 #define ARAP_CHALLENGE_RESP 84
185 #define ACCT_INT_INTERVAL 85
186
187 #define TUNNEL_CLIENT_AUTH 90
188 #define TUNNEL_SERVER_AUTH 91
189
190 #define ERROR_CAUSE 101
191 /********************************/
192 /* End Radius Attribute types */
193 /********************************/
194
195 #define RFC4675_TAGGED 0x31
196 #define RFC4675_UNTAGGED 0x32
197
198 static const struct tok rfc4675_tagged[] = {
199 { RFC4675_TAGGED, "Tagged" },
200 { RFC4675_UNTAGGED, "Untagged" },
201 { 0, NULL}
202 };
203
204
205 static void print_attr_string(netdissect_options *, const u_char *, u_int, u_short );
206 static void print_attr_num(netdissect_options *, const u_char *, u_int, u_short );
207 static void print_vendor_attr(netdissect_options *, const u_char *, u_int, u_short );
208 static void print_attr_address(netdissect_options *, const u_char *, u_int, u_short);
209 static void print_attr_address6(netdissect_options *, const u_char *, u_int, u_short);
210 static void print_attr_netmask6(netdissect_options *, const u_char *, u_int, u_short);
211 static void print_attr_mip6_home_link_prefix(netdissect_options *, const u_char *, u_int, u_short);
212 static void print_attr_operator_name(netdissect_options *, const u_char *, u_int, u_short);
213 static void print_attr_location_information(netdissect_options *, const u_char *, u_int, u_short);
214 static void print_attr_location_data(netdissect_options *, const u_char *, u_int, u_short);
215 static void print_basic_location_policy_rules(netdissect_options *, const u_char *, u_int, u_short);
216 static void print_attr_time(netdissect_options *, const u_char *, u_int, u_short);
217 static void print_attr_vector64(netdissect_options *, register const u_char *, u_int, u_short);
218 static void print_attr_strange(netdissect_options *, const u_char *, u_int, u_short);
219
220
221 struct radius_hdr { nd_uint8_t code; /* Radius packet code */
222 nd_uint8_t id; /* Radius packet id */
223 nd_uint16_t len; /* Radius total length */
224 nd_byte auth[16]; /* Authenticator */
225 };
226
227 #define MIN_RADIUS_LEN 20
228
229 struct radius_attr { nd_uint8_t type; /* Attribute type */
230 nd_uint8_t len; /* Attribute length */
231 };
232
233
234 /* Service-Type Attribute standard values */
235 /* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-4 */
236 static const char *serv_type[]={ NULL,
237 "Login",
238 "Framed",
239 "Callback Login",
240 "Callback Framed",
241 "Outbound",
242 "Administrative",
243 "NAS Prompt",
244 "Authenticate Only",
245 "Callback NAS Prompt",
246 /* ^ [0, 9] ^ */
247 "Call Check",
248 "Callback Administrative",
249 "Voice",
250 "Fax",
251 "Modem Relay",
252 "IAPP-Register",
253 "IAPP-AP-Check",
254 "Authorize Only",
255 "Framed-Management",
256 "Additional-Authorization",
257 /* ^ [10, 19] ^ */
258 };
259
260 /* Framed-Protocol Attribute standard values */
261 /* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-5 */
262 static const char *frm_proto[]={ NULL,
263 "PPP",
264 "SLIP",
265 "ARAP",
266 "Gandalf proprietary",
267 "Xylogics IPX/SLIP",
268 "X.75 Synchronous",
269 "GPRS PDP Context",
270 };
271
272 /* Framed-Routing Attribute standard values */
273 /* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-6 */
274 static const char *frm_routing[]={ "None",
275 "Send",
276 "Listen",
277 "Send&Listen",
278 };
279
280 /* Framed-Compression Attribute standard values */
281 /* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-7 */
282 static const char *frm_comp[]={ "None",
283 "VJ TCP/IP",
284 "IPX",
285 "Stac-LZS",
286 };
287
288 /* Login-Service Attribute standard values */
289 /* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-8 */
290 static const char *login_serv[]={ "Telnet",
291 "Rlogin",
292 "TCP Clear",
293 "PortMaster(proprietary)",
294 "LAT",
295 "X.25-PAD",
296 "X.25-T3POS",
297 "Unassigned",
298 "TCP Clear Quiet",
299 };
300
301
302 /* Termination-Action Attribute standard values */
303 /* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-9 */
304 static const char *term_action[]={ "Default",
305 "RADIUS-Request",
306 };
307
308 /* Ingress-Filters Attribute standard values */
309 static const char *ingress_filters[]={ NULL,
310 "Enabled",
311 "Disabled",
312 };
313
314 /* NAS-Port-Type Attribute standard values */
315 /* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-13 */
316 static const char *nas_port_type[]={ "Async",
317 "Sync",
318 "ISDN Sync",
319 "ISDN Async V.120",
320 "ISDN Async V.110",
321 "Virtual",
322 "PIAFS",
323 "HDLC Clear Channel",
324 "X.25",
325 "X.75",
326 /* ^ [0, 9] ^ */
327 "G.3 Fax",
328 "SDSL",
329 "ADSL-CAP",
330 "ADSL-DMT",
331 "ISDN-DSL",
332 "Ethernet",
333 "xDSL",
334 "Cable",
335 "Wireless - Other",
336 "Wireless - IEEE 802.11",
337 /* ^ [10, 19] ^ */
338 "Token-Ring",
339 "FDDI",
340 "Wireless - CDMA200",
341 "Wireless - UMTS",
342 "Wireless - 1X-EV",
343 "IAPP",
344 "FTTP",
345 "Wireless - IEEE 802.16",
346 "Wireless - IEEE 802.20",
347 "Wireless - IEEE 802.22",
348 /* ^ [20, 29] ^ */
349 "PPPoA",
350 "PPPoEoA",
351 "PPPoEoE",
352 "PPPoEoVLAN",
353 "PPPoEoQinQ",
354 "xPON",
355 "Wireless - XGP",
356 "WiMAX Pre-Release 8 IWK Function",
357 "WIMAX-WIFI-IWK",
358 "WIMAX-SFF",
359 /* ^ [30, 39] ^ */
360 "WIMAX-HA-LMA",
361 "WIMAX-DHCP",
362 "WIMAX-LBS",
363 "WIMAX-WVS",
364 };
365
366 /* Acct-Status-Type Accounting Attribute standard values */
367 /* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-10 */
368 static const char *acct_status[]={ NULL,
369 "Start",
370 "Stop",
371 "Interim-Update",
372 "Unassigned",
373 "Unassigned",
374 "Unassigned",
375 "Accounting-On",
376 "Accounting-Off",
377 "Tunnel-Start",
378 /* ^ [0, 9] ^ */
379 "Tunnel-Stop",
380 "Tunnel-Reject",
381 "Tunnel-Link-Start",
382 "Tunnel-Link-Stop",
383 "Tunnel-Link-Reject",
384 "Failed",
385 };
386
387 /* Acct-Authentic Accounting Attribute standard values */
388 /* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-11 */
389 static const char *acct_auth[]={ NULL,
390 "RADIUS",
391 "Local",
392 "Remote",
393 "Diameter",
394 };
395
396 /* Acct-Terminate-Cause Accounting Attribute standard values */
397 /* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-12 */
398 static const char *acct_term[]={ NULL,
399 "User Request",
400 "Lost Carrier",
401 "Lost Service",
402 "Idle Timeout",
403 "Session Timeout",
404 "Admin Reset",
405 "Admin Reboot",
406 "Port Error",
407 "NAS Error",
408 /* ^ [0, 9] ^ */
409 "NAS Request",
410 "NAS Reboot",
411 "Port Unneeded",
412 "Port Preempted",
413 "Port Suspended",
414 "Service Unavailable",
415 "Callback",
416 "User Error",
417 "Host Request",
418 "Supplicant Restart",
419 /* ^ [10, 19] ^ */
420 "Reauthentication Failure",
421 "Port Reinitialized",
422 "Port Administratively Disabled",
423 "Lost Power",
424 };
425
426 /* Tunnel-Type Attribute standard values */
427 /* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-14 */
428 static const char *tunnel_type[]={ NULL,
429 "PPTP",
430 "L2F",
431 "L2TP",
432 "ATMP",
433 "VTP",
434 "AH",
435 "IP-IP",
436 "MIN-IP-IP",
437 "ESP",
438 /* ^ [0, 9] ^ */
439 "GRE",
440 "DVS",
441 "IP-in-IP Tunneling",
442 "VLAN",
443 };
444
445 /* Tunnel-Medium-Type Attribute standard values */
446 /* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-15 */
447 static const char *tunnel_medium[]={ NULL,
448 "IPv4",
449 "IPv6",
450 "NSAP",
451 "HDLC",
452 "BBN 1822",
453 "802",
454 "E.163",
455 "E.164",
456 "F.69",
457 /* ^ [0, 9] ^ */
458 "X.121",
459 "IPX",
460 "Appletalk",
461 "Decnet IV",
462 "Banyan Vines",
463 "E.164 with NSAP subaddress",
464 };
465
466 /* ARAP-Zone-Access Attribute standard values */
467 /* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-16 */
468 static const char *arap_zone[]={ NULL,
469 "Only access to dfl zone",
470 "Use zone filter inc.",
471 "Not used",
472 "Use zone filter exc.",
473 };
474
475 /* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-17 */
476 static const char *prompt[]={ "No Echo",
477 "Echo",
478 };
479
480 /* Error-Cause standard values */
481 /* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-18 */
482 #define ERROR_CAUSE_RESIDUAL_CONTEXT_REMOVED 201
483 #define ERROR_CAUSE_INVALID_EAP_PACKET 202
484 #define ERROR_CAUSE_UNSUPPORTED_ATTRIBUTE 401
485 #define ERROR_CAUSE_MISSING_ATTRIBUTE 402
486 #define ERROR_CAUSE_NAS_IDENTIFICATION_MISMATCH 403
487 #define ERROR_CAUSE_INVALID_REQUEST 404
488 #define ERROR_CAUSE_UNSUPPORTED_SERVICE 405
489 #define ERROR_CAUSE_UNSUPPORTED_EXTENSION 406
490 #define ERROR_CAUSE_INVALID_ATTRIBUTE_VALUE 407
491 #define ERROR_CAUSE_ADMINISTRATIVELY_PROHIBITED 501
492 #define ERROR_CAUSE_PROXY_REQUEST_NOT_ROUTABLE 502
493 #define ERROR_CAUSE_SESSION_CONTEXT_NOT_FOUND 503
494 #define ERROR_CAUSE_SESSION_CONTEXT_NOT_REMOVABLE 504
495 #define ERROR_CAUSE_PROXY_PROCESSING_ERROR 505
496 #define ERROR_CAUSE_RESOURCES_UNAVAILABLE 506
497 #define ERROR_CAUSE_REQUEST_INITIATED 507
498 #define ERROR_CAUSE_MULTIPLE_SESSION_SELECTION_UNSUPPORTED 508
499 #define ERROR_CAUSE_LOCATION_INFO_REQUIRED 509
500 static const struct tok errorcausetype[] = {
501 { ERROR_CAUSE_RESIDUAL_CONTEXT_REMOVED, "Residual Session Context Removed" },
502 { ERROR_CAUSE_INVALID_EAP_PACKET, "Invalid EAP Packet (Ignored)" },
503 { ERROR_CAUSE_UNSUPPORTED_ATTRIBUTE, "Unsupported Attribute" },
504 { ERROR_CAUSE_MISSING_ATTRIBUTE, "Missing Attribute" },
505 { ERROR_CAUSE_NAS_IDENTIFICATION_MISMATCH, "NAS Identification Mismatch" },
506 { ERROR_CAUSE_INVALID_REQUEST, "Invalid Request" },
507 { ERROR_CAUSE_UNSUPPORTED_SERVICE, "Unsupported Service" },
508 { ERROR_CAUSE_UNSUPPORTED_EXTENSION, "Unsupported Extension" },
509 { ERROR_CAUSE_INVALID_ATTRIBUTE_VALUE, "Invalid Attribute Value" },
510 { ERROR_CAUSE_ADMINISTRATIVELY_PROHIBITED, "Administratively Prohibited" },
511 { ERROR_CAUSE_PROXY_REQUEST_NOT_ROUTABLE, "Request Not Routable (Proxy)" },
512 { ERROR_CAUSE_SESSION_CONTEXT_NOT_FOUND, "Session Context Not Found" },
513 { ERROR_CAUSE_SESSION_CONTEXT_NOT_REMOVABLE, "Session Context Not Removable" },
514 { ERROR_CAUSE_PROXY_PROCESSING_ERROR, "Other Proxy Processing Error" },
515 { ERROR_CAUSE_RESOURCES_UNAVAILABLE, "Resources Unavailable" },
516 { ERROR_CAUSE_REQUEST_INITIATED, "Request Initiated" },
517 { ERROR_CAUSE_MULTIPLE_SESSION_SELECTION_UNSUPPORTED, "Multiple Session Selection Unsupported" },
518 { ERROR_CAUSE_LOCATION_INFO_REQUIRED, "Location Info Required" },
519 { 0, NULL }
520 };
521
522 /* MIP6-Feature-Vector standard values */
523 /* https://www.iana.org/assignments/aaa-parameters/aaa-parameters.xhtml */
524 #define MIP6_INTEGRATED 0x0000000000000001
525 #define LOCAL_HOME_AGENT_ASSIGNMENT 0x0000000000000002
526 #define PMIP6_SUPPORTED 0x0000010000000000
527 #define IP4_HOA_SUPPORTED 0x0000020000000000
528 #define LOCAL_MAG_ROUTING_SUPPORTED 0x0000040000000000
529 #define ASSIGN_LOCAL_IP 0x0000080000000000
530 #define MIP4_SUPPORTED 0x0000100000000000
531 #define OPTIMIZED_IDLE_MODE_MOBILITY 0x0000200000000000
532 #define GTPv2_SUPPORTED 0x0000400000000000
533 #define IP4_TRANSPORT_SUPPORTED 0x0000800000000000
534 #define IP4_HOA_ONLY_SUPPORTED 0x0001000000000000
535 #define INTER_MAG_ROUTING_SUPPORTED 0x0002000000000000
536 static const struct mip6_feature_vector {
537 uint64_t v;
538 const char *s;
539 } mip6_feature_vector[] = {
540 { MIP6_INTEGRATED, "MIP6_INTEGRATED" },
541 { LOCAL_HOME_AGENT_ASSIGNMENT, "LOCAL_HOME_AGENT_ASSIGNMENT" },
542 { PMIP6_SUPPORTED, "PMIP6_SUPPORTED" },
543 { IP4_HOA_SUPPORTED, "IP4_HOA_SUPPORTED" },
544 { LOCAL_MAG_ROUTING_SUPPORTED, "LOCAL_MAG_ROUTING_SUPPORTED" },
545 { ASSIGN_LOCAL_IP, "ASSIGN_LOCAL_IP" },
546 { MIP4_SUPPORTED, "MIP4_SUPPORTED" },
547 { OPTIMIZED_IDLE_MODE_MOBILITY, "OPTIMIZED_IDLE_MODE_MOBILITY" },
548 { GTPv2_SUPPORTED, "GTPv2_SUPPORTED" },
549 { IP4_TRANSPORT_SUPPORTED, "IP4_TRANSPORT_SUPPORTED" },
550 { IP4_HOA_ONLY_SUPPORTED, "IP4_HOA_ONLY_SUPPORTED" },
551 { INTER_MAG_ROUTING_SUPPORTED, "INTER_MAG_ROUTING_SUPPORTED" },
552 };
553
554 /* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-19 */
555 #define OPERATOR_NAME_TADIG 0x30
556 #define OPERATOR_NAME_REALM 0x31
557 #define OPERATOR_NAME_E212 0x32
558 #define OPERATOR_NAME_ICC 0x33
559 static const struct tok operator_name_vector[] = {
560 { OPERATOR_NAME_TADIG, "TADIG" },
561 { OPERATOR_NAME_REALM, "REALM" },
562 { OPERATOR_NAME_E212, "E212" },
563 { OPERATOR_NAME_ICC, "ICC" },
564 { 0, NULL }
565 };
566
567 /* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-20 */
568 #define LOCATION_INFORMATION_CODE_CIVIC 0
569 #define LOCATION_INFORMATION_CODE_GEOSPATIAL 1
570 static const struct tok location_information_code_vector[] = {
571 { LOCATION_INFORMATION_CODE_CIVIC , "Civic" },
572 { LOCATION_INFORMATION_CODE_GEOSPATIAL, "Geospatial" },
573 { 0, NULL }
574 };
575
576 /* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-21 */
577 #define LOCATION_INFORMATION_ENTITY_USER 0
578 #define LOCATION_INFORMATION_ENTITY_RADIUS 1
579 static const struct tok location_information_entity_vector[] = {
580 { LOCATION_INFORMATION_ENTITY_USER, "User" },
581 { LOCATION_INFORMATION_ENTITY_RADIUS, "RADIUS" },
582 { 0, NULL }
583 };
584
585 /* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-22 */
586 static const struct tok blpr_bm[] = {
587 { 0x0001, "MBZ-15" },
588 { 0x0002, "MBZ-14" },
589 { 0x0004, "MBZ-13" },
590 { 0x0008, "MBZ-12" },
591 { 0x0010, "MBZ-11" },
592 { 0x0020, "MBZ-10" },
593 { 0x0040, "MBZ-9" },
594 { 0x0080, "MBZ-8" },
595 { 0x0100, "MBZ-7" },
596 { 0x0200, "MBZ-6" },
597 { 0x0400, "MBZ-5" },
598 { 0x0800, "MBZ-4" },
599 { 0x1000, "MBZ-3" },
600 { 0x2000, "MBZ-2" },
601 { 0x4000, "MBZ-1" },
602 { 0x8000, "Retransmission Allowed" },
603 { 0, NULL }
604 };
605
606 /* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-2 */
607 static const struct attrtype {
608 const char *name; /* Attribute name */
609 const char **subtypes; /* Standard Values (if any) */
610 u_char siz_subtypes; /* Size of total standard values */
611 u_char first_subtype; /* First standard value is 0 or 1 */
612 void (*print_func)(netdissect_options *, const u_char *, u_int, u_short);
613 } attr_type[]=
614 {
615 { NULL, NULL, 0, 0, NULL },
616 { "User-Name", NULL, 0, 0, print_attr_string },
617 { "User-Password", NULL, 0, 0, NULL },
618 { "CHAP-Password", NULL, 0, 0, NULL },
619 { "NAS-IP-Address", NULL, 0, 0, print_attr_address },
620 { "NAS-Port", NULL, 0, 0, print_attr_num },
621 { "Service-Type", serv_type, TAM_SIZE(serv_type)-1, 1, print_attr_num },
622 { "Framed-Protocol", frm_proto, TAM_SIZE(frm_proto)-1, 1, print_attr_num },
623 { "Framed-IP-Address", NULL, 0, 0, print_attr_address },
624 { "Framed-IP-Netmask", NULL, 0, 0, print_attr_address },
625 /* ^ [0, 9] ^ */
626 { "Framed-Routing", frm_routing, TAM_SIZE(frm_routing), 0, print_attr_num },
627 { "Filter-Id", NULL, 0, 0, print_attr_string },
628 { "Framed-MTU", NULL, 0, 0, print_attr_num },
629 { "Framed-Compression", frm_comp, TAM_SIZE(frm_comp), 0, print_attr_num },
630 { "Login-IP-Host", NULL, 0, 0, print_attr_address },
631 { "Login-Service", login_serv, TAM_SIZE(login_serv), 0, print_attr_num },
632 { "Login-TCP-Port", NULL, 0, 0, print_attr_num },
633 { "Unassigned", NULL, 0, 0, NULL }, /*17*/
634 { "Reply-Message", NULL, 0, 0, print_attr_string },
635 { "Callback-Number", NULL, 0, 0, print_attr_string },
636 /* ^ [10, 19] ^ */
637 { "Callback-Id", NULL, 0, 0, print_attr_string },
638 { "Unassigned", NULL, 0, 0, NULL }, /*21*/
639 { "Framed-Route", NULL, 0, 0, print_attr_string },
640 { "Framed-IPX-Network", NULL, 0, 0, print_attr_num },
641 { "State", NULL, 0, 0, print_attr_string },
642 { "Class", NULL, 0, 0, print_attr_string },
643 { "Vendor-Specific", NULL, 0, 0, print_vendor_attr },
644 { "Session-Timeout", NULL, 0, 0, print_attr_num },
645 { "Idle-Timeout", NULL, 0, 0, print_attr_num },
646 { "Termination-Action", term_action, TAM_SIZE(term_action), 0, print_attr_num },
647 /* ^ [20, 29] ^ */
648 { "Called-Station-Id", NULL, 0, 0, print_attr_string },
649 { "Calling-Station-Id", NULL, 0, 0, print_attr_string },
650 { "NAS-Identifier", NULL, 0, 0, print_attr_string },
651 { "Proxy-State", NULL, 0, 0, print_attr_string },
652 { "Login-LAT-Service", NULL, 0, 0, print_attr_string },
653 { "Login-LAT-Node", NULL, 0, 0, print_attr_string },
654 { "Login-LAT-Group", NULL, 0, 0, print_attr_string },
655 { "Framed-AppleTalk-Link", NULL, 0, 0, print_attr_num },
656 { "Framed-AppleTalk-Network", NULL, 0, 0, print_attr_num },
657 { "Framed-AppleTalk-Zone", NULL, 0, 0, print_attr_string },
658 /* ^ [30, 39] ^ */
659 { "Acct-Status-Type", acct_status, TAM_SIZE(acct_status)-1, 1, print_attr_num },
660 { "Acct-Delay-Time", NULL, 0, 0, print_attr_num },
661 { "Acct-Input-Octets", NULL, 0, 0, print_attr_num },
662 { "Acct-Output-Octets", NULL, 0, 0, print_attr_num },
663 { "Acct-Session-Id", NULL, 0, 0, print_attr_string },
664 { "Acct-Authentic", acct_auth, TAM_SIZE(acct_auth)-1, 1, print_attr_num },
665 { "Acct-Session-Time", NULL, 0, 0, print_attr_num },
666 { "Acct-Input-Packets", NULL, 0, 0, print_attr_num },
667 { "Acct-Output-Packets", NULL, 0, 0, print_attr_num },
668 { "Acct-Terminate-Cause", acct_term, TAM_SIZE(acct_term)-1, 1, print_attr_num },
669 /* ^ [40, 49] ^ */
670 { "Acct-Multi-Session-Id", NULL, 0, 0, print_attr_string },
671 { "Acct-Link-Count", NULL, 0, 0, print_attr_num },
672 { "Acct-Input-Gigawords", NULL, 0, 0, print_attr_num },
673 { "Acct-Output-Gigawords", NULL, 0, 0, print_attr_num },
674 { "Unassigned", NULL, 0, 0, NULL }, /*54*/
675 { "Event-Timestamp", NULL, 0, 0, print_attr_time },
676 { "Egress-VLANID", NULL, 0, 0, print_attr_num },
677 { "Ingress-Filters", ingress_filters, TAM_SIZE(ingress_filters)-1, 1, print_attr_num },
678 { "Egress-VLAN-Name", NULL, 0, 0, print_attr_string },
679 { "User-Priority-Table", NULL, 0, 0, NULL },
680 /* ^ [50, 59] ^ */
681 { "CHAP-Challenge", NULL, 0, 0, print_attr_string },
682 { "NAS-Port-Type", nas_port_type, TAM_SIZE(nas_port_type), 0, print_attr_num },
683 { "Port-Limit", NULL, 0, 0, print_attr_num },
684 { "Login-LAT-Port", NULL, 0, 0, print_attr_string }, /*63*/
685 { "Tunnel-Type", tunnel_type, TAM_SIZE(tunnel_type)-1, 1, print_attr_num },
686 { "Tunnel-Medium-Type", tunnel_medium, TAM_SIZE(tunnel_medium)-1, 1, print_attr_num },
687 { "Tunnel-Client-Endpoint", NULL, 0, 0, print_attr_string },
688 { "Tunnel-Server-Endpoint", NULL, 0, 0, print_attr_string },
689 { "Acct-Tunnel-Connection", NULL, 0, 0, print_attr_string },
690 { "Tunnel-Password", NULL, 0, 0, print_attr_string },
691 /* ^ [60, 69] ^ */
692 { "ARAP-Password", NULL, 0, 0, print_attr_strange },
693 { "ARAP-Features", NULL, 0, 0, print_attr_strange },
694 { "ARAP-Zone-Access", arap_zone, TAM_SIZE(arap_zone)-1, 1, print_attr_num }, /*72*/
695 { "ARAP-Security", NULL, 0, 0, print_attr_string },
696 { "ARAP-Security-Data", NULL, 0, 0, print_attr_string },
697 { "Password-Retry", NULL, 0, 0, print_attr_num },
698 { "Prompt", prompt, TAM_SIZE(prompt), 0, print_attr_num },
699 { "Connect-Info", NULL, 0, 0, print_attr_string },
700 { "Configuration-Token", NULL, 0, 0, print_attr_string },
701 { "EAP-Message", NULL, 0, 0, print_attr_string },
702 /* ^ [70, 79] ^ */
703 { "Message-Authenticator", NULL, 0, 0, print_attr_string }, /*80*/
704 { "Tunnel-Private-Group-ID", NULL, 0, 0, print_attr_string },
705 { "Tunnel-Assignment-ID", NULL, 0, 0, print_attr_string },
706 { "Tunnel-Preference", NULL, 0, 0, print_attr_num },
707 { "ARAP-Challenge-Response", NULL, 0, 0, print_attr_strange },
708 { "Acct-Interim-Interval", NULL, 0, 0, print_attr_num },
709 { "Acct-Tunnel-Packets-Lost", NULL, 0, 0, print_attr_num }, /*86*/
710 { "NAS-Port-Id", NULL, 0, 0, print_attr_string },
711 { "Framed-Pool", NULL, 0, 0, print_attr_string },
712 { "CUI", NULL, 0, 0, print_attr_string },
713 /* ^ [80, 89] ^ */
714 { "Tunnel-Client-Auth-ID", NULL, 0, 0, print_attr_string },
715 { "Tunnel-Server-Auth-ID", NULL, 0, 0, print_attr_string },
716 { "NAS-Filter-Rule", NULL, 0, 0, print_attr_string },
717 { "Unassigned", NULL, 0, 0, NULL }, /*93*/
718 { "Originating-Line-Info", NULL, 0, 0, NULL },
719 { "NAS-IPv6-Address", NULL, 0, 0, print_attr_address6 },
720 { "Framed-Interface-ID", NULL, 0, 0, NULL },
721 { "Framed-IPv6-Prefix", NULL, 0, 0, print_attr_netmask6 },
722 { "Login-IPv6-Host", NULL, 0, 0, print_attr_address6 },
723 { "Framed-IPv6-Route", NULL, 0, 0, print_attr_string },
724 /* ^ [90, 99] ^ */
725 { "Framed-IPv6-Pool", NULL, 0, 0, print_attr_string },
726 { "Error-Cause", NULL, 0, 0, print_attr_strange },
727 { "EAP-Key-Name", NULL, 0, 0, NULL },
728 { "Digest-Response", NULL, 0, 0, print_attr_string },
729 { "Digest-Realm", NULL, 0, 0, print_attr_string },
730 { "Digest-Nonce", NULL, 0, 0, print_attr_string },
731 { "Digest-Response-Auth", NULL, 0, 0, print_attr_string },
732 { "Digest-Nextnonce", NULL, 0, 0, print_attr_string },
733 { "Digest-Method", NULL, 0, 0, print_attr_string },
734 { "Digest-URI", NULL, 0, 0, print_attr_string },
735 /* ^ [100, 109] ^ */
736 { "Digest-Qop", NULL, 0, 0, print_attr_string },
737 { "Digest-Algorithm", NULL, 0, 0, print_attr_string },
738 { "Digest-Entity-Body-Hash", NULL, 0, 0, print_attr_string },
739 { "Digest-CNonce", NULL, 0, 0, print_attr_string },
740 { "Digest-Nonce-Count", NULL, 0, 0, print_attr_string },
741 { "Digest-Username", NULL, 0, 0, print_attr_string },
742 { "Digest-Opaque", NULL, 0, 0, print_attr_string },
743 { "Digest-Auth-Param", NULL, 0, 0, print_attr_string },
744 { "Digest-AKA-Auts", NULL, 0, 0, print_attr_string },
745 { "Digest-Domain", NULL, 0, 0, print_attr_string },
746 /* ^ [110, 119] ^ */
747 { "Digest-Stale", NULL, 0, 0, print_attr_string },
748 { "Digest-HA1", NULL, 0, 0, print_attr_string },
749 { "SIP-AOR", NULL, 0, 0, print_attr_string },
750 { "Delegated-IPv6-Prefix", NULL, 0, 0, print_attr_netmask6 },
751 { "MIP6-Feature-Vector", NULL, 0, 0, print_attr_vector64 },
752 { "MIP6-Home-Link-Prefix", NULL, 0, 0, print_attr_mip6_home_link_prefix },
753 { "Operator-Name", NULL, 0, 0, print_attr_operator_name },
754 { "Location-Information", NULL, 0, 0, print_attr_location_information },
755 { "Location-Data", NULL, 0, 0, print_attr_location_data },
756 { "Basic-Location-Policy-Rules", NULL, 0, 0, print_basic_location_policy_rules }
757 /* ^ [120, 129] ^ */
758 };
759
760
761 /*****************************/
762 /* Print an attribute string */
763 /* value pointed by 'data' */
764 /* and 'length' size. */
765 /*****************************/
766 /* Returns nothing. */
767 /*****************************/
768 static void
769 print_attr_string(netdissect_options *ndo,
770 const u_char *data, u_int length, u_short attr_code)
771 {
772 u_int i;
773
774 ND_TCHECK_LEN(data, length);
775
776 switch(attr_code)
777 {
778 case TUNNEL_PASS:
779 if (length < 3)
780 goto trunc;
781 if (GET_U_1(data) && (GET_U_1(data) <= 0x1F))
782 ND_PRINT("Tag[%u] ", GET_U_1(data));
783 else
784 ND_PRINT("Tag[Unused] ");
785 data++;
786 length--;
787 ND_PRINT("Salt %u ", GET_BE_U_2(data));
788 data+=2;
789 length-=2;
790 break;
791 case TUNNEL_CLIENT_END:
792 case TUNNEL_SERVER_END:
793 case TUNNEL_PRIV_GROUP:
794 case TUNNEL_ASSIGN_ID:
795 case TUNNEL_CLIENT_AUTH:
796 case TUNNEL_SERVER_AUTH:
797 if (GET_U_1(data) <= 0x1F)
798 {
799 if (length < 1)
800 goto trunc;
801 if (GET_U_1(data))
802 ND_PRINT("Tag[%u] ", GET_U_1(data));
803 else
804 ND_PRINT("Tag[Unused] ");
805 data++;
806 length--;
807 }
808 break;
809 case EGRESS_VLAN_NAME:
810 if (length < 1)
811 goto trunc;
812 ND_PRINT("%s (0x%02x) ",
813 tok2str(rfc4675_tagged,"Unknown tag",GET_U_1(data)),
814 GET_U_1(data));
815 data++;
816 length--;
817 break;
818 case EAP_MESSAGE:
819 if (length < 1)
820 goto trunc;
821 eap_print(ndo, data, length);
822 return;
823 }
824
825 for (i=0; i < length && GET_U_1(data); i++, data++)
826 ND_PRINT("%c", ND_ASCII_ISPRINT(GET_U_1(data)) ? GET_U_1(data) : '.');
827
828 return;
829
830 trunc:
831 nd_print_trunc(ndo);
832 }
833
834 /*
835 * print vendor specific attributes
836 */
837 static void
838 print_vendor_attr(netdissect_options *ndo,
839 const u_char *data, u_int length, u_short attr_code _U_)
840 {
841 u_int idx;
842 u_int vendor_id;
843 u_int vendor_type;
844 u_int vendor_length;
845
846 if (length < 4)
847 goto trunc;
848 ND_TCHECK_4(data);
849 vendor_id = GET_BE_U_4(data);
850 data+=4;
851 length-=4;
852
853 ND_PRINT("Vendor: %s (%u)",
854 tok2str(smi_values,"Unknown",vendor_id),
855 vendor_id);
856
857 while (length >= 2) {
858 ND_TCHECK_2(data);
859
860 vendor_type = GET_U_1(data);
861 vendor_length = GET_U_1(data + 1);
862
863 if (vendor_length < 2)
864 {
865 ND_PRINT("\n\t Vendor Attribute: %u, Length: %u (bogus, must be >= 2)",
866 vendor_type,
867 vendor_length);
868 return;
869 }
870 if (vendor_length > length)
871 {
872 ND_PRINT("\n\t Vendor Attribute: %u, Length: %u (bogus, goes past end of vendor-specific attribute)",
873 vendor_type,
874 vendor_length);
875 return;
876 }
877 data+=2;
878 vendor_length-=2;
879 length-=2;
880 ND_TCHECK_LEN(data, vendor_length);
881
882 ND_PRINT("\n\t Vendor Attribute: %u, Length: %u, Value: ",
883 vendor_type,
884 vendor_length);
885 for (idx = 0; idx < vendor_length ; idx++, data++)
886 ND_PRINT("%c", ND_ASCII_ISPRINT(GET_U_1(data)) ? GET_U_1(data) : '.');
887 length-=vendor_length;
888 }
889 return;
890
891 trunc:
892 nd_print_trunc(ndo);
893 }
894
895 /******************************/
896 /* Print an attribute numeric */
897 /* value pointed by 'data' */
898 /* and 'length' size. */
899 /******************************/
900 /* Returns nothing. */
901 /******************************/
902 static void
903 print_attr_num(netdissect_options *ndo,
904 const u_char *data, u_int length, u_short attr_code)
905 {
906 uint32_t timeout;
907
908 if (length != 4)
909 {
910 ND_PRINT("ERROR: length %u != 4", length);
911 return;
912 }
913
914 ND_TCHECK_4(data);
915 /* This attribute has standard values */
916 if (attr_type[attr_code].siz_subtypes)
917 {
918 static const char **table;
919 uint32_t data_value;
920 table = attr_type[attr_code].subtypes;
921
922 if ( (attr_code == TUNNEL_TYPE) || (attr_code == TUNNEL_MEDIUM) )
923 {
924 if (!GET_U_1(data))
925 ND_PRINT("Tag[Unused] ");
926 else
927 ND_PRINT("Tag[%u] ", GET_U_1(data));
928 data++;
929 data_value = GET_BE_U_3(data);
930 }
931 else
932 {
933 data_value = GET_BE_U_4(data);
934 }
935 if ( data_value <= (uint32_t)(attr_type[attr_code].siz_subtypes - 1 +
936 attr_type[attr_code].first_subtype) &&
937 data_value >= attr_type[attr_code].first_subtype )
938 ND_PRINT("%s", table[data_value]);
939 else
940 ND_PRINT("#%u", data_value);
941 }
942 else
943 {
944 switch(attr_code) /* Be aware of special cases... */
945 {
946 case FRM_IPX:
947 if (GET_BE_U_4(data) == 0xFFFFFFFE )
948 ND_PRINT("NAS Select");
949 else
950 ND_PRINT("%u", GET_BE_U_4(data));
951 break;
952
953 case SESSION_TIMEOUT:
954 case IDLE_TIMEOUT:
955 case ACCT_DELAY:
956 case ACCT_SESSION_TIME:
957 case ACCT_INT_INTERVAL:
958 timeout = GET_BE_U_4(data);
959 if ( timeout < 60 )
960 ND_PRINT("%02d secs", timeout);
961 else
962 {
963 if ( timeout < 3600 )
964 ND_PRINT("%02d:%02d min",
965 timeout / 60, timeout % 60);
966 else
967 ND_PRINT("%02d:%02d:%02d hours",
968 timeout / 3600, (timeout % 3600) / 60,
969 timeout % 60);
970 }
971 break;
972
973 case FRM_ATALK_LINK:
974 if (GET_BE_U_4(data))
975 ND_PRINT("%u", GET_BE_U_4(data));
976 else
977 ND_PRINT("Unnumbered");
978 break;
979
980 case FRM_ATALK_NETWORK:
981 if (GET_BE_U_4(data))
982 ND_PRINT("%u", GET_BE_U_4(data));
983 else
984 ND_PRINT("NAS assigned");
985 break;
986
987 case TUNNEL_PREFERENCE:
988 if (GET_U_1(data))
989 ND_PRINT("Tag[%u] ", GET_U_1(data));
990 else
991 ND_PRINT("Tag[Unused] ");
992 data++;
993 ND_PRINT("%u", GET_BE_U_3(data));
994 break;
995
996 case EGRESS_VLAN_ID:
997 ND_PRINT("%s (0x%02x) ",
998 tok2str(rfc4675_tagged,"Unknown tag",GET_U_1(data)),
999 GET_U_1(data));
1000 data++;
1001 ND_PRINT("%u", GET_BE_U_3(data));
1002 break;
1003
1004 default:
1005 ND_PRINT("%u", GET_BE_U_4(data));
1006 break;
1007
1008 } /* switch */
1009
1010 } /* if-else */
1011
1012 return;
1013
1014 trunc:
1015 nd_print_trunc(ndo);
1016 }
1017
1018 /*****************************/
1019 /* Print an attribute IPv4 */
1020 /* address value pointed by */
1021 /* 'data' and 'length' size. */
1022 /*****************************/
1023 /* Returns nothing. */
1024 /*****************************/
1025 static void
1026 print_attr_address(netdissect_options *ndo,
1027 const u_char *data, u_int length, u_short attr_code)
1028 {
1029 if (length != 4)
1030 {
1031 ND_PRINT("ERROR: length %u != 4", length);
1032 return;
1033 }
1034
1035 ND_TCHECK_4(data);
1036
1037 switch(attr_code)
1038 {
1039 case FRM_IPADDR:
1040 case LOG_IPHOST:
1041 if (GET_BE_U_4(data) == 0xFFFFFFFF )
1042 ND_PRINT("User Selected");
1043 else
1044 if (GET_BE_U_4(data) == 0xFFFFFFFE )
1045 ND_PRINT("NAS Select");
1046 else
1047 ND_PRINT("%s",GET_IPADDR_STRING(data));
1048 break;
1049
1050 default:
1051 ND_PRINT("%s", GET_IPADDR_STRING(data));
1052 break;
1053 }
1054
1055 return;
1056
1057 trunc:
1058 nd_print_trunc(ndo);
1059 }
1060
1061 /*****************************/
1062 /* Print an attribute IPv6 */
1063 /* address value pointed by */
1064 /* 'data' and 'length' size. */
1065 /*****************************/
1066 /* Returns nothing. */
1067 /*****************************/
1068 static void
1069 print_attr_address6(netdissect_options *ndo,
1070 const u_char *data, u_int length, u_short attr_code _U_)
1071 {
1072 if (length != 16)
1073 {
1074 ND_PRINT("ERROR: length %u != 16", length);
1075 return;
1076 }
1077
1078 ND_TCHECK_16(data);
1079
1080 ND_PRINT("%s", GET_IP6ADDR_STRING(data));
1081
1082 return;
1083
1084 trunc:
1085 nd_print_trunc(ndo);
1086 }
1087
1088 static void
1089 print_attr_netmask6(netdissect_options *ndo,
1090 const u_char *data, u_int length, u_short attr_code _U_)
1091 {
1092 u_char data2[16];
1093
1094 if (length < 2 || length > 18)
1095 {
1096 ND_PRINT("ERROR: length %u not in range (2..18)", length);
1097 return;
1098 }
1099 ND_TCHECK_LEN(data, length);
1100 if (GET_U_1(data + 1) > 128)
1101 {
1102 ND_PRINT("ERROR: netmask %u not in range (0..128)", GET_U_1(data + 1));
1103 return;
1104 }
1105
1106 memset(data2, 0, sizeof(data2));
1107 if (length > 2)
1108 memcpy(data2, data+2, length-2);
1109
1110 ND_PRINT("%s/%u", ip6addr_string(ndo, data2), GET_U_1(data + 1));
1111
1112 if (GET_U_1(data + 1) > 8 * (length - 2))
1113 ND_PRINT(" (inconsistent prefix length)");
1114
1115 return;
1116
1117 trunc:
1118 nd_print_trunc(ndo);
1119 }
1120
1121 static void
1122 print_attr_mip6_home_link_prefix(netdissect_options *ndo,
1123 const u_char *data, u_int length, u_short attr_code _U_)
1124 {
1125 if (length != 17)
1126 {
1127 ND_PRINT("ERROR: length %u != 17", length);
1128 return;
1129 }
1130 ND_TCHECK_LEN(data, length);
1131 if (GET_U_1(data) > 128)
1132 {
1133 ND_PRINT("ERROR: netmask %u not in range (0..128)", GET_U_1(data));
1134 return;
1135 }
1136
1137 ND_PRINT("%s/%u", GET_IP6ADDR_STRING(data + 1), GET_U_1(data));
1138
1139 return;
1140
1141 trunc:
1142 nd_print_trunc(ndo);
1143 }
1144
1145 static void
1146 print_attr_operator_name(netdissect_options *ndo,
1147 const u_char *data, u_int length, u_short attr_code _U_)
1148 {
1149 u_int namespace_value;
1150
1151 ND_TCHECK_LEN(data, length);
1152 if (length < 2)
1153 {
1154 ND_PRINT("ERROR: length %u < 2", length);
1155 return;
1156 }
1157 namespace_value = GET_U_1(data);
1158 data++;
1159 ND_PRINT("[%s] ", tok2str(operator_name_vector, "unknown namespace %u", namespace_value));
1160
1161 nd_printn(ndo, data, length - 1, NULL);
1162
1163 return;
1164
1165 trunc:
1166 nd_print_trunc(ndo);
1167 }
1168
1169 static void
1170 print_attr_location_information(netdissect_options *ndo,
1171 const u_char *data, u_int length, u_short attr_code _U_)
1172 {
1173 uint16_t index;
1174 uint8_t code, entity;
1175
1176 ND_TCHECK_LEN(data, length);
1177 if (length < 21)
1178 {
1179 ND_PRINT("ERROR: length %u < 21", length);
1180 return;
1181 }
1182
1183 index = GET_BE_U_2(data);
1184 data += 2;
1185
1186 code = GET_U_1(data);
1187 data++;
1188
1189 entity = GET_U_1(data);
1190 data++;
1191
1192 ND_PRINT("index %u, code %s, entity %s, ",
1193 index,
1194 tok2str(location_information_code_vector, "Unknown (%u)", code),
1195 tok2str(location_information_entity_vector, "Unknown (%u)", entity)
1196 );
1197
1198 ND_PRINT("sighting time ");
1199 p_ntp_time(ndo, (const struct l_fixedpt *)data);
1200 ND_PRINT(", ");
1201 data += 8;
1202
1203 ND_PRINT("time to live ");
1204 p_ntp_time(ndo, (const struct l_fixedpt *)data);
1205 ND_PRINT(", ");
1206 data += 8;
1207
1208 ND_PRINT("method \"");
1209 nd_printn(ndo, data, length - 20, NULL);
1210 ND_PRINT("\"");
1211
1212 return;
1213
1214 trunc:
1215 nd_print_trunc(ndo);
1216 }
1217
1218 static void
1219 print_attr_location_data(netdissect_options *ndo,
1220 const u_char *data, u_int length, u_short attr_code _U_)
1221 {
1222 uint16_t index;
1223
1224 ND_TCHECK_LEN(data, length);
1225 if (length < 3)
1226 {
1227 ND_PRINT("ERROR: length %u < 3", length);
1228 return;
1229 }
1230
1231 index = GET_BE_U_2(data);
1232 data += 2;
1233 ND_PRINT("index %u, location", index);
1234
1235 /* The Location field of the String field of the Location-Data attribute
1236 * can have two completely different structures depending on the value of
1237 * the Code field of a Location-Info attribute, which supposedly precedes
1238 * the current attribute. Unfortunately, this choice of encoding makes it
1239 * non-trivial to decode the Location field without preserving some state
1240 * between the attributes.
1241 */
1242 hex_and_ascii_print(ndo, "\n\t ", data, length - 2);
1243
1244 return;
1245
1246 trunc:
1247 nd_print_trunc(ndo);
1248 }
1249
1250 static void
1251 print_basic_location_policy_rules(netdissect_options *ndo,
1252 const u_char *data, u_int length, u_short attr_code _U_)
1253 {
1254 uint16_t flags;
1255
1256 ND_TCHECK_LEN(data, length);
1257 if (length < 10)
1258 {
1259 ND_PRINT("ERROR: length %u < 10", length);
1260 return;
1261 }
1262
1263 flags = GET_BE_U_2(data);
1264 data += 2;
1265 ND_PRINT("flags [%s], ", bittok2str(blpr_bm, "none", flags));
1266
1267 ND_PRINT("retention expires ");
1268 p_ntp_time(ndo, (const struct l_fixedpt *)data);
1269 data += 8;
1270
1271 if (length > 10) {
1272 ND_PRINT(", note well \"");
1273 nd_printn(ndo, data, length - 10, NULL);
1274 ND_PRINT("\"");
1275 }
1276
1277 return;
1278
1279 trunc:
1280 nd_print_trunc(ndo);
1281 }
1282
1283
1284 /*************************************/
1285 /* Print an attribute of 'secs since */
1286 /* January 1, 1970 00:00 UTC' value */
1287 /* pointed by 'data' and 'length' */
1288 /* size. */
1289 /*************************************/
1290 /* Returns nothing. */
1291 /*************************************/
1292 static void
1293 print_attr_time(netdissect_options *ndo,
1294 const u_char *data, u_int length, u_short attr_code _U_)
1295 {
1296 time_t attr_time;
1297 char string[26];
1298
1299 if (length != 4)
1300 {
1301 ND_PRINT("ERROR: length %u != 4", length);
1302 return;
1303 }
1304
1305 ND_TCHECK_4(data);
1306
1307 attr_time = GET_BE_U_4(data);
1308 strlcpy(string, ctime(&attr_time), sizeof(string));
1309 /* Get rid of the newline */
1310 string[24] = '\0';
1311 ND_PRINT("%.24s", string);
1312 return;
1313
1314 trunc:
1315 nd_print_trunc(ndo);
1316 }
1317
1318 static void
1319 print_attr_vector64(netdissect_options *ndo,
1320 register const u_char *data, u_int length, u_short attr_code _U_)
1321 {
1322 uint64_t data_value, i;
1323 const char *sep = "";
1324
1325 if (length != 8)
1326 {
1327 ND_PRINT("ERROR: length %u != 8", length);
1328 return;
1329 }
1330
1331 ND_PRINT("[");
1332
1333 data_value = GET_BE_U_8(data);
1334 /* Print the 64-bit field in a format similar to bittok2str(), less
1335 * flagging any unknown bits. This way it should be easier to replace
1336 * the custom code with a library function later.
1337 */
1338 for (i = 0; i < TAM_SIZE(mip6_feature_vector); i++) {
1339 if (data_value & mip6_feature_vector[i].v) {
1340 ND_PRINT("%s%s", sep, mip6_feature_vector[i].s);
1341 sep = ", ";
1342 }
1343 }
1344
1345 ND_PRINT("]");
1346
1347 return;
1348 }
1349
1350 /***********************************/
1351 /* Print an attribute of 'strange' */
1352 /* data format pointed by 'data' */
1353 /* and 'length' size. */
1354 /***********************************/
1355 /* Returns nothing. */
1356 /***********************************/
1357 static void
1358 print_attr_strange(netdissect_options *ndo,
1359 const u_char *data, u_int length, u_short attr_code)
1360 {
1361 u_short len_data;
1362 u_int error_cause_value;
1363
1364 switch(attr_code)
1365 {
1366 case ARAP_PASS:
1367 if (length != 16)
1368 {
1369 ND_PRINT("ERROR: length %u != 16", length);
1370 return;
1371 }
1372 ND_PRINT("User_challenge (");
1373 ND_TCHECK_8(data);
1374 len_data = 8;
1375 PRINT_HEX(len_data, data);
1376 ND_PRINT(") User_resp(");
1377 ND_TCHECK_8(data);
1378 len_data = 8;
1379 PRINT_HEX(len_data, data);
1380 ND_PRINT(")");
1381 break;
1382
1383 case ARAP_FEATURES:
1384 if (length != 14)
1385 {
1386 ND_PRINT("ERROR: length %u != 14", length);
1387 return;
1388 }
1389 ND_TCHECK_1(data);
1390 if (GET_U_1(data))
1391 ND_PRINT("User can change password");
1392 else
1393 ND_PRINT("User cannot change password");
1394 data++;
1395 ND_TCHECK_1(data);
1396 ND_PRINT(", Min password length: %u", GET_U_1(data));
1397 data++;
1398 ND_PRINT(", created at: ");
1399 ND_TCHECK_4(data);
1400 len_data = 4;
1401 PRINT_HEX(len_data, data);
1402 ND_PRINT(", expires in: ");
1403 ND_TCHECK_4(data);
1404 len_data = 4;
1405 PRINT_HEX(len_data, data);
1406 ND_PRINT(", Current Time: ");
1407 ND_TCHECK_4(data);
1408 len_data = 4;
1409 PRINT_HEX(len_data, data);
1410 break;
1411
1412 case ARAP_CHALLENGE_RESP:
1413 if (length < 8)
1414 {
1415 ND_PRINT("ERROR: length %u != 8", length);
1416 return;
1417 }
1418 ND_TCHECK_8(data);
1419 len_data = 8;
1420 PRINT_HEX(len_data, data);
1421 break;
1422
1423 case ERROR_CAUSE:
1424 if (length != 4)
1425 {
1426 ND_PRINT("Error: length %u != 4", length);
1427 return;
1428 }
1429 ND_TCHECK_4(data);
1430
1431 error_cause_value = GET_BE_U_4(data);
1432 ND_PRINT("Error cause %u: %s", error_cause_value, tok2str(errorcausetype, "Error-Cause %u not known", error_cause_value));
1433 break;
1434 }
1435 return;
1436
1437 trunc:
1438 nd_print_trunc(ndo);
1439 }
1440
1441 static void
1442 radius_attrs_print(netdissect_options *ndo,
1443 const u_char *attr, u_int length)
1444 {
1445 const struct radius_attr *rad_attr = (const struct radius_attr *)attr;
1446 const char *attr_string;
1447 uint8_t type, len;
1448
1449 while (length > 0)
1450 {
1451 if (length < 2)
1452 goto trunc;
1453 ND_TCHECK_SIZE(rad_attr);
1454
1455 type = GET_U_1(rad_attr->type);
1456 len = GET_U_1(rad_attr->len);
1457 if (type != 0 && type < TAM_SIZE(attr_type))
1458 attr_string = attr_type[type].name;
1459 else
1460 attr_string = "Unknown";
1461
1462 ND_PRINT("\n\t %s Attribute (%u), length: %u",
1463 attr_string,
1464 type,
1465 len);
1466 if (len < 2)
1467 {
1468 ND_PRINT(" (bogus, must be >= 2)");
1469 return;
1470 }
1471 if (len > length)
1472 {
1473 ND_PRINT(" (bogus, goes past end of packet)");
1474 return;
1475 }
1476 ND_PRINT(", Value: ");
1477
1478 if (type < TAM_SIZE(attr_type))
1479 {
1480 if (len > 2)
1481 {
1482 if ( attr_type[type].print_func )
1483 (*attr_type[type].print_func)(
1484 ndo, ((const u_char *)(rad_attr+1)),
1485 len - 2, type);
1486 }
1487 }
1488 /* do we also want to see a hex dump ? */
1489 if (ndo->ndo_vflag> 1)
1490 print_unknown_data(ndo, (const u_char *)rad_attr+2, "\n\t ", (len)-2);
1491
1492 length-=(len);
1493 rad_attr = (const struct radius_attr *)( ((const char *)(rad_attr))+len);
1494 }
1495 return;
1496
1497 trunc:
1498 nd_print_trunc(ndo);
1499 }
1500
1501 void
1502 radius_print(netdissect_options *ndo,
1503 const u_char *dat, u_int length)
1504 {
1505 const struct radius_hdr *rad;
1506 u_int len, auth_idx;
1507
1508 ndo->ndo_protocol = "radius";
1509 ND_TCHECK_LEN(dat, MIN_RADIUS_LEN);
1510 rad = (const struct radius_hdr *)dat;
1511 len = GET_BE_U_2(rad->len);
1512
1513 if (len < MIN_RADIUS_LEN)
1514 {
1515 nd_print_trunc(ndo);
1516 return;
1517 }
1518
1519 if (len > length)
1520 len = length;
1521
1522 if (ndo->ndo_vflag < 1) {
1523 ND_PRINT("RADIUS, %s (%u), id: 0x%02x length: %u",
1524 tok2str(radius_command_values,"Unknown Command",GET_U_1(rad->code)),
1525 GET_U_1(rad->code),
1526 GET_U_1(rad->id),
1527 len);
1528 return;
1529 }
1530 else {
1531 ND_PRINT("RADIUS, length: %u\n\t%s (%u), id: 0x%02x, Authenticator: ",
1532 len,
1533 tok2str(radius_command_values,"Unknown Command",GET_U_1(rad->code)),
1534 GET_U_1(rad->code),
1535 GET_U_1(rad->id));
1536
1537 for(auth_idx=0; auth_idx < 16; auth_idx++)
1538 ND_PRINT("%02x", rad->auth[auth_idx]);
1539 }
1540
1541 if (len > MIN_RADIUS_LEN)
1542 radius_attrs_print(ndo, dat + MIN_RADIUS_LEN, len - MIN_RADIUS_LEN);
1543 return;
1544
1545 trunc:
1546 nd_print_trunc(ndo);
1547 }
[mirror] the TCPdump network dissector