packet-radius.c

   1 /* packet-radius.c
   2  * Routines for RADIUS packet disassembly
   3  *
   4  * $Id: packet-radius.c,v 1.6 1999/12/02 23:25:29 gram Exp $
   5  *
   6  * Ethereal - Network traffic analyzer
   7  * By Johan Feyaerts
   8  * Copyright 1999 Johan Feyaerts
   9  * This program is free software; you can redistribute it and/or
  10  * modify it under the terms of the GNU General Public License
  11  * as published by the Free Software Foundation; either version 2
  12  * of the License, or (at your option) any later version.
  13  *
  14  * This program is distributed in the hope that it will be useful,
  15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17  * GNU General Public License for more details.
  18  *
  19  * You should have received a copy of the GNU General Public License
  20  * along with this program; if not, write to the Free Software
  21  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  22  */
  23
  24 #ifdef HAVE_CONFIG_H
  25 #include "config.h"
  26 #endif
  27
  28 #ifdef HAVE_SYS_TYPES_H
  29 # include <sys/types.h>
  30 #endif
  31
  32 #ifdef HAVE_NETINET_IN_H
  33 #include <netinet/in.h>
  34 #endif
  35
  36 #include <stdio.h>
  37 #include <stdlib.h>
  38 #include <ctype.h>
  39 #include <glib.h>
  40 #include "packet.h"
  41 #include "resolv.h"
  42
  43 static int proto_radius = -1;
  44 static int hf_radius_length = -1;
  45 static int hf_radius_code = -1;
  46 static int hf_radius_id =-1;
  47
  48 static gint ett_radius = -1;
  49 static gint ett_radius_avp = -1;
  50
  51 typedef struct _e_radiushdr {
  52         guint8 rh_code;
  53         guint8 rh_ident;
  54         guint16 rh_pktlength;
  55 } e_radiushdr;
  56
  57 typedef struct _e_avphdr {
  58         guint8 avp_type;
  59         guint8 avp_length;
  60 } e_avphdr;
  61
  62 typedef struct _value_value_pair {
  63         guint16 val1;
  64         guint16 val2;
  65 } value_value_pair;
  66
  67 #define RADIUS_ACCESS_REQUEST 1
  68 #define RADIUS_ACCESS_ACCEPT  2
  69 #define RADIUS_ACCESS_REJECT  3
  70 #define RADIUS_ACCOUNTING_REQUEST 4
  71 #define RADIUS_ACCOUNTING_RESPONSE 5
  72 #define RADIUS_ACCESS_CHALLENGE 11
  73 #define RADIUS_STATUS_SERVER 12
  74 #define RADIUS_STATUS_CLIENT 13
  75 #define RADIUS_RESERVED 255
  76
  77 #define RD_TP_USER_NAME 1
  78 #define RD_TP_USER_PASSWORD 2
  79 #define RD_TP_CHAP_PASSWORD 3
  80 #define RD_TP_NAS_IP_ADDRESS 4
  81 #define RD_TP_NAS_PORT 5
  82 #define RD_TP_SERVICE_TYPE 6
  83 #define RD_TP_FRAMED_PROTOCOL 7
  84 #define RD_TP_FRAMED_IP_ADDRESS 8
  85 #define RD_TP_FRAMED_IP_NETMASK 9
  86 #define RD_TP_FRAMED_ROUTING 10
  87 #define RD_TP_FILTER_ID 11
  88 #define RD_TP_FRAMED_MTU 12
  89 #define RD_TP_FRAMED_COMPRESSION 13
  90 #define RD_TP_LOGIN_IP_HOST 14
  91 #define RD_TP_LOGIN_SERVICE 15
  92 #define RD_TP_LOGIN_TCP_PORT 16
  93 #define RD_TP_UNASSIGNED 17
  94 #define RD_TP_REPLY_MESSAGE 18
  95 #define RD_TP_CALLBACK_NUMBER 19
  96 #define RD_TP_CALLBACK_ID 20
  97 #define RD_TP_UNASSIGNED2 21
  98 #define RD_TP_FRAMED_ROUTE 22
  99 #define RD_TP_FRAMED_IPX_NETWORK 23
 100 #define RD_TP_STATE 24
 101 #define RD_TP_CLASS 25
 102 #define RD_TP_VENDOR_SPECIFIC 26
 103 #define RD_TP_SESSION_TIMEOUT 27
 104 #define RD_TP_IDLE_TIMEOUT 28
 105 #define RD_TP_TERMINATING_ACTION 29
 106 #define RD_TP_CALLED_STATION_ID 30
 107 #define RD_TP_CALLING_STATION_ID 31
 108 #define RD_TP_NAS_IDENTIFIER 32
 109 #define RD_TP_PROXY_STATE 33
 110 #define RD_TP_LOGIN_LAT_SERVICE 34
 111 #define RD_TP_LOGIN_LAT_NODE 35
 112 #define RD_TP_LOGIN_LAT_GROUP 36
 113 #define RD_TP_FRAMED_APPLETALK_LINK 37
 114 #define RD_TP_FRAMED_APPLETALK_NETWORK 38
 115 #define RD_TP_FRAMED_APPLETALK_ZONE 39
 116 #define RD_TP_ACCT_STATUS_TYPE 40
 117 #define RD_TP_ACCT_DELAY_TIME 41
 118 #define RD_TP_ACCT_INPUT_OCTETS 42
 119 #define RD_TP_ACCT_OUTPUT_OCTETS 43
 120 #define RD_TP_ACCT_SESSION_ID 44
 121 #define RD_TP_ACCT_AUTHENTIC 45
 122 #define RD_TP_ACCT_SESSION_TIME 46
 123 #define RD_TP_ACCT_INPUT_PACKETS 47
 124 #define RD_TP_ACCT_OUTPUT_PACKETS 48
 125 #define RD_TP_ACCT_TERMINATE_CAUSE 49
 126 #define RD_TP_ACCT_MULTI_SESSION_ID 50
 127 #define RD_TP_ACCT_LINK_COUNT 51
 128 #define RD_TP_CHAP_CHALLENGE 60
 129 #define RD_TP_NAS_PORT_TYPE 61
 130 #define RD_TP_PORT_LIMIT 62
 131 #define RD_TP_LOGIN_LAT_PORT 63
 132
 133
 134 #define AUTHENTICATOR_LENGTH 16
 135 #define RD_HDR_LENGTH 4
 136
 137
 138 #define RADIUS_STRING 1
 139 #define RADIUS_BINSTRING 2
 140 #define RADIUS_INTEGER4 3
 141 #define RADIUS_IP_ADDRESS 4
 142 #define RADIUS_SERVICE_TYPE 5
 143 #define RADIUS_FRAMED_PROTOCOL 6
 144 #define RADIUS_FRAMED_ROUTING 7
 145 #define RADIUS_FRAMED_COMPRESSION 8
 146 #define RADIUS_LOGIN_SERVICE 9
 147 #define RADIUS_UNKNOWN 10
 148 #define RADIUS_IPX_ADDRESS 11
 149 #define RADIUS_TERMINATING_ACTION 12
 150 #define RADIUS_ACCOUNTING_STATUS_TYPE 13
 151 #define RADIUS_ACCT_AUTHENTIC 14
 152 #define RADIUS_ACCT_TERMINATE_CAUSE 15
 153 #define RADIUS_NAS_PORT_TYPE 16
 154
 155 static value_string radius_vals[] = {
 156  {RADIUS_ACCESS_REQUEST, "Access Request"},
 157  {RADIUS_ACCESS_ACCEPT, "Access Accept"},
 158  {RADIUS_ACCESS_REJECT, "Access Reject"},
 159  {RADIUS_ACCOUNTING_REQUEST, "Accounting Request"},
 160  {RADIUS_ACCOUNTING_RESPONSE, "Accounting Response"},
 161  {RADIUS_ACCESS_CHALLENGE, "Accounting challenge"},
 162  {RADIUS_STATUS_SERVER, "StatusServer"},
 163  {RADIUS_STATUS_CLIENT, "StatusClient"},
 164  {RADIUS_RESERVED, "Reserved"},
 165 {0, NULL}};
 166
 167 static value_string radius_service_type_vals[]=
 168 {{1, "Login"},
 169 {2, "Framed"},
 170 {3, "Callback Login"},
 171 {4, "Callback Framed"},
 172 {5, "Outbound"},
 173 {6, "Administrative"},
 174 {7, "NAS Prompt"},
 175 {8, "Authenticate Only"},
 176 {9, "Callback NAS Prompt"},
 177 {10, "Call Check"},
 178 {0,NULL}};
 179
 180 static value_string radius_framed_protocol_vals[]=
 181 {{1, "PPP"},
 182 {2, "SLIP"},
 183 {3, "Appletalk Remote Access Protocol (ARAP)"},
 184 {4, "Gandalf proprietary Singlelink/Multilink Protocol"},
 185 {5, "Xylogics proprietary IPX/SLIP"},
 186 {6, "X.75 Synchronous"},
 187 {0,NULL}};
 188
 189 static value_string radius_framed_routing_vals[]=
 190 {{1, "Send Routing Packets"},
 191 {2, "Listen for routing packets"},
 192 {3, "Send and Listen"},
 193 {0,"None"},
 194 {0,NULL}};
 195
 196 static value_string radius_framed_compression_vals[]=
 197 {{1, "VJ TCP/IP Header Compression"},
 198 {2, "IPX Header Compression"},
 199 {3, "Stac-LZS compression"},
 200 {0, "None"},
 201 {0,NULL}};
 202
 203 static value_string radius_login_service_vals[]=
 204 {{1, "Rlogin"},
 205 {2, "TCP Clear"},
 206 {3, "Portmaster"},
 207 {4, "LAT"},
 208 {5, "X.25-PAD"},
 209 {6, "X.25T3POS"},
 210 {8, "TCP Clear Quit"},
 211 {0, "Telnet"},
 212 {0,NULL}};
 213
 214 static value_string radius_terminating_action_vals[]=
 215 {{1, "RADIUS-Request"},
 216 {0, "Default"},
 217 {0,NULL}};
 218
 219 static value_string radius_accounting_status_type_vals[]=
 220 {{1, "Start"},
 221 {2, "Stop"},
 222 {7,"Accounting-On"},
 223 {8,"Accounting-Off"},
 224 {0,NULL}};
 225
 226 static value_string radius_accounting_authentication_vals[]=
 227 {{1, "Radius"},
 228 {2, "Local"},
 229 {7,"Remote"},
 230 {0,NULL}};
 231
 232 static value_string radius_acct_terminate_cause_vals[]=
 233 {{1, "User Request"},
 234 {2, "Lost Carrier"},
 235 {3,"Lost Service"},
 236 {4, "Idle Timeout"},
 237 {5,"Session Timeout"},
 238 {6, "Admin Reset"},
 239 {7, "Admin Reboot"},
 240 {8, "Port Error"},
 241 {9, "NAS Error"},
 242 {10, "NAS Request"},
 243 {11,"NAS Reboot"},
 244 {12, "Port Unneeded"},
 245 {13, "Port Preempted"},
 246 {14,"Port Suspended"},
 247 {15,"Service Unavailable"},
 248 {16,"Callback"},
 249 {17, "User Error"},
 250 {18,"Host Request"},
 251 {0,NULL}};
 252
 253 static value_string radius_nas_port_type_vals[]=
 254 {{0, "Async"},
 255 {1, "Sync"},
 256 {2,"ISDN Sync"},
 257 {3, "ISDN Async V.120"},
 258 {4,"ISDN Async V.110"},
 259 {5, "Virtual"},
 260 {6, "PIAFS"},
 261 {7, "HDLC Clear Channel"},
 262 {8, "X.25"},
 263 {9,"X.75"},
 264 {10, "G.3 Fax"},
 265 {11,"SDSL"},
 266 {12, "ADSL-CAP"},
 267 {13, "ADSL-DMT"},
 268 {14,"IDSL - ISDN"},
 269 {0,NULL}};
 270
 271 static value_value_pair radius_printinfo[] = {
 272 { RD_TP_USER_NAME, RADIUS_STRING },
 273 { RD_TP_USER_PASSWORD,RADIUS_BINSTRING },
 274 { RD_TP_CHAP_PASSWORD, RADIUS_BINSTRING },
 275 { RD_TP_NAS_IP_ADDRESS, RADIUS_IP_ADDRESS },
 276 { RD_TP_NAS_PORT, RADIUS_INTEGER4},
 277 { RD_TP_SERVICE_TYPE, RADIUS_SERVICE_TYPE},
 278 { RD_TP_FRAMED_PROTOCOL, RADIUS_FRAMED_PROTOCOL},
 279 { RD_TP_FRAMED_IP_ADDRESS, RADIUS_IP_ADDRESS},
 280 { RD_TP_FRAMED_IP_NETMASK, RADIUS_IP_ADDRESS},
 281 { RD_TP_FRAMED_ROUTING, RADIUS_FRAMED_ROUTING},
 282 { RD_TP_FILTER_ID, RADIUS_STRING},
 283 { RD_TP_FRAMED_MTU, RADIUS_INTEGER4},
 284 { RD_TP_FRAMED_COMPRESSION, RADIUS_FRAMED_COMPRESSION},
 285 { RD_TP_LOGIN_IP_HOST, RADIUS_IP_ADDRESS},
 286 { RD_TP_LOGIN_SERVICE, RADIUS_LOGIN_SERVICE},
 287 { RD_TP_LOGIN_TCP_PORT, RADIUS_INTEGER4},
 288 { RD_TP_UNASSIGNED, RADIUS_UNKNOWN},
 289 { RD_TP_REPLY_MESSAGE, RADIUS_STRING},
 290 { RD_TP_CALLBACK_NUMBER, RADIUS_BINSTRING},
 291 { RD_TP_CALLBACK_ID, RADIUS_BINSTRING},
 292 { RD_TP_UNASSIGNED2, RADIUS_UNKNOWN},
 293 { RD_TP_FRAMED_ROUTE, RADIUS_STRING},
 294 { RD_TP_FRAMED_IPX_NETWORK, RADIUS_IPX_ADDRESS},
 295 { RD_TP_STATE, RADIUS_BINSTRING},
 296 { RD_TP_CLASS, RADIUS_BINSTRING},
 297 { RD_TP_VENDOR_SPECIFIC, RADIUS_BINSTRING},
 298 { RD_TP_SESSION_TIMEOUT, RADIUS_INTEGER4},
 299 { RD_TP_IDLE_TIMEOUT, RADIUS_INTEGER4},
 300 { RD_TP_TERMINATING_ACTION, RADIUS_TERMINATING_ACTION},
 301 { RD_TP_CALLED_STATION_ID, RADIUS_BINSTRING},
 302 { RD_TP_CALLING_STATION_ID, RADIUS_BINSTRING},
 303 { RD_TP_NAS_IDENTIFIER, RADIUS_BINSTRING},
 304 { RD_TP_PROXY_STATE, RADIUS_BINSTRING},
 305 { RD_TP_LOGIN_LAT_SERVICE, RADIUS_BINSTRING},
 306 { RD_TP_LOGIN_LAT_NODE, RADIUS_BINSTRING},
 307 { RD_TP_LOGIN_LAT_GROUP, RADIUS_BINSTRING},
 308 { RD_TP_FRAMED_APPLETALK_LINK, RADIUS_INTEGER4},
 309 { RD_TP_FRAMED_APPLETALK_NETWORK, RADIUS_INTEGER4},
 310 { RD_TP_FRAMED_APPLETALK_ZONE, RADIUS_BINSTRING},
 311 { RD_TP_ACCT_STATUS_TYPE, RADIUS_ACCOUNTING_STATUS_TYPE},
 312 { RD_TP_ACCT_DELAY_TIME, RADIUS_INTEGER4},
 313 { RD_TP_ACCT_INPUT_OCTETS, RADIUS_INTEGER4},
 314 { RD_TP_ACCT_OUTPUT_OCTETS, RADIUS_INTEGER4},
 315 { RD_TP_ACCT_SESSION_ID, RADIUS_STRING},
 316 { RD_TP_ACCT_AUTHENTIC, RADIUS_ACCT_AUTHENTIC},
 317 { RD_TP_ACCT_SESSION_TIME, RADIUS_INTEGER4},
 318 { RD_TP_ACCT_INPUT_PACKETS, RADIUS_INTEGER4},
 319 { RD_TP_ACCT_OUTPUT_PACKETS, RADIUS_INTEGER4},
 320 { RD_TP_ACCT_TERMINATE_CAUSE, RADIUS_ACCT_TERMINATE_CAUSE},
 321 { RD_TP_ACCT_MULTI_SESSION_ID, RADIUS_STRING},
 322 { RD_TP_ACCT_LINK_COUNT, RADIUS_INTEGER4},
 323 { RD_TP_CHAP_CHALLENGE, RADIUS_BINSTRING},
 324 { RD_TP_NAS_PORT_TYPE, RADIUS_NAS_PORT_TYPE},
 325 { RD_TP_PORT_LIMIT, RADIUS_INTEGER4},
 326 { RD_TP_LOGIN_LAT_PORT, RADIUS_BINSTRING},
 327 {0,0},
 328 };
 329
 330 static value_string radius_attrib_type_vals[] = {
 331 { RD_TP_USER_NAME, "User Name"},
 332 { RD_TP_USER_PASSWORD, "User Password"},
 333 { RD_TP_CHAP_PASSWORD, "Chap Password"},
 334 { RD_TP_NAS_IP_ADDRESS, "NAS IP Address"},
 335 { RD_TP_NAS_PORT, "NAS Port"},
 336 { RD_TP_SERVICE_TYPE, "Service Type"},
 337 { RD_TP_FRAMED_PROTOCOL, "Framed Protocol"},
 338 { RD_TP_FRAMED_IP_ADDRESS, "Framed IP Address"},
 339 { RD_TP_FRAMED_IP_NETMASK, "Framed IP Netmask"},
 340 { RD_TP_FRAMED_ROUTING, "Framed Routing"},
 341 { RD_TP_FILTER_ID, "Filter Id"},
 342 { RD_TP_FRAMED_MTU, "Framed MTU"},
 343 { RD_TP_FRAMED_COMPRESSION, "Framed Compression"},
 344 { RD_TP_LOGIN_IP_HOST, "Login IP Host"},
 345 { RD_TP_LOGIN_SERVICE, "Login Service"},
 346 { RD_TP_LOGIN_TCP_PORT, "Login TCP Port"},
 347 { RD_TP_UNASSIGNED, "Unassigned"},
 348 { RD_TP_REPLY_MESSAGE, "Reply Message"},
 349 { RD_TP_CALLBACK_NUMBER, "Callback Number"},
 350 { RD_TP_CALLBACK_ID, "Callback Id"},
 351 { RD_TP_UNASSIGNED2, "Unassigned"},
 352 { RD_TP_FRAMED_ROUTE, "Framed Route"},
 353 { RD_TP_FRAMED_IPX_NETWORK, "Framed IPX network"},
 354 { RD_TP_STATE, "State"},
 355 { RD_TP_CLASS, "Class"},
 356 { RD_TP_VENDOR_SPECIFIC, "Vendor Specific" },
 357 { RD_TP_SESSION_TIMEOUT, "Session Timeout"},
 358 { RD_TP_IDLE_TIMEOUT, "Idle Timeout"},
 359 { RD_TP_TERMINATING_ACTION, "Terminating Action"},
 360 { RD_TP_CALLED_STATION_ID, "Called Station Id"},
 361 { RD_TP_CALLING_STATION_ID, "Calling Station Id"},
 362 { RD_TP_NAS_IDENTIFIER, "NAS identifier"},
 363 { RD_TP_PROXY_STATE, "Proxy State"},
 364 { RD_TP_LOGIN_LAT_SERVICE, "Login LAT Service"},
 365 { RD_TP_LOGIN_LAT_NODE, "Login LAT Node"},
 366 { RD_TP_LOGIN_LAT_GROUP, "Login LAT Group"},
 367 { RD_TP_FRAMED_APPLETALK_LINK, "Framed Appletalk Link"},
 368 { RD_TP_FRAMED_APPLETALK_NETWORK, "Framed Appletalk Network"},
 369 { RD_TP_FRAMED_APPLETALK_ZONE, "Framed Appletalk Zone"},
 370 { RD_TP_ACCT_STATUS_TYPE, "Acct Status Type"},
 371 { RD_TP_ACCT_DELAY_TIME, "Acct Delay Time"},
 372 { RD_TP_ACCT_INPUT_OCTETS, "Acct Input Octets"},
 373 { RD_TP_ACCT_OUTPUT_OCTETS, "Acct Output Octets"},
 374 { RD_TP_ACCT_SESSION_ID, "Acct Session Id"},
 375 { RD_TP_ACCT_AUTHENTIC, "Acct Authentic"},
 376 { RD_TP_ACCT_SESSION_TIME, "Acct Session Time"},
 377 { RD_TP_ACCT_INPUT_PACKETS, "Acct Input Packets"},
 378 { RD_TP_ACCT_OUTPUT_PACKETS, "Acct Output Packets"},
 379 { RD_TP_ACCT_TERMINATE_CAUSE, "Acct Terminate Cause"},
 380 { RD_TP_ACCT_MULTI_SESSION_ID, "Acct Multi Session Id"},
 381 { RD_TP_ACCT_LINK_COUNT, "Acct Link Count"},
 382 { RD_TP_CHAP_CHALLENGE, "Chap Challenge"},
 383 { RD_TP_NAS_PORT_TYPE, "NAS Port Type"},
 384 { RD_TP_PORT_LIMIT, "Port Limit"},
 385 { RD_TP_LOGIN_LAT_PORT, "Login LAT Port"},
 386 {0,NULL},
 387 };
 388
 389 guint32 match_numval(guint32 val, const value_value_pair *vs)
 390 {
 391   guint32 i = 0;
 392
 393   while (vs[i].val1) {
 394     if (vs[i].val1 == val)
 395       return(vs[i].val2);
 396     i++;
 397   }
 398
 399   return(0);
 400 }
 401
 402 static gchar textbuffer[2000];
 403
 404 gchar *rdconvertbufftostr(guint8 length,const guint8 *pd)
 405 {
 406 /*converts the raw buffer into printable text */
 407 guint32 i;
 408 guint32 totlen=0;
 409
 410         textbuffer[0]='"';
 411         textbuffer[1]=0;
 412         totlen=1;
 413         for (i=0; i < (guint32)length; i++)
 414         {
 415                 if( isalnum((int)pd[i])||ispunct((int)pd[i])
 416                                 ||((int)pd[i]==' '))            {
 417                         textbuffer[totlen]=(gchar)pd[i];
 418                         totlen++;
 419                 }
 420                 else
 421                 {
 422                         sprintf(&(textbuffer[totlen]), "\\%03u", pd[i]);
 423                         totlen=totlen+strlen(&(textbuffer[totlen]));
 424                 }
 425         }
 426         textbuffer[totlen]='"';
 427         textbuffer[totlen+1]=0;
 428         return textbuffer;
 429 }
 430
 431 gchar *rd_value_to_str(e_avphdr *avph,const u_char *pd, int offset)
 432 {
 433 int print_type;
 434 gchar *result;
 435 guint32 intval;
 436 value_string *valstrarr;
 437 /* prints the values of the attribute value pairs into a text buffer */
 438   print_type=match_numval(avph->avp_type,radius_printinfo);
 439   intval=pntohl(&(pd[offset+2]));
 440   switch(print_type)
 441   {
 442         case( RADIUS_STRING ):
 443         case( RADIUS_BINSTRING ):
 444                 result=rdconvertbufftostr(avph->avp_length-2,&(pd[offset+2]));
 445                 break;
 446         case( RADIUS_INTEGER4 ):
 447                 sprintf(textbuffer,"%u", intval);
 448                 result=textbuffer;
 449                 break;
 450         case( RADIUS_IP_ADDRESS ):
 451                 sprintf(textbuffer,"%u.%u.%u.%u",(guint8)pd[offset+2],
 452                         (guint8)pd[offset+3],(guint8)pd[offset+4],
 453                         (guint8)pd[offset+5]);
 454                 result=textbuffer;
 455                 break;
 456         case( RADIUS_SERVICE_TYPE ):
 457                 valstrarr=radius_service_type_vals;
 458                 result=match_strval(intval,valstrarr);
 459                 break;
 460         case( RADIUS_FRAMED_PROTOCOL ):
 461                 valstrarr= radius_framed_protocol_vals;
 462                 result=match_strval(intval,valstrarr);
 463                 break;
 464         case( RADIUS_FRAMED_ROUTING ):
 465                 valstrarr=radius_framed_routing_vals;
 466                 result=match_strval(intval,valstrarr);
 467                 break;
 468         case( RADIUS_FRAMED_COMPRESSION ):
 469                 valstrarr=radius_framed_compression_vals;
 470                 result=match_strval(intval,valstrarr);
 471                 break;
 472         case( RADIUS_LOGIN_SERVICE ):
 473                 valstrarr=radius_login_service_vals;
 474                 result=match_strval(intval,valstrarr);
 475                 break;
 476         case( RADIUS_IPX_ADDRESS ):
 477                 sprintf(textbuffer,"%u:%u:%u:%u",(guint8)pd[offset+2],
 478                         (guint8)pd[offset+3],(guint8)pd[offset+4],
 479                         (guint8)pd[offset+5]);
 480                 result=textbuffer;
 481         case( RADIUS_TERMINATING_ACTION ):
 482                 valstrarr=radius_terminating_action_vals;
 483                 result=match_strval(intval,valstrarr);
 484                 break;
 485         case( RADIUS_ACCOUNTING_STATUS_TYPE ):
 486                 valstrarr=radius_accounting_status_type_vals;
 487                 result=match_strval(intval,valstrarr);
 488                 break;
 489         case( RADIUS_ACCT_AUTHENTIC ):
 490                 valstrarr=radius_accounting_authentication_vals;
 491                 result=match_strval(intval,valstrarr);
 492                 break;
 493         case( RADIUS_ACCT_TERMINATE_CAUSE ):
 494                 valstrarr=radius_acct_terminate_cause_vals;
 495                 result=match_strval(intval,valstrarr);
 496                 break;
 497         case( RADIUS_NAS_PORT_TYPE ):
 498                 valstrarr=radius_nas_port_type_vals;
 499                 result=match_strval(intval,valstrarr);
 500                 break;
 501         case( RADIUS_UNKNOWN ):
 502         default:
 503                 result="Unknown Value Type";
 504                 break;
 505   }
 506   if (result == NULL) result="Unknown Value";
 507   return result;
 508 }
 509
 510
 511 void dissect_attribute_value_pairs(const u_char *pd, int offset, frame_data
 512 *fd, proto_tree *tree, int avplength)
 513 {
 514 /* adds the attribute value pairs to the tree */
 515   e_avphdr avph;
 516   gchar *avptpstrval;
 517   gchar *valstr;
 518   if (avplength==0)
 519   {
 520         proto_tree_add_text(tree,offset,0,"No Attribute Value Pairs Found");
 521         return;
 522   }
 523
 524   while (avplength > 0 )
 525   {
 526
 527      memcpy(&avph,&pd[offset],sizeof(e_avphdr));
 528      avplength=avplength-avph.avp_length;
 529      avptpstrval=match_strval(avph.avp_type, radius_attrib_type_vals);
 530      if (avptpstrval == NULL) avptpstrval="Unknown Type";
 531      valstr=rd_value_to_str(&avph, pd, offset);
 532      if (!BYTES_ARE_IN_FRAME(offset, avph.avp_length)) {
 533         break;
 534      }
 535      proto_tree_add_text(tree,offset,avph.avp_length,
 536         "t:%s(%d) l:%d, value:%s",
 537         avptpstrval,avph.avp_type,avph.avp_length,valstr);
 538      offset=offset+avph.avp_length;
 539      if (avph.avp_length == 0) {
 540         break;
 541      }
 542   }
 543 }
 544
 545 void dissect_radius(const u_char *pd, int offset, frame_data *fd,
 546 proto_tree
 547 *tree)
 548 {
 549   proto_tree *radius_tree,*avptree;
 550   proto_item *ti,*avptf;
 551   int rhlength;
 552   int rhcode;
 553   int rhident;
 554   int avplength,hdrlength, offsetavp;
 555   e_radiushdr rh;
 556
 557   gchar *codestrval;
 558
 559   memcpy(&rh,&pd[offset],sizeof(e_radiushdr));
 560
 561
 562   rhcode= (int)rh.rh_code;
 563   rhident= (int)rh.rh_ident;
 564   rhlength= (int)ntohs(rh.rh_pktlength);
 565   codestrval=  match_strval(rhcode,radius_vals);
 566   if (codestrval==NULL)
 567   {
 568         codestrval="Unknown Packet";
 569   }
 570   if (check_col(fd, COL_PROTOCOL))
 571         col_add_str(fd, COL_PROTOCOL, "RADIUS");
 572   if (check_col(fd, COL_INFO))
 573   {
 574         sprintf(textbuffer,"%s(%d) (id=%d, l=%d)",
 575                 codestrval, rhcode, rhident, rhlength);
 576         col_add_fstr(fd,COL_INFO,textbuffer);
 577   }
 578
 579   if (tree)
 580   {
 581
 582         ti = proto_tree_add_item(tree,proto_radius, offset, rhlength,
 583                         NULL);
 584
 585         radius_tree = proto_item_add_subtree(ti, ett_radius);
 586
 587         proto_tree_add_item_format(radius_tree,hf_radius_code, offset,      1,
 588                 rh.rh_code, "Packet code:0x%01x (%s)",rhcode, codestrval);
 589         proto_tree_add_item_format(radius_tree,hf_radius_id, offset+1, 1,
 590                 rh.rh_ident, "Packet identifier: 0x%01x (%d)",
 591                         rhident,rhident);
 592
 593         proto_tree_add_item_format(radius_tree, hf_radius_length,
 594                         offset+2, 2,
 595                  (guint16)rhlength,
 596                 "Packet length: 0x%02x(%d)",rhlength,rhlength);
 597          proto_tree_add_text(radius_tree, offset+4,
 598                         AUTHENTICATOR_LENGTH,
 599                          "Authenticator");
 600
 601         hdrlength=RD_HDR_LENGTH+AUTHENTICATOR_LENGTH;
 602         avplength= rhlength -hdrlength;
 603
 604         offsetavp=offset+hdrlength;
 605
 606
 607         /* list the attribute value pairs */
 608
 609         avptf = proto_tree_add_text(radius_tree
 610                         ,offset+hdrlength,avplength,
 611                         "Attribute value pairs");
 612         avptree = proto_item_add_subtree(avptf, ett_radius_avp);
 613
 614         if (avptree !=NULL)
 615         {
 616                 dissect_attribute_value_pairs( pd,
 617                                 offsetavp,fd,avptree,avplength);
 618         }
 619   }
 620 }
 621 /* registration with the filtering engine */
 622 void
 623 proto_register_radius(void)
 624 {
 625         static hf_register_info hf[] = {
 626                 { &hf_radius_code,
 627                 { "Code","radius.code", FT_UINT8, BASE_DEC, NULL, 0x0,
 628                         "" }},
 629
 630                 { &hf_radius_id,
 631                 { "Identifier", "radius.id", FT_UINT8, BASE_DEC, NULL, 0x0,
 632                         "" }},
 633
 634                 { &hf_radius_length,
 635                 { "Length","radius.length", FT_UINT16, BASE_DEC, NULL, 0x0,
 636                         "" }}
 637         };
 638         static gint *ett[] = {
 639                 &ett_radius,
 640                 &ett_radius_avp,
 641         };
 642
 643         proto_radius = proto_register_protocol ("Radius Protocol", "radius");
 644         proto_register_field_array(proto_radius, hf, array_length(hf));
 645         proto_register_subtree_array(ett, array_length(ett));
 646 }