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 static int dissect_aim_tlv_value_client_short_capabilities(proto_item *ti, guint16, tvbuff_t *, packet_info *);
 235
 236 #define AIM_ONLINEBUDDY_USERCLASS      0x0001
 237 #define AIM_ONLINEBUDDY_ONSINCE        0x0003
 238 #define AIM_ONLINEBUDDY_IDLETIME       0x0004
 239 #define AIM_ONLINEBUDDY_MEMBERSINCE    0x0005
 240 #define AIM_ONLINEBUDDY_STATUS         0x0006
 241 #define AIM_ONLINEBUDDY_IPADDR         0x000a
 242 #define AIM_ONLINEBUDDY_DCINFO         0x000c
 243 #define AIM_ONLINEBUDDY_CAPINFO        0x000d
 244 #define AIM_ONLINEBUDDY_SESSIONLEN     0x000f
 245 #define AIM_ONLINEBUDDY_ICQSESSIONLEN  0x0010
 246 #define AIM_ONLINEBUDDY_TIMEUPDATE     0x0011
 247 #define AIM_ONLINEBUDDY_MYINSTANCENUM  0x0014
 248 #define AIM_ONLINEBUDDY_SHORTCAPS      0x0019
 249 #define AIM_ONLINEBUDDY_BARTINFO       0x001d
 250 #define AIM_ONLINEBUDDY_NICKFLAGS2     0x001f
 251 #define AIM_ONLINEBUDDY_BUDDYFEEDTIME  0x0023
 252 #define AIM_ONLINEBUDDY_SIGTIME        0x0026
 253 #define AIM_ONLINEBUDDY_AWAYTIME       0x0027
 254 #define AIM_ONLINEBUDDY_GEOCOUNTRY     0x002a
 255
 256 const aim_tlv onlinebuddy_tlvs[] = {
 257   { AIM_ONLINEBUDDY_USERCLASS, "User class", dissect_aim_tlv_value_userclass },
 258   { AIM_ONLINEBUDDY_ONSINCE, "Online since", dissect_aim_tlv_value_uint32 },
 259   { AIM_ONLINEBUDDY_IDLETIME, "Idle time (sec)", dissect_aim_tlv_value_uint16 },
 260   { AIM_ONLINEBUDDY_MEMBERSINCE, "Member since", dissect_aim_tlv_value_time },
 261   { AIM_ONLINEBUDDY_STATUS, "Online status", dissect_aim_tlv_value_userstatus },
 262   { AIM_ONLINEBUDDY_IPADDR, "User IP Address", dissect_aim_tlv_value_ipv4 },
 263   { AIM_ONLINEBUDDY_DCINFO, "DC Info", dissect_aim_tlv_value_dcinfo},
 264   { AIM_ONLINEBUDDY_CAPINFO, "Capability Info", dissect_aim_tlv_value_client_capabilities },
 265   { AIM_ONLINEBUDDY_TIMEUPDATE, "Time update", dissect_aim_tlv_value_bytes },
 266   { AIM_ONLINEBUDDY_SESSIONLEN, "Session Length (sec)", dissect_aim_tlv_value_uint32 },
 267   { AIM_ONLINEBUDDY_ICQSESSIONLEN, "ICQ Session Length (sec)", dissect_aim_tlv_value_uint32 },
 268   { AIM_ONLINEBUDDY_MYINSTANCENUM, "Client instance number", dissect_aim_tlv_value_uint8 },
 269   { AIM_ONLINEBUDDY_SHORTCAPS, "Short Capabilities", dissect_aim_tlv_value_client_short_capabilities },
 270   { AIM_ONLINEBUDDY_BARTINFO, "BART Info", dissect_aim_tlv_value_bytes },
 271   { AIM_ONLINEBUDDY_NICKFLAGS2, "Upper bytes of Nick Flags", dissect_aim_tlv_value_bytes },
 272   { AIM_ONLINEBUDDY_BUDDYFEEDTIME, "Last Buddy Feed update", dissect_aim_tlv_value_time },
 273   { AIM_ONLINEBUDDY_SIGTIME, "Profile set time", dissect_aim_tlv_value_time },
 274   { AIM_ONLINEBUDDY_AWAYTIME, "Away set time", dissect_aim_tlv_value_time },
 275   { AIM_ONLINEBUDDY_GEOCOUNTRY, "Country code", dissect_aim_tlv_value_string },
 276   { 0, NULL, NULL }
 277 };
 278
 279 #define DC_DISABLED             0x0000
 280 #define DC_HTTPS                0x0001
 281 #define DC_SOCKS                0x0002
 282 #define DC_NORMAL               0x0003
 283 #define DC_IMPOSSIBLE   0x0004
 284
 285 static const value_string dc_types[] = {
 286         { DC_DISABLED, "DC disabled" },
 287         { DC_HTTPS, "DC thru firewall or HTTPS proxy" },
 288         { DC_SOCKS, "DC thru SOCKS proxy" },
 289         { DC_NORMAL, "Regular connection" },
 290         { DC_IMPOSSIBLE, "DC not possible " },
 291         { 0, NULL },
 292 };
 293
 294 #define PROTO_VERSION_ICQ98             0x0004
 295 #define PROTO_VERSION_ICQ99             0x0006
 296 #define PROTO_VERSION_ICQ2K             0x0007
 297 #define PROTO_VERSION_ICQ2K1    0x0008
 298 #define PROTO_VERSION_ICQLITE   0x0009
 299 #define PROTO_VERSION_ICQ2K3B   0x000A
 300
 301 static const value_string protocol_versions[] = {
 302         { PROTO_VERSION_ICQ98, "ICQ '98" },
 303         { PROTO_VERSION_ICQ99, "ICQ '99" },
 304         { PROTO_VERSION_ICQ2K, "ICQ 2000" },
 305         { PROTO_VERSION_ICQ2K1, "ICQ 2001" },
 306         { PROTO_VERSION_ICQLITE, "ICQ Lite" },
 307         { PROTO_VERSION_ICQ2K3B, "ICQ 2003B" },
 308         { 0, NULL },
 309 };
 310
 311 static GList *families = NULL;
 312
 313 #define AIM_MOTD_TLV_MOTD                                          0x000B
 314
 315 const aim_tlv motd_tlvs[] = {
 316   { AIM_MOTD_TLV_MOTD, "Message of the day message", dissect_aim_tlv_value_string },
 317   { 0, NULL, NULL }
 318 };
 319
 320 #define CLASS_UNCONFIRMED            0x00000001
 321 #define CLASS_ADMINISTRATOR          0x00000002
 322 #define CLASS_AOL                    0x00000004
 323 #define CLASS_COMMERCIAL             0x00000008
 324 #define CLASS_AIM                    0x00000010
 325 #define CLASS_AWAY                   0x00000020
 326 #define CLASS_ICQ                    0x00000040
 327 #define CLASS_WIRELESS               0x00000080
 328 #define CLASS_UNKNOWN100             0x00000100
 329 #define CLASS_IMF                    0x00000200
 330 #define CLASS_BOT                    0x00000400
 331 #define CLASS_UNKNOWN800             0x00000800
 332 #define CLASS_ONE_WAY_WIRELESS       0x00001000
 333 #define CLASS_UNKNOWN2000            0x00002000
 334 #define CLASS_UNKNOWN4000            0x00004000
 335 #define CLASS_UNKNOWN8000            0x00008000
 336 #define CLASS_UNKNOWN10000           0x00010000
 337 #define CLASS_UNKNOWN20000           0x00020000
 338 #define CLASS_NO_KNOCK_KNOCK         0x00040000
 339 #define CLASS_FORWARD_MOBILE         0x00080000
 340
 341 #define FNAC_FLAG_NEXT_IS_RELATED        0x0001
 342 #define FNAC_FLAG_CONTAINS_VERSION       0x8000
 343
 344 #define FNAC_TLV_FAMILY_VERSION  0x0001
 345
 346 static const aim_tlv fnac_tlvs[] = {
 347   { FNAC_TLV_FAMILY_VERSION, "SNAC Family Version", dissect_aim_tlv_value_uint16 },
 348   { 0, NULL, NULL }
 349 };
 350
 351 #define SSI_OP_RESULT_SUCCESS            0
 352 #define SSI_OP_RESULT_DB_ERROR           1
 353 #define SSI_OP_RESULT_NOT_FOUND          2
 354 #define SSI_OP_RESULT_ALREADY_EXISTS     3
 355 #define SSI_OP_RESULT_UNAVAILABLE        5
 356 #define SSI_OP_RESULT_BAD_REQUEST        10
 357 #define SSI_OP_RESULT_DB_TIME_OUT        11
 358 #define SSI_OP_RESULT_OVER_ROW_LIMIT     12
 359 #define SSI_OP_RESULT_NOT_EXECUTED       13
 360 #define SSI_OP_RESULT_AUTH_REQUIRED      14
 361 #define SSI_OP_RESULT_BAD_LOGINID        16
 362 #define SSI_OP_RESULT_OVER_BUDDY_LIMIT   17
 363 #define SSI_OP_RESULT_INSERT_SMART_GROUP 20
 364 #define SSI_OP_RESULT_TIMEOUT            26
 365
 366 static const value_string aim_ssi_result_codes[] = {
 367   { SSI_OP_RESULT_SUCCESS, "Success" },
 368   { SSI_OP_RESULT_DB_ERROR, "Some kind of database error" },
 369   { SSI_OP_RESULT_NOT_FOUND, "Item was not found for an update or delete" },
 370   { SSI_OP_RESULT_ALREADY_EXISTS, "Item already exists for an insert" },
 371   { SSI_OP_RESULT_UNAVAILABLE, "Server or database is not available" },
 372   { SSI_OP_RESULT_BAD_REQUEST, "Request was not formed well" },
 373   { SSI_OP_RESULT_DB_TIME_OUT, "Database timed out" },
 374   { SSI_OP_RESULT_OVER_ROW_LIMIT, "Too many items of this class for an insert" },
 375   { SSI_OP_RESULT_NOT_EXECUTED, "Not executed due to other error in same request" },
 376   { SSI_OP_RESULT_AUTH_REQUIRED, "Buddy List authorization required" },
 377   { SSI_OP_RESULT_BAD_LOGINID, "Bad loginId" },
 378   { SSI_OP_RESULT_OVER_BUDDY_LIMIT, "Too many buddies" },
 379   { SSI_OP_RESULT_INSERT_SMART_GROUP, "Attempt to added a Buddy to a smart group" },
 380   { SSI_OP_RESULT_TIMEOUT, "General timeout" },
 381   { 0, NULL }
 382 };
 383
 384 static dissector_table_t subdissector_table;
 385
 386 /* Initialize the protocol and registered fields */
 387 static int proto_aim = -1;
 388 static int hf_aim_cmd_start = -1;
 389 static int hf_aim_channel = -1;
 390 static int hf_aim_seqno = -1;
 391 static int hf_aim_data = -1;
 392 static int hf_aim_data_len = -1;
 393 static int hf_aim_signon_challenge_len = -1;
 394 static int hf_aim_signon_challenge = -1;
 395 static int hf_aim_fnac_family = -1;
 396 static int hf_aim_fnac_subtype = -1;
 397 static int hf_aim_fnac_flags = -1;
 398 static int hf_aim_fnac_flag_next_is_related = -1;
 399 static int hf_aim_fnac_flag_contains_version = -1;
 400 static int hf_aim_fnac_id = -1;
 401 static int hf_aim_infotype = -1;
 402 static int hf_aim_buddyname_len = -1;
 403 static int hf_aim_buddyname = -1;
 404 static int hf_aim_userinfo_warninglevel = -1;
 405 static int hf_aim_snac_error = -1;
 406 static int hf_aim_ssi_result_code = -1;
 407 static int hf_aim_tlvcount = -1;
 408 static int hf_aim_version = -1;
 409 static int hf_aim_userclass_unconfirmed = -1;
 410 static int hf_aim_userclass_administrator = -1;
 411 static int hf_aim_userclass_aol = -1;
 412 static int hf_aim_userclass_commercial = -1;
 413 static int hf_aim_userclass_aim = -1;
 414 static int hf_aim_userclass_away = -1;
 415 static int hf_aim_userclass_icq = -1;
 416 static int hf_aim_userclass_wireless = -1;
 417 static int hf_aim_userclass_unknown100 = -1;
 418 static int hf_aim_userclass_imf = -1;
 419 static int hf_aim_userclass_bot = -1;
 420 static int hf_aim_userclass_unknown800 = -1;
 421 static int hf_aim_userclass_one_way_wireless = -1;
 422 static int hf_aim_userclass_unknown2000 = -1;
 423 static int hf_aim_userclass_unknown4000 = -1;
 424 static int hf_aim_userclass_unknown8000 = -1;
 425 static int hf_aim_userclass_unknown10000 = -1;
 426 static int hf_aim_userclass_unknown20000 = -1;
 427 static int hf_aim_userclass_no_knock_knock = -1;
 428 static int hf_aim_userclass_forward_mobile = -1;
 429 static int hf_aim_nickinfo_caps = -1;
 430 static int hf_aim_nickinfo_short_caps = -1;
 431 static int hf_aim_messageblock_featuresdes = -1;
 432 static int hf_aim_messageblock_featureslen = -1;
 433 static int hf_aim_messageblock_features = -1;
 434 static int hf_aim_messageblock_info = -1;
 435 static int hf_aim_messageblock_len = -1;
 436 static int hf_aim_messageblock_charset = -1;
 437 static int hf_aim_messageblock_charsubset = -1;
 438 static int hf_aim_messageblock_message = -1;
 439
 440 static int hf_aim_dcinfo_ip = -1;
 441 static int hf_aim_dcinfo_tcpport = -1;
 442 static int hf_aim_dcinfo_type = -1;
 443 static int hf_aim_dcinfo_proto_version = -1;
 444 static int hf_aim_dcinfo_auth_cookie = -1;
 445 static int hf_aim_dcinfo_webport = -1;
 446 static int hf_aim_dcinfo_client_future = -1;
 447 static int hf_aim_dcinfo_last_info_update = -1;
 448 static int hf_aim_dcinfo_last_ext_info_update = -1;
 449 static int hf_aim_dcinfo_last_ext_status_update = -1;
 450 static int hf_aim_dcinfo_unknown = -1;
 451
 452 /* Initialize the subtree pointers */
 453 static gint ett_aim          = -1;
 454 static gint ett_aim_dcinfo       = -1;
 455 static gint ett_aim_buddyname= -1;
 456 static gint ett_aim_fnac     = -1;
 457 static gint ett_aim_fnac_flags = -1;
 458 static gint ett_aim_tlv      = -1;
 459 static gint ett_aim_userclass = -1;
 460 static gint ett_aim_messageblock = -1;
 461 static gint ett_aim_nickinfo_caps = -1;
 462 static gint ett_aim_nickinfo_short_caps = -1;
 463 static gint ett_aim_string08_array = -1;
 464
 465 /* desegmentation of AIM over TCP */
 466 static gboolean aim_desegment = TRUE;
 467
 468
 469 const aim_subtype
 470 *aim_get_subtype( guint16 famnum, guint16 subtype )
 471 {
 472         GList *gl = families;
 473         while(gl) {
 474                 aim_family *fam = gl->data;
 475                 if(fam->family == famnum) {
 476                         int i;
 477                         for(i = 0; fam->subtypes[i].name; i++) {
 478                                 if(fam->subtypes[i].id == subtype) return &(fam->subtypes[i]);
 479                         }
 480                 }
 481                 gl = gl->next;
 482         }
 483
 484         return NULL;
 485
 486 }
 487
 488 const aim_family
 489 *aim_get_family( guint16 famnum )
 490 {
 491         GList *gl = families;
 492         while(gl) {
 493                 aim_family *fam = gl->data;
 494                 if(fam->family == famnum) return fam;
 495                 gl = gl->next;
 496         }
 497
 498         return NULL;
 499 }
 500
 501 int
 502 aim_get_buddyname( guchar *name, tvbuff_t *tvb, int len_offset, int name_offset)
 503 {
 504         guint8 buddyname_length;
 505
 506         buddyname_length = tvb_get_guint8(tvb, len_offset);
 507
 508         if(buddyname_length > MAX_BUDDYNAME_LENGTH )
 509                 buddyname_length = MAX_BUDDYNAME_LENGTH;
 510
 511         tvb_get_nstringz0(tvb, name_offset, buddyname_length + 1, name);
 512
 513         return buddyname_length;
 514 }
 515
 516
 517 void
 518 aim_get_message( guchar *msg, tvbuff_t *tvb, int msg_offset, int msg_length)
 519 {
 520   int i,j,c;
 521   int bracket = FALSE;
 522   int max, tagchars = 0;
 523   int new_offset = msg_offset;
 524   int new_length = msg_length;
 525
 526
 527   /* make sure nothing bigger than 1000 bytes is printed */
 528   if( msg_length > 999 ) return;
 529
 530   memset( msg, '\0', 1000);
 531   i = 0;
 532   c = 0;
 533
 534   /* loop until HTML tag is reached - quick&dirty way to find start of message
 535    * (it is nearly impossible to find the correct start offset for all client versions) */
 536   while( (tagchars < 6) && (new_length > 5) )
 537   {
 538      j = tvb_get_guint8(tvb, new_offset);
 539      if( ( (j == '<') && (tagchars == 0) ) ||
 540          ( (j == 'h') && (tagchars == 1) ) ||
 541          ( (j == 'H') && (tagchars == 1) ) ||
 542          ( (j == 't') && (tagchars == 2) ) ||
 543          ( (j == 'T') && (tagchars == 2) ) ||
 544          ( (j == 'm') && (tagchars == 3) ) ||
 545          ( (j == 'M') && (tagchars == 3) ) ||
 546          ( (j == 'l') && (tagchars == 4) ) ||
 547          ( (j == 'L') && (tagchars == 4) ) ||
 548          ( (j == '>') && (tagchars == 5) ) ) tagchars++;
 549      new_offset++;
 550      new_length--;
 551   }
 552
 553   /* set offset and length of message to after the first HTML tag */
 554   msg_offset = new_offset;
 555   msg_length = new_length;
 556   max = msg_length - 1;
 557   tagchars = 0;
 558
 559   /* find the rest of the message until either a </html> is reached or the end of the frame.
 560    * All other HTML tags are stripped to display only the raw message (printable characters) */
 561   while( (c < max) && (tagchars < 7) )
 562   {
 563      j = tvb_get_guint8(tvb, msg_offset+c);
 564
 565
 566      /* make sure this is an HTML tag by checking the order of the chars */
 567      if( ( (j == '<') && (tagchars == 0) ) ||
 568          ( (j == '/') && (tagchars == 1) ) ||
 569          ( (j == 'h') && (tagchars == 2) ) ||
 570          ( (j == 'H') && (tagchars == 2) ) ||
 571          ( (j == 't') && (tagchars == 3) ) ||
 572          ( (j == 'T') && (tagchars == 3) ) ||
 573          ( (j == 'm') && (tagchars == 4) ) ||
 574          ( (j == 'M') && (tagchars == 4) ) ||
 575          ( (j == 'l') && (tagchars == 5) ) ||
 576          ( (j == 'L') && (tagchars == 5) ) ||
 577          ( (j == '>') && (tagchars == 6) ) ) tagchars++;
 578
 579 #ifdef STRIP_TAGS
 580      if( j == '<' ) bracket = TRUE;
 581      if( j == '>' ) bracket = FALSE;
 582      if( (isprint(j) ) && (bracket == FALSE) && (j != '>'))
 583 #else
 584      if( isprint(j) )
 585 #endif
 586      {
 587        msg[i] = j;
 588        i++;
 589      }
 590      c++;
 591   }
 592 }
 593
 594 void
 595 aim_init_family(int proto, int ett, guint16 family, const aim_subtype *subtypes)
 596 {
 597         aim_family *fam = g_new(aim_family, 1);
 598         fam->proto = find_protocol_by_id(proto);
 599         fam->name = proto_get_protocol_short_name(fam->proto);
 600         fam->family = family;
 601         fam->subtypes = subtypes;
 602         families = g_list_append(families, fam);
 603
 604         fam->proto_id = proto;
 605         fam->ett = ett;
 606 }
 607
 608 static void
 609 dissect_aim_newconn(tvbuff_t *tvb, packet_info *pinfo, int offset,
 610                     proto_tree *tree)
 611 {
 612         col_set_str(pinfo->cinfo, COL_INFO, "New Connection");
 613
 614         if (tvb_length_remaining(tvb, offset) > 0) {
 615                 proto_tree_add_item(tree, hf_aim_version, tvb, offset, 4, FALSE);
 616                 offset+=4;
 617                 offset = dissect_aim_tlv_sequence(tvb, pinfo, offset, tree, client_tlvs);
 618         }
 619
 620         if (tvb_length_remaining(tvb, offset) > 0)
 621                 proto_tree_add_item(tree, hf_aim_data, tvb, offset, -1, FALSE);
 622 }
 623
 624
 625 int
 626 dissect_aim_snac_error(tvbuff_t *tvb, packet_info *pinfo, proto_tree *aim_tree)
 627 {
 628         const char *name;
 629
 630         if ((name = match_strval(tvb_get_ntohs(tvb, 0), aim_snac_errors)) != NULL) {
 631                 col_add_str(pinfo->cinfo, COL_INFO, name);
 632         }
 633
 634         proto_tree_add_item (aim_tree, hf_aim_snac_error, tvb, 0, 2, FALSE);
 635
 636         return dissect_aim_tlv_sequence(tvb, pinfo, 2, aim_tree, client_tlvs);
 637 }
 638
 639 int
 640 dissect_aim_ssi_result(tvbuff_t *tvb, packet_info *pinfo, proto_tree *aim_tree)
 641 {
 642         const char *name;
 643
 644         if ((name = match_strval(tvb_get_ntohs(tvb, 0), aim_ssi_result_codes)) != NULL) {
 645                 col_add_str(pinfo->cinfo, COL_INFO, name);
 646         }
 647
 648         proto_tree_add_item (aim_tree, hf_aim_ssi_result_code, tvb, 0, 2, FALSE);
 649
 650         return 2;
 651 }
 652
 653 int
 654 dissect_aim_userinfo(tvbuff_t *tvb, packet_info *pinfo,
 655                      int offset, proto_tree *tree)
 656 {
 657         offset = dissect_aim_buddyname(tvb, pinfo, offset, tree);
 658
 659         proto_tree_add_item(tree, hf_aim_userinfo_warninglevel, tvb, offset, 2, FALSE);
 660         offset += 2;
 661
 662         return dissect_aim_tlv_list(tvb, pinfo, offset, tree, onlinebuddy_tlvs);
 663 }
 664
 665 static int
 666 dissect_aim_fnac_flags(tvbuff_t *tvb, int offset, int len, proto_item *ti,
 667                        guint16 flags)
 668 {
 669         proto_tree *entry = proto_item_add_subtree(ti, ett_aim_fnac_flags);
 670         proto_tree_add_boolean(entry, hf_aim_fnac_flag_next_is_related, tvb, offset, len, flags);
 671         proto_tree_add_boolean(entry, hf_aim_fnac_flag_contains_version, tvb, offset, len, flags);
 672
 673         return offset + len;
 674 }
 675
 676 static void
 677 dissect_aim_snac(tvbuff_t *tvb, packet_info *pinfo, int offset,
 678                  proto_tree *aim_tree, proto_tree *root_tree)
 679 {
 680     guint16 family_id;
 681     guint16 subtype_id;
 682     guint16 flags;
 683     guint32 id;
 684     proto_item *ti1;
 685     struct aiminfo aiminfo;
 686     proto_tree *aim_tree_fnac = NULL;
 687     tvbuff_t *subtvb;
 688     int orig_offset;
 689     const aim_subtype *subtype;
 690     proto_tree *family_tree = NULL;
 691     const aim_family *family;
 692     void* pd_save;
 693
 694     orig_offset = offset;
 695     family_id = tvb_get_ntohs(tvb, offset);
 696     family = aim_get_family(family_id);
 697     offset += 2;
 698     subtype_id = tvb_get_ntohs(tvb, offset);
 699     subtype = aim_get_subtype(family_id, subtype_id);
 700     offset += 2;
 701     flags = tvb_get_ntohs(tvb, offset);
 702     offset += 2;
 703     id = tvb_get_ntohl(tvb, offset);
 704     offset += 4;
 705
 706
 707     if( aim_tree )
 708     {
 709         offset = orig_offset;
 710         ti1 = proto_tree_add_text(aim_tree, tvb, 6, 10,
 711                                   "FNAC: Family: %s (0x%04x), Subtype: %s (0x%04x)",
 712                                   family ? family->name : "Unknown", family_id,
 713                                   (subtype && subtype->name) ? subtype->name : "Unknown", subtype_id);
 714         aim_tree_fnac = proto_item_add_subtree(ti1, ett_aim_fnac);
 715
 716         proto_tree_add_uint_format_value (aim_tree_fnac, hf_aim_fnac_family,
 717                                           tvb, offset, 2, family_id, "%s (0x%04x)",
 718                                           family ? family->name : "Unknown", family_id);
 719         offset += 2;
 720
 721         proto_tree_add_uint_format_value (aim_tree_fnac, hf_aim_fnac_subtype,
 722                                           tvb, offset, 2, subtype_id, "%s (0x%04x)",
 723                                           (subtype && subtype->name) ? subtype->name : "Unknown", subtype_id);
 724
 725         offset += 2;
 726
 727         ti1 = proto_tree_add_uint(aim_tree_fnac, hf_aim_fnac_flags, tvb, offset,
 728                                   2, flags);
 729
 730         offset = dissect_aim_fnac_flags(tvb, offset, 2, ti1, flags);
 731
 732         proto_tree_add_uint(aim_tree_fnac, hf_aim_fnac_id, tvb, offset,
 733                             4, id);
 734         offset += 4;
 735     }
 736
 737     if(flags & FNAC_FLAG_CONTAINS_VERSION)
 738     {
 739         guint16 len = tvb_get_ntohs(tvb, offset);
 740         int oldoffset;
 741         offset+=2;
 742         oldoffset = offset;
 743
 744         while(offset < oldoffset + len) {
 745             offset = dissect_aim_tlv(tvb, pinfo, offset, aim_tree, fnac_tlvs);
 746         }
 747     }
 748
 749     subtvb = tvb_new_subset_remaining(tvb, offset);
 750     aiminfo.tcpinfo = pinfo->private_data;
 751     aiminfo.family = family_id;
 752     aiminfo.subtype = subtype_id;
 753     pd_save = pinfo->private_data;
 754     pinfo->private_data = &aiminfo;
 755
 756     if (family)
 757         col_set_str(pinfo->cinfo, COL_PROTOCOL, family->name);
 758
 759     if (check_col(pinfo->cinfo, COL_INFO))
 760     {
 761          if(subtype && family)
 762          {
 763                  col_set_str(pinfo->cinfo, COL_INFO, family->name);
 764                  col_append_fstr(pinfo->cinfo, COL_INFO, ", %s", subtype->name);
 765          } else {
 766                 col_set_str(pinfo->cinfo, COL_INFO, "SNAC data");
 767
 768                 if(family)
 769                         col_append_fstr(pinfo->cinfo, COL_INFO, ", %s", family->name);
 770                 else
 771                         col_append_fstr(pinfo->cinfo, COL_INFO, ", Family: 0x%04x", family_id);
 772
 773                 col_append_fstr(pinfo->cinfo, COL_INFO, ", Subtype: 0x%04x", subtype_id);
 774          }
 775     }
 776
 777     if(aim_tree && family)
 778     {
 779         proto_item *ti = proto_tree_add_item(root_tree, family->proto_id, subtvb, 0, -1, FALSE);
 780         family_tree = proto_item_add_subtree(ti, family->ett);
 781         if(subtype)
 782             proto_item_append_text(ti, ", %s", subtype->name);
 783     }
 784
 785     if(tvb_length_remaining(tvb, offset) > 0 && subtype && subtype->dissector)
 786     {
 787         subtype->dissector(subtvb, pinfo, family_tree);
 788     }
 789
 790     pinfo->private_data = pd_save;
 791 }
 792
 793 static void
 794 dissect_aim_flap_err(tvbuff_t *tvb, packet_info *pinfo, int offset,
 795                      proto_tree *tree)
 796 {
 797         col_set_str(pinfo->cinfo, COL_INFO, "FLAP error");
 798
 799         /* Show the undissected payload */
 800         if (tvb_length_remaining(tvb, offset) > 0)
 801                 proto_tree_add_item(tree, hf_aim_data, tvb, offset, -1, FALSE);
 802 }
 803
 804 static void
 805 dissect_aim_keep_alive(tvbuff_t *tvb, packet_info *pinfo, int offset,
 806                        proto_tree *tree)
 807 {
 808         col_set_str(pinfo->cinfo, COL_INFO, "Keep Alive");
 809
 810         /* Show the undissected payload */
 811         if (tvb_length_remaining(tvb, offset) > 0)
 812                 proto_tree_add_item(tree, hf_aim_data, tvb, offset, -1, FALSE);
 813 }
 814
 815 static void
 816 dissect_aim_close_conn(tvbuff_t *tvb, packet_info *pinfo, int offset,
 817                        proto_tree *tree)
 818 {
 819         col_set_str(pinfo->cinfo, COL_INFO, "Close Connection");
 820
 821         offset = dissect_aim_tlv_sequence(tvb, pinfo, offset, tree, client_tlvs);
 822 }
 823
 824 static void
 825 dissect_aim_unknown_channel(tvbuff_t *tvb, packet_info *pinfo, int offset,
 826                             proto_tree *tree)
 827 {
 828         col_set_str(pinfo->cinfo, COL_INFO, "Unknown Channel");
 829
 830         /* Show the undissected payload */
 831         if (tvb_length_remaining(tvb, offset) > 0)
 832                 proto_tree_add_item(tree, hf_aim_data, tvb, offset, -1, FALSE);
 833 }
 834
 835 int
 836 dissect_aim_buddyname(tvbuff_t *tvb, packet_info *pinfo _U_, int offset,
 837                       proto_tree *tree)
 838 {
 839         guint8 buddyname_length = 0;
 840         proto_item *ti = NULL;
 841         proto_tree *buddy_tree = NULL;
 842
 843         buddyname_length = tvb_get_guint8(tvb, offset);
 844         offset++;
 845
 846         if(tree)
 847         {
 848                 ti = proto_tree_add_text(tree, tvb, offset-1, 1+buddyname_length,
 849                                          "Buddy: %s",
 850                                          tvb_format_text(tvb, offset, buddyname_length));
 851                 buddy_tree = proto_item_add_subtree(ti, ett_aim_buddyname);
 852                 proto_tree_add_item(buddy_tree, hf_aim_buddyname_len, tvb, offset-1, 1, FALSE);
 853                 proto_tree_add_item(buddy_tree, hf_aim_buddyname, tvb, offset, buddyname_length, FALSE);
 854         }
 855
 856         return offset+buddyname_length;
 857 }
 858
 859 typedef struct _aim_client_capability
 860 {
 861         const char *name;
 862         e_guid_t clsid;
 863 } aim_client_capability;
 864
 865 static const aim_client_capability known_client_caps[] = {
 866         { "Send File",
 867           {0x09461343, 0x4c7f, 0x11d1,
 868             { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 869
 870         { "Recv File",
 871             { 0x09461348, 0x4c7f, 0x11d1,
 872                    { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 873
 874         { "Short Caps",
 875          {0x09460000, 0x4c7f, 0x11d1,
 876            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 877
 878         { "Secure IM",
 879          {0x09460001, 0x4c7f, 0x11d1,
 880            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 881
 882         { "XHTML IM",
 883          {0x09460002, 0x4c7f, 0x11d1,
 884            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 885
 886         { "Video Chat",
 887          {0x09460100, 0x4c7f, 0x11d1,
 888            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 889
 890         { "Live Video",
 891          {0x09460101, 0x4c7f, 0x11d1,
 892            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 893
 894         { "Camera",
 895          {0x09460102, 0x4c7f, 0x11d1,
 896            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 897
 898         { "Microphone",
 899          {0x09460103, 0x4c7f, 0x11d1,
 900            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 901
 902         { "Live Audio",
 903          {0x09460104, 0x4c7f, 0x11d1,
 904            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 905
 906         { "iChatAV info",
 907          {0x09460105, 0x4c7f, 0x11d1,
 908            { 0x82, 0x22, 0x44, 0x45, 0x45, 0x53, 0x54, 0x00}}},
 909
 910         { "Host Status Text Aware",
 911          {0x0946010A, 0x4c7f, 0x11d1,
 912            { 0x82, 0x22, 0x44, 0x45, 0x45, 0x53, 0x54, 0x00}}},
 913
 914         { "Realtime IM",
 915          {0x0946010B, 0x4c7f, 0x11d1,
 916            { 0x82, 0x22, 0x44, 0x45, 0x45, 0x53, 0x54, 0x00}}},
 917
 918         { "Smart Caps",
 919          {0x094601FF, 0x4c7f, 0x11d1,
 920            { 0x82, 0x22, 0x44, 0x45, 0x45, 0x53, 0x54, 0x00}}},
 921
 922         { "Hiptop",
 923          {0x09461323, 0x4c7f, 0x11d1,
 924            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 925
 926         { "Voice Chat",
 927          {0x09461341, 0x4c7f, 0x11d1,
 928                  { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 929
 930         { "File Transfer",
 931          {0x09461343, 0x4c7f, 0x11d1,
 932                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 933
 934         { "Direct ICQ Communication",
 935          {0x09461344, 0x4c7f, 0x11d1,
 936                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 937
 938         { "Direct ICBM",
 939          {0x09461345, 0x4c7f, 0x11d1,
 940                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 941
 942         { "Buddy Icon",
 943          {0x09461346, 0x4c7f, 0x11d1,
 944                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 945
 946         { "Add-Ins",
 947          {0x09461347, 0x4c7f, 0x11d1,
 948                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 949
 950         { "File Sharing",
 951          {0x09461348, 0x4c7f, 0x11d1,
 952                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 953
 954         { "ICQ Server Relaying",
 955          {0x09461349, 0x4c7f, 0x11d1,
 956                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 957
 958         { "Games",
 959          {0x0946134a, 0x4c7f, 0x11d1,
 960                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 961
 962         { "Games",
 963          {0x0946134a, 0x4c7f, 0x11d1,
 964                  {0x22, 0x82, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 965
 966         { "Send Buddy List",
 967          {0x0946134b, 0x4c7f, 0x11d1,
 968                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 969
 970         { "AIM/ICQ Interoperability",
 971          {0x0946134d, 0x4c7f, 0x11d1,
 972                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 973
 974         { "ICQ UTF8 Support",
 975          {0x0946134e, 0x4c7f, 0x11d1,
 976                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 977
 978         { "Old ICQ UTF8 Support",
 979          {0x2e7a6475, 0xfadf, 0x4dc8,
 980                  {0x88, 0x6f, 0xea, 0x35, 0x95, 0xfd, 0xb6, 0xdf}}},
 981
 982         { "Chat",
 983          {0x748f2420, 0x6287, 0x11d1,
 984                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
 985
 986         { "ICQ Rich Text Format Messages",
 987          {0x97b12751, 0x243c, 0x4334,
 988                  {0xad, 0x22, 0xd6, 0xab, 0xf7, 0x3f, 0x14, 0x92}}},
 989
 990         { "AP User",
 991          {0xaa4a32b5, 0xf884, 0x48c6,
 992                  {0xa3, 0xd7, 0x8c, 0x50, 0x97, 0x19, 0xfd, 0x5b}}},
 993
 994         { "Trillian Encryption",
 995          {0xf2e7c7f4, 0xfead, 0x4dfb,
 996                  {0xb2, 0x35, 0x36, 0x79, 0x8b, 0xdf, 0x00, 0x00}}},
 997
 998         { NULL, {0x0, 0x0, 0x0, { 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0 } } }
 999 };
1000
1001 static const aim_client_capability *
1002 aim_find_capability (e_guid_t clsid)
1003 {
1004         int i;
1005
1006         for(i = 0; known_client_caps[i].name; i++)
1007         {
1008                 const aim_client_capability *caps = &(known_client_caps[i]);
1009
1010                 if(memcmp(&(caps->clsid), &clsid, sizeof(e_guid_t)) == 0)
1011                         return caps;
1012         }
1013
1014         return NULL;
1015 }
1016
1017 static const aim_client_capability *
1018 aim_find_short_capability(guint16 shortid)
1019 {
1020         e_guid_t clsid = {0x09460000, 0x4c7f, 0x11d1, {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}};
1021         clsid.data1 |= shortid;
1022
1023         return aim_find_capability(clsid);
1024 }
1025
1026 int
1027 dissect_aim_capability(proto_tree *entry, tvbuff_t *tvb, int offset)
1028 {
1029         const aim_client_capability *caps;
1030         e_guid_t clsid;
1031
1032         tvb_get_ntohguid(tvb, offset, &clsid);
1033         caps = aim_find_capability(clsid);
1034
1035         proto_tree_add_guid_format(entry, hf_aim_nickinfo_caps, tvb, offset, 16,
1036                 &clsid,
1037                 "%s {%08x-%04x-%04x-%02x%02x-%02x%02x%02x%02x%02x%02x}",
1038                 caps?caps->name:"Unknown", clsid.data1, clsid.data2,
1039                 clsid.data3, clsid.data4[0], clsid.data4[1], clsid.data4[2],
1040                 clsid.data4[3], clsid.data4[4], clsid.data4[5], clsid.data4[6],
1041                 clsid.data4[7]
1042         );
1043
1044         return offset+16;
1045 }
1046
1047 static int
1048 dissect_aim_short_capability(proto_tree *entry, tvbuff_t *tvb, int offset)
1049 {
1050         const aim_client_capability *caps;
1051         guint16 shortid;
1052
1053         shortid = tvb_get_ntohs(tvb, offset);
1054         caps = aim_find_short_capability(shortid);
1055
1056         proto_tree_add_uint_format(entry, hf_aim_nickinfo_short_caps, tvb, offset, 2,
1057                 shortid,
1058                 "%s (0x%04x)",
1059                 caps?caps->name:"Unknown", shortid
1060         );
1061
1062         return offset+2;
1063 }
1064
1065 int
1066 dissect_aim_tlv_value_client_capabilities(proto_item *ti _U_, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1067 {
1068         int offset = 0;
1069         proto_tree *entry;
1070
1071         proto_item_set_text(ti, "Client Capabilities List");
1072
1073         entry = proto_item_add_subtree(ti, ett_aim_nickinfo_caps);
1074
1075         while (tvb_length_remaining(tvb, offset) > 0) {
1076                 offset = dissect_aim_capability(entry, tvb, offset);
1077         }
1078
1079         return tvb_length(tvb);
1080 }
1081
1082 static int
1083 dissect_aim_tlv_value_client_short_capabilities(proto_item *ti _U_, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1084 {
1085         int offset = 0;
1086         proto_tree *entry;
1087
1088         proto_item_set_text(ti, "Short Client Capabilities List");
1089
1090         entry = proto_item_add_subtree(ti, ett_aim_nickinfo_short_caps);
1091
1092         while (tvb_length_remaining(tvb, offset) > 0) {
1093                 offset = dissect_aim_short_capability(entry, tvb, offset);
1094         }
1095
1096         return tvb_length(tvb);
1097 }
1098
1099 int
1100 dissect_aim_tlv_value_time(proto_item *ti _U_, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1101 {
1102         /* FIXME */
1103         return tvb_length(tvb);
1104 }
1105
1106 int
1107 dissect_aim_userclass(tvbuff_t *tvb, int offset, int len, proto_item *ti, guint32 flags)
1108 {
1109         proto_tree *entry;
1110
1111         entry = proto_item_add_subtree(ti, ett_aim_userclass);
1112         proto_tree_add_boolean(entry, hf_aim_userclass_unconfirmed, tvb, offset, len, flags);
1113         proto_tree_add_boolean(entry, hf_aim_userclass_administrator, tvb, offset, len, flags);
1114         proto_tree_add_boolean(entry, hf_aim_userclass_aol, tvb, offset, len, flags);
1115         proto_tree_add_boolean(entry, hf_aim_userclass_commercial, tvb, offset, len, flags);
1116         proto_tree_add_boolean(entry, hf_aim_userclass_aim, tvb, offset, len, flags);
1117         proto_tree_add_boolean(entry, hf_aim_userclass_away, tvb, offset, len, flags);
1118         proto_tree_add_boolean(entry, hf_aim_userclass_icq, tvb, offset, len, flags);
1119         proto_tree_add_boolean(entry, hf_aim_userclass_wireless, tvb, offset, len, flags);
1120         proto_tree_add_boolean(entry, hf_aim_userclass_unknown100, tvb, offset, len, flags);
1121         proto_tree_add_boolean(entry, hf_aim_userclass_imf, tvb, offset, len, flags);
1122         proto_tree_add_boolean(entry, hf_aim_userclass_bot, tvb, offset, len, flags);
1123         proto_tree_add_boolean(entry, hf_aim_userclass_unknown800, tvb, offset, len, flags);
1124         proto_tree_add_boolean(entry, hf_aim_userclass_one_way_wireless, tvb, offset, len, flags);
1125         proto_tree_add_boolean(entry, hf_aim_userclass_unknown2000, tvb, offset, len, flags);
1126         proto_tree_add_boolean(entry, hf_aim_userclass_unknown4000, tvb, offset, len, flags);
1127         proto_tree_add_boolean(entry, hf_aim_userclass_unknown8000, tvb, offset, len, flags);
1128         proto_tree_add_boolean(entry, hf_aim_userclass_unknown10000, tvb, offset, len, flags);
1129         proto_tree_add_boolean(entry, hf_aim_userclass_unknown20000, tvb, offset, len, flags);
1130         proto_tree_add_boolean(entry, hf_aim_userclass_no_knock_knock, tvb, offset, len, flags);
1131         proto_tree_add_boolean(entry, hf_aim_userclass_forward_mobile, tvb, offset, len, flags);
1132
1133         return offset+len;
1134 }
1135
1136 int
1137 dissect_aim_tlv_value_userclass(proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1138 {
1139         guint16 value16 = tvb_get_ntohs(tvb, 0);
1140         proto_item_set_text(ti, "Value: 0x%04x", value16);
1141         return dissect_aim_userclass(tvb, 0, 2, ti, value16);
1142 }
1143
1144 static int
1145 dissect_aim_tlv_value_userstatus(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 static int
1152 dissect_aim_tlv_value_dcinfo(proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1153 {
1154         int offset = 0;
1155
1156         proto_tree *dctree = proto_item_add_subtree(ti, ett_aim_dcinfo);
1157
1158         proto_tree_add_item(dctree, hf_aim_dcinfo_ip , tvb, offset, 4, FALSE); offset+=4;
1159         proto_tree_add_item(dctree, hf_aim_dcinfo_tcpport, tvb, offset, 4, FALSE); offset+=4;
1160         proto_tree_add_item(dctree, hf_aim_dcinfo_type, tvb, offset, 1, FALSE); offset+=1;
1161         proto_tree_add_item(dctree, hf_aim_dcinfo_proto_version, tvb, offset, 2, FALSE); offset+=2;
1162         proto_tree_add_item(dctree, hf_aim_dcinfo_auth_cookie, tvb, offset, 4, FALSE); offset+=2;
1163         proto_tree_add_item(dctree, hf_aim_dcinfo_webport, tvb, offset, 4, FALSE); offset+=4;
1164         proto_tree_add_item(dctree, hf_aim_dcinfo_client_future, tvb, offset, 4, FALSE); offset+=4;
1165         proto_tree_add_item(dctree, hf_aim_dcinfo_last_info_update, tvb, offset, 4, FALSE); offset+=4;
1166         proto_tree_add_item(dctree, hf_aim_dcinfo_last_ext_info_update, tvb, offset, 4, FALSE); offset+=4;
1167         proto_tree_add_item(dctree, hf_aim_dcinfo_last_ext_status_update, tvb, offset, 4, FALSE); offset+=4;
1168         proto_tree_add_item(dctree, hf_aim_dcinfo_unknown, tvb, offset, 2, FALSE); offset+=2;
1169
1170         return offset;
1171 }
1172
1173 int
1174 dissect_aim_tlv_value_string (proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1175 {
1176         guint8 *buf;
1177         gint string_len;
1178
1179         string_len = tvb_length(tvb);
1180         buf = tvb_get_ephemeral_string(tvb, 0, string_len);
1181         proto_item_set_text(ti, "Value: %s", format_text(buf, string_len));
1182
1183         return string_len;
1184 }
1185
1186 int
1187 dissect_aim_tlv_value_string08_array (proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1188 {
1189         proto_tree *entry;
1190         gint offset=0;
1191
1192         entry = proto_item_add_subtree(ti, ett_aim_string08_array);
1193
1194         while (tvb_length_remaining(tvb, offset) > 1)
1195         {
1196                 guint8 string_len = tvb_get_guint8(tvb, offset++);
1197                 guint8 *buf = tvb_get_ephemeral_string(tvb, offset, string_len);
1198                 proto_tree_add_text(entry, tvb, offset, string_len, "%s",
1199                                     format_text(buf, string_len));
1200                 offset += string_len;
1201         }
1202
1203         return offset;
1204 }
1205
1206 int
1207 dissect_aim_tlv_value_bytes (proto_item *ti _U_, guint16 valueid _U_, tvbuff_t *tvb _U_, packet_info *pinfo _U_)
1208 {
1209         return tvb_length(tvb);
1210 }
1211
1212 int
1213 dissect_aim_tlv_value_uint8 (proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1214 {
1215         guint8 value8 = tvb_get_guint8(tvb, 0);
1216         proto_item_set_text(ti, "Value: %d", value8);
1217         return 1;
1218 }
1219
1220 int
1221 dissect_aim_tlv_value_uint16 (proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1222 {
1223         guint16 value16 = tvb_get_ntohs(tvb, 0);
1224         proto_item_set_text(ti, "Value: %d", value16);
1225         return 2;
1226 }
1227
1228 int
1229 dissect_aim_tlv_value_ipv4 (proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1230 {
1231         guint32 ipv4_address = tvb_get_ipv4(tvb, 0);
1232         proto_item_set_text(ti, "Value: %s", ip_to_str((guint8 *)&ipv4_address));
1233         return 4;
1234 }
1235
1236 int
1237 dissect_aim_tlv_value_uint32 (proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1238 {
1239         guint32 value32 = tvb_get_ntohl(tvb, 0);
1240         proto_item_set_text(ti, "Value: %d", value32);
1241         return 4;
1242 }
1243
1244 int
1245 dissect_aim_tlv_value_messageblock (proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1246 {
1247         proto_tree *entry;
1248         guint8 *buf;
1249         guint16 featurelen;
1250         guint16 blocklen;
1251         int offset=0;
1252
1253         /* Setup a new subtree */
1254         entry = proto_item_add_subtree(ti, ett_aim_messageblock);
1255
1256         /* Features descriptor */
1257         proto_tree_add_item(entry, hf_aim_messageblock_featuresdes, tvb, offset,
1258                             2, FALSE);
1259         offset += 2;
1260
1261         /* Features Length */
1262         featurelen = tvb_get_ntohs(tvb, offset);
1263         proto_tree_add_item(entry, hf_aim_messageblock_featureslen, tvb, offset,
1264                             2, FALSE);
1265         offset += 2;
1266
1267         /* Features (should be expanded further @@@@@@@ ) */
1268         proto_tree_add_item(entry, hf_aim_messageblock_features, tvb, offset,
1269                             featurelen, FALSE);
1270         offset += featurelen;
1271
1272         /* There can be multiple messages in this message block */
1273         while (tvb_length_remaining(tvb, offset) > 0) {
1274                 /* Info field */
1275                 proto_tree_add_item(entry, hf_aim_messageblock_info, tvb,
1276                                     offset, 2, FALSE);
1277                 offset += 2;
1278
1279                 /* Block length (includes charset and charsubset) */
1280                 blocklen = tvb_get_ntohs(tvb, offset);
1281                 if (blocklen <= 4)
1282                 {
1283                         proto_tree_add_text(entry, tvb, offset, 2,
1284                                             "Invalid block length: %d", blocklen);
1285                         break;
1286                 }
1287                 proto_tree_add_item(entry, hf_aim_messageblock_len, tvb, offset,
1288                                     2, FALSE);
1289                 offset += 2;
1290
1291                 /* Character set */
1292                 proto_tree_add_item(entry, hf_aim_messageblock_charset, tvb,
1293                                     offset, 2, FALSE);
1294                 offset += 2;
1295
1296                 /* Character subset */
1297                 proto_tree_add_item(entry, hf_aim_messageblock_charsubset, tvb,
1298                                     offset, 2, FALSE);
1299                 offset += 2;
1300
1301                 /* The actual message */
1302                 buf = tvb_get_ephemeral_string(tvb, offset, blocklen - 4);
1303                 proto_item_set_text(ti, "Message: %s",
1304                                     format_text(buf, blocklen - 4));
1305                 proto_tree_add_item(entry, hf_aim_messageblock_message, tvb,
1306                                     offset, blocklen-4, FALSE);
1307
1308                 offset += tvb_length_remaining(tvb, offset);
1309         }
1310
1311         return offset;
1312 }
1313
1314 /* Dissect a TLV value */
1315 int
1316 dissect_aim_tlv(tvbuff_t *tvb, packet_info *pinfo _U_, int offset,
1317                 proto_tree *tree, const aim_tlv *tlv)
1318 {
1319   guint16 valueid;
1320   guint16 length;
1321   int i = 0;
1322   const aim_tlv *tmp;
1323   const char *desc;
1324   proto_item *ti1;
1325   proto_tree *tlv_tree;
1326   int orig_offset;
1327
1328   /* Record the starting offset so we can reuse it at the second pass */
1329   orig_offset = offset;
1330
1331   /* Get the value ID */
1332   valueid = tvb_get_ntohs(tvb, offset);
1333   offset += 2;
1334
1335   /* Figure out which entry applies from the tlv list */
1336   tmp = tlv;
1337   while (tmp[i].valueid) {
1338     if (tmp[i].valueid == valueid) {
1339       /* We found a match */
1340       break;
1341     }
1342     i++;
1343   }
1344
1345   /* At this point, we are either pointing at the correct record, or
1346      we didn't find the record, and are pointing at the last item in the
1347      list */
1348
1349   length = tvb_get_ntohs(tvb, offset);
1350   offset += 2;
1351   offset += length;
1352
1353   if (tree) {
1354     offset = orig_offset;
1355
1356     if (tmp[i].desc != NULL)
1357       desc = tmp[i].desc;
1358     else
1359       desc = "Unknown";
1360
1361     ti1 = proto_tree_add_text(tree, tvb, offset, length + 4, "TLV: %s", desc);
1362
1363     tlv_tree = proto_item_add_subtree(ti1, ett_aim_tlv);
1364
1365     proto_tree_add_text(tlv_tree, tvb, offset, 2,
1366                         "Value ID: %s (0x%04x)", desc, valueid);
1367     offset += 2;
1368
1369     proto_tree_add_text(tlv_tree, tvb, offset, 2,
1370                         "Length: %d", length);
1371     offset += 2;
1372
1373     ti1 = proto_tree_add_text(tlv_tree, tvb, offset, length,
1374                               "Value");
1375
1376     if (tmp[i].dissector) {
1377       tmp[i].dissector(ti1, valueid, tvb_new_subset(tvb, offset, length, length), pinfo);
1378     }
1379
1380     offset += length;
1381   }
1382
1383   /* Return the new length */
1384   return offset;
1385 }
1386
1387 int
1388 dissect_aim_tlv_sequence(tvbuff_t *tvb, packet_info *pinfo, int offset,
1389                          proto_tree *tree, const aim_tlv *tlv_table)
1390 {
1391         while (tvb_length_remaining(tvb, offset) > 0) {
1392                 offset = dissect_aim_tlv(tvb, pinfo, offset, tree, tlv_table);
1393         }
1394
1395         return offset;
1396 }
1397
1398 int
1399 dissect_aim_tlv_list(tvbuff_t *tvb, packet_info *pinfo, int offset,
1400                      proto_tree *tree, const aim_tlv *tlv_table)
1401 {
1402         guint16 i, tlv_count = tvb_get_ntohs(tvb, offset);
1403
1404         proto_tree_add_item(tree, hf_aim_tlvcount, tvb, offset, 2, FALSE);
1405         offset += 2;
1406
1407         for(i = 0; i < tlv_count; i++) {
1408                 offset = dissect_aim_tlv(tvb, pinfo, offset, tree, tlv_table);
1409         }
1410
1411         return offset;
1412 }
1413
1414 static guint
1415 get_aim_pdu_len(packet_info *pinfo _U_, tvbuff_t *tvb, int offset)
1416 {
1417         guint16 plen;
1418
1419         /*
1420         * Get the length of the AIM packet.
1421         */
1422         plen = tvb_get_ntohs(tvb, offset + 4);
1423
1424         /*
1425         * That length doesn't include the length of the header itself; add that in.
1426         */
1427         return plen + 6;
1428 }
1429
1430 static void
1431 dissect_aim_pdu(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
1432 {
1433   /* Header fields */
1434   unsigned char  hdr_channel;           /* channel ID */
1435   unsigned short hdr_sequence_no;       /* Internal frame sequence number, not needed */
1436   unsigned short hdr_data_field_length; /* length of data within frame */
1437
1438   int offset=0;
1439
1440 /* Set up structures we will need to add the protocol subtree and manage it */
1441   proto_item *ti;
1442   proto_tree *aim_tree = NULL;
1443
1444 /* Make entries in Protocol column and Info column on summary display */
1445   col_set_str(pinfo->cinfo, COL_PROTOCOL, "AIM");
1446
1447   col_set_str(pinfo->cinfo, COL_INFO, "AOL Instant Messenger");
1448
1449   /* get relevant header information */
1450   offset += 1;          /* XXX - put the identifier into the tree? */
1451   hdr_channel           = tvb_get_guint8(tvb, offset);
1452   offset += 1;
1453   hdr_sequence_no       = tvb_get_ntohs(tvb, offset);
1454   offset += 2;
1455   hdr_data_field_length = tvb_get_ntohs(tvb, offset);
1456   offset += 2;
1457
1458 /* In the interest of speed, if "tree" is NULL, don't do any work not
1459    necessary to generate protocol tree items. */
1460   if (tree) {
1461     ti = proto_tree_add_item(tree, proto_aim, tvb, 0, -1, FALSE);
1462     aim_tree = proto_item_add_subtree(ti, ett_aim);
1463     proto_tree_add_uint(aim_tree, hf_aim_cmd_start, tvb, 0, 1, '*');
1464     proto_tree_add_item(aim_tree, hf_aim_channel, tvb, 1, 1, FALSE);
1465     proto_tree_add_uint(aim_tree, hf_aim_seqno, tvb, 2, 2, hdr_sequence_no);
1466     proto_tree_add_uint(aim_tree, hf_aim_data_len, tvb, 4, 2, hdr_data_field_length);
1467
1468   }
1469
1470   switch(hdr_channel)
1471   {
1472     case CHANNEL_NEW_CONN:
1473       dissect_aim_newconn(tvb, pinfo, offset, aim_tree);
1474       break;
1475     case CHANNEL_SNAC_DATA:
1476       dissect_aim_snac(tvb, pinfo, offset, aim_tree, tree);
1477       break;
1478     case CHANNEL_FLAP_ERR:
1479       dissect_aim_flap_err(tvb, pinfo, offset, aim_tree);
1480       break;
1481     case CHANNEL_CLOSE_CONN:
1482       dissect_aim_close_conn(tvb, pinfo, offset, aim_tree);
1483       break;
1484     case CHANNEL_KEEP_ALIVE:
1485      dissect_aim_keep_alive(tvb, pinfo, offset, aim_tree);
1486      break;
1487     default:
1488       dissect_aim_unknown_channel(tvb, pinfo, offset, aim_tree);
1489       break;
1490   }
1491
1492 }
1493
1494 /* Code to actually dissect the packets */
1495 static int
1496 dissect_aim(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
1497 {
1498         /* check, if this is really an AIM packet, they start with 0x2a */
1499         /* XXX - I've seen some stuff starting with 0x5a followed by 0x2a */
1500
1501         if(tvb_length(tvb) >= 1 && tvb_get_guint8(tvb, 0) != 0x2a)
1502         {
1503                 /* Not an instant messenger packet, just happened to use the
1504                  * same port
1505                  *
1506                  * XXX - if desegmentation disabled, this might be a continuation
1507                  * packet, not a non-AIM packet
1508                  */
1509                 return 0;
1510         }
1511
1512         tcp_dissect_pdus(tvb, pinfo, tree, aim_desegment, 6, get_aim_pdu_len,
1513                          dissect_aim_pdu);
1514         return tvb_length(tvb);
1515 }
1516
1517
1518 /* Register the protocol with Wireshark */
1519 void
1520 proto_register_aim(void)
1521 {
1522
1523 /* Setup list of header fields */
1524   static hf_register_info hf[] = {
1525         { &hf_aim_cmd_start,
1526                 { "Command Start", "aim.cmd_start", FT_UINT8, BASE_HEX, NULL, 0x0, NULL, HFILL }
1527         },
1528         { &hf_aim_channel,
1529                 { "Channel ID", "aim.channel", FT_UINT8, BASE_HEX, VALS(aim_flap_channels), 0x0, NULL, HFILL }
1530         },
1531         { &hf_aim_seqno,
1532                 { "Sequence Number", "aim.seqno", FT_UINT16, BASE_DEC, NULL, 0x0, NULL, HFILL }
1533         },
1534         { &hf_aim_version,
1535                 { "Protocol Version", "aim.version", FT_BYTES, BASE_NONE, NULL, 0x0, NULL, HFILL },
1536         },
1537         { &hf_aim_data_len,
1538                 { "Data Field Length", "aim.datalen", FT_UINT16, BASE_DEC, NULL, 0x0, NULL, HFILL }
1539         },
1540         { &hf_aim_data,
1541                 { "Data", "aim.data", FT_BYTES, BASE_NONE, NULL, 0x0, NULL, HFILL }
1542         },
1543         { &hf_aim_signon_challenge_len,
1544                 { "Signon challenge length", "aim.signon.challengelen", FT_UINT16, BASE_DEC, NULL, 0x0, NULL, HFILL }
1545         },
1546         { &hf_aim_signon_challenge,
1547                 { "Signon challenge", "aim.signon.challenge", FT_STRING, BASE_NONE, NULL, 0x0, NULL, HFILL }
1548         },
1549         { &hf_aim_fnac_family,
1550                 { "FNAC Family ID", "aim.fnac.family", FT_UINT16, BASE_HEX, NULL, 0x0, NULL, HFILL }
1551         },
1552         { &hf_aim_fnac_subtype,
1553                 { "FNAC Subtype ID", "aim.fnac.subtype", FT_UINT16, BASE_HEX, NULL, 0x0, NULL, HFILL }
1554         },
1555         { &hf_aim_fnac_flags,
1556                 { "FNAC Flags", "aim.fnac.flags", FT_UINT16, BASE_HEX, NULL, 0x0, NULL, HFILL }
1557         },
1558         { &hf_aim_fnac_id,
1559                 { "FNAC ID", "aim.fnac.id", FT_UINT32, BASE_HEX, NULL, 0x0, NULL, HFILL }
1560         },
1561         { &hf_aim_infotype,
1562                 { "Infotype", "aim.infotype", FT_UINT16, BASE_HEX, NULL, 0x0, NULL, HFILL }
1563         },
1564         { &hf_aim_buddyname_len,
1565                 { "Buddyname len", "aim.buddynamelen", FT_UINT8, BASE_DEC, NULL, 0x0, NULL, HFILL }
1566         },
1567         { &hf_aim_buddyname,
1568                 { "Buddy Name", "aim.buddyname", FT_STRING, BASE_NONE, NULL, 0x0, NULL, HFILL }
1569         },
1570         { &hf_aim_tlvcount,
1571                 { "TLV Count", "aim.tlvcount", FT_UINT16, BASE_DEC, NULL, 0x0, NULL, HFILL },
1572         },
1573         { &hf_aim_snac_error,
1574                 { "SNAC Error", "aim.snac.error", FT_UINT16, BASE_HEX, VALS(aim_snac_errors), 0x0, NULL, HFILL },
1575         },
1576         { &hf_aim_userclass_unconfirmed,
1577                 { "AOL Unconfirmed account flag", "aim.userclass.unconfirmed", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_UNCONFIRMED, NULL, HFILL },
1578         },
1579         { &hf_aim_userclass_administrator,
1580                 { "AOL Administrator flag", "aim.userclass.administrator", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_ADMINISTRATOR, NULL, HFILL },
1581         },
1582         { &hf_aim_userclass_aol,
1583                 { "AOL Staff User Flag", "aim.userclass.staff", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_AOL, NULL, HFILL },
1584         },
1585         { &hf_aim_userclass_commercial,
1586                 { "AOL commercial account flag", "aim.userclass.commercial", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_COMMERCIAL, NULL, HFILL },
1587         },
1588         { &hf_aim_userclass_aim,
1589                 { "AIM user flag", "aim.userclass.free", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_AIM, NULL, HFILL },
1590         },
1591         { &hf_aim_userclass_away,
1592                 { "AOL away status flag", "aim.userclass.away", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_AWAY, NULL, HFILL },
1593         },
1594         { &hf_aim_userclass_icq,
1595                 { "ICQ user sign", "aim.userclass.icq", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_ICQ, NULL, HFILL },
1596         },
1597         { &hf_aim_userclass_wireless,
1598                 { "AOL wireless user", "aim.userclass.wireless", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_WIRELESS, NULL, HFILL },
1599         },
1600         { &hf_aim_userclass_unknown100,
1601                 { "Unknown bit", "aim.userclass.unknown100", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_UNKNOWN100, NULL, HFILL },
1602         },
1603         { &hf_aim_userclass_imf,
1604                 { "Using IM Forwarding", "aim.userclass.imf", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_IMF, NULL, HFILL },
1605         },
1606         { &hf_aim_userclass_bot,
1607                 { "Bot User", "aim.userclass.bot", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_BOT, NULL, HFILL },
1608         },
1609         { &hf_aim_userclass_unknown800,
1610                 { "Unknown bit", "aim.userclass.unknown800", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_UNKNOWN800, NULL, HFILL },
1611         },
1612         { &hf_aim_userclass_one_way_wireless,
1613                 { "One Way Wireless Device", "aim.userclass.one_way_wireless", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_ONE_WAY_WIRELESS, NULL, HFILL },
1614         },
1615         { &hf_aim_userclass_unknown2000,
1616                 { "Unknown bit", "aim.userclass.unknown2000", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_UNKNOWN2000, NULL, HFILL },
1617         },
1618         { &hf_aim_userclass_unknown4000,
1619                 { "Unknown bit", "aim.userclass.unknown4000", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_UNKNOWN4000, NULL, HFILL },
1620         },
1621         { &hf_aim_userclass_unknown8000,
1622                 { "Unknown bit", "aim.userclass.unknown8000", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_UNKNOWN8000, NULL, HFILL },
1623         },
1624         { &hf_aim_userclass_unknown10000,
1625                 { "Unknown bit", "aim.userclass.unknown10000", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_UNKNOWN10000, NULL, HFILL },
1626         },
1627         { &hf_aim_userclass_unknown20000,
1628                 { "Unknown bit", "aim.userclass.unknown20000", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_UNKNOWN20000, NULL, HFILL },
1629         },
1630         { &hf_aim_userclass_no_knock_knock,
1631                 { "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 },
1632         },
1633         { &hf_aim_userclass_forward_mobile,
1634                 { "Forward to mobile if not active", "aim.userclass.forward_mobile", FT_BOOLEAN, 32, TFS(&tfs_set_notset), CLASS_FORWARD_MOBILE, NULL, HFILL },
1635         },
1636         { &hf_aim_nickinfo_caps,
1637                 { "Client capabilities", "aim.nickinfo.caps", FT_GUID, BASE_NONE, NULL, 0x0, NULL, HFILL },
1638         },
1639         { &hf_aim_nickinfo_short_caps,
1640                 { "Short client capabilities", "aim.nickinfo.short_caps", FT_UINT16, BASE_HEX, NULL, 0x0, NULL, HFILL },
1641         },
1642         { &hf_aim_fnac_flag_next_is_related,
1643                 { "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 },
1644         },
1645         { &hf_aim_fnac_flag_contains_version,
1646                 { "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 },
1647         },
1648         { &hf_aim_userinfo_warninglevel,
1649                 { "Warning Level", "aim.userinfo.warninglevel", FT_UINT16, BASE_DEC, NULL, 0x0, NULL, HFILL },
1650         },
1651         { &hf_aim_messageblock_featuresdes,
1652                 { "Features", "aim.messageblock.featuresdes", FT_UINT16, BASE_HEX, NULL, 0x0, NULL, HFILL },
1653         },
1654         { &hf_aim_messageblock_featureslen,
1655                 { "Features Length", "aim.messageblock.featureslen", FT_UINT16, BASE_DEC, NULL, 0x0, NULL, HFILL },
1656         },
1657         { &hf_aim_messageblock_features,
1658                 { "Features", "aim.messageblock.features", FT_BYTES, BASE_NONE, NULL, 0x0, NULL, HFILL },
1659         },
1660         { &hf_aim_messageblock_info,
1661                 { "Block info", "aim.messageblock.info", FT_UINT16, BASE_HEX, NULL, 0x0, NULL, HFILL },
1662         },
1663         { &hf_aim_messageblock_len,
1664                 { "Block length", "aim.messageblock.length", FT_UINT16, BASE_DEC, NULL, 0x0, NULL, HFILL },
1665         },
1666         { &hf_aim_messageblock_charset,
1667                 { "Block Character set", "aim.messageblock.charset", FT_UINT16, BASE_HEX, NULL, 0x0, NULL, HFILL },
1668         },
1669         { &hf_aim_messageblock_charsubset,
1670                 { "Block Character subset", "aim.messageblock.charsubset", FT_UINT16, BASE_HEX, NULL, 0x0, NULL, HFILL },
1671         },
1672         { &hf_aim_messageblock_message,
1673                 { "Message", "aim.messageblock.message", FT_STRING, BASE_NONE, NULL, 0x0, NULL, HFILL },
1674         },
1675         { &hf_aim_dcinfo_ip,
1676                 { "Internal IP address", "aim.dcinfo.addr", FT_IPv4, BASE_NONE, NULL, 0x0, NULL, HFILL },
1677         },
1678         { &hf_aim_dcinfo_tcpport,
1679                 { "TCP Port", "aim.dcinfo.tcpport", FT_UINT32, BASE_DEC, NULL, 0x0, NULL, HFILL },
1680         },
1681         { &hf_aim_dcinfo_type,
1682                 { "Type", "aim.dcinfo.type", FT_UINT8, BASE_HEX, VALS(dc_types), 0x0, NULL, HFILL },
1683         },
1684         { &hf_aim_dcinfo_proto_version,
1685                 { "Protocol Version", "aim.dcinfo.proto_version", FT_UINT16, BASE_DEC, VALS(protocol_versions), 0x0, NULL, HFILL },
1686         },
1687         { &hf_aim_dcinfo_auth_cookie,
1688                 { "Authorization Cookie", "aim.dcinfo.auth_cookie", FT_BYTES, BASE_NONE, NULL, 0x0, NULL, HFILL },
1689         },
1690         { &hf_aim_dcinfo_webport,
1691                 { "Web Front Port", "aim.dcinfo.webport", FT_UINT32, BASE_DEC, NULL, 0x0, NULL, HFILL },
1692         },
1693         { &hf_aim_dcinfo_client_future,
1694                 { "Client Futures", "aim.dcinfo.client_futures", FT_UINT32, BASE_HEX, NULL, 0x0, NULL, HFILL },
1695         },
1696         { &hf_aim_dcinfo_last_info_update,
1697                 { "Last Info Update", "aim.dcinfo.last_info_update", FT_UINT32, BASE_DEC, NULL, 0x0, NULL, HFILL },
1698         },
1699         { &hf_aim_dcinfo_last_ext_info_update,
1700                 { "Last Extended Info Update", "aim.dcinfo.last_ext_info_update", FT_UINT32, BASE_DEC, NULL, 0x0, NULL, HFILL },
1701         },
1702         { &hf_aim_dcinfo_last_ext_status_update,
1703                 { "Last Extended Status Update", "aim.dcinfo.last_ext_status_update", FT_UINT32, BASE_DEC, NULL, 0x0, NULL, HFILL },
1704         },
1705         { &hf_aim_dcinfo_unknown,
1706                 { "Unknown", "aim.dcinfo.unknown", FT_UINT16, BASE_DEC, NULL, 0x0, NULL, HFILL },
1707         },
1708         { &hf_aim_ssi_result_code,
1709           { "Last SSI operation result code", "aim.ssi.code", FT_UINT16, BASE_HEX, VALS(aim_ssi_result_codes), 0x0, NULL, HFILL },
1710         }
1711   };
1712
1713   /* Setup protocol subtree array */
1714   static gint *ett[] = {
1715           &ett_aim,
1716           &ett_aim_dcinfo,
1717           &ett_aim_fnac,
1718           &ett_aim_fnac_flags,
1719           &ett_aim_tlv,
1720           &ett_aim_buddyname,
1721           &ett_aim_userclass,
1722           &ett_aim_messageblock,
1723           &ett_aim_nickinfo_caps,
1724           &ett_aim_nickinfo_short_caps,
1725           &ett_aim_string08_array
1726   };
1727   module_t *aim_module;
1728
1729   /* Register the protocol name and description */
1730   proto_aim = proto_register_protocol("AOL Instant Messenger", "AIM", "aim");
1731
1732   /* Required function calls to register the header fields and subtrees used */
1733   proto_register_field_array(proto_aim, hf, array_length(hf));
1734   proto_register_subtree_array(ett, array_length(ett));
1735
1736   aim_module = prefs_register_protocol(proto_aim, NULL);
1737
1738   prefs_register_bool_preference(aim_module, "desegment",
1739                                  "Reassemble AIM messages spanning multiple TCP segments",
1740                                  "Whether the AIM dissector should reassemble messages spanning multiple TCP segments."
1741                                  " To use this option, you must also enable \"Allow subdissectors to reassemble TCP streams\" in the TCP protocol settings.",
1742                                  &aim_desegment);
1743
1744   subdissector_table = register_dissector_table("aim.family", "Family ID", FT_UINT16, BASE_HEX);
1745 }
1746
1747 void
1748 proto_reg_handoff_aim(void)
1749 {
1750   dissector_handle_t aim_handle;
1751
1752   aim_handle = new_create_dissector_handle(dissect_aim, proto_aim);
1753   dissector_add("tcp.port", TCP_PORT_AIM, aim_handle);
1754 }