epan/dissectors/packet-aim.c

   1 /* packet-aim.c
   2  * Routines for AIM Instant Messenger (OSCAR) dissection
   3  * Copyright 2000, Ralf Hoelzer <ralf@well.com>
   4  * Copyright 2004, Jelmer Vernooij <jelmer@samba.org>
   5  * Copyright 2004, Devin Heitmueller <dheitmueller@netilla.com>
   6  *
   7  * $Id$
   8  *
   9  * Wireshark - Network traffic analyzer
  10  * By Gerald Combs <gerald@wireshark.org>
  11  * Copyright 1998 Gerald Combs
  12  *
  13  * This program is free software; you can redistribute it and/or
  14  * modify it under the terms of the GNU General Public License
  15  * as published by the Free Software Foundation; either version 2
  16  * of the License, or (at your option) any later version.
  17  *
  18  * This program is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU General Public License for more details.
  22  *
  23  * You should have received a copy of the GNU General Public License
  24  * along with this program; if not, write to the Free Software
  25  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  26  */
  27
  28 #ifdef HAVE_CONFIG_H
  29 # include "config.h"
  30 #endif
  31
  32 #include <stdio.h>
  33 #include <stdlib.h>
  34 #include <string.h>
  35 #include <ctype.h>
  36
  37 #include <glib.h>
  38
  39 #include "isprint.h"
  40
  41 #include <epan/packet.h>
  42 #include <epan/strutil.h>
  43
  44 #include "packet-tcp.h"
  45 #include "packet-aim.h"
  46 #include <epan/prefs.h>
  47
  48 #define TCP_PORT_AIM 5190
  49
  50 #define STRIP_TAGS 1
  51
  52 /* channels */
  53 #define CHANNEL_NEW_CONN    0x01
  54 #define CHANNEL_SNAC_DATA   0x02
  55 #define CHANNEL_FLAP_ERR    0x03
  56 #define CHANNEL_CLOSE_CONN  0x04
  57 #define CHANNEL_KEEP_ALIVE  0x05
  58
  59 #define FAMILY_ALL_ERROR_INVALID_HEADER                0x0001
  60 #define FAMILY_ALL_ERROR_SERVER_RATE_LIMIT_EXCEEDED    0x0002
  61 #define FAMILY_ALL_ERROR_CLIENT_RATE_LIMIT_EXCEEDED    0x0003
  62 #define FAMILY_ALL_ERROR_RECIPIENT_NOT_LOGGED_IN       0x0004
  63 #define FAMILY_ALL_ERROR_REQUESTED_SERVICE_UNAVAILABLE 0x0005
  64 #define FAMILY_ALL_ERROR_REQUESTED_SERVICE_NOT_DEFINED 0x0006
  65 #define FAMILY_ALL_ERROR_OBSOLETE_SNAC                 0x0007
  66 #define FAMILY_ALL_ERROR_NOT_SUPPORTED_BY_SERVER       0x0008
  67 #define FAMILY_ALL_ERROR_NOT_SUPPORTED_BY_CLIENT       0x0009
  68 #define FAMILY_ALL_ERROR_REFUSED_BY_CLIENT             0x000a
  69 #define FAMILY_ALL_ERROR_REPLY_TOO_BIG                 0x000b
  70 #define FAMILY_ALL_ERROR_RESPONSES_LOST                0x000c
  71 #define FAMILY_ALL_ERROR_REQUEST_DENIED                0x000d
  72 #define FAMILY_ALL_ERROR_INCORRECT_SNAC_FORMAT         0x000e
  73 #define FAMILY_ALL_ERROR_INSUFFICIENT_RIGHTS           0x000f
  74 #define FAMILY_ALL_ERROR_RECIPIENT_BLOCKED             0x0010
  75 #define FAMILY_ALL_ERROR_SENDER_TOO_EVIL               0x0011
  76 #define FAMILY_ALL_ERROR_RECEIVER_TOO_EVIL             0x0012
  77 #define FAMILY_ALL_ERROR_USER_TEMP_UNAVAILABLE         0x0013
  78 #define FAMILY_ALL_ERROR_NO_MATCH                      0x0014
  79 #define FAMILY_ALL_ERROR_LIST_OVERFLOW                 0x0015
  80 #define FAMILY_ALL_ERROR_REQUEST_AMBIGUOUS             0x0016
  81 #define FAMILY_ALL_ERROR_SERVER_QUEUE_FULL             0x0017
  82 #define FAMILY_ALL_ERROR_NOT_WHILE_ON_AOL              0x0018
  83
  84 static const value_string aim_flap_channels[] = {
  85     { CHANNEL_NEW_CONN, "New Connection" },
  86     { CHANNEL_SNAC_DATA, "SNAC Data" },
  87     { CHANNEL_FLAP_ERR, "FLAP-Level Error" },
  88     { CHANNEL_CLOSE_CONN, "Close Connection" },
  89     { CHANNEL_KEEP_ALIVE, "Keep Alive" },
  90     { 0, NULL }
  91 };
  92
  93 static const value_string aim_snac_errors[] = {
  94   { FAMILY_ALL_ERROR_INVALID_HEADER, "Invalid SNAC Header" },
  95   { FAMILY_ALL_ERROR_SERVER_RATE_LIMIT_EXCEEDED, "Server rate limit exceeded" },
  96   { FAMILY_ALL_ERROR_CLIENT_RATE_LIMIT_EXCEEDED, "Client rate limit exceeded" },
  97   { FAMILY_ALL_ERROR_RECIPIENT_NOT_LOGGED_IN, "Recipient not logged in" },
  98   { FAMILY_ALL_ERROR_REQUESTED_SERVICE_UNAVAILABLE, "Requested service unavailable" },
  99   { FAMILY_ALL_ERROR_REQUESTED_SERVICE_NOT_DEFINED, "Requested service not defined" },
 100   { FAMILY_ALL_ERROR_OBSOLETE_SNAC, "Obsolete SNAC issued" },
 101   { FAMILY_ALL_ERROR_NOT_SUPPORTED_BY_SERVER, "Not supported by server" },
 102   { FAMILY_ALL_ERROR_NOT_SUPPORTED_BY_CLIENT, "Not supported by client" },
 103   { FAMILY_ALL_ERROR_REFUSED_BY_CLIENT, "Refused by client" },
 104   { FAMILY_ALL_ERROR_REPLY_TOO_BIG, "Reply too big" },
 105   { FAMILY_ALL_ERROR_RESPONSES_LOST, "Responses lost" },
 106   { FAMILY_ALL_ERROR_REQUEST_DENIED, "Request denied" },
 107   { FAMILY_ALL_ERROR_INCORRECT_SNAC_FORMAT, "Incorrect SNAC format" },
 108   { FAMILY_ALL_ERROR_INSUFFICIENT_RIGHTS, "Insufficient rights" },
 109   { FAMILY_ALL_ERROR_RECIPIENT_BLOCKED, "Recipient blocked" },
 110   { FAMILY_ALL_ERROR_SENDER_TOO_EVIL, "Sender too evil" },
 111   { FAMILY_ALL_ERROR_RECEIVER_TOO_EVIL, "Receiver too evil" },
 112   { FAMILY_ALL_ERROR_USER_TEMP_UNAVAILABLE, "User temporarily unavailable" },
 113   { FAMILY_ALL_ERROR_NO_MATCH, "No match" },
 114   { FAMILY_ALL_ERROR_LIST_OVERFLOW, "List overflow" },
 115   { FAMILY_ALL_ERROR_REQUEST_AMBIGUOUS, "Request ambiguous" },
 116   { FAMILY_ALL_ERROR_SERVER_QUEUE_FULL, "Server queue full" },
 117   { FAMILY_ALL_ERROR_NOT_WHILE_ON_AOL, "Not while on AOL" },
 118   { 0, NULL }
 119 };
 120
 121 #define AIM_CLIENT_TLV_SCREEN_NAME             0x0001
 122 #define AIM_CLIENT_TLV_NEW_ROASTED_PASSWORD    0x0002
 123 #define AIM_CLIENT_TLV_CLIENT_ID_STRING        0x0003
 124 #define AIM_CLIENT_TLV_ERRORURL                0x0004
 125 #define AIM_CLIENT_TLV_BOS_SERVER_STRING       0x0005
 126 #define AIM_CLIENT_TLV_AUTH_COOKIE             0x0006
 127 #define AIM_CLIENT_TLV_ERRORCODE               0x0008
 128 #define AIM_CLIENT_TLV_DISCONNECT_REASON       0x0009
 129 #define AIM_CLIENT_TLV_RECONNECT_HOST          0x000a
 130 #define AIM_CLIENT_TLV_URL                     0x000b
 131 #define AIM_CLIENT_TLV_DEBUG_DATA              0x000c
 132 #define AIM_CLIENT_TLV_FAMILY_ID               0x000d
 133 #define AIM_CLIENT_TLV_CLIENT_COUNTRY          0x000e
 134 #define AIM_CLIENT_TLV_CLIENT_LANGUAGE         0x000f
 135 #define AIM_CLIENT_TLV_EMAILADDR               0x0011
 136 #define AIM_CLIENT_TLV_OLD_ROASTED_PASSWORD    0x0012
 137 #define AIM_CLIENT_TLV_REGSTATUS               0x0013
 138 #define AIM_CLIENT_TLV_CLIENT_DISTRIBUTION_NUM 0x0014
 139 #define AIM_CLIENT_TLV_INVITEMESSAGE           0x0015
 140 #define AIM_CLIENT_TLV_CLIENT_ID               0x0016
 141 #define AIM_CLIENT_TLV_CLIENT_MAJOR_VERSION    0x0017
 142 #define AIM_CLIENT_TLV_CLIENT_MINOR_VERSION    0x0018
 143 #define AIM_CLIENT_TLV_CLIENT_LESSER_VERSION   0x0019
 144 #define AIM_CLIENT_TLV_CLIENT_BUILD_NUMBER     0x001a
 145 #define AIM_CLIENT_TLV_PASSWORD_MD5            0x0025
 146 #define AIM_CLIENT_TLV_LATESTBETABUILD         0x0040
 147 #define AIM_CLIENT_TLV_LATESTBETAURL           0x0041
 148 #define AIM_CLIENT_TLV_LATESTBETAINFO          0x0042
 149 #define AIM_CLIENT_TLV_LATESTBETANAME          0x0043
 150 #define AIM_CLIENT_TLV_LATESTRELEASEBUILD      0x0044
 151 #define AIM_CLIENT_TLV_LATESTRELEASEURL        0x0045
 152 #define AIM_CLIENT_TLV_LATESTRELEASEINFO       0x0046
 153 #define AIM_CLIENT_TLV_LATESTRELEASENAME       0x0047
 154 #define AIM_CLIENT_TLV_BETA_DIGEST_SIG         0x0048
 155 #define AIM_CLIENT_TLV_RELEASE_DIGEST_SIG      0x0049
 156 #define AIM_CLIENT_TLV_CLIENTUSESSI            0x004a
 157 #define AIM_CLIENT_TLV_CHANGE_PASSWORD_URL     0x0054
 158 #define AIM_CLIENT_TLV_AWAITING_AUTH           0x0066
 159 #define AIM_CLIENT_TLV_MEMBERS                 0x00c8
 160 #define AIM_CLIENT_TLV_VISIBILITY_BITS         0x00c9
 161 #define AIM_CLIENT_TLV_PRIVACY                 0x00ca
 162 #define AIM_CLIENT_TLV_VISIBLE_CLASS           0x00cb
 163 #define AIM_CLIENT_TLV_VISIBLE_MISC            0x00cc
 164 #define AIM_CLIENT_TLV_ICQ2K_SHORTCUT          0x00cd
 165 #define AIM_CLIENT_TLV_FIRST_LOADED_TIME       0x00d4
 166 #define AIM_CLIENT_TLV_BUDDY_ICON_MD5SUM       0x00d5
 167 #define AIM_CLIENT_TLV_GIVEN_NAME              0x0131
 168 #define AIM_CLIENT_TLV_LOCAL_EMAIL             0x0137
 169 #define AIM_CLIENT_TLV_LOCAL_SMS               0x013a
 170 #define AIM_CLIENT_TLV_LOCAL_COMMENT           0x013c
 171 #define AIM_CLIENT_TLV_LOCAL_PERSONAL_ALERT    0x013d
 172 #define AIM_CLIENT_TLV_LOCAL_PERSONAL_SOUND    0x013e
 173 #define AIM_CLIENT_TLV_FIRST_MESSAGE_SENT      0x0145
 174
 175 const aim_tlv client_tlvs[] = {
 176   { AIM_CLIENT_TLV_SCREEN_NAME, "Screen name", dissect_aim_tlv_value_string },
 177   { AIM_CLIENT_TLV_NEW_ROASTED_PASSWORD, "Roasted password array", dissect_aim_tlv_value_bytes  },
 178   { AIM_CLIENT_TLV_OLD_ROASTED_PASSWORD, "Old roasted password array", dissect_aim_tlv_value_bytes  },
 179   { AIM_CLIENT_TLV_CLIENT_ID_STRING, "Client id string (name, version)", dissect_aim_tlv_value_string },
 180   { AIM_CLIENT_TLV_CLIENT_ID, "Client id number", dissect_aim_tlv_value_uint16 },
 181   { AIM_CLIENT_TLV_CLIENT_MAJOR_VERSION, "Client major version", dissect_aim_tlv_value_uint16 },
 182   { AIM_CLIENT_TLV_CLIENT_MINOR_VERSION, "Client minor version", dissect_aim_tlv_value_uint16 },
 183   { AIM_CLIENT_TLV_CLIENT_LESSER_VERSION, "Client lesser version", dissect_aim_tlv_value_uint16 },
 184   { AIM_CLIENT_TLV_CLIENT_BUILD_NUMBER, "Client build number", dissect_aim_tlv_value_uint16 },
 185   { AIM_CLIENT_TLV_PASSWORD_MD5, "Password Hash (MD5)", dissect_aim_tlv_value_bytes },
 186   { AIM_CLIENT_TLV_CLIENT_DISTRIBUTION_NUM, "Client distribution number", dissect_aim_tlv_value_uint32 },
 187   { AIM_CLIENT_TLV_CLIENT_LANGUAGE, "Client language", dissect_aim_tlv_value_string },
 188   { AIM_CLIENT_TLV_CLIENT_COUNTRY, "Client country", dissect_aim_tlv_value_string },
 189   { AIM_CLIENT_TLV_BOS_SERVER_STRING, "BOS server string", dissect_aim_tlv_value_string },
 190   { AIM_CLIENT_TLV_AUTH_COOKIE, "Authorization cookie", dissect_aim_tlv_value_bytes },
 191   { AIM_CLIENT_TLV_ERRORURL, "Error URL", dissect_aim_tlv_value_string },
 192   { AIM_CLIENT_TLV_ERRORCODE, "Error Code", dissect_aim_tlv_value_uint16 },
 193   { AIM_CLIENT_TLV_DISCONNECT_REASON, "Disconnect Reason", dissect_aim_tlv_value_uint16 },
 194   { AIM_CLIENT_TLV_RECONNECT_HOST, "Reconnect Hostname", dissect_aim_tlv_value_string },
 195   { AIM_CLIENT_TLV_URL, "URL", dissect_aim_tlv_value_string },
 196   { AIM_CLIENT_TLV_DEBUG_DATA, "Debug Data", dissect_aim_tlv_value_uint16 },
 197   { AIM_CLIENT_TLV_EMAILADDR, "Account Email address", dissect_aim_tlv_value_string },
 198   { AIM_CLIENT_TLV_REGSTATUS, "Registration Status", dissect_aim_tlv_value_uint16 },
 199   { AIM_CLIENT_TLV_LATESTBETABUILD, "Latest Beta Build", dissect_aim_tlv_value_uint32 },
 200   { AIM_CLIENT_TLV_LATESTBETAURL, "Latest Beta URL", dissect_aim_tlv_value_string },
 201   { AIM_CLIENT_TLV_LATESTBETAINFO, "Latest Beta Info", dissect_aim_tlv_value_string },
 202   { AIM_CLIENT_TLV_LATESTBETANAME, "Latest Beta Name", dissect_aim_tlv_value_string },
 203   { AIM_CLIENT_TLV_LATESTRELEASEBUILD, "Latest Release Build", dissect_aim_tlv_value_uint32 },
 204   { AIM_CLIENT_TLV_LATESTRELEASEURL, "Latest Release URL", dissect_aim_tlv_value_string },
 205   { AIM_CLIENT_TLV_LATESTRELEASEINFO, "Latest Release Info", dissect_aim_tlv_value_string  },
 206   { AIM_CLIENT_TLV_LATESTRELEASENAME, "Latest Release Name", dissect_aim_tlv_value_string },
 207   { AIM_CLIENT_TLV_BETA_DIGEST_SIG, "Beta Digest Signature (MD5)" , dissect_aim_tlv_value_bytes },
 208   { AIM_CLIENT_TLV_RELEASE_DIGEST_SIG, "Release Digest Signature (MD5)", dissect_aim_tlv_value_bytes },
 209   { AIM_CLIENT_TLV_CLIENTUSESSI, "Use SSI", dissect_aim_tlv_value_uint8 },
 210   { AIM_CLIENT_TLV_FAMILY_ID, "Service (SNAC Family) ID", dissect_aim_tlv_value_uint16 },
 211   { AIM_CLIENT_TLV_CHANGE_PASSWORD_URL, "Change password url", dissect_aim_tlv_value_string },
 212   { AIM_CLIENT_TLV_AWAITING_AUTH, "Awaiting Authorization", dissect_aim_tlv_value_bytes },
 213   { AIM_CLIENT_TLV_MEMBERS, "Members of this Group", dissect_aim_tlv_value_bytes },
 214   { AIM_CLIENT_TLV_VISIBILITY_BITS, "Bitfield", dissect_aim_tlv_value_bytes },
 215   { AIM_CLIENT_TLV_PRIVACY, "Privacy Settings" , dissect_aim_tlv_value_uint8 },
 216   { AIM_CLIENT_TLV_VISIBLE_CLASS, "Visible To Classes", dissect_aim_tlv_value_userclass },
 217   { AIM_CLIENT_TLV_VISIBLE_MISC, "Allow Others to See Data", dissect_aim_tlv_value_bytes },
 218   { AIM_CLIENT_TLV_ICQ2K_SHORTCUT, "ICQ2K Shortcut List", dissect_aim_tlv_value_string },
 219   { AIM_CLIENT_TLV_FIRST_LOADED_TIME, "First Time Buddy Was Added (Unix Timestamp)" , dissect_aim_tlv_value_uint32 },
 220   { AIM_CLIENT_TLV_BUDDY_ICON_MD5SUM, "MD5SUM of Current Buddy Icon", dissect_aim_tlv_value_bytes },
 221   { AIM_CLIENT_TLV_GIVEN_NAME, "Locally Specified Buddy Name", dissect_aim_tlv_value_string },
 222   { AIM_CLIENT_TLV_LOCAL_EMAIL, "Locally Specified Buddy Email", dissect_aim_tlv_value_string },
 223   { AIM_CLIENT_TLV_LOCAL_SMS, "Locally Specified Buddy SMS", dissect_aim_tlv_value_string },
 224   { AIM_CLIENT_TLV_LOCAL_COMMENT, "Locally Specified Buddy Comment", dissect_aim_tlv_value_string },
 225   { AIM_CLIENT_TLV_LOCAL_PERSONAL_ALERT, "Personal Alert for Buddy", dissect_aim_tlv_value_uint16 },
 226   { AIM_CLIENT_TLV_LOCAL_PERSONAL_SOUND, "Personal Sound for Buddy", dissect_aim_tlv_value_string },
 227   { AIM_CLIENT_TLV_FIRST_MESSAGE_SENT, "First Time Message Sent to Buddy (Unix Timestamp)", dissect_aim_tlv_value_uint32 },
 228   { 0, NULL, NULL }
 229 };
 230
 231
 232 static int dissect_aim_tlv_value_userstatus(proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_);
 233 static int dissect_aim_tlv_value_dcinfo(proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_);
 234
 235 #define AIM_ONLINEBUDDY_USERCLASS      0x0001
 236 #define AIM_ONLINEBUDDY_ONSINCE        0x0003
 237 #define AIM_ONLINEBUDDY_IDLETIME       0x0004
 238 #define AIM_ONLINEBUDDY_MEMBERSINCE    0x0005
 239 #define AIM_ONLINEBUDDY_STATUS         0x0006
 240 #define AIM_ONLINEBUDDY_IPADDR         0x000a
 241 #define AIM_ONLINEBUDDY_DCINFO         0x000c
 242 #define AIM_ONLINEBUDDY_CAPINFO        0x000d
 243 #define AIM_ONLINEBUDDY_SESSIONLEN     0x000f
 244 #define AIM_ONLINEBUDDY_ICQSESSIONLEN  0x0010
 245 #define AIM_ONLINEBUDDY_TIMEUPDATE     0x0011
 246 #define AIM_ONLINEBUDDY_MYINSTANCENUM  0x0014
 247 #define AIM_ONLINEBUDDY_SHORTCAPS      0x0019
 248 #define AIM_ONLINEBUDDY_BARTINFO       0x001d
 249 #define AIM_ONLINEBUDDY_NICKFLAGS2     0x001f
 250 #define AIM_ONLINEBUDDY_BUDDYFEEDTIME  0x0023
 251 #define AIM_ONLINEBUDDY_SIGTIME        0x0026
 252 #define AIM_ONLINEBUDDY_AWAYTIME       0x0027
 253 #define AIM_ONLINEBUDDY_GEOCOUNTRY     0x002a
 254
 255 const aim_tlv onlinebuddy_tlvs[] = {
 256   { AIM_ONLINEBUDDY_USERCLASS, "User class", dissect_aim_tlv_value_userclass },
 257   { AIM_ONLINEBUDDY_ONSINCE, "Online since", dissect_aim_tlv_value_uint32 },
 258   { AIM_ONLINEBUDDY_IDLETIME, "Idle time (sec)", dissect_aim_tlv_value_uint16 },
 259   { AIM_ONLINEBUDDY_MEMBERSINCE, "Member since", dissect_aim_tlv_value_time },
 260   { AIM_ONLINEBUDDY_STATUS, "Online status", dissect_aim_tlv_value_userstatus },
 261   { AIM_ONLINEBUDDY_IPADDR, "User IP Address", dissect_aim_tlv_value_ipv4 },
 262   { AIM_ONLINEBUDDY_DCINFO, "DC Info", dissect_aim_tlv_value_dcinfo},
 263   { AIM_ONLINEBUDDY_CAPINFO, "Capability Info", dissect_aim_tlv_value_client_capabilities },
 264   { AIM_ONLINEBUDDY_TIMEUPDATE, "Time update", dissect_aim_tlv_value_bytes },
 265   { AIM_ONLINEBUDDY_SESSIONLEN, "Session Length (sec)", dissect_aim_tlv_value_uint32 },
 266   { AIM_ONLINEBUDDY_ICQSESSIONLEN, "ICQ Session Length (sec)", dissect_aim_tlv_value_uint32 },
 267   { AIM_ONLINEBUDDY_MYINSTANCENUM, "Client instance number", dissect_aim_tlv_value_uint8 },
 268   { AIM_ONLINEBUDDY_SHORTCAPS, "Short Capabilities", dissect_aim_tlv_value_bytes },
 269   { AIM_ONLINEBUDDY_BARTINFO, "BART Info", dissect_aim_tlv_value_bytes },
 270   { AIM_ONLINEBUDDY_NICKFLAGS2, "Upper bytes of Nick Flags", dissect_aim_tlv_value_bytes },
 271   { AIM_ONLINEBUDDY_BUDDYFEEDTIME, "Last Buddy Feed update", dissect_aim_tlv_value_time },
 272   { AIM_ONLINEBUDDY_SIGTIME, "Profile set time", dissect_aim_tlv_value_time },
 273   { AIM_ONLINEBUDDY_AWAYTIME, "Away set time", dissect_aim_tlv_value_time },
 274   { AIM_ONLINEBUDDY_GEOCOUNTRY, "Country code", dissect_aim_tlv_value_string },
 275   { 0, NULL, NULL }
 276 };
 277
 278 #define DC_DISABLED             0x0000
 279 #define DC_HTTPS                0x0001
 280 #define DC_SOCKS                0x0002
 281 #define DC_NORMAL               0x0003
 282 #define DC_IMPOSSIBLE   0x0004
 283
 284 static const value_string dc_types[] = {
 285         { DC_DISABLED, "DC disabled" },
 286         { DC_HTTPS, "DC thru firewall or HTTPS proxy" },
 287         { DC_SOCKS, "DC thru SOCKS proxy" },
 288         { DC_NORMAL, "Regular connection" },
 289         { DC_IMPOSSIBLE, "DC not possible " },
 290         { 0, NULL },
 291 };
 292
 293 #define PROTO_VERSION_ICQ98             0x0004
 294 #define PROTO_VERSION_ICQ99             0x0006
 295 #define PROTO_VERSION_ICQ2K             0x0007
 296 #define PROTO_VERSION_ICQ2K1    0x0008
 297 #define PROTO_VERSION_ICQLITE   0x0009
 298 #define PROTO_VERSION_ICQ2K3B   0x000A
 299
 300 static const value_string protocol_versions[] = {
 301         { PROTO_VERSION_ICQ98, "ICQ '98" },
 302         { PROTO_VERSION_ICQ99, "ICQ '99" },
 303         { PROTO_VERSION_ICQ2K, "ICQ 2000" },
 304         { PROTO_VERSION_ICQ2K1, "ICQ 2001" },
 305         { PROTO_VERSION_ICQLITE, "ICQ Lite" },
 306         { PROTO_VERSION_ICQ2K3B, "ICQ 2003B" },
 307         { 0, NULL },
 308 };
 309
 310 static GList *families = NULL;
 311
 312 #define AIM_MOTD_TLV_MOTD                                          0x000B
 313
 314 const aim_tlv motd_tlvs[] = {
 315   { AIM_MOTD_TLV_MOTD, "Message of the day message", dissect_aim_tlv_value_string },
 316   { 0, NULL, NULL }
 317 };
 318
 319 #define CLASS_UNCONFIRMED            0x00000001
 320 #define CLASS_ADMINISTRATOR          0x00000002
 321 #define CLASS_AOL                    0x00000004
 322 #define CLASS_COMMERCIAL             0x00000008
 323 #define CLASS_AIM                    0x00000010
 324 #define CLASS_AWAY                   0x00000020
 325 #define CLASS_ICQ                    0x00000040
 326 #define CLASS_WIRELESS               0x00000080
 327 #define CLASS_UNKNOWN100             0x00000100
 328 #define CLASS_IMF                    0x00000200
 329 #define CLASS_BOT                    0x00000400
 330 #define CLASS_UNKNOWN800             0x00000800
 331 #define CLASS_ONE_WAY_WIRELESS       0x00001000
 332 #define CLASS_UNKNOWN2000            0x00002000
 333 #define CLASS_UNKNOWN4000            0x00004000
 334 #define CLASS_UNKNOWN8000            0x00008000
 335 #define CLASS_UNKNOWN10000           0x00010000
 336 #define CLASS_UNKNOWN20000           0x00020000
 337 #define CLASS_NO_KNOCK_KNOCK         0x00040000
 338 #define CLASS_FORWARD_MOBILE         0x00080000
 339
 340 #define FNAC_FLAG_NEXT_IS_RELATED        0x0001
 341 #define FNAC_FLAG_CONTAINS_VERSION       0x8000
 342
 343 #define FNAC_TLV_FAMILY_VERSION  0x0001
 344
 345 static const aim_tlv fnac_tlvs[] = {
 346   { FNAC_TLV_FAMILY_VERSION, "SNAC Family Version", dissect_aim_tlv_value_uint16 },
 347   { 0, NULL, NULL }
 348 };
 349
 350 #define SSI_OP_RESULT_SUCCESS            0
 351 #define SSI_OP_RESULT_DB_ERROR           1
 352 #define SSI_OP_RESULT_NOT_FOUND          2
 353 #define SSI_OP_RESULT_ALREADY_EXISTS     3
 354 #define SSI_OP_RESULT_UNAVAILABLE        5
 355 #define SSI_OP_RESULT_BAD_REQUEST        10
 356 #define SSI_OP_RESULT_DB_TIME_OUT        11
 357 #define SSI_OP_RESULT_OVER_ROW_LIMIT     12
 358 #define SSI_OP_RESULT_NOT_EXECUTED       13
 359 #define SSI_OP_RESULT_AUTH_REQUIRED      14
 360 #define SSI_OP_RESULT_BAD_LOGINID        16
 361 #define SSI_OP_RESULT_OVER_BUDDY_LIMIT   17
 362 #define SSI_OP_RESULT_INSERT_SMART_GROUP 20
 363 #define SSI_OP_RESULT_TIMEOUT            26
 364
 365 static const value_string aim_ssi_result_codes[] = {
 366   { SSI_OP_RESULT_SUCCESS, "Success" },
 367   { SSI_OP_RESULT_DB_ERROR, "Some kind of database error" },
 368   { SSI_OP_RESULT_NOT_FOUND, "Item was not found for an update or delete" },
 369   { SSI_OP_RESULT_ALREADY_EXISTS, "Item already exists for an insert" },
 370   { SSI_OP_RESULT_UNAVAILABLE, "Server or database is not available" },
 371   { SSI_OP_RESULT_BAD_REQUEST, "Request was not formed well" },
 372   { SSI_OP_RESULT_DB_TIME_OUT, "Database timed out" },
 373   { SSI_OP_RESULT_OVER_ROW_LIMIT, "Too many items of this class for an insert" },
 374   { SSI_OP_RESULT_NOT_EXECUTED, "Not executed due to other error in same request" },
 375   { SSI_OP_RESULT_AUTH_REQUIRED, "Buddy List authorization required" },
 376   { SSI_OP_RESULT_BAD_LOGINID, "Bad loginId" },
 377   { SSI_OP_RESULT_OVER_BUDDY_LIMIT, "Too many buddies" },
 378   { SSI_OP_RESULT_INSERT_SMART_GROUP, "Attempt to added a Buddy to a smart group" },
 379   { SSI_OP_RESULT_TIMEOUT, "General timeout" },
 380   { 0, NULL }
 381 };
 382
 383
 384 static int dissect_aim(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree);
 385 static guint get_aim_pdu_len(packet_info *pinfo, tvbuff_t *tvb, int offset);
 386 static void dissect_aim_pdu(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree);
 387
 388 static void dissect_aim_newconn(tvbuff_t *tvb, packet_info *pinfo, int offset, proto_tree *tree);
 389 static void dissect_aim_snac(tvbuff_t *tvb, packet_info *pinfo,
 390                              int offset, proto_tree *tree, proto_tree *root_tree);
 391 static void dissect_aim_flap_err(tvbuff_t *tvb, packet_info *pinfo,
 392                                  int offset, proto_tree *tree);
 393 static void dissect_aim_keep_alive(tvbuff_t *tvb, packet_info *pinfo,
 394                                    int offset, proto_tree *tree);
 395 static void dissect_aim_close_conn(tvbuff_t *tvb, packet_info *pinfo,
 396                                    int offset, proto_tree *tree);
 397 static void dissect_aim_unknown_channel(tvbuff_t *tvb, packet_info *pinfo,
 398                                         int offset, proto_tree *tree);
 399
 400 static dissector_table_t subdissector_table;
 401
 402 /* Initialize the protocol and registered fields */
 403 static int proto_aim = -1;
 404 static int hf_aim_cmd_start = -1;
 405 static int hf_aim_channel = -1;
 406 static int hf_aim_seqno = -1;
 407 static int hf_aim_data = -1;
 408 static int hf_aim_data_len = -1;
 409 static int hf_aim_signon_challenge_len = -1;
 410 static int hf_aim_signon_challenge = -1;
 411 static int hf_aim_fnac_family = -1;
 412 static int hf_aim_fnac_subtype = -1;
 413 static int hf_aim_fnac_flags = -1;
 414 static int hf_aim_fnac_flag_next_is_related = -1;
 415 static int hf_aim_fnac_flag_contains_version = -1;
 416 static int hf_aim_fnac_id = -1;
 417 static int hf_aim_infotype = -1;
 418 static int hf_aim_buddyname_len = -1;
 419 static int hf_aim_buddyname = -1;
 420 static int hf_aim_userinfo_warninglevel = -1;
 421 static int hf_aim_snac_error = -1;
 422 static int hf_aim_ssi_result_code = -1;
 423 static int hf_aim_tlvcount = -1;
 424 static int hf_aim_version = -1;
 425 static int hf_aim_userclass_unconfirmed = -1;
 426 static int hf_aim_userclass_administrator = -1;
 427 static int hf_aim_userclass_aol = -1;
 428 static int hf_aim_userclass_commercial = -1;
 429 static int hf_aim_userclass_aim = -1;
 430 static int hf_aim_userclass_away = -1;
 431 static int hf_aim_userclass_icq = -1;
 432 static int hf_aim_userclass_wireless = -1;
 433 static int hf_aim_userclass_unknown100 = -1;
 434 static int hf_aim_userclass_imf = -1;
 435 static int hf_aim_userclass_bot = -1;
 436 static int hf_aim_userclass_unknown800 = -1;
 437 static int hf_aim_userclass_one_way_wireless = -1;
 438 static int hf_aim_userclass_unknown2000 = -1;
 439 static int hf_aim_userclass_unknown4000 = -1;
 440 static int hf_aim_userclass_unknown8000 = -1;
 441 static int hf_aim_userclass_unknown10000 = -1;
 442 static int hf_aim_userclass_unknown20000 = -1;
 443 static int hf_aim_userclass_no_knock_knock = -1;
 444 static int hf_aim_userclass_forward_mobile = -1;
 445 static int hf_aim_messageblock_featuresdes = -1;
 446 static int hf_aim_messageblock_featureslen = -1;
 447 static int hf_aim_messageblock_features = -1;
 448 static int hf_aim_messageblock_info = -1;
 449 static int hf_aim_messageblock_len = -1;
 450 static int hf_aim_messageblock_charset = -1;
 451 static int hf_aim_messageblock_charsubset = -1;
 452 static int hf_aim_messageblock_message = -1;
 453
 454 static int hf_aim_dcinfo_ip = -1;
 455 static int hf_aim_dcinfo_tcpport = -1;
 456 static int hf_aim_dcinfo_type = -1;
 457 static int hf_aim_dcinfo_proto_version = -1;
 458 static int hf_aim_dcinfo_auth_cookie = -1;
 459 static int hf_aim_dcinfo_webport = -1;
 460 static int hf_aim_dcinfo_client_future = -1;
 461 static int hf_aim_dcinfo_last_info_update = -1;
 462 static int hf_aim_dcinfo_last_ext_info_update = -1;
 463 static int hf_aim_dcinfo_last_ext_status_update = -1;
 464 static int hf_aim_dcinfo_unknown = -1;
 465
 466 /* Initialize the subtree pointers */
 467 static gint ett_aim          = -1;
 468 static gint ett_aim_dcinfo       = -1;
 469 static gint ett_aim_buddyname= -1;
 470 static gint ett_aim_fnac     = -1;
 471 static gint ett_aim_fnac_flags = -1;
 472 static gint ett_aim_tlv      = -1;
 473 static gint ett_aim_userclass = -1;
 474 static gint ett_aim_messageblock = -1;
 475 static gint ett_aim_client_capabilities = -1;
 476 static gint ett_aim_string08_array = -1;
 477
 478 /* desegmentation of AIM over TCP */
 479 static gboolean aim_desegment = TRUE;
 480
 481 /* Code to actually dissect the packets */
 482 static int dissect_aim(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
 483 {
 484 /* check, if this is really an AIM packet, they start with 0x2a */
 485 /* XXX - I've seen some stuff starting with 0x5a followed by 0x2a */
 486
 487   if(tvb_length(tvb) >= 1 && tvb_get_guint8(tvb, 0) != 0x2a) {
 488     /* Not an instant messenger packet, just happened to use the same port */
 489     /* XXX - if desegmentation disabled, this might be a continuation
 490        packet, not a non-AIM packet */
 491     return 0;
 492   }
 493
 494   tcp_dissect_pdus(tvb, pinfo, tree, aim_desegment, 6, get_aim_pdu_len,
 495         dissect_aim_pdu);
 496   return tvb_length(tvb);
 497 }
 498
 499 static guint get_aim_pdu_len(packet_info *pinfo _U_, tvbuff_t *tvb, int offset)
 500 {
 501   guint16 plen;
 502
 503   /*
 504    * Get the length of the AIM packet.
 505    */
 506   plen = tvb_get_ntohs(tvb, offset + 4);
 507
 508   /*
 509    * That length doesn't include the length of the header itself; add that in.
 510    */
 511   return plen + 6;
 512 }
 513
 514 static void dissect_aim_pdu(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
 515 {
 516   /* Header fields */
 517   unsigned char  hdr_channel;           /* channel ID */
 518   unsigned short hdr_sequence_no;       /* Internal frame sequence number, not needed */
 519   unsigned short hdr_data_field_length; /* length of data within frame */
 520
 521   int offset=0;
 522
 523 /* Set up structures we will need to add the protocol subtree and manage it */
 524   proto_item *ti;
 525   proto_tree *aim_tree = NULL;
 526
 527 /* Make entries in Protocol column and Info column on summary display */
 528   col_set_str(pinfo->cinfo, COL_PROTOCOL, "AIM");
 529
 530   col_set_str(pinfo->cinfo, COL_INFO, "AOL Instant Messenger");
 531
 532   /* get relevant header information */
 533   offset += 1;          /* XXX - put the identifier into the tree? */
 534   hdr_channel           = tvb_get_guint8(tvb, offset);
 535   offset += 1;
 536   hdr_sequence_no       = tvb_get_ntohs(tvb, offset);
 537   offset += 2;
 538   hdr_data_field_length = tvb_get_ntohs(tvb, offset);
 539   offset += 2;
 540
 541 /* In the interest of speed, if "tree" is NULL, don't do any work not
 542    necessary to generate protocol tree items. */
 543   if (tree) {
 544     ti = proto_tree_add_item(tree, proto_aim, tvb, 0, -1, FALSE);
 545     aim_tree = proto_item_add_subtree(ti, ett_aim);
 546     proto_tree_add_uint(aim_tree, hf_aim_cmd_start, tvb, 0, 1, '*');
 547     proto_tree_add_item(aim_tree, hf_aim_channel, tvb, 1, 1, FALSE);
 548     proto_tree_add_uint(aim_tree, hf_aim_seqno, tvb, 2, 2, hdr_sequence_no);
 549     proto_tree_add_uint(aim_tree, hf_aim_data_len, tvb, 4, 2, hdr_data_field_length);
 550
 551   }
 552
 553   switch(hdr_channel)
 554   {
 555     case CHANNEL_NEW_CONN:
 556       dissect_aim_newconn(tvb, pinfo, offset, aim_tree);
 557       break;
 558     case CHANNEL_SNAC_DATA:
 559       dissect_aim_snac(tvb, pinfo, offset, aim_tree, tree);
 560       break;
 561     case CHANNEL_FLAP_ERR:
 562       dissect_aim_flap_err(tvb, pinfo, offset, aim_tree);
 563       break;
 564     case CHANNEL_CLOSE_CONN:
 565       dissect_aim_close_conn(tvb, pinfo, offset, aim_tree);
 566       break;
 567     case CHANNEL_KEEP_ALIVE:
 568      dissect_aim_keep_alive(tvb, pinfo, offset, aim_tree);
 569      break;
 570     default:
 571       dissect_aim_unknown_channel(tvb, pinfo, offset, aim_tree);
 572       break;
 573   }
 574
 575 }
 576 const aim_subtype *aim_get_subtype( guint16 famnum, guint16 subtype )
 577 {
 578         GList *gl = families;
 579         while(gl) {
 580                 aim_family *fam = gl->data;
 581                 if(fam->family == famnum) {
 582                         int i;
 583                         for(i = 0; fam->subtypes[i].name; i++) {
 584                                 if(fam->subtypes[i].id == subtype) return &(fam->subtypes[i]);
 585                         }
 586                 }
 587                 gl = gl->next;
 588         }
 589
 590         return NULL;
 591
 592 }
 593
 594 const aim_family *aim_get_family( guint16 famnum )
 595 {
 596         GList *gl = families;
 597         while(gl) {
 598                 aim_family *fam = gl->data;
 599                 if(fam->family == famnum) return fam;
 600                 gl = gl->next;
 601         }
 602
 603         return NULL;
 604 }
 605
 606 int aim_get_buddyname( guchar *name, tvbuff_t *tvb, int len_offset, int name_offset)
 607 {
 608   guint8 buddyname_length;
 609
 610   buddyname_length = tvb_get_guint8(tvb, len_offset);
 611
 612   if(buddyname_length > MAX_BUDDYNAME_LENGTH ) buddyname_length = MAX_BUDDYNAME_LENGTH;
 613   tvb_get_nstringz0(tvb, name_offset, buddyname_length + 1, name);
 614
 615   return buddyname_length;
 616 }
 617
 618
 619 void aim_get_message( guchar *msg, tvbuff_t *tvb, int msg_offset, int msg_length)
 620 {
 621   int i,j,c;
 622   int bracket = FALSE;
 623   int max, tagchars = 0;
 624   int new_offset = msg_offset;
 625   int new_length = msg_length;
 626
 627
 628
 629   /* make sure nothing bigger than 1000 bytes is printed */
 630   if( msg_length > 999 ) return;
 631
 632   memset( msg, '\0', 1000);
 633   i = 0;
 634   c = 0;
 635
 636   /* loop until HTML tag is reached - quick&dirty way to find start of message
 637    * (it is nearly impossible to find the correct start offset for all client versions) */
 638   while( (tagchars < 6) && (new_length > 5) )
 639   {
 640      j = tvb_get_guint8(tvb, new_offset);
 641      if( ( (j == '<') && (tagchars == 0) ) ||
 642          ( (j == 'h') && (tagchars == 1) ) ||
 643          ( (j == 'H') && (tagchars == 1) ) ||
 644          ( (j == 't') && (tagchars == 2) ) ||
 645          ( (j == 'T') && (tagchars == 2) ) ||
 646          ( (j == 'm') && (tagchars == 3) ) ||
 647          ( (j == 'M') && (tagchars == 3) ) ||
 648          ( (j == 'l') && (tagchars == 4) ) ||
 649          ( (j == 'L') && (tagchars == 4) ) ||
 650          ( (j == '>') && (tagchars == 5) ) ) tagchars++;
 651      new_offset++;
 652      new_length--;
 653   }
 654
 655   /* set offset and length of message to after the first HTML tag */
 656   msg_offset = new_offset;
 657   msg_length = new_length;
 658   max = msg_length - 1;
 659   tagchars = 0;
 660
 661   /* find the rest of the message until either a </html> is reached or the end of the frame.
 662    * All other HTML tags are stripped to display only the raw message (printable characters) */
 663   while( (c < max) && (tagchars < 7) )
 664   {
 665      j = tvb_get_guint8(tvb, msg_offset+c);
 666
 667
 668      /* make sure this is an HTML tag by checking the order of the chars */
 669      if( ( (j == '<') && (tagchars == 0) ) ||
 670          ( (j == '/') && (tagchars == 1) ) ||
 671          ( (j == 'h') && (tagchars == 2) ) ||
 672          ( (j == 'H') && (tagchars == 2) ) ||
 673          ( (j == 't') && (tagchars == 3) ) ||
 674          ( (j == 'T') && (tagchars == 3) ) ||
 675          ( (j == 'm') && (tagchars == 4) ) ||
 676          ( (j == 'M') && (tagchars == 4) ) ||
 677          ( (j == 'l') && (tagchars == 5) ) ||
 678          ( (j == 'L') && (tagchars == 5) ) ||
 679          ( (j == '>') && (tagchars == 6) ) ) tagchars++;
 680
 681 #ifdef STRIP_TAGS
 682      if( j == '<' ) bracket = TRUE;
 683      if( j == '>' ) bracket = FALSE;
 684      if( (isprint(j) ) && (bracket == FALSE) && (j != '>'))
 685 #else
 686      if( isprint(j) )
 687 #endif
 688      {
 689        msg[i] = j;
 690        i++;
 691      }
 692      c++;
 693   }
 694 }
 695
 696 void aim_init_family(int proto, int ett, guint16 family, const aim_subtype *subtypes)
 697 {
 698         aim_family *fam = g_new(aim_family, 1);
 699         fam->proto = find_protocol_by_id(proto);
 700         fam->name = proto_get_protocol_short_name(fam->proto);
 701         fam->family = family;
 702         fam->subtypes = subtypes;
 703         families = g_list_append(families, fam);
 704
 705         fam->proto_id = proto;
 706         fam->ett = ett;
 707 }
 708
 709 static void dissect_aim_newconn(tvbuff_t *tvb, packet_info *pinfo,
 710                                 int offset, proto_tree *tree)
 711 {
 712   col_set_str(pinfo->cinfo, COL_INFO, "New Connection");
 713
 714   if (tvb_length_remaining(tvb, offset) > 0) {
 715           proto_tree_add_item(tree, hf_aim_version, tvb, offset, 4, FALSE);
 716           offset+=4;
 717           offset = dissect_aim_tlv_sequence(tvb, pinfo, offset, tree, client_tlvs);
 718   }
 719
 720   if (tvb_length_remaining(tvb, offset) > 0)
 721     proto_tree_add_item(tree, hf_aim_data, tvb, offset, -1, FALSE);
 722 }
 723
 724
 725 int dissect_aim_snac_error(tvbuff_t *tvb, packet_info *pinfo,
 726                              proto_tree *aim_tree)
 727 {
 728   const char *name;
 729
 730   if ((name = match_strval(tvb_get_ntohs(tvb, 0), aim_snac_errors)) != NULL) {
 731      if (check_col(pinfo->cinfo, COL_INFO))
 732                 col_add_str(pinfo->cinfo, COL_INFO, name);
 733   }
 734
 735   proto_tree_add_item (aim_tree, hf_aim_snac_error,
 736                            tvb, 0, 2, FALSE);
 737
 738   return dissect_aim_tlv_sequence(tvb, pinfo, 2, aim_tree, client_tlvs);
 739 }
 740
 741 int dissect_aim_ssi_result(tvbuff_t *tvb, packet_info *pinfo,
 742                              proto_tree *aim_tree)
 743 {
 744   const char *name;
 745
 746   if ((name = match_strval(tvb_get_ntohs(tvb, 0), aim_ssi_result_codes)) != NULL) {
 747      if (check_col(pinfo->cinfo, COL_INFO))
 748                 col_add_str(pinfo->cinfo, COL_INFO, name);
 749   }
 750
 751   proto_tree_add_item (aim_tree, hf_aim_ssi_result_code,
 752                            tvb, 0, 2, FALSE);
 753
 754   return 2;
 755 }
 756
 757 int dissect_aim_userinfo(tvbuff_t *tvb, packet_info *pinfo,
 758                                  int offset, proto_tree *tree)
 759 {
 760     offset = dissect_aim_buddyname(tvb, pinfo, offset, tree);
 761
 762     proto_tree_add_item(tree, hf_aim_userinfo_warninglevel, tvb, offset, 2, FALSE);
 763     offset += 2;
 764
 765     return dissect_aim_tlv_list(tvb, pinfo, offset, tree, onlinebuddy_tlvs);
 766 }
 767
 768 static int dissect_aim_fnac_flags(tvbuff_t *tvb, int offset, int len, proto_item *ti, guint16 flags)
 769 {
 770         proto_tree *entry = proto_item_add_subtree(ti, ett_aim_fnac_flags);
 771         proto_tree_add_boolean(entry, hf_aim_fnac_flag_next_is_related, tvb, offset, len, flags);
 772         proto_tree_add_boolean(entry, hf_aim_fnac_flag_contains_version, tvb, offset, len, flags);
 773         return offset + len;
 774 }
 775
 776 static void dissect_aim_snac(tvbuff_t *tvb, packet_info *pinfo,
 777                              int offset, proto_tree *aim_tree, proto_tree *root_tree)
 778 {
 779   guint16 family_id;
 780   guint16 subtype_id;
 781   guint16 flags;
 782   guint32 id;
 783   proto_item *ti1;
 784   struct aiminfo aiminfo;
 785   proto_tree *aim_tree_fnac = NULL;
 786   tvbuff_t *subtvb;
 787   int orig_offset;
 788   const aim_subtype *subtype;
 789   proto_tree *family_tree = NULL;
 790   const aim_family *family;
 791   void* pd_save;
 792
 793   orig_offset = offset;
 794   family_id = tvb_get_ntohs(tvb, offset);
 795   family = aim_get_family(family_id);
 796   offset += 2;
 797   subtype_id = tvb_get_ntohs(tvb, offset);
 798   subtype = aim_get_subtype(family_id, subtype_id);
 799   offset += 2;
 800   flags = tvb_get_ntohs(tvb, offset);
 801   offset += 2;
 802   id = tvb_get_ntohl(tvb, offset);
 803   offset += 4;
 804
 805
 806   if( aim_tree )
 807     {
 808       offset = orig_offset;
 809       ti1 = proto_tree_add_text(aim_tree, tvb, 6, 10, "FNAC: Family: %s (0x%04x), Subtype: %s (0x%04x)",
 810                                 family?family->name:"Unknown", family_id,
 811                                 (subtype && subtype->name)?subtype->name:"Unknown", subtype_id);
 812       aim_tree_fnac = proto_item_add_subtree(ti1, ett_aim_fnac);
 813
 814       proto_tree_add_text (aim_tree_fnac,
 815                            tvb, offset, 2, "Family: %s (0x%04x)", family?family->name:"Unknown", family_id);
 816       offset += 2;
 817
 818       proto_tree_add_text (aim_tree_fnac,
 819                            tvb, offset, 2, "Subtype: %s (0x%04x)", (subtype && subtype->name)?subtype->name:"Unknown", subtype_id);
 820       offset += 2;
 821
 822       ti1 = proto_tree_add_uint(aim_tree_fnac, hf_aim_fnac_flags, tvb, offset,
 823                           2, flags);
 824
 825           offset = dissect_aim_fnac_flags(tvb, offset, 2, ti1, flags);
 826
 827       proto_tree_add_uint(aim_tree_fnac, hf_aim_fnac_id, tvb, offset,
 828                           4, id);
 829       offset += 4;
 830     }
 831
 832   if(flags & FNAC_FLAG_CONTAINS_VERSION) {
 833         guint16 len = tvb_get_ntohs(tvb, offset);
 834         int oldoffset;
 835         offset+=2;
 836         oldoffset = offset;
 837
 838         while(offset < oldoffset + len) {
 839           offset = dissect_aim_tlv(tvb, pinfo, offset, aim_tree, fnac_tlvs);
 840         }
 841   }
 842
 843   subtvb = tvb_new_subset(tvb, offset, -1, -1);
 844   aiminfo.tcpinfo = pinfo->private_data;
 845   aiminfo.family = family_id;
 846   aiminfo.subtype = subtype_id;
 847   pd_save = pinfo->private_data;
 848   pinfo->private_data = &aiminfo;
 849
 850   if (check_col(pinfo->cinfo, COL_PROTOCOL) && family) {
 851         col_set_str(pinfo->cinfo, COL_PROTOCOL, family->name);
 852   }
 853
 854   if (check_col(pinfo->cinfo, COL_INFO)) {
 855          if(subtype && family) {
 856                  col_set_str(pinfo->cinfo, COL_INFO, family->name);
 857                  col_append_fstr(pinfo->cinfo, COL_INFO, ", %s", subtype->name);
 858          } else {
 859             col_set_str(pinfo->cinfo, COL_INFO, "SNAC data");
 860
 861         if(family) col_append_fstr(pinfo->cinfo, COL_INFO, ", %s", family->name);
 862                 else col_append_fstr(pinfo->cinfo, COL_INFO, ", Family: 0x%04x", family_id);
 863
 864                 col_append_fstr(pinfo->cinfo, COL_INFO, ", Subtype: 0x%04x", subtype_id);
 865          }
 866   }
 867
 868   if(aim_tree && family)
 869   {
 870         proto_item *ti = proto_tree_add_item(root_tree, family->proto_id, subtvb, 0, -1, FALSE);
 871         family_tree = proto_item_add_subtree(ti, family->ett);
 872         if(subtype) proto_item_append_text(ti, ", %s", subtype->name);
 873   }
 874
 875   if(tvb_length_remaining(tvb, offset) > 0 && subtype && subtype->dissector) {
 876           subtype->dissector(subtvb, pinfo, family_tree);
 877   }
 878   pinfo->private_data = pd_save;
 879 }
 880
 881 static void dissect_aim_flap_err(tvbuff_t *tvb, packet_info *pinfo,
 882                                  int offset, proto_tree *tree)
 883 {
 884   if (check_col(pinfo->cinfo, COL_INFO)) {
 885     col_set_str(pinfo->cinfo, COL_INFO, "FLAP error");
 886   }
 887
 888   /* Show the undissected payload */
 889   if (tvb_length_remaining(tvb, offset) > 0)
 890     proto_tree_add_item(tree, hf_aim_data, tvb, offset, -1, FALSE);
 891 }
 892
 893 static void dissect_aim_keep_alive(tvbuff_t *tvb, packet_info *pinfo,
 894                                    int offset, proto_tree *tree)
 895 {
 896   if (check_col(pinfo->cinfo, COL_INFO)) {
 897     col_set_str(pinfo->cinfo, COL_INFO, "Keep Alive");
 898   }
 899
 900   /* Show the undissected payload */
 901   if (tvb_length_remaining(tvb, offset) > 0)
 902     proto_tree_add_item(tree, hf_aim_data, tvb, offset, -1, FALSE);
 903 }
 904
 905 static void dissect_aim_close_conn(tvbuff_t *tvb, packet_info *pinfo,
 906                                    int offset, proto_tree *tree)
 907 {
 908   if (check_col(pinfo->cinfo, COL_INFO)) {
 909     col_set_str(pinfo->cinfo, COL_INFO, "Close Connection");
 910   }
 911
 912   offset = dissect_aim_tlv_sequence(tvb, pinfo, offset, tree, client_tlvs);
 913 }
 914
 915 static void dissect_aim_unknown_channel(tvbuff_t *tvb, packet_info *pinfo,
 916                                         int offset, proto_tree *tree)
 917 {
 918   if (check_col(pinfo->cinfo, COL_INFO)) {
 919     col_set_str(pinfo->cinfo, COL_INFO, "Unknown Channel");
 920   }
 921
 922   /* Show the undissected payload */
 923   if (tvb_length_remaining(tvb, offset) > 0)
 924     proto_tree_add_item(tree, hf_aim_data, tvb, offset, -1, FALSE);
 925 }
 926
 927 int dissect_aim_buddyname(tvbuff_t *tvb, packet_info *pinfo _U_, int offset,
 928                        proto_tree *tree)
 929 {
 930   guint8 buddyname_length = 0;
 931   proto_item *ti = NULL;
 932   proto_tree *buddy_tree = NULL;
 933
 934   buddyname_length = tvb_get_guint8(tvb, offset);
 935   offset++;
 936
 937   if(tree) {
 938       ti = proto_tree_add_text(tree, tvb, offset-1, 1+buddyname_length,
 939                                "Buddy: %s",
 940                                tvb_format_text(tvb, offset, buddyname_length));
 941       buddy_tree = proto_item_add_subtree(ti, ett_aim_buddyname);
 942       proto_tree_add_item(buddy_tree, hf_aim_buddyname_len, tvb, offset-1, 1, FALSE);
 943       proto_tree_add_item(buddy_tree, hf_aim_buddyname, tvb, offset, buddyname_length, FALSE);
 944   }
 945
 946    return offset+buddyname_length;
 947 }
 948
 949 typedef struct _aim_client_capability
 950 {
 951         const char *name;
 952         e_uuid_t clsid;
 953 } aim_client_capability;
 954
 955 static const aim_client_capability known_client_caps[] = {
 956         { "Send File",
 957           {0x09461343, 0x4c7f, 0x11d1,
 958             { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 959
 960         { "Recv File",
 961             { 0x09461348, 0x4c7f, 0x11d1,
 962                    { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 963
 964         { "Short Caps",
 965          {0x09460000, 0x4c7f, 0x11d1,
 966            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 967
 968         { "Secure IM",
 969          {0x09460001, 0x4c7f, 0x11d1,
 970            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 971
 972         { "XHTML IM",
 973          {0x09460002, 0x4c7f, 0x11d1,
 974            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 975
 976         { "Video Chat",
 977          {0x09460100, 0x4c7f, 0x11d1,
 978            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 979
 980         { "Live Video",
 981          {0x09460101, 0x4c7f, 0x11d1,
 982            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 983
 984         { "Camera",
 985          {0x09460102, 0x4c7f, 0x11d1,
 986            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 987
 988         { "Microphone",
 989          {0x09460103, 0x4c7f, 0x11d1,
 990            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 991
 992         { "Live Audio",
 993          {0x09460104, 0x4c7f, 0x11d1,
 994            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 995
 996         { "iChatAV info",
 997          {0x09460105, 0x4c7f, 0x11d1,
 998            { 0x82, 0x22, 0x44, 0x45, 0x45, 0x53, 0x54, 0x00}}},
 999
1000         { "Host Status Text Aware",
1001          {0x0946010A, 0x4c7f, 0x11d1,
1002            { 0x82, 0x22, 0x44, 0x45, 0x45, 0x53, 0x54, 0x00}}},
1003
1004         { "Realtime IM",
1005          {0x0946010B, 0x4c7f, 0x11d1,
1006            { 0x82, 0x22, 0x44, 0x45, 0x45, 0x53, 0x54, 0x00}}},
1007
1008         { "Smart Caps",
1009          {0x094601FF, 0x4c7f, 0x11d1,
1010            { 0x82, 0x22, 0x44, 0x45, 0x45, 0x53, 0x54, 0x00}}},
1011
1012         { "Hiptop",
1013          {0x09461323, 0x4c7f, 0x11d1,
1014            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
1015
1016         { "Voice Chat",
1017          {0x09461341, 0x4c7f, 0x11d1,
1018                  { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
1019
1020         { "File Transfer",
1021          {0x09461343, 0x4c7f, 0x11d1,
1022                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
1023
1024         { "Direct ICQ Communication",
1025          {0x09461344, 0x4c7f, 0x11d1,
1026                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
1027
1028         { "Direct ICBM",
1029          {0x09461345, 0x4c7f, 0x11d1,
1030                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
1031
1032         { "Buddy Icon",
1033          {0x09461346, 0x4c7f, 0x11d1,
1034                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
1035
1036         { "Add-Ins",
1037          {0x09461347, 0x4c7f, 0x11d1,
1038                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
1039
1040         { "File Sharing",
1041          {0x09461348, 0x4c7f, 0x11d1,
1042                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
1043
1044         { "ICQ Server Relaying",
1045          {0x09461349, 0x4c7f, 0x11d1,
1046                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
1047
1048         { "Games",
1049          {0x0946134a, 0x4c7f, 0x11d1,
1050                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
1051
1052         { "Games",
1053          {0x0946134a, 0x4c7f, 0x11d1,
1054                  {0x22, 0x82, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
1055
1056         { "Send Buddy List",
1057          {0x0946134b, 0x4c7f, 0x11d1,
1058                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
1059
1060         { "AIM/ICQ Interoperability",
1061          {0x0946134d, 0x4c7f, 0x11d1,
1062                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
1063
1064         { "ICQ UTF8 Support",
1065          {0x0946134e, 0x4c7f, 0x11d1,
1066                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
1067
1068         { "Old ICQ UTF8 Support",
1069          {0x2e7a6475, 0xfadf, 0x4dc8,
1070                  {0x88, 0x6f, 0xea, 0x35, 0x95, 0xfd, 0xb6, 0xdf}}},
1071
1072         { "Chat",
1073          {0x748f2420, 0x6287, 0x11d1,
1074                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
1075
1076         { "ICQ Rich Text Format Messages",
1077          {0x97b12751, 0x243c, 0x4334,
1078                  {0xad, 0x22, 0xd6, 0xab, 0xf7, 0x3f, 0x14, 0x92}}},
1079
1080         { "AP User",
1081          {0xaa4a32b5, 0xf884, 0x48c6,
1082                  {0xa3, 0xd7, 0x8c, 0x50, 0x97, 0x19, 0xfd, 0x5b}}},
1083
1084         { "Trillian Encryption",
1085          {0xf2e7c7f4, 0xfead, 0x4dfb,
1086                  {0xb2, 0x35, 0x36, 0x79, 0x8b, 0xdf, 0x00, 0x00}}},
1087
1088         { NULL, {0x0, 0x0, 0x0, { 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0 } } }
1089 };
1090
1091 static const aim_client_capability *aim_find_capability ( e_uuid_t clsid)
1092 {
1093         int i;
1094
1095         for(i = 0; known_client_caps[i].name; i++)
1096         {
1097                 const aim_client_capability *caps = &(known_client_caps[i]);
1098
1099                 if(memcmp(&(caps->clsid), &clsid, sizeof(e_uuid_t)) == 0)
1100                         return caps;
1101         }
1102
1103         return NULL;
1104 }
1105
1106 int dissect_aim_capability(proto_tree *entry, tvbuff_t *tvb, int offset)
1107 {
1108         const aim_client_capability *caps = NULL;
1109         e_uuid_t clsid;
1110
1111         clsid.Data1 = tvb_get_ntohl(tvb, offset);
1112         clsid.Data2 = tvb_get_ntohs(tvb, offset+4);
1113         clsid.Data3 = tvb_get_ntohs(tvb, offset+6);
1114         tvb_memcpy(tvb, clsid.Data4, offset+8, 8);
1115
1116         caps = aim_find_capability(clsid);
1117
1118         proto_tree_add_text(entry, tvb, offset, 16,
1119                 "%s {%08x-%04x-%04x-%02x%02x-%02x%02x%02x%02x%02x%02x}",
1120                 caps?caps->name:"Unknown", clsid.Data1, clsid.Data2,
1121                 clsid.Data3, clsid.Data4[0], clsid.Data4[1], clsid.Data4[2],
1122                 clsid.Data4[3], clsid.Data4[4], clsid.Data4[5], clsid.Data4[6],
1123                         clsid.Data4[7]
1124         );
1125
1126         return offset+16;
1127 }
1128
1129 int dissect_aim_tlv_value_client_capabilities(proto_item *ti _U_, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1130 {
1131         int offset = 0;
1132         proto_tree *entry;
1133
1134         proto_item_set_text(ti, "Client Capabilities List");
1135
1136         entry = proto_item_add_subtree(ti, ett_aim_client_capabilities);
1137
1138         while (tvb_length_remaining(tvb, offset) > 0) {
1139                 offset = dissect_aim_capability(entry, tvb, offset);
1140         }
1141
1142         return tvb_length(tvb);
1143 }
1144
1145 int dissect_aim_tlv_value_time(proto_item *ti _U_, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1146 {
1147         /* FIXME */
1148         return tvb_length(tvb);
1149 }
1150
1151 int dissect_aim_userclass(tvbuff_t *tvb, int offset, int len, proto_item *ti, guint32 flags)
1152 {
1153         proto_tree *entry;
1154
1155         entry = proto_item_add_subtree(ti, ett_aim_userclass);
1156         proto_tree_add_boolean(entry, hf_aim_userclass_unconfirmed, tvb, offset, len, flags);
1157         proto_tree_add_boolean(entry, hf_aim_userclass_administrator, tvb, offset, len, flags);
1158         proto_tree_add_boolean(entry, hf_aim_userclass_aol, tvb, offset, len, flags);
1159         proto_tree_add_boolean(entry, hf_aim_userclass_commercial, tvb, offset, len, flags);
1160         proto_tree_add_boolean(entry, hf_aim_userclass_aim, tvb, offset, len, flags);
1161         proto_tree_add_boolean(entry, hf_aim_userclass_away, tvb, offset, len, flags);
1162         proto_tree_add_boolean(entry, hf_aim_userclass_icq, tvb, offset, len, flags);
1163         proto_tree_add_boolean(entry, hf_aim_userclass_wireless, tvb, offset, len, flags);
1164         proto_tree_add_boolean(entry, hf_aim_userclass_unknown100, tvb, offset, len, flags);
1165         proto_tree_add_boolean(entry, hf_aim_userclass_imf, tvb, offset, len, flags);
1166         proto_tree_add_boolean(entry, hf_aim_userclass_bot, tvb, offset, len, flags);
1167         proto_tree_add_boolean(entry, hf_aim_userclass_unknown800, tvb, offset, len, flags);
1168         proto_tree_add_boolean(entry, hf_aim_userclass_one_way_wireless, tvb, offset, len, flags);
1169         proto_tree_add_boolean(entry, hf_aim_userclass_unknown2000, tvb, offset, len, flags);
1170         proto_tree_add_boolean(entry, hf_aim_userclass_unknown4000, tvb, offset, len, flags);
1171         proto_tree_add_boolean(entry, hf_aim_userclass_unknown8000, tvb, offset, len, flags);
1172         proto_tree_add_boolean(entry, hf_aim_userclass_unknown10000, tvb, offset, len, flags);
1173         proto_tree_add_boolean(entry, hf_aim_userclass_unknown20000, tvb, offset, len, flags);
1174         proto_tree_add_boolean(entry, hf_aim_userclass_no_knock_knock, tvb, offset, len, flags);
1175         proto_tree_add_boolean(entry, hf_aim_userclass_forward_mobile, tvb, offset, len, flags);
1176         return offset+len;
1177 }
1178
1179 int dissect_aim_tlv_value_userclass(proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1180 {
1181         guint16 value16 = tvb_get_ntohs(tvb, 0);
1182         proto_item_set_text(ti, "Value: 0x%04x", value16);
1183         return dissect_aim_userclass(tvb, 0, 2, ti, value16);
1184 }
1185
1186 static int dissect_aim_tlv_value_userstatus(proto_item *ti _U_, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1187 {
1188         /* FIXME */
1189         return tvb_length(tvb);
1190 }
1191
1192 static int dissect_aim_tlv_value_dcinfo(proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1193 {
1194         int offset = 0;
1195
1196         proto_tree *dctree = proto_item_add_subtree(ti, ett_aim_dcinfo);
1197
1198         proto_tree_add_item(dctree, hf_aim_dcinfo_ip , tvb, offset, 4, FALSE); offset+=4;
1199         proto_tree_add_item(dctree, hf_aim_dcinfo_tcpport, tvb, offset, 4, FALSE); offset+=4;
1200         proto_tree_add_item(dctree, hf_aim_dcinfo_type, tvb, offset, 1, FALSE); offset+=1;
1201         proto_tree_add_item(dctree, hf_aim_dcinfo_proto_version, tvb, offset, 2, FALSE); offset+=2;
1202         proto_tree_add_item(dctree, hf_aim_dcinfo_auth_cookie, tvb, offset, 4, FALSE); offset+=2;
1203         proto_tree_add_item(dctree, hf_aim_dcinfo_webport, tvb, offset, 4, FALSE); offset+=4;
1204         proto_tree_add_item(dctree, hf_aim_dcinfo_client_future, tvb, offset, 4, FALSE); offset+=4;
1205         proto_tree_add_item(dctree, hf_aim_dcinfo_last_info_update, tvb, offset, 4, FALSE); offset+=4;
1206         proto_tree_add_item(dctree, hf_aim_dcinfo_last_ext_info_update, tvb, offset, 4, FALSE); offset+=4;
1207         proto_tree_add_item(dctree, hf_aim_dcinfo_last_ext_status_update, tvb, offset, 4, FALSE); offset+=4;
1208         proto_tree_add_item(dctree, hf_aim_dcinfo_unknown, tvb, offset, 2, FALSE); offset+=2;
1209
1210         return offset;
1211 }
1212
1213 int dissect_aim_tlv_value_string (proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1214 {
1215    guint8 *buf;
1216    gint string_len;
1217
1218    string_len = tvb_length(tvb);
1219    buf = tvb_get_ephemeral_string(tvb, 0, string_len);
1220    proto_item_set_text(ti, "Value: %s", format_text(buf, string_len));
1221    return string_len;
1222 }
1223
1224 int dissect_aim_tlv_value_string08_array (proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1225 {
1226   proto_tree *entry;
1227   gint offset=0;
1228
1229   entry = proto_item_add_subtree(ti, ett_aim_string08_array);
1230
1231   while (tvb_length_remaining(tvb, offset) > 1)
1232   {
1233     guint8 string_len = tvb_get_guint8(tvb, offset++);
1234     guint8 *buf = tvb_get_ephemeral_string(tvb, offset, string_len);
1235     proto_tree_add_text(entry, tvb, offset, string_len, "%s", format_text(buf, string_len));
1236     offset += string_len;
1237   }
1238
1239   return offset;
1240 }
1241
1242 int dissect_aim_tlv_value_bytes (proto_item *ti _U_, guint16 valueid _U_, tvbuff_t *tvb _U_, packet_info *pinfo _U_)
1243 {
1244    return tvb_length(tvb);
1245 }
1246
1247 int dissect_aim_tlv_value_uint8 (proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_){
1248   guint8 value8 = tvb_get_guint8(tvb, 0);
1249   proto_item_set_text(ti, "Value: %d", value8);
1250   return 1;
1251 }
1252
1253 int dissect_aim_tlv_value_uint16 (proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_){
1254   guint16 value16 = tvb_get_ntohs(tvb, 0);
1255   proto_item_set_text(ti, "Value: %d", value16);
1256   return 2;
1257 }
1258
1259 int dissect_aim_tlv_value_ipv4 (proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_){
1260   guint32 ipv4_address = tvb_get_ipv4(tvb, 0);
1261   proto_item_set_text(ti, "Value: %s", ip_to_str((guint8 *)&ipv4_address));
1262   return 4;
1263 }
1264
1265 int dissect_aim_tlv_value_uint32 (proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_){
1266   guint32 value32 = tvb_get_ntohl(tvb, 0);
1267   proto_item_set_text(ti, "Value: %d", value32);
1268   return 4;
1269 }
1270
1271 int dissect_aim_tlv_value_messageblock (proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_){
1272   proto_tree *entry;
1273   guint8 *buf;
1274   guint16 featurelen;
1275   guint16 blocklen;
1276   int offset=0;
1277
1278   /* Setup a new subtree */
1279   entry = proto_item_add_subtree(ti, ett_aim_messageblock);
1280
1281   /* Features descriptor */
1282   proto_tree_add_item(entry, hf_aim_messageblock_featuresdes, tvb, offset, 2,
1283                       FALSE);
1284   offset += 2;
1285
1286   /* Features Length */
1287   featurelen = tvb_get_ntohs(tvb, offset);
1288   proto_tree_add_item(entry, hf_aim_messageblock_featureslen, tvb, offset, 2,
1289                       FALSE);
1290   offset += 2;
1291
1292   /* Features (should be expanded further @@@@@@@ ) */
1293   proto_tree_add_item(entry, hf_aim_messageblock_features, tvb, offset,
1294                       featurelen, FALSE);
1295   offset += featurelen;
1296
1297   /* There can be multiple messages in this message block */
1298   while (tvb_length_remaining(tvb, offset) > 0) {
1299     /* Info field */
1300     proto_tree_add_item(entry, hf_aim_messageblock_info, tvb, offset, 2,
1301                         FALSE);
1302     offset += 2;
1303
1304     /* Block length (includes charset and charsubset) */
1305     blocklen = tvb_get_ntohs(tvb, offset);
1306     if (blocklen <= 4) {
1307       proto_tree_add_text(entry, tvb, offset, 2, "Invalid block length: %d",
1308         blocklen);
1309       break;
1310     }
1311     proto_tree_add_item(entry, hf_aim_messageblock_len, tvb, offset, 2,
1312                         FALSE);
1313     offset += 2;
1314
1315     /* Character set */
1316     proto_tree_add_item(entry, hf_aim_messageblock_charset, tvb, offset, 2,
1317                         FALSE);
1318     offset += 2;
1319
1320     /* Character subset */
1321     proto_tree_add_item(entry, hf_aim_messageblock_charsubset, tvb, offset, 2,
1322                         FALSE);
1323     offset += 2;
1324
1325     /* The actual message */
1326     buf = tvb_get_ephemeral_string(tvb, offset, blocklen - 4 );
1327     proto_item_set_text(ti, "Message: %s",
1328                         format_text(buf, blocklen - 4));
1329     proto_tree_add_item(entry, hf_aim_messageblock_message, tvb, offset,
1330                         blocklen-4,
1331                         FALSE);
1332     offset += tvb_length_remaining(tvb, offset);
1333   }
1334
1335   return offset;
1336 }
1337
1338 /* Dissect a TLV value */
1339 int dissect_aim_tlv(tvbuff_t *tvb, packet_info *pinfo _U_,
1340                            int offset, proto_tree *tree, const aim_tlv *tlv)
1341 {
1342   guint16 valueid;
1343   guint16 length;
1344   int i = 0;
1345   const aim_tlv *tmp;
1346   const char *desc;
1347   proto_item *ti1;
1348   proto_tree *tlv_tree;
1349   int orig_offset;
1350
1351   /* Record the starting offset so we can reuse it at the second pass */
1352   orig_offset = offset;
1353
1354   /* Get the value ID */
1355   valueid = tvb_get_ntohs(tvb, offset);
1356   offset += 2;
1357
1358   /* Figure out which entry applies from the tlv list */
1359   tmp = tlv;
1360   while (tmp[i].valueid) {
1361     if (tmp[i].valueid == valueid) {
1362       /* We found a match */
1363       break;
1364     }
1365     i++;
1366   }
1367
1368   /* At this point, we are either pointing at the correct record, or
1369      we didn't find the record, and are pointing at the last item in the
1370      list */
1371
1372   length = tvb_get_ntohs(tvb, offset);
1373   offset += 2;
1374   offset += length;
1375
1376   if (tree) {
1377     offset = orig_offset;
1378
1379     if (tmp[i].desc != NULL)
1380       desc = tmp[i].desc;
1381     else
1382       desc = "Unknown";
1383
1384     ti1 = proto_tree_add_text(tree, tvb, offset, length + 4, "TLV: %s", desc);
1385
1386     tlv_tree = proto_item_add_subtree(ti1, ett_aim_tlv);
1387
1388     proto_tree_add_text(tlv_tree, tvb, offset, 2,
1389                         "Value ID: %s (0x%04x)", desc, valueid);
1390     offset += 2;
1391
1392     proto_tree_add_text(tlv_tree, tvb, offset, 2,
1393                         "Length: %d", length);
1394     offset += 2;
1395
1396     ti1 = proto_tree_add_text(tlv_tree, tvb, offset, length,
1397                               "Value");
1398
1399     if (tmp[i].dissector) {
1400       tmp[i].dissector(ti1, valueid, tvb_new_subset(tvb, offset, length, length), pinfo);
1401     }
1402
1403     offset += length;
1404   }
1405
1406   /* Return the new length */
1407   return offset;
1408 }
1409
1410 int dissect_aim_tlv_sequence(tvbuff_t *tvb, packet_info *pinfo,
1411                                                          int offset, proto_tree *tree, const aim_tlv *tlv_table)
1412 {
1413         while (tvb_length_remaining(tvb, offset) > 0) {
1414                 offset = dissect_aim_tlv(tvb, pinfo, offset, tree, tlv_table);
1415         }
1416         return offset;
1417 }
1418
1419 int dissect_aim_tlv_list(tvbuff_t *tvb, packet_info *pinfo,
1420                            int offset, proto_tree *tree, const aim_tlv *tlv_table)
1421 {
1422     guint16 i, tlv_count = tvb_get_ntohs(tvb, offset);
1423
1424     proto_tree_add_item(tree, hf_aim_tlvcount, tvb, offset, 2, FALSE);
1425     offset += 2;
1426
1427     for(i = 0; i < tlv_count; i++) {
1428       offset = dissect_aim_tlv(tvb, pinfo, offset, tree, tlv_table);
1429     }
1430     return offset;
1431 }
1432
1433 /* Register the protocol with Wireshark */
1434 void
1435 proto_register_aim(void)
1436 {
1437
1438 /* Setup list of header fields */
1439   static hf_register_info hf[] = {
1440     { &hf_aim_cmd_start,
1441       { "Command Start", "aim.cmd_start", FT_UINT8, BASE_HEX, NULL, 0x0, NULL, HFILL }
1442     },
1443     { &hf_aim_channel,
1444       { "Channel ID", "aim.channel", FT_UINT8, BASE_HEX, VALS(aim_flap_channels), 0x0, NULL, HFILL }
1445     },
1446     { &hf_aim_seqno,
1447       { "Sequence Number", "aim.seqno", FT_UINT16, BASE_DEC, NULL, 0x0, NULL, HFILL }
1448     },
1449         { &hf_aim_version,
1450           { "Protocol Version", "aim.version", FT_BYTES, BASE_NONE, NULL, 0x0, NULL, HFILL },
1451         },
1452     { &hf_aim_data_len,
1453       { "Data Field Length", "aim.datalen", FT_UINT16, BASE_DEC, NULL, 0x0, NULL, HFILL }
1454     },
1455     { &hf_aim_data,
1456       { "Data", "aim.data", FT_BYTES, BASE_NONE, NULL, 0x0, NULL, HFILL }
1457     },
1458     { &hf_aim_signon_challenge_len,
1459       { "Signon challenge length", "aim.signon.challengelen", FT_UINT16, BASE_DEC, NULL, 0x0, NULL, HFILL }
1460     },
1461     { &hf_aim_signon_challenge,
1462       { "Signon challenge", "aim.signon.challenge", FT_STRING, BASE_NONE, NULL, 0x0, NULL, HFILL }
1463     },
1464     { &hf_aim_fnac_family,
1465       { "FNAC Family ID", "aim.fnac.family", FT_UINT16, BASE_HEX, NULL, 0x0, NULL, HFILL }
1466     },
1467     { &hf_aim_fnac_subtype,
1468       { "FNAC Subtype ID", "aim.fnac.subtype", FT_UINT16, BASE_HEX, NULL, 0x0, NULL, HFILL }
1469     },
1470     { &hf_aim_fnac_flags,
1471       { "FNAC Flags", "aim.fnac.flags", FT_UINT16, BASE_HEX, NULL, 0x0, NULL, HFILL }
1472     },
1473     { &hf_aim_fnac_id,
1474       { "FNAC ID", "aim.fnac.id", FT_UINT32, BASE_HEX, NULL, 0x0, NULL, HFILL }
1475     },
1476     { &hf_aim_infotype,
1477       { "Infotype", "aim.infotype", FT_UINT16, BASE_HEX, NULL, 0x0, NULL, HFILL }
1478     },
1479     { &hf_aim_buddyname_len,
1480       { "Buddyname len", "aim.buddynamelen", FT_UINT8, BASE_DEC, NULL, 0x0, NULL, HFILL }
1481     },
1482     { &hf_aim_buddyname,
1483       { "Buddy Name", "aim.buddyname", FT_STRING, BASE_NONE, NULL, 0x0, NULL, HFILL }
1484     },
1485     { &hf_aim_tlvcount,
1486       { "TLV Count", "aim.tlvcount", FT_UINT16, BASE_DEC, NULL, 0x0, NULL, HFILL },
1487     },
1488         { &hf_aim_snac_error,
1489           { "SNAC Error", "aim.snac.error", FT_UINT16, BASE_HEX, VALS(aim_snac_errors), 0x0, NULL, HFILL },
1490         },
1491         { &hf_aim_userclass_unconfirmed,
1492                 { "AOL Unconfirmed account flag", "aim.userclass.unconfirmed", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_UNCONFIRMED, NULL, HFILL },
1493         },
1494         { &hf_aim_userclass_administrator,
1495                 { "AOL Administrator flag", "aim.userclass.administrator", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_ADMINISTRATOR, NULL, HFILL },
1496         },
1497         { &hf_aim_userclass_aol,
1498                 { "AOL Staff User Flag", "aim.userclass.staff", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_AOL, NULL, HFILL },
1499         },
1500         { &hf_aim_userclass_commercial,
1501                 { "AOL commercial account flag", "aim.userclass.commercial", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_COMMERCIAL, NULL, HFILL },
1502         },
1503         { &hf_aim_userclass_aim,
1504                 { "AIM user flag", "aim.userclass.free", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_AIM, NULL, HFILL },
1505         },
1506         { &hf_aim_userclass_away,
1507                 { "AOL away status flag", "aim.userclass.away", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_AWAY, NULL, HFILL },
1508         },
1509         { &hf_aim_userclass_icq,
1510                 { "ICQ user sign", "aim.userclass.icq", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_ICQ, NULL, HFILL },
1511         },
1512         { &hf_aim_userclass_wireless,
1513                 { "AOL wireless user", "aim.userclass.wireless", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_WIRELESS, NULL, HFILL },
1514         },
1515         { &hf_aim_userclass_unknown100,
1516                 { "Unknown bit", "aim.userclass.unknown100", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_UNKNOWN100, NULL, HFILL },
1517         },
1518         { &hf_aim_userclass_imf,
1519                 { "Using IM Forwarding", "aim.userclass.imf", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_IMF, NULL, HFILL },
1520         },
1521         { &hf_aim_userclass_bot,
1522                 { "Bot User", "aim.userclass.bot", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_BOT, NULL, HFILL },
1523         },
1524         { &hf_aim_userclass_unknown800,
1525                 { "Unknown bit", "aim.userclass.unknown800", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_UNKNOWN800, NULL, HFILL },
1526         },
1527         { &hf_aim_userclass_one_way_wireless,
1528                 { "One Way Wireless Device", "aim.userclass.one_way_wireless", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_ONE_WAY_WIRELESS, NULL, HFILL },
1529         },
1530         { &hf_aim_userclass_unknown2000,
1531                 { "Unknown bit", "aim.userclass.unknown2000", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_UNKNOWN2000, NULL, HFILL },
1532         },
1533         { &hf_aim_userclass_unknown4000,
1534                 { "Unknown bit", "aim.userclass.unknown4000", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_UNKNOWN4000, NULL, HFILL },
1535         },
1536         { &hf_aim_userclass_unknown8000,
1537                 { "Unknown bit", "aim.userclass.unknown8000", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_UNKNOWN8000, NULL, HFILL },
1538         },
1539         { &hf_aim_userclass_unknown10000,
1540                 { "Unknown bit", "aim.userclass.unknown10000", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_UNKNOWN10000, NULL, HFILL },
1541         },
1542         { &hf_aim_userclass_unknown20000,
1543                 { "Unknown bit", "aim.userclass.unknown20000", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_UNKNOWN20000, NULL, HFILL },
1544         },
1545         { &hf_aim_userclass_no_knock_knock,
1546                 { "Do not display the 'not on Buddy List' knock-knock", "aim.userclass.no_knock_knock", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_NO_KNOCK_KNOCK, NULL, HFILL },
1547         },
1548         { &hf_aim_userclass_forward_mobile,
1549                 { "Forward to mobile if not active", "aim.userclass.forward_mobile", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_FORWARD_MOBILE, NULL, HFILL },
1550         },
1551         { &hf_aim_fnac_flag_next_is_related,
1552                 { "Followed By SNAC with related information", "aim.fnac.flags.next_is_related", FT_BOOLEAN, 16, TFS(&tfs_set_notset), FNAC_FLAG_NEXT_IS_RELATED, NULL, HFILL },
1553         },
1554         { &hf_aim_fnac_flag_contains_version,
1555                 { "Contains Version of Family this SNAC is in", "aim.fnac.flags.contains_version", FT_BOOLEAN, 16, TFS(&tfs_set_notset), FNAC_FLAG_CONTAINS_VERSION, NULL, HFILL },
1556         },
1557         { &hf_aim_userinfo_warninglevel,
1558                 { "Warning Level", "aim.userinfo.warninglevel", FT_UINT16, BASE_DEC, NULL, 0x0, NULL, HFILL },
1559         },
1560     { &hf_aim_messageblock_featuresdes,
1561                 { "Features", "aim.messageblock.featuresdes", FT_UINT16, BASE_HEX, NULL, 0x0, NULL, HFILL },
1562         },
1563     { &hf_aim_messageblock_featureslen,
1564                 { "Features Length", "aim.messageblock.featureslen", FT_UINT16, BASE_DEC, NULL, 0x0, NULL, HFILL },
1565         },
1566     { &hf_aim_messageblock_features,
1567                 { "Features", "aim.messageblock.features", FT_BYTES, BASE_NONE, NULL, 0x0, NULL, HFILL },
1568         },
1569     { &hf_aim_messageblock_info,
1570                 { "Block info", "aim.messageblock.info", FT_UINT16, BASE_HEX, NULL, 0x0, NULL, HFILL },
1571         },
1572     { &hf_aim_messageblock_len,
1573                 { "Block length", "aim.messageblock.length", FT_UINT16, BASE_DEC, NULL, 0x0, NULL, HFILL },
1574         },
1575     { &hf_aim_messageblock_charset,
1576                 { "Block Character set", "aim.messageblock.charset", FT_UINT16, BASE_HEX, NULL, 0x0, NULL, HFILL },
1577         },
1578     { &hf_aim_messageblock_charsubset,
1579                 { "Block Character subset", "aim.messageblock.charsubset", FT_UINT16, BASE_HEX, NULL, 0x0, NULL, HFILL },
1580         },
1581     { &hf_aim_messageblock_message,
1582                 { "Message", "aim.messageblock.message", FT_STRING, BASE_NONE, NULL, 0x0, NULL, HFILL },
1583         },
1584         { &hf_aim_dcinfo_ip,
1585                 { "Internal IP address", "aim.dcinfo.addr", FT_IPv4, BASE_NONE, NULL, 0x0, NULL, HFILL },
1586         },
1587         { &hf_aim_dcinfo_tcpport,
1588                 { "TCP Port", "aim.dcinfo.tcpport", FT_UINT32, BASE_DEC, NULL, 0x0, NULL, HFILL },
1589         },
1590         { &hf_aim_dcinfo_type,
1591                 { "Type", "aim.dcinfo.type", FT_UINT8, BASE_HEX, VALS(dc_types), 0x0, NULL, HFILL },
1592         },
1593         { &hf_aim_dcinfo_proto_version,
1594                 { "Protocol Version", "aim.dcinfo.proto_version", FT_UINT16, BASE_DEC, VALS(protocol_versions), 0x0, NULL, HFILL },
1595         },
1596         { &hf_aim_dcinfo_auth_cookie,
1597                 { "Authorization Cookie", "aim.dcinfo.auth_cookie", FT_BYTES, BASE_NONE, NULL, 0x0, NULL, HFILL },
1598         },
1599         { &hf_aim_dcinfo_webport,
1600                 { "Web Front Port", "aim.dcinfo.webport", FT_UINT32, BASE_DEC, NULL, 0x0, NULL, HFILL },
1601         },
1602         { &hf_aim_dcinfo_client_future,
1603                 { "Client Futures", "aim.dcinfo.client_futures", FT_UINT32, BASE_HEX, NULL, 0x0, NULL, HFILL },
1604         },
1605         { &hf_aim_dcinfo_last_info_update,
1606                 { "Last Info Update", "aim.dcinfo.last_info_update", FT_UINT32, BASE_DEC, NULL, 0x0, NULL, HFILL },
1607         },
1608         { &hf_aim_dcinfo_last_ext_info_update,
1609                 { "Last Extended Info Update", "aim.dcinfo.last_ext_info_update", FT_UINT32, BASE_DEC, NULL, 0x0, NULL, HFILL },
1610         },
1611         { &hf_aim_dcinfo_last_ext_status_update,
1612                 { "Last Extended Status Update", "aim.dcinfo.last_ext_status_update", FT_UINT32, BASE_DEC, NULL, 0x0, NULL, HFILL },
1613         },
1614         { &hf_aim_dcinfo_unknown,
1615                 { "Unknown", "aim.dcinfo.unknown", FT_UINT16, BASE_DEC, NULL, 0x0, NULL, HFILL },
1616         },
1617         { &hf_aim_ssi_result_code,
1618           { "Last SSI operation result code", "aim.ssi.code", FT_UINT16, BASE_HEX, VALS(aim_ssi_result_codes), 0x0, NULL, HFILL },
1619         }
1620   };
1621
1622   /* Setup protocol subtree array */
1623   static gint *ett[] = {
1624           &ett_aim,
1625           &ett_aim_dcinfo,
1626           &ett_aim_fnac,
1627           &ett_aim_fnac_flags,
1628           &ett_aim_tlv,
1629           &ett_aim_buddyname,
1630           &ett_aim_userclass,
1631           &ett_aim_messageblock,
1632           &ett_aim_client_capabilities,
1633           &ett_aim_string08_array
1634   };
1635   module_t *aim_module;
1636
1637   /* Register the protocol name and description */
1638   proto_aim = proto_register_protocol("AOL Instant Messenger", "AIM", "aim");
1639
1640 /* Required function calls to register the header fields and subtrees used */
1641   proto_register_field_array(proto_aim, hf, array_length(hf));
1642   proto_register_subtree_array(ett, array_length(ett));
1643
1644   aim_module = prefs_register_protocol(proto_aim, NULL);
1645   prefs_register_bool_preference(aim_module, "desegment",
1646     "Reassemble AIM messages spanning multiple TCP segments",
1647     "Whether the AIM dissector should reassemble messages spanning multiple TCP segments."
1648     " To use this option, you must also enable \"Allow subdissectors to reassemble TCP streams\" in the TCP protocol settings.",
1649     &aim_desegment);
1650
1651   subdissector_table = register_dissector_table("aim.family", "Family ID", FT_UINT16, BASE_HEX);
1652 }
1653
1654 void
1655 proto_reg_handoff_aim(void)
1656 {
1657   dissector_handle_t aim_handle;
1658
1659   aim_handle = new_create_dissector_handle(dissect_aim, proto_aim);
1660   dissector_add("tcp.port", TCP_PORT_AIM, aim_handle);
1661 }