diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-15 17:13:01 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-15 17:13:01 +0000 |
commit | 7adcb5b605cc1328a3084c334f4697ec9771936c (patch) | |
tree | 03e681bfda053978ba896745828e09cb056ad156 /print-radius.c | |
parent | Initial commit. (diff) | |
download | tcpdump-upstream.tar.xz tcpdump-upstream.zip |
Adding upstream version 4.99.4.upstream/4.99.4upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'print-radius.c')
-rw-r--r-- | print-radius.c | 1504 |
1 files changed, 1504 insertions, 0 deletions
diff --git a/print-radius.c b/print-radius.c new file mode 100644 index 0000000..57d7e50 --- /dev/null +++ b/print-radius.c @@ -0,0 +1,1504 @@ +/* + * Copyright (C) 2000 Alfredo Andres Omella. All rights reserved. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in + * the documentation and/or other materials provided with the + * distribution. + * 3. The names of the authors may not be used to endorse or promote + * products derived from this software without specific prior + * written permission. + * + * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR + * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED + * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. + */ + +/* \summary: Radius protocol printer */ + +/* + * Radius printer routines as specified on: + * + * RFC 2865: + * "Remote Authentication Dial In User Service (RADIUS)" + * + * RFC 2866: + * "RADIUS Accounting" + * + * RFC 2867: + * "RADIUS Accounting Modifications for Tunnel Protocol Support" + * + * RFC 2868: + * "RADIUS Attributes for Tunnel Protocol Support" + * + * RFC 2869: + * "RADIUS Extensions" + * + * RFC 3162: + * "RADIUS and IPv6" + * + * RFC 3580: + * "IEEE 802.1X Remote Authentication Dial In User Service (RADIUS)" + * "Usage Guidelines" + * + * RFC 4072: + * "Diameter Extensible Authentication Protocol (EAP) Application" + * + * RFC 4675: + * "RADIUS Attributes for Virtual LAN and Priority Support" + * + * RFC 4818: + * "RADIUS Delegated-IPv6-Prefix Attribute" + * + * RFC 4849: + * "RADIUS Filter Rule Attribute" + * + * RFC 5090: + * "RADIUS Extension for Digest Authentication" + * + * RFC 5176: + * "Dynamic Authorization Extensions to RADIUS" + * + * RFC 5447: + * "Diameter Mobile IPv6" + * + * RFC 5580: + * "Carrying Location Objects in RADIUS and Diameter" + * + * RFC 6572: + * "RADIUS Support for Proxy Mobile IPv6" + * + * RFC 7155: + * "Diameter Network Access Server Application" + * + * Alfredo Andres Omella (aandres@s21sec.com) v0.1 2000/09/15 + * + * TODO: Among other things to print ok MacIntosh and Vendor values + */ + +#ifdef HAVE_CONFIG_H +#include <config.h> +#endif + +#include "netdissect-stdinc.h" + +#include <string.h> + +#include "netdissect-ctype.h" + +#include "netdissect.h" +#include "addrtoname.h" +#include "extract.h" +#include "oui.h" +#include "ntp.h" + + +#define TAM_SIZE(x) (sizeof(x)/sizeof(x[0]) ) + +#define PRINT_HEX(bytes_len, ptr_data) \ + while(bytes_len) \ + { \ + ND_PRINT("%02X", GET_U_1(ptr_data)); \ + ptr_data++; \ + bytes_len--; \ + } + + +/* Radius packet codes */ +/* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-27 */ +#define RADCMD_ACCESS_REQ 1 /* Access-Request */ +#define RADCMD_ACCESS_ACC 2 /* Access-Accept */ +#define RADCMD_ACCESS_REJ 3 /* Access-Reject */ +#define RADCMD_ACCOUN_REQ 4 /* Accounting-Request */ +#define RADCMD_ACCOUN_RES 5 /* Accounting-Response */ +#define RADCMD_ACCESS_CHA 11 /* Access-Challenge */ +#define RADCMD_STATUS_SER 12 /* Status-Server */ +#define RADCMD_STATUS_CLI 13 /* Status-Client */ +#define RADCMD_DISCON_REQ 40 /* Disconnect-Request */ +#define RADCMD_DISCON_ACK 41 /* Disconnect-ACK */ +#define RADCMD_DISCON_NAK 42 /* Disconnect-NAK */ +#define RADCMD_COA_REQ 43 /* CoA-Request */ +#define RADCMD_COA_ACK 44 /* CoA-ACK */ +#define RADCMD_COA_NAK 45 /* CoA-NAK */ +#define RADCMD_RESERVED 255 /* Reserved */ + +static const struct tok radius_command_values[] = { + { RADCMD_ACCESS_REQ, "Access-Request" }, + { RADCMD_ACCESS_ACC, "Access-Accept" }, + { RADCMD_ACCESS_REJ, "Access-Reject" }, + { RADCMD_ACCOUN_REQ, "Accounting-Request" }, + { RADCMD_ACCOUN_RES, "Accounting-Response" }, + { RADCMD_ACCESS_CHA, "Access-Challenge" }, + { RADCMD_STATUS_SER, "Status-Server" }, + { RADCMD_STATUS_CLI, "Status-Client" }, + { RADCMD_DISCON_REQ, "Disconnect-Request" }, + { RADCMD_DISCON_ACK, "Disconnect-ACK" }, + { RADCMD_DISCON_NAK, "Disconnect-NAK" }, + { RADCMD_COA_REQ, "CoA-Request" }, + { RADCMD_COA_ACK, "CoA-ACK" }, + { RADCMD_COA_NAK, "CoA-NAK" }, + { RADCMD_RESERVED, "Reserved" }, + { 0, NULL} +}; + +/********************************/ +/* Begin Radius Attribute types */ +/********************************/ +#define SERV_TYPE 6 +#define FRM_IPADDR 8 +#define LOG_IPHOST 14 +#define LOG_SERVICE 15 +#define FRM_IPX 23 +#define SESSION_TIMEOUT 27 +#define IDLE_TIMEOUT 28 +#define FRM_ATALK_LINK 37 +#define FRM_ATALK_NETWORK 38 + +#define ACCT_DELAY 41 +#define ACCT_SESSION_TIME 46 + +#define EGRESS_VLAN_ID 56 +#define EGRESS_VLAN_NAME 58 + +#define TUNNEL_TYPE 64 +#define TUNNEL_MEDIUM 65 +#define TUNNEL_CLIENT_END 66 +#define TUNNEL_SERVER_END 67 +#define TUNNEL_PASS 69 + +#define ARAP_PASS 70 +#define ARAP_FEATURES 71 + +#define EAP_MESSAGE 79 + +#define TUNNEL_PRIV_GROUP 81 +#define TUNNEL_ASSIGN_ID 82 +#define TUNNEL_PREFERENCE 83 + +#define ARAP_CHALLENGE_RESP 84 +#define ACCT_INT_INTERVAL 85 + +#define TUNNEL_CLIENT_AUTH 90 +#define TUNNEL_SERVER_AUTH 91 + +#define ERROR_CAUSE 101 +/********************************/ +/* End Radius Attribute types */ +/********************************/ + +#define RFC4675_TAGGED 0x31 +#define RFC4675_UNTAGGED 0x32 + +static const struct tok rfc4675_tagged[] = { + { RFC4675_TAGGED, "Tagged" }, + { RFC4675_UNTAGGED, "Untagged" }, + { 0, NULL} +}; + + +static void print_attr_string(netdissect_options *, const u_char *, u_int, u_short ); +static void print_attr_num(netdissect_options *, const u_char *, u_int, u_short ); +static void print_vendor_attr(netdissect_options *, const u_char *, u_int, u_short ); +static void print_attr_address(netdissect_options *, const u_char *, u_int, u_short); +static void print_attr_address6(netdissect_options *, const u_char *, u_int, u_short); +static void print_attr_netmask6(netdissect_options *, const u_char *, u_int, u_short); +static void print_attr_mip6_home_link_prefix(netdissect_options *, const u_char *, u_int, u_short); +static void print_attr_operator_name(netdissect_options *, const u_char *, u_int, u_short); +static void print_attr_location_information(netdissect_options *, const u_char *, u_int, u_short); +static void print_attr_location_data(netdissect_options *, const u_char *, u_int, u_short); +static void print_basic_location_policy_rules(netdissect_options *, const u_char *, u_int, u_short); +static void print_attr_time(netdissect_options *, const u_char *, u_int, u_short); +static void print_attr_vector64(netdissect_options *, register const u_char *, u_int, u_short); +static void print_attr_strange(netdissect_options *, const u_char *, u_int, u_short); + + +struct radius_hdr { nd_uint8_t code; /* Radius packet code */ + nd_uint8_t id; /* Radius packet id */ + nd_uint16_t len; /* Radius total length */ + nd_byte auth[16]; /* Authenticator */ + }; + +#define MIN_RADIUS_LEN 20 + +struct radius_attr { nd_uint8_t type; /* Attribute type */ + nd_uint8_t len; /* Attribute length */ + }; + + +/* Service-Type Attribute standard values */ +/* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-4 */ +static const char *serv_type[]={ NULL, + "Login", + "Framed", + "Callback Login", + "Callback Framed", + "Outbound", + "Administrative", + "NAS Prompt", + "Authenticate Only", + "Callback NAS Prompt", + /* ^ [0, 9] ^ */ + "Call Check", + "Callback Administrative", + "Voice", + "Fax", + "Modem Relay", + "IAPP-Register", + "IAPP-AP-Check", + "Authorize Only", + "Framed-Management", + "Additional-Authorization", + /* ^ [10, 19] ^ */ + }; + +/* Framed-Protocol Attribute standard values */ +/* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-5 */ +static const char *frm_proto[]={ NULL, + "PPP", + "SLIP", + "ARAP", + "Gandalf proprietary", + "Xylogics IPX/SLIP", + "X.75 Synchronous", + "GPRS PDP Context", + }; + +/* Framed-Routing Attribute standard values */ +/* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-6 */ +static const char *frm_routing[]={ "None", + "Send", + "Listen", + "Send&Listen", + }; + +/* Framed-Compression Attribute standard values */ +/* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-7 */ +static const char *frm_comp[]={ "None", + "VJ TCP/IP", + "IPX", + "Stac-LZS", + }; + +/* Login-Service Attribute standard values */ +/* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-8 */ +static const char *login_serv[]={ "Telnet", + "Rlogin", + "TCP Clear", + "PortMaster(proprietary)", + "LAT", + "X.25-PAD", + "X.25-T3POS", + "Unassigned", + "TCP Clear Quiet", + }; + + +/* Termination-Action Attribute standard values */ +/* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-9 */ +static const char *term_action[]={ "Default", + "RADIUS-Request", + }; + +/* Ingress-Filters Attribute standard values */ +static const char *ingress_filters[]={ NULL, + "Enabled", + "Disabled", + }; + +/* NAS-Port-Type Attribute standard values */ +/* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-13 */ +static const char *nas_port_type[]={ "Async", + "Sync", + "ISDN Sync", + "ISDN Async V.120", + "ISDN Async V.110", + "Virtual", + "PIAFS", + "HDLC Clear Channel", + "X.25", + "X.75", + /* ^ [0, 9] ^ */ + "G.3 Fax", + "SDSL", + "ADSL-CAP", + "ADSL-DMT", + "ISDN-DSL", + "Ethernet", + "xDSL", + "Cable", + "Wireless - Other", + "Wireless - IEEE 802.11", + /* ^ [10, 19] ^ */ + "Token-Ring", + "FDDI", + "Wireless - CDMA200", + "Wireless - UMTS", + "Wireless - 1X-EV", + "IAPP", + "FTTP", + "Wireless - IEEE 802.16", + "Wireless - IEEE 802.20", + "Wireless - IEEE 802.22", + /* ^ [20, 29] ^ */ + "PPPoA", + "PPPoEoA", + "PPPoEoE", + "PPPoEoVLAN", + "PPPoEoQinQ", + "xPON", + "Wireless - XGP", + "WiMAX Pre-Release 8 IWK Function", + "WIMAX-WIFI-IWK", + "WIMAX-SFF", + /* ^ [30, 39] ^ */ + "WIMAX-HA-LMA", + "WIMAX-DHCP", + "WIMAX-LBS", + "WIMAX-WVS", + }; + +/* Acct-Status-Type Accounting Attribute standard values */ +/* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-10 */ +static const char *acct_status[]={ NULL, + "Start", + "Stop", + "Interim-Update", + "Unassigned", + "Unassigned", + "Unassigned", + "Accounting-On", + "Accounting-Off", + "Tunnel-Start", + /* ^ [0, 9] ^ */ + "Tunnel-Stop", + "Tunnel-Reject", + "Tunnel-Link-Start", + "Tunnel-Link-Stop", + "Tunnel-Link-Reject", + "Failed", + }; + +/* Acct-Authentic Accounting Attribute standard values */ +/* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-11 */ +static const char *acct_auth[]={ NULL, + "RADIUS", + "Local", + "Remote", + "Diameter", + }; + +/* Acct-Terminate-Cause Accounting Attribute standard values */ +/* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-12 */ +static const char *acct_term[]={ NULL, + "User Request", + "Lost Carrier", + "Lost Service", + "Idle Timeout", + "Session Timeout", + "Admin Reset", + "Admin Reboot", + "Port Error", + "NAS Error", + /* ^ [0, 9] ^ */ + "NAS Request", + "NAS Reboot", + "Port Unneeded", + "Port Preempted", + "Port Suspended", + "Service Unavailable", + "Callback", + "User Error", + "Host Request", + "Supplicant Restart", + /* ^ [10, 19] ^ */ + "Reauthentication Failure", + "Port Reinitialized", + "Port Administratively Disabled", + "Lost Power", + }; + +/* Tunnel-Type Attribute standard values */ +/* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-14 */ +static const char *tunnel_type[]={ NULL, + "PPTP", + "L2F", + "L2TP", + "ATMP", + "VTP", + "AH", + "IP-IP", + "MIN-IP-IP", + "ESP", + /* ^ [0, 9] ^ */ + "GRE", + "DVS", + "IP-in-IP Tunneling", + "VLAN", + }; + +/* Tunnel-Medium-Type Attribute standard values */ +/* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-15 */ +static const char *tunnel_medium[]={ NULL, + "IPv4", + "IPv6", + "NSAP", + "HDLC", + "BBN 1822", + "802", + "E.163", + "E.164", + "F.69", + /* ^ [0, 9] ^ */ + "X.121", + "IPX", + "Appletalk", + "Decnet IV", + "Banyan Vines", + "E.164 with NSAP subaddress", + }; + +/* ARAP-Zone-Access Attribute standard values */ +/* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-16 */ +static const char *arap_zone[]={ NULL, + "Only access to dfl zone", + "Use zone filter inc.", + "Not used", + "Use zone filter exc.", + }; + +/* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-17 */ +static const char *prompt[]={ "No Echo", + "Echo", + }; + +/* Error-Cause standard values */ +/* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-18 */ +#define ERROR_CAUSE_RESIDUAL_CONTEXT_REMOVED 201 +#define ERROR_CAUSE_INVALID_EAP_PACKET 202 +#define ERROR_CAUSE_UNSUPPORTED_ATTRIBUTE 401 +#define ERROR_CAUSE_MISSING_ATTRIBUTE 402 +#define ERROR_CAUSE_NAS_IDENTIFICATION_MISMATCH 403 +#define ERROR_CAUSE_INVALID_REQUEST 404 +#define ERROR_CAUSE_UNSUPPORTED_SERVICE 405 +#define ERROR_CAUSE_UNSUPPORTED_EXTENSION 406 +#define ERROR_CAUSE_INVALID_ATTRIBUTE_VALUE 407 +#define ERROR_CAUSE_ADMINISTRATIVELY_PROHIBITED 501 +#define ERROR_CAUSE_PROXY_REQUEST_NOT_ROUTABLE 502 +#define ERROR_CAUSE_SESSION_CONTEXT_NOT_FOUND 503 +#define ERROR_CAUSE_SESSION_CONTEXT_NOT_REMOVABLE 504 +#define ERROR_CAUSE_PROXY_PROCESSING_ERROR 505 +#define ERROR_CAUSE_RESOURCES_UNAVAILABLE 506 +#define ERROR_CAUSE_REQUEST_INITIATED 507 +#define ERROR_CAUSE_MULTIPLE_SESSION_SELECTION_UNSUPPORTED 508 +#define ERROR_CAUSE_LOCATION_INFO_REQUIRED 509 +static const struct tok errorcausetype[] = { + { ERROR_CAUSE_RESIDUAL_CONTEXT_REMOVED, "Residual Session Context Removed" }, + { ERROR_CAUSE_INVALID_EAP_PACKET, "Invalid EAP Packet (Ignored)" }, + { ERROR_CAUSE_UNSUPPORTED_ATTRIBUTE, "Unsupported Attribute" }, + { ERROR_CAUSE_MISSING_ATTRIBUTE, "Missing Attribute" }, + { ERROR_CAUSE_NAS_IDENTIFICATION_MISMATCH, "NAS Identification Mismatch" }, + { ERROR_CAUSE_INVALID_REQUEST, "Invalid Request" }, + { ERROR_CAUSE_UNSUPPORTED_SERVICE, "Unsupported Service" }, + { ERROR_CAUSE_UNSUPPORTED_EXTENSION, "Unsupported Extension" }, + { ERROR_CAUSE_INVALID_ATTRIBUTE_VALUE, "Invalid Attribute Value" }, + { ERROR_CAUSE_ADMINISTRATIVELY_PROHIBITED, "Administratively Prohibited" }, + { ERROR_CAUSE_PROXY_REQUEST_NOT_ROUTABLE, "Request Not Routable (Proxy)" }, + { ERROR_CAUSE_SESSION_CONTEXT_NOT_FOUND, "Session Context Not Found" }, + { ERROR_CAUSE_SESSION_CONTEXT_NOT_REMOVABLE, "Session Context Not Removable" }, + { ERROR_CAUSE_PROXY_PROCESSING_ERROR, "Other Proxy Processing Error" }, + { ERROR_CAUSE_RESOURCES_UNAVAILABLE, "Resources Unavailable" }, + { ERROR_CAUSE_REQUEST_INITIATED, "Request Initiated" }, + { ERROR_CAUSE_MULTIPLE_SESSION_SELECTION_UNSUPPORTED, "Multiple Session Selection Unsupported" }, + { ERROR_CAUSE_LOCATION_INFO_REQUIRED, "Location Info Required" }, + { 0, NULL } + }; + +/* MIP6-Feature-Vector standard values */ +/* https://www.iana.org/assignments/aaa-parameters/aaa-parameters.xhtml */ +#define MIP6_INTEGRATED 0x0000000000000001 +#define LOCAL_HOME_AGENT_ASSIGNMENT 0x0000000000000002 +#define PMIP6_SUPPORTED 0x0000010000000000 +#define IP4_HOA_SUPPORTED 0x0000020000000000 +#define LOCAL_MAG_ROUTING_SUPPORTED 0x0000040000000000 +#define ASSIGN_LOCAL_IP 0x0000080000000000 +#define MIP4_SUPPORTED 0x0000100000000000 +#define OPTIMIZED_IDLE_MODE_MOBILITY 0x0000200000000000 +#define GTPv2_SUPPORTED 0x0000400000000000 +#define IP4_TRANSPORT_SUPPORTED 0x0000800000000000 +#define IP4_HOA_ONLY_SUPPORTED 0x0001000000000000 +#define INTER_MAG_ROUTING_SUPPORTED 0x0002000000000000 +static const struct mip6_feature_vector { + uint64_t v; + const char *s; + } mip6_feature_vector[] = { + { MIP6_INTEGRATED, "MIP6_INTEGRATED" }, + { LOCAL_HOME_AGENT_ASSIGNMENT, "LOCAL_HOME_AGENT_ASSIGNMENT" }, + { PMIP6_SUPPORTED, "PMIP6_SUPPORTED" }, + { IP4_HOA_SUPPORTED, "IP4_HOA_SUPPORTED" }, + { LOCAL_MAG_ROUTING_SUPPORTED, "LOCAL_MAG_ROUTING_SUPPORTED" }, + { ASSIGN_LOCAL_IP, "ASSIGN_LOCAL_IP" }, + { MIP4_SUPPORTED, "MIP4_SUPPORTED" }, + { OPTIMIZED_IDLE_MODE_MOBILITY, "OPTIMIZED_IDLE_MODE_MOBILITY" }, + { GTPv2_SUPPORTED, "GTPv2_SUPPORTED" }, + { IP4_TRANSPORT_SUPPORTED, "IP4_TRANSPORT_SUPPORTED" }, + { IP4_HOA_ONLY_SUPPORTED, "IP4_HOA_ONLY_SUPPORTED" }, + { INTER_MAG_ROUTING_SUPPORTED, "INTER_MAG_ROUTING_SUPPORTED" }, + }; + +/* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-19 */ +#define OPERATOR_NAME_TADIG 0x30 +#define OPERATOR_NAME_REALM 0x31 +#define OPERATOR_NAME_E212 0x32 +#define OPERATOR_NAME_ICC 0x33 +static const struct tok operator_name_vector[] = { + { OPERATOR_NAME_TADIG, "TADIG" }, + { OPERATOR_NAME_REALM, "REALM" }, + { OPERATOR_NAME_E212, "E212" }, + { OPERATOR_NAME_ICC, "ICC" }, + { 0, NULL } + }; + +/* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-20 */ +#define LOCATION_INFORMATION_CODE_CIVIC 0 +#define LOCATION_INFORMATION_CODE_GEOSPATIAL 1 +static const struct tok location_information_code_vector[] = { + { LOCATION_INFORMATION_CODE_CIVIC , "Civic" }, + { LOCATION_INFORMATION_CODE_GEOSPATIAL, "Geospatial" }, + { 0, NULL } + }; + +/* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-21 */ +#define LOCATION_INFORMATION_ENTITY_USER 0 +#define LOCATION_INFORMATION_ENTITY_RADIUS 1 +static const struct tok location_information_entity_vector[] = { + { LOCATION_INFORMATION_ENTITY_USER, "User" }, + { LOCATION_INFORMATION_ENTITY_RADIUS, "RADIUS" }, + { 0, NULL } + }; + +/* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-22 */ +static const struct tok blpr_bm[] = { + { 0x0001, "MBZ-15" }, + { 0x0002, "MBZ-14" }, + { 0x0004, "MBZ-13" }, + { 0x0008, "MBZ-12" }, + { 0x0010, "MBZ-11" }, + { 0x0020, "MBZ-10" }, + { 0x0040, "MBZ-9" }, + { 0x0080, "MBZ-8" }, + { 0x0100, "MBZ-7" }, + { 0x0200, "MBZ-6" }, + { 0x0400, "MBZ-5" }, + { 0x0800, "MBZ-4" }, + { 0x1000, "MBZ-3" }, + { 0x2000, "MBZ-2" }, + { 0x4000, "MBZ-1" }, + { 0x8000, "Retransmission Allowed" }, + { 0, NULL } + }; + +/* https://www.iana.org/assignments/radius-types/radius-types.xhtml#radius-types-2 */ +static const struct attrtype { + const char *name; /* Attribute name */ + const char **subtypes; /* Standard Values (if any) */ + u_char siz_subtypes; /* Size of total standard values */ + u_char first_subtype; /* First standard value is 0 or 1 */ + void (*print_func)(netdissect_options *, const u_char *, u_int, u_short); + } attr_type[]= + { + { NULL, NULL, 0, 0, NULL }, + { "User-Name", NULL, 0, 0, print_attr_string }, + { "User-Password", NULL, 0, 0, NULL }, + { "CHAP-Password", NULL, 0, 0, NULL }, + { "NAS-IP-Address", NULL, 0, 0, print_attr_address }, + { "NAS-Port", NULL, 0, 0, print_attr_num }, + { "Service-Type", serv_type, TAM_SIZE(serv_type)-1, 1, print_attr_num }, + { "Framed-Protocol", frm_proto, TAM_SIZE(frm_proto)-1, 1, print_attr_num }, + { "Framed-IP-Address", NULL, 0, 0, print_attr_address }, + { "Framed-IP-Netmask", NULL, 0, 0, print_attr_address }, + /* ^ [0, 9] ^ */ + { "Framed-Routing", frm_routing, TAM_SIZE(frm_routing), 0, print_attr_num }, + { "Filter-Id", NULL, 0, 0, print_attr_string }, + { "Framed-MTU", NULL, 0, 0, print_attr_num }, + { "Framed-Compression", frm_comp, TAM_SIZE(frm_comp), 0, print_attr_num }, + { "Login-IP-Host", NULL, 0, 0, print_attr_address }, + { "Login-Service", login_serv, TAM_SIZE(login_serv), 0, print_attr_num }, + { "Login-TCP-Port", NULL, 0, 0, print_attr_num }, + { "Unassigned", NULL, 0, 0, NULL }, /*17*/ + { "Reply-Message", NULL, 0, 0, print_attr_string }, + { "Callback-Number", NULL, 0, 0, print_attr_string }, + /* ^ [10, 19] ^ */ + { "Callback-Id", NULL, 0, 0, print_attr_string }, + { "Unassigned", NULL, 0, 0, NULL }, /*21*/ + { "Framed-Route", NULL, 0, 0, print_attr_string }, + { "Framed-IPX-Network", NULL, 0, 0, print_attr_num }, + { "State", NULL, 0, 0, print_attr_string }, + { "Class", NULL, 0, 0, print_attr_string }, + { "Vendor-Specific", NULL, 0, 0, print_vendor_attr }, + { "Session-Timeout", NULL, 0, 0, print_attr_num }, + { "Idle-Timeout", NULL, 0, 0, print_attr_num }, + { "Termination-Action", term_action, TAM_SIZE(term_action), 0, print_attr_num }, + /* ^ [20, 29] ^ */ + { "Called-Station-Id", NULL, 0, 0, print_attr_string }, + { "Calling-Station-Id", NULL, 0, 0, print_attr_string }, + { "NAS-Identifier", NULL, 0, 0, print_attr_string }, + { "Proxy-State", NULL, 0, 0, print_attr_string }, + { "Login-LAT-Service", NULL, 0, 0, print_attr_string }, + { "Login-LAT-Node", NULL, 0, 0, print_attr_string }, + { "Login-LAT-Group", NULL, 0, 0, print_attr_string }, + { "Framed-AppleTalk-Link", NULL, 0, 0, print_attr_num }, + { "Framed-AppleTalk-Network", NULL, 0, 0, print_attr_num }, + { "Framed-AppleTalk-Zone", NULL, 0, 0, print_attr_string }, + /* ^ [30, 39] ^ */ + { "Acct-Status-Type", acct_status, TAM_SIZE(acct_status)-1, 1, print_attr_num }, + { "Acct-Delay-Time", NULL, 0, 0, print_attr_num }, + { "Acct-Input-Octets", NULL, 0, 0, print_attr_num }, + { "Acct-Output-Octets", NULL, 0, 0, print_attr_num }, + { "Acct-Session-Id", NULL, 0, 0, print_attr_string }, + { "Acct-Authentic", acct_auth, TAM_SIZE(acct_auth)-1, 1, print_attr_num }, + { "Acct-Session-Time", NULL, 0, 0, print_attr_num }, + { "Acct-Input-Packets", NULL, 0, 0, print_attr_num }, + { "Acct-Output-Packets", NULL, 0, 0, print_attr_num }, + { "Acct-Terminate-Cause", acct_term, TAM_SIZE(acct_term)-1, 1, print_attr_num }, + /* ^ [40, 49] ^ */ + { "Acct-Multi-Session-Id", NULL, 0, 0, print_attr_string }, + { "Acct-Link-Count", NULL, 0, 0, print_attr_num }, + { "Acct-Input-Gigawords", NULL, 0, 0, print_attr_num }, + { "Acct-Output-Gigawords", NULL, 0, 0, print_attr_num }, + { "Unassigned", NULL, 0, 0, NULL }, /*54*/ + { "Event-Timestamp", NULL, 0, 0, print_attr_time }, + { "Egress-VLANID", NULL, 0, 0, print_attr_num }, + { "Ingress-Filters", ingress_filters, TAM_SIZE(ingress_filters)-1, 1, print_attr_num }, + { "Egress-VLAN-Name", NULL, 0, 0, print_attr_string }, + { "User-Priority-Table", NULL, 0, 0, NULL }, + /* ^ [50, 59] ^ */ + { "CHAP-Challenge", NULL, 0, 0, print_attr_string }, + { "NAS-Port-Type", nas_port_type, TAM_SIZE(nas_port_type), 0, print_attr_num }, + { "Port-Limit", NULL, 0, 0, print_attr_num }, + { "Login-LAT-Port", NULL, 0, 0, print_attr_string }, /*63*/ + { "Tunnel-Type", tunnel_type, TAM_SIZE(tunnel_type)-1, 1, print_attr_num }, + { "Tunnel-Medium-Type", tunnel_medium, TAM_SIZE(tunnel_medium)-1, 1, print_attr_num }, + { "Tunnel-Client-Endpoint", NULL, 0, 0, print_attr_string }, + { "Tunnel-Server-Endpoint", NULL, 0, 0, print_attr_string }, + { "Acct-Tunnel-Connection", NULL, 0, 0, print_attr_string }, + { "Tunnel-Password", NULL, 0, 0, print_attr_string }, + /* ^ [60, 69] ^ */ + { "ARAP-Password", NULL, 0, 0, print_attr_strange }, + { "ARAP-Features", NULL, 0, 0, print_attr_strange }, + { "ARAP-Zone-Access", arap_zone, TAM_SIZE(arap_zone)-1, 1, print_attr_num }, /*72*/ + { "ARAP-Security", NULL, 0, 0, print_attr_string }, + { "ARAP-Security-Data", NULL, 0, 0, print_attr_string }, + { "Password-Retry", NULL, 0, 0, print_attr_num }, + { "Prompt", prompt, TAM_SIZE(prompt), 0, print_attr_num }, + { "Connect-Info", NULL, 0, 0, print_attr_string }, + { "Configuration-Token", NULL, 0, 0, print_attr_string }, + { "EAP-Message", NULL, 0, 0, print_attr_string }, + /* ^ [70, 79] ^ */ + { "Message-Authenticator", NULL, 0, 0, print_attr_string }, /*80*/ + { "Tunnel-Private-Group-ID", NULL, 0, 0, print_attr_string }, + { "Tunnel-Assignment-ID", NULL, 0, 0, print_attr_string }, + { "Tunnel-Preference", NULL, 0, 0, print_attr_num }, + { "ARAP-Challenge-Response", NULL, 0, 0, print_attr_strange }, + { "Acct-Interim-Interval", NULL, 0, 0, print_attr_num }, + { "Acct-Tunnel-Packets-Lost", NULL, 0, 0, print_attr_num }, /*86*/ + { "NAS-Port-Id", NULL, 0, 0, print_attr_string }, + { "Framed-Pool", NULL, 0, 0, print_attr_string }, + { "CUI", NULL, 0, 0, print_attr_string }, + /* ^ [80, 89] ^ */ + { "Tunnel-Client-Auth-ID", NULL, 0, 0, print_attr_string }, + { "Tunnel-Server-Auth-ID", NULL, 0, 0, print_attr_string }, + { "NAS-Filter-Rule", NULL, 0, 0, print_attr_string }, + { "Unassigned", NULL, 0, 0, NULL }, /*93*/ + { "Originating-Line-Info", NULL, 0, 0, NULL }, + { "NAS-IPv6-Address", NULL, 0, 0, print_attr_address6 }, + { "Framed-Interface-ID", NULL, 0, 0, NULL }, + { "Framed-IPv6-Prefix", NULL, 0, 0, print_attr_netmask6 }, + { "Login-IPv6-Host", NULL, 0, 0, print_attr_address6 }, + { "Framed-IPv6-Route", NULL, 0, 0, print_attr_string }, + /* ^ [90, 99] ^ */ + { "Framed-IPv6-Pool", NULL, 0, 0, print_attr_string }, + { "Error-Cause", NULL, 0, 0, print_attr_strange }, + { "EAP-Key-Name", NULL, 0, 0, NULL }, + { "Digest-Response", NULL, 0, 0, print_attr_string }, + { "Digest-Realm", NULL, 0, 0, print_attr_string }, + { "Digest-Nonce", NULL, 0, 0, print_attr_string }, + { "Digest-Response-Auth", NULL, 0, 0, print_attr_string }, + { "Digest-Nextnonce", NULL, 0, 0, print_attr_string }, + { "Digest-Method", NULL, 0, 0, print_attr_string }, + { "Digest-URI", NULL, 0, 0, print_attr_string }, + /* ^ [100, 109] ^ */ + { "Digest-Qop", NULL, 0, 0, print_attr_string }, + { "Digest-Algorithm", NULL, 0, 0, print_attr_string }, + { "Digest-Entity-Body-Hash", NULL, 0, 0, print_attr_string }, + { "Digest-CNonce", NULL, 0, 0, print_attr_string }, + { "Digest-Nonce-Count", NULL, 0, 0, print_attr_string }, + { "Digest-Username", NULL, 0, 0, print_attr_string }, + { "Digest-Opaque", NULL, 0, 0, print_attr_string }, + { "Digest-Auth-Param", NULL, 0, 0, print_attr_string }, + { "Digest-AKA-Auts", NULL, 0, 0, print_attr_string }, + { "Digest-Domain", NULL, 0, 0, print_attr_string }, + /* ^ [110, 119] ^ */ + { "Digest-Stale", NULL, 0, 0, print_attr_string }, + { "Digest-HA1", NULL, 0, 0, print_attr_string }, + { "SIP-AOR", NULL, 0, 0, print_attr_string }, + { "Delegated-IPv6-Prefix", NULL, 0, 0, print_attr_netmask6 }, + { "MIP6-Feature-Vector", NULL, 0, 0, print_attr_vector64 }, + { "MIP6-Home-Link-Prefix", NULL, 0, 0, print_attr_mip6_home_link_prefix }, + { "Operator-Name", NULL, 0, 0, print_attr_operator_name }, + { "Location-Information", NULL, 0, 0, print_attr_location_information }, + { "Location-Data", NULL, 0, 0, print_attr_location_data }, + { "Basic-Location-Policy-Rules", NULL, 0, 0, print_basic_location_policy_rules } + /* ^ [120, 129] ^ */ + }; + + +/*****************************/ +/* Print an attribute string */ +/* value pointed by 'data' */ +/* and 'length' size. */ +/*****************************/ +/* Returns nothing. */ +/*****************************/ +static void +print_attr_string(netdissect_options *ndo, + const u_char *data, u_int length, u_short attr_code) +{ + u_int i; + + ND_TCHECK_LEN(data, length); + + switch(attr_code) + { + case TUNNEL_PASS: + if (length < 3) + goto trunc; + if (GET_U_1(data) && (GET_U_1(data) <= 0x1F)) + ND_PRINT("Tag[%u] ", GET_U_1(data)); + else + ND_PRINT("Tag[Unused] "); + data++; + length--; + ND_PRINT("Salt %u ", GET_BE_U_2(data)); + data+=2; + length-=2; + break; + case TUNNEL_CLIENT_END: + case TUNNEL_SERVER_END: + case TUNNEL_PRIV_GROUP: + case TUNNEL_ASSIGN_ID: + case TUNNEL_CLIENT_AUTH: + case TUNNEL_SERVER_AUTH: + if (GET_U_1(data) <= 0x1F) + { + if (length < 1) + goto trunc; + if (GET_U_1(data)) + ND_PRINT("Tag[%u] ", GET_U_1(data)); + else + ND_PRINT("Tag[Unused] "); + data++; + length--; + } + break; + case EGRESS_VLAN_NAME: + if (length < 1) + goto trunc; + ND_PRINT("%s (0x%02x) ", + tok2str(rfc4675_tagged,"Unknown tag",GET_U_1(data)), + GET_U_1(data)); + data++; + length--; + break; + case EAP_MESSAGE: + if (length < 1) + goto trunc; + eap_print(ndo, data, length); + return; + } + + for (i=0; i < length && GET_U_1(data); i++, data++) + ND_PRINT("%c", ND_ASCII_ISPRINT(GET_U_1(data)) ? GET_U_1(data) : '.'); + + return; + + trunc: + nd_print_trunc(ndo); +} + +/* + * print vendor specific attributes + */ +static void +print_vendor_attr(netdissect_options *ndo, + const u_char *data, u_int length, u_short attr_code _U_) +{ + u_int idx; + u_int vendor_id; + u_int vendor_type; + u_int vendor_length; + + if (length < 4) + goto trunc; + vendor_id = GET_BE_U_4(data); + data+=4; + length-=4; + + ND_PRINT("Vendor: %s (%u)", + tok2str(smi_values,"Unknown",vendor_id), + vendor_id); + + while (length >= 2) { + vendor_type = GET_U_1(data); + vendor_length = GET_U_1(data + 1); + + if (vendor_length < 2) + { + ND_PRINT("\n\t Vendor Attribute: %u, Length: %u (bogus, must be >= 2)", + vendor_type, + vendor_length); + return; + } + if (vendor_length > length) + { + ND_PRINT("\n\t Vendor Attribute: %u, Length: %u (bogus, goes past end of vendor-specific attribute)", + vendor_type, + vendor_length); + return; + } + data+=2; + vendor_length-=2; + length-=2; + ND_TCHECK_LEN(data, vendor_length); + + ND_PRINT("\n\t Vendor Attribute: %u, Length: %u, Value: ", + vendor_type, + vendor_length); + for (idx = 0; idx < vendor_length ; idx++, data++) + ND_PRINT("%c", ND_ASCII_ISPRINT(GET_U_1(data)) ? GET_U_1(data) : '.'); + length-=vendor_length; + } + return; + + trunc: + nd_print_trunc(ndo); +} + +/******************************/ +/* Print an attribute numeric */ +/* value pointed by 'data' */ +/* and 'length' size. */ +/******************************/ +/* Returns nothing. */ +/******************************/ +static void +print_attr_num(netdissect_options *ndo, + const u_char *data, u_int length, u_short attr_code) +{ + uint32_t timeout; + + if (length != 4) + { + ND_PRINT("ERROR: length %u != 4", length); + return; + } + + /* This attribute has standard values */ + if (attr_type[attr_code].siz_subtypes) + { + static const char **table; + uint32_t data_value; + table = attr_type[attr_code].subtypes; + + if ( (attr_code == TUNNEL_TYPE) || (attr_code == TUNNEL_MEDIUM) ) + { + if (!GET_U_1(data)) + ND_PRINT("Tag[Unused] "); + else + ND_PRINT("Tag[%u] ", GET_U_1(data)); + data++; + data_value = GET_BE_U_3(data); + } + else + { + data_value = GET_BE_U_4(data); + } + if ( data_value <= (uint32_t)(attr_type[attr_code].siz_subtypes - 1 + + attr_type[attr_code].first_subtype) && + data_value >= attr_type[attr_code].first_subtype ) + ND_PRINT("%s", table[data_value]); + else + ND_PRINT("#%u", data_value); + } + else + { + switch(attr_code) /* Be aware of special cases... */ + { + case FRM_IPX: + if (GET_BE_U_4(data) == 0xFFFFFFFE ) + ND_PRINT("NAS Select"); + else + ND_PRINT("%u", GET_BE_U_4(data)); + break; + + case SESSION_TIMEOUT: + case IDLE_TIMEOUT: + case ACCT_DELAY: + case ACCT_SESSION_TIME: + case ACCT_INT_INTERVAL: + timeout = GET_BE_U_4(data); + if ( timeout < 60 ) + ND_PRINT("%02d secs", timeout); + else + { + if ( timeout < 3600 ) + ND_PRINT("%02d:%02d min", + timeout / 60, timeout % 60); + else + ND_PRINT("%02d:%02d:%02d hours", + timeout / 3600, (timeout % 3600) / 60, + timeout % 60); + } + break; + + case FRM_ATALK_LINK: + if (GET_BE_U_4(data)) + ND_PRINT("%u", GET_BE_U_4(data)); + else + ND_PRINT("Unnumbered"); + break; + + case FRM_ATALK_NETWORK: + if (GET_BE_U_4(data)) + ND_PRINT("%u", GET_BE_U_4(data)); + else + ND_PRINT("NAS assigned"); + break; + + case TUNNEL_PREFERENCE: + if (GET_U_1(data)) + ND_PRINT("Tag[%u] ", GET_U_1(data)); + else + ND_PRINT("Tag[Unused] "); + data++; + ND_PRINT("%u", GET_BE_U_3(data)); + break; + + case EGRESS_VLAN_ID: + ND_PRINT("%s (0x%02x) ", + tok2str(rfc4675_tagged,"Unknown tag",GET_U_1(data)), + GET_U_1(data)); + data++; + ND_PRINT("%u", GET_BE_U_3(data)); + break; + + default: + ND_PRINT("%u", GET_BE_U_4(data)); + break; + + } /* switch */ + + } /* if-else */ +} + +/*****************************/ +/* Print an attribute IPv4 */ +/* address value pointed by */ +/* 'data' and 'length' size. */ +/*****************************/ +/* Returns nothing. */ +/*****************************/ +static void +print_attr_address(netdissect_options *ndo, + const u_char *data, u_int length, u_short attr_code) +{ + if (length != 4) + { + ND_PRINT("ERROR: length %u != 4", length); + return; + } + + switch(attr_code) + { + case FRM_IPADDR: + case LOG_IPHOST: + if (GET_BE_U_4(data) == 0xFFFFFFFF ) + ND_PRINT("User Selected"); + else + if (GET_BE_U_4(data) == 0xFFFFFFFE ) + ND_PRINT("NAS Select"); + else + ND_PRINT("%s",GET_IPADDR_STRING(data)); + break; + + default: + ND_PRINT("%s", GET_IPADDR_STRING(data)); + break; + } +} + +/*****************************/ +/* Print an attribute IPv6 */ +/* address value pointed by */ +/* 'data' and 'length' size. */ +/*****************************/ +/* Returns nothing. */ +/*****************************/ +static void +print_attr_address6(netdissect_options *ndo, + const u_char *data, u_int length, u_short attr_code _U_) +{ + if (length != 16) + { + ND_PRINT("ERROR: length %u != 16", length); + return; + } + + ND_PRINT("%s", GET_IP6ADDR_STRING(data)); +} + +static void +print_attr_netmask6(netdissect_options *ndo, + const u_char *data, u_int length, u_short attr_code _U_) +{ + u_char data2[16]; + + if (length < 2 || length > 18) + { + ND_PRINT("ERROR: length %u not in range (2..18)", length); + return; + } + ND_TCHECK_LEN(data, length); + if (GET_U_1(data + 1) > 128) + { + ND_PRINT("ERROR: netmask %u not in range (0..128)", GET_U_1(data + 1)); + return; + } + + memset(data2, 0, sizeof(data2)); + if (length > 2) + memcpy(data2, data+2, length-2); + + ND_PRINT("%s/%u", ip6addr_string(ndo, data2), GET_U_1(data + 1)); /* local buffer, not packet data; don't use GET_IP6ADDR_STRING() */ + + if (GET_U_1(data + 1) > 8 * (length - 2)) + ND_PRINT(" (inconsistent prefix length)"); + + return; + + trunc: + nd_print_trunc(ndo); +} + +static void +print_attr_mip6_home_link_prefix(netdissect_options *ndo, + const u_char *data, u_int length, u_short attr_code _U_) +{ + if (length != 17) + { + ND_PRINT("ERROR: length %u != 17", length); + return; + } + ND_TCHECK_LEN(data, length); + if (GET_U_1(data) > 128) + { + ND_PRINT("ERROR: netmask %u not in range (0..128)", GET_U_1(data)); + return; + } + + ND_PRINT("%s/%u", GET_IP6ADDR_STRING(data + 1), GET_U_1(data)); + + return; + + trunc: + nd_print_trunc(ndo); +} + +static void +print_attr_operator_name(netdissect_options *ndo, + const u_char *data, u_int length, u_short attr_code _U_) +{ + u_int namespace_value; + + ND_TCHECK_LEN(data, length); + if (length < 2) + { + ND_PRINT("ERROR: length %u < 2", length); + return; + } + namespace_value = GET_U_1(data); + data++; + ND_PRINT("[%s] ", tok2str(operator_name_vector, "unknown namespace %u", namespace_value)); + + (void)nd_printn(ndo, data, length - 1, NULL); + + return; + + trunc: + nd_print_trunc(ndo); +} + +static void +print_attr_location_information(netdissect_options *ndo, + const u_char *data, u_int length, u_short attr_code _U_) +{ + uint16_t index; + uint8_t code, entity; + + ND_TCHECK_LEN(data, length); + if (length < 21) + { + ND_PRINT("ERROR: length %u < 21", length); + return; + } + + index = GET_BE_U_2(data); + data += 2; + + code = GET_U_1(data); + data++; + + entity = GET_U_1(data); + data++; + + ND_PRINT("index %u, code %s, entity %s, ", + index, + tok2str(location_information_code_vector, "Unknown (%u)", code), + tok2str(location_information_entity_vector, "Unknown (%u)", entity) + ); + + ND_PRINT("sighting time "); + p_ntp_time(ndo, (const struct l_fixedpt *)data); + ND_PRINT(", "); + data += 8; + + ND_PRINT("time to live "); + p_ntp_time(ndo, (const struct l_fixedpt *)data); + ND_PRINT(", "); + data += 8; + + ND_PRINT("method \""); + (void)nd_printn(ndo, data, length - 20, NULL); + ND_PRINT("\""); + + return; + + trunc: + nd_print_trunc(ndo); +} + +static void +print_attr_location_data(netdissect_options *ndo, + const u_char *data, u_int length, u_short attr_code _U_) +{ + uint16_t index; + + ND_TCHECK_LEN(data, length); + if (length < 3) + { + ND_PRINT("ERROR: length %u < 3", length); + return; + } + + index = GET_BE_U_2(data); + data += 2; + ND_PRINT("index %u, location", index); + + /* The Location field of the String field of the Location-Data attribute + * can have two completely different structures depending on the value of + * the Code field of a Location-Info attribute, which supposedly precedes + * the current attribute. Unfortunately, this choice of encoding makes it + * non-trivial to decode the Location field without preserving some state + * between the attributes. + */ + hex_and_ascii_print(ndo, "\n\t ", data, length - 2); + + return; + + trunc: + nd_print_trunc(ndo); +} + +static void +print_basic_location_policy_rules(netdissect_options *ndo, + const u_char *data, u_int length, u_short attr_code _U_) +{ + uint16_t flags; + + ND_TCHECK_LEN(data, length); + if (length < 10) + { + ND_PRINT("ERROR: length %u < 10", length); + return; + } + + flags = GET_BE_U_2(data); + data += 2; + ND_PRINT("flags [%s], ", bittok2str(blpr_bm, "none", flags)); + + ND_PRINT("retention expires "); + p_ntp_time(ndo, (const struct l_fixedpt *)data); + data += 8; + + if (length > 10) { + ND_PRINT(", note well \""); + (void)nd_printn(ndo, data, length - 10, NULL); + ND_PRINT("\""); + } + + return; + + trunc: + nd_print_trunc(ndo); +} + + +/*************************************/ +/* Print an attribute of 'secs since */ +/* January 1, 1970 00:00 UTC' value */ +/* pointed by 'data' and 'length' */ +/* size. */ +/*************************************/ +/* Returns nothing. */ +/*************************************/ +static void +print_attr_time(netdissect_options *ndo, + const u_char *data, u_int length, u_short attr_code _U_) +{ + time_t attr_time; + char string[26]; + + if (length != 4) + { + ND_PRINT("ERROR: length %u != 4", length); + return; + } + + attr_time = GET_BE_U_4(data); + strlcpy(string, ctime(&attr_time), sizeof(string)); + /* Get rid of the newline */ + string[24] = '\0'; + ND_PRINT("%.24s", string); +} + +static void +print_attr_vector64(netdissect_options *ndo, + register const u_char *data, u_int length, u_short attr_code _U_) +{ + uint64_t data_value, i; + const char *sep = ""; + + if (length != 8) + { + ND_PRINT("ERROR: length %u != 8", length); + return; + } + + ND_PRINT("["); + + data_value = GET_BE_U_8(data); + /* Print the 64-bit field in a format similar to bittok2str(), less + * flagging any unknown bits. This way it should be easier to replace + * the custom code with a library function later. + */ + for (i = 0; i < TAM_SIZE(mip6_feature_vector); i++) { + if (data_value & mip6_feature_vector[i].v) { + ND_PRINT("%s%s", sep, mip6_feature_vector[i].s); + sep = ", "; + } + } + + ND_PRINT("]"); +} + +/***********************************/ +/* Print an attribute of 'strange' */ +/* data format pointed by 'data' */ +/* and 'length' size. */ +/***********************************/ +/* Returns nothing. */ +/***********************************/ +static void +print_attr_strange(netdissect_options *ndo, + const u_char *data, u_int length, u_short attr_code) +{ + u_short len_data; + u_int error_cause_value; + + switch(attr_code) + { + case ARAP_PASS: + if (length != 16) + { + ND_PRINT("ERROR: length %u != 16", length); + return; + } + ND_PRINT("User_challenge ("); + len_data = 8; + PRINT_HEX(len_data, data); + ND_PRINT(") User_resp("); + len_data = 8; + PRINT_HEX(len_data, data); + ND_PRINT(")"); + break; + + case ARAP_FEATURES: + if (length != 14) + { + ND_PRINT("ERROR: length %u != 14", length); + return; + } + if (GET_U_1(data)) + ND_PRINT("User can change password"); + else + ND_PRINT("User cannot change password"); + data++; + ND_PRINT(", Min password length: %u", GET_U_1(data)); + data++; + ND_PRINT(", created at: "); + len_data = 4; + PRINT_HEX(len_data, data); + ND_PRINT(", expires in: "); + len_data = 4; + PRINT_HEX(len_data, data); + ND_PRINT(", Current Time: "); + len_data = 4; + PRINT_HEX(len_data, data); + break; + + case ARAP_CHALLENGE_RESP: + if (length < 8) + { + ND_PRINT("ERROR: length %u != 8", length); + return; + } + len_data = 8; + PRINT_HEX(len_data, data); + break; + + case ERROR_CAUSE: + if (length != 4) + { + ND_PRINT("Error: length %u != 4", length); + return; + } + + error_cause_value = GET_BE_U_4(data); + ND_PRINT("Error cause %u: %s", error_cause_value, tok2str(errorcausetype, "Error-Cause %u not known", error_cause_value)); + break; + } + return; +} + +static void +radius_attrs_print(netdissect_options *ndo, + const u_char *attr, u_int length) +{ + const struct radius_attr *rad_attr = (const struct radius_attr *)attr; + const char *attr_string; + uint8_t type, len; + + while (length > 0) + { + if (length < 2) + goto trunc; + ND_TCHECK_SIZE(rad_attr); + + type = GET_U_1(rad_attr->type); + len = GET_U_1(rad_attr->len); + if (type != 0 && type < TAM_SIZE(attr_type)) + attr_string = attr_type[type].name; + else + attr_string = "Unknown"; + + ND_PRINT("\n\t %s Attribute (%u), length: %u", + attr_string, + type, + len); + if (len < 2) + { + ND_PRINT(" (bogus, must be >= 2)"); + return; + } + if (len > length) + { + ND_PRINT(" (bogus, goes past end of packet)"); + return; + } + ND_PRINT(", Value: "); + + if (type < TAM_SIZE(attr_type)) + { + if (len > 2) + { + if ( attr_type[type].print_func ) + (*attr_type[type].print_func)( + ndo, ((const u_char *)(rad_attr+1)), + len - 2, type); + } + } + /* do we also want to see a hex dump ? */ + if (ndo->ndo_vflag> 1) + print_unknown_data(ndo, (const u_char *)rad_attr+2, "\n\t ", (len)-2); + + length-=(len); + rad_attr = (const struct radius_attr *)( ((const char *)(rad_attr))+len); + } + return; + +trunc: + nd_print_trunc(ndo); +} + +void +radius_print(netdissect_options *ndo, + const u_char *dat, u_int length) +{ + const struct radius_hdr *rad; + u_int len, auth_idx; + + ndo->ndo_protocol = "radius"; + ND_TCHECK_LEN(dat, MIN_RADIUS_LEN); + rad = (const struct radius_hdr *)dat; + len = GET_BE_U_2(rad->len); + + if (len < MIN_RADIUS_LEN) + { + nd_print_trunc(ndo); + return; + } + + if (len > length) + len = length; + + if (ndo->ndo_vflag < 1) { + ND_PRINT("RADIUS, %s (%u), id: 0x%02x length: %u", + tok2str(radius_command_values,"Unknown Command",GET_U_1(rad->code)), + GET_U_1(rad->code), + GET_U_1(rad->id), + len); + return; + } + else { + ND_PRINT("RADIUS, length: %u\n\t%s (%u), id: 0x%02x, Authenticator: ", + len, + tok2str(radius_command_values,"Unknown Command",GET_U_1(rad->code)), + GET_U_1(rad->code), + GET_U_1(rad->id)); + + for(auth_idx=0; auth_idx < 16; auth_idx++) + ND_PRINT("%02x", rad->auth[auth_idx]); + } + + if (len > MIN_RADIUS_LEN) + radius_attrs_print(ndo, dat + MIN_RADIUS_LEN, len - MIN_RADIUS_LEN); + return; + +trunc: + nd_print_trunc(ndo); +} |