/* packet-ldap-template.c * Routines for ldap packet dissection * * See RFC 3494 (LDAP v2), RFC 4511 (LDAP v3), and RFC 2222 (SASL). * * Wireshark - Network traffic analyzer * By Gerald Combs * Copyright 1998 Gerald Combs * * SPDX-License-Identifier: GPL-2.0-or-later */ /* * This is not a complete implementation. It doesn't handle the full version 3, more specifically, * it handles only the commands of version 2, but any additional characteristics of the ver3 command are supported. * It's also missing extensible search filters. * * There should probably be a lot more error checking, I simply assume that if we have a full packet, it will be a complete * and correct packet. * * AFAIK, it will handle all messages used by the OpenLDAP 1.2.9 server and libraries which was my goal. I do plan to add * the remaining commands as time permits but this is not a priority to me. Send me an email if you need it and I'll see what * I can do. * * Doug Nazar * nazard@dragoninc.on.ca */ /* * 11/11/2002 - Fixed problem when decoding LDAP with desegmentation enabled and the * ASN.1 BER Universal Class Tag: "Sequence Of" header is encapsulated across 2 * TCP segments. * * Ronald W. Henderson * ronald.henderson@cognicaseusa.com */ /* * 20-JAN-2004 - added decoding of MS-CLDAP netlogon RPC * using information from the SNIA 2003 conference paper : * Active Directory Domain Controller Location Service * by Anthony Liguori * ronnie sahlberg */ /* * 17-DEC-2004 - added basic decoding for LDAP Controls * 20-DEC-2004 - added handling for GSS-API encrypted blobs * * Stefan Metzmacher * * 15-NOV-2005 - Changed to use the asn2wrs compiler * Anders Broman */ /* * 3-AUG-2008 - Extended the cldap support to include all netlogon data types. * Updated cldap_netlogon_flags to include Windows 2008 flags * Expanded the ntver ldap option with bit field * * Gary Reynolds */ /* * 09-DEC-2009 - Added support for RFC4533 * Content Synchronization Operation (aka syncrepl) * 11-DEC-2009 - Added support for IntermediateResponse (LDAP v3 from RFC 4511) * Mathieu Parent */ #include "config.h" #include #include #include #include #include #include #include #include #include #include #include #include #include #include "packet-frame.h" #include "packet-tcp.h" #include "packet-windows-common.h" #include "packet-dcerpc.h" #include "packet-ldap.h" #include "packet-ntlmssp.h" #include "packet-tls.h" #include "packet-tls-utils.h" #include "packet-gssapi.h" #include "packet-acdr.h" #include "packet-ber.h" #include "packet-per.h" #include "packet-dns.h" #define PNAME "Lightweight Directory Access Protocol" #define PSNAME "LDAP" #define PFNAME "ldap" void proto_register_ldap(void); void proto_reg_handoff_ldap(void); /* Initialize the protocol and registered fields */ static int ldap_tap = -1; static int proto_ldap = -1; static int proto_cldap = -1; static int hf_ldap_sasl_buffer_length = -1; static int hf_ldap_response_in = -1; static int hf_ldap_response_to = -1; static int hf_ldap_time = -1; static int hf_ldap_guid = -1; static int hf_mscldap_ntver_flags = -1; static int hf_mscldap_ntver_flags_v1 = -1; static int hf_mscldap_ntver_flags_v5 = -1; static int hf_mscldap_ntver_flags_v5ex = -1; static int hf_mscldap_ntver_flags_v5ep = -1; static int hf_mscldap_ntver_flags_vcs = -1; static int hf_mscldap_ntver_flags_vnt4 = -1; static int hf_mscldap_ntver_flags_vpdc = -1; static int hf_mscldap_ntver_flags_vip = -1; static int hf_mscldap_ntver_flags_vl = -1; static int hf_mscldap_ntver_flags_vgc = -1; static int hf_mscldap_netlogon_ipaddress_family = -1; static int hf_mscldap_netlogon_ipaddress_port = -1; static int hf_mscldap_netlogon_ipaddress = -1; static int hf_mscldap_netlogon_ipaddress_ipv4 = -1; static int hf_mscldap_netlogon_opcode = -1; static int hf_mscldap_netlogon_flags = -1; static int hf_mscldap_netlogon_flags_pdc = -1; static int hf_mscldap_netlogon_flags_gc = -1; static int hf_mscldap_netlogon_flags_ldap = -1; static int hf_mscldap_netlogon_flags_ds = -1; static int hf_mscldap_netlogon_flags_kdc = -1; static int hf_mscldap_netlogon_flags_timeserv = -1; static int hf_mscldap_netlogon_flags_closest = -1; static int hf_mscldap_netlogon_flags_writable = -1; static int hf_mscldap_netlogon_flags_good_timeserv = -1; static int hf_mscldap_netlogon_flags_ndnc = -1; static int hf_mscldap_netlogon_flags_fnc = -1; static int hf_mscldap_netlogon_flags_dnc = -1; static int hf_mscldap_netlogon_flags_dns = -1; static int hf_mscldap_netlogon_flags_wdc = -1; static int hf_mscldap_netlogon_flags_rodc = -1; static int hf_mscldap_domain_guid = -1; static int hf_mscldap_forest = -1; static int hf_mscldap_domain = -1; static int hf_mscldap_hostname = -1; static int hf_mscldap_nb_domain_z = -1; static int hf_mscldap_nb_domain = -1; static int hf_mscldap_nb_hostname_z = -1; static int hf_mscldap_nb_hostname = -1; static int hf_mscldap_username_z = -1; static int hf_mscldap_username = -1; static int hf_mscldap_sitename = -1; static int hf_mscldap_clientsitename = -1; static int hf_mscldap_netlogon_lm_token = -1; static int hf_mscldap_netlogon_nt_token = -1; static int hf_ldap_sid = -1; static int hf_ldap_AccessMask_ADS_CREATE_CHILD = -1; static int hf_ldap_AccessMask_ADS_DELETE_CHILD = -1; static int hf_ldap_AccessMask_ADS_LIST = -1; static int hf_ldap_AccessMask_ADS_SELF_WRITE = -1; static int hf_ldap_AccessMask_ADS_READ_PROP = -1; static int hf_ldap_AccessMask_ADS_WRITE_PROP = -1; static int hf_ldap_AccessMask_ADS_DELETE_TREE = -1; static int hf_ldap_AccessMask_ADS_LIST_OBJECT = -1; static int hf_ldap_AccessMask_ADS_CONTROL_ACCESS = -1; static int hf_ldap_LDAPMessage_PDU = -1; static int hf_ldap_object_security_flag = -1; static int hf_ldap_ancestor_first_flag = -1; static int hf_ldap_public_data_only_flag = -1; static int hf_ldap_incremental_value_flag = -1; static int hf_ldap_oid = -1; static int hf_ldap_gssapi_encrypted_payload = -1; #include "packet-ldap-hf.c" /* Initialize the subtree pointers */ static gint ett_ldap = -1; static gint ett_ldap_msg = -1; static gint ett_ldap_sasl_blob = -1; static gint ett_ldap_payload = -1; static gint ett_mscldap_netlogon_flags = -1; static gint ett_mscldap_ntver_flags = -1; static gint ett_mscldap_ipdetails = -1; static gint ett_ldap_DirSyncFlagsSubEntry = -1; #include "packet-ldap-ett.c" static expert_field ei_ldap_exceeded_filter_length = EI_INIT; static expert_field ei_ldap_too_many_filter_elements = EI_INIT; static dissector_table_t ldap_name_dissector_table=NULL; static const char *object_identifier_id = NULL; /* LDAP OID */ static gboolean do_protocolop = FALSE; static gchar *attr_type = NULL; static gboolean is_binary_attr_type = FALSE; static gboolean ldap_found_in_frame = FALSE; #define TCP_PORT_RANGE_LDAP "389,3268" /* 3268 is Windows 2000 Global Catalog */ #define TCP_PORT_LDAPS 636 #define UDP_PORT_CLDAP 389 /* desegmentation of LDAP */ static gboolean ldap_desegment = TRUE; static guint global_ldaps_tcp_port = TCP_PORT_LDAPS; static guint ssl_port = 0; static dissector_handle_t gssapi_handle; static dissector_handle_t gssapi_wrap_handle; static dissector_handle_t ntlmssp_handle; static dissector_handle_t spnego_handle; static dissector_handle_t tls_handle; static dissector_handle_t ldap_handle ; static void prefs_register_ldap(void); /* forward declaration for use in preferences registration */ /* different types of rpc calls ontop of ms cldap */ #define MSCLDAP_RPC_NETLOGON 1 /* Message type Choice values */ static const value_string ldap_ProtocolOp_choice_vals[] = { { 0, "bindRequest" }, { 1, "bindResponse" }, { 2, "unbindRequest" }, { 3, "searchRequest" }, { 4, "searchResEntry" }, { 5, "searchResDone" }, { 6, "searchResRef" }, { 7, "modifyRequest" }, { 8, "modifyResponse" }, { 9, "addRequest" }, { 10, "addResponse" }, { 11, "delRequest" }, { 12, "delResponse" }, { 13, "modDNRequest" }, { 14, "modDNResponse" }, { 15, "compareRequest" }, { 16, "compareResponse" }, { 17, "abandonRequest" }, { 18, "extendedReq" }, { 19, "extendedResp" }, { 20, "intermediateResponse" }, { 0, NULL } }; /* Procedure names (used in Service Response Time */ const value_string ldap_procedure_names[] = { { 0, "Bind" }, { 3, "Search" }, { 6, "Modify" }, { 8, "Add" }, { 10, "Delete" }, { 12, "Modrdn" }, { 14, "Compare" }, { 23, "Extended" }, { 0, NULL } }; #define LOGON_PRIMARY_QUERY 7 #define LOGON_PRIMARY_RESPONSE 12 #define LOGON_SAM_LOGON_REQUEST 18 #define LOGON_SAM_LOGON_RESPONSE 19 #define LOGON_SAM_PAUSE_RESPONSE 20 #define LOGON_SAM_USER_UNKNOWN 21 #define LOGON_SAM_LOGON_RESPONSE_EX 23 #define LOGON_SAM_PAUSE_RESPONSE_EX 24 #define LOGON_SAM_USER_UNKNOWN_EX 25 static const value_string netlogon_opcode_vals[] = { { LOGON_PRIMARY_QUERY, "LOGON_PRIMARY_QUERY" }, { LOGON_PRIMARY_RESPONSE, "LOGON_PRIMARY_RESPONSE" }, { LOGON_SAM_LOGON_REQUEST, "LOGON_SAM_LOGON_REQUEST" }, { LOGON_SAM_LOGON_RESPONSE, "LOGON_SAM_LOGON_RESPONSE" }, { LOGON_SAM_PAUSE_RESPONSE, "LOGON_SAM_PAUSE_RESPONSE" }, { LOGON_SAM_LOGON_RESPONSE_EX, "LOGON_SAM_LOGON_RESPONSE_EX" }, { LOGON_SAM_PAUSE_RESPONSE_EX, "LOGON_SAM_PAUSE_RESPONSE_EX" }, { LOGON_SAM_USER_UNKNOWN_EX, "LOGON_SAM_USER_UNKNOWN_EX" }, { 0, NULL } }; #define LDAP_NUM_PROCEDURES 24 static void ldapstat_init(struct register_srt* srt _U_, GArray* srt_array) { srt_stat_table *ldap_srt_table; guint32 i; ldap_srt_table = init_srt_table("LDAP Commands", NULL, srt_array, LDAP_NUM_PROCEDURES, NULL, "ldap.protocolOp", NULL); for (i = 0; i < LDAP_NUM_PROCEDURES; i++) { init_srt_table_row(ldap_srt_table, i, val_to_str_const(i, ldap_procedure_names, "")); } } static tap_packet_status ldapstat_packet(void *pldap, packet_info *pinfo, epan_dissect_t *edt _U_, const void *psi) { guint i = 0; srt_stat_table *ldap_srt_table; const ldap_call_response_t *ldap=(const ldap_call_response_t *)psi; srt_data_t *data = (srt_data_t *)pldap; /* we are only interested in reply packets */ if(ldap->is_request){ return TAP_PACKET_DONT_REDRAW; } /* if we havnt seen the request, just ignore it */ if(!ldap->req_frame){ return TAP_PACKET_DONT_REDRAW; } /* only use the commands we know how to handle */ switch(ldap->protocolOpTag){ case LDAP_REQ_BIND: case LDAP_REQ_SEARCH: case LDAP_REQ_MODIFY: case LDAP_REQ_ADD: case LDAP_REQ_DELETE: case LDAP_REQ_MODRDN: case LDAP_REQ_COMPARE: case LDAP_REQ_EXTENDED: break; default: return TAP_PACKET_DONT_REDRAW; } ldap_srt_table = g_array_index(data->srt_array, srt_stat_table*, i); add_srt_table_data(ldap_srt_table, ldap->protocolOpTag, &ldap->req_time, pinfo); return TAP_PACKET_REDRAW; } /* * Data structure attached to a conversation, giving authentication * information from a bind request. */ typedef struct ldap_conv_info_t { guint auth_type; /* authentication type */ char *auth_mech; /* authentication mechanism */ guint32 first_auth_frame; /* first frame that would use a security layer */ wmem_map_t *unmatched; wmem_map_t *matched; gboolean is_mscldap; guint32 num_results; gboolean start_tls_pending; guint32 start_tls_frame; } ldap_conv_info_t; static guint ldap_info_hash_matched(gconstpointer k) { const ldap_call_response_t *key = (const ldap_call_response_t *)k; return key->messageId; } static gint ldap_info_equal_matched(gconstpointer k1, gconstpointer k2) { const ldap_call_response_t *key1 = (const ldap_call_response_t*)k1; const ldap_call_response_t *key2 = (const ldap_call_response_t*)k2; if( key1->req_frame && key2->req_frame && (key1->req_frame!=key2->req_frame) ){ return 0; } /* a response may span multiple frames if( key1->rep_frame && key2->rep_frame && (key1->rep_frame!=key2->rep_frame) ){ return 0; } */ return key1->messageId==key2->messageId; } static guint ldap_info_hash_unmatched(gconstpointer k) { const ldap_call_response_t *key = (const ldap_call_response_t*)k; return key->messageId; } static gint ldap_info_equal_unmatched(gconstpointer k1, gconstpointer k2) { const ldap_call_response_t *key1 = (const ldap_call_response_t*)k1; const ldap_call_response_t *key2 = (const ldap_call_response_t*)k2; return key1->messageId==key2->messageId; } /* These are the NtVer flags from MS-ADTS section 6.3.1.1 * https://docs.microsoft.com/en-us/openspecs/windows_protocols/ms-adts */ static const true_false_string tfs_ntver_v1 = { "Client requested version 1 netlogon response", "Version 1 netlogon response not requested" }; static const true_false_string tfs_ntver_v5 = { "Client requested version 5 netlogon response", "Version 5 netlogon response not requested" }; static const true_false_string tfs_ntver_v5ex = { "Client requested version 5 extended netlogon response", "Version 5 extended response not requested" }; static const true_false_string tfs_ntver_v5ep = { "Client has requested IP address of the server", "IP address of server not requested" }; static const true_false_string tfs_ntver_vcs = { "Client has asked for the closest site information", "Closest site information not requested" }; static const true_false_string tfs_ntver_vnt4 = { "Client is requesting server to avoid NT4 emulation", "Only full AD DS requested" }; static const true_false_string tfs_ntver_vpdc = { "Client has requested the Primary Domain Controller", "Primary Domain Controller not requested" }; static const true_false_string tfs_ntver_vip = { "Client has requested IP details (obsolete)", "IP details not requested (obsolete)" }; static const true_false_string tfs_ntver_vl = { "Client indicated that it is the local machine", "Client is not the local machine" };static const true_false_string tfs_ntver_vgc = { "Client has requested a Global Catalog server", "Global Catalog not requested" }; /* Stuff for generation/handling of fields for custom AttributeValues */ typedef struct _attribute_type_t { gchar* attribute_type; gchar* attribute_desc; } attribute_type_t; static attribute_type_t* attribute_types; static guint num_attribute_types; static GHashTable* attribute_types_hash; static hf_register_info* dynamic_hf; static guint dynamic_hf_size; static gboolean attribute_types_update_cb(void *r, char **err) { attribute_type_t *rec = (attribute_type_t *)r; char c; if (rec->attribute_type == NULL) { *err = g_strdup("Attribute type can't be empty"); return FALSE; } g_strstrip(rec->attribute_type); if (rec->attribute_type[0] == 0) { *err = g_strdup("Attribute type can't be empty"); return FALSE; } /* Check for invalid characters (to avoid asserting out when * registering the field). */ c = proto_check_field_name(rec->attribute_type); if (c) { *err = g_strdup_printf("Attribute type can't contain '%c'", c); return FALSE; } *err = NULL; return TRUE; } static void * attribute_types_copy_cb(void* n, const void* o, size_t siz _U_) { attribute_type_t* new_rec = (attribute_type_t*)n; const attribute_type_t* old_rec = (const attribute_type_t*)o; new_rec->attribute_type = g_strdup(old_rec->attribute_type); new_rec->attribute_desc = g_strdup(old_rec->attribute_desc); return new_rec; } static void attribute_types_free_cb(void*r) { attribute_type_t* rec = (attribute_type_t*)r; g_free(rec->attribute_type); g_free(rec->attribute_desc); } UAT_CSTRING_CB_DEF(attribute_types, attribute_type, attribute_type_t) UAT_CSTRING_CB_DEF(attribute_types, attribute_desc, attribute_type_t) /* * */ static gint* get_hf_for_header(char* attribute_type) { gint* hf_id = NULL; if (attribute_types_hash) { hf_id = (gint*) g_hash_table_lookup(attribute_types_hash, attribute_type); } else { hf_id = NULL; } return hf_id; } /* * */ static void deregister_attribute_types(void) { if (dynamic_hf) { /* Deregister all fields */ for (guint i = 0; i < dynamic_hf_size; i++) { proto_deregister_field (proto_ldap, *(dynamic_hf[i].p_id)); g_free (dynamic_hf[i].p_id); } proto_add_deregistered_data (dynamic_hf); dynamic_hf = NULL; dynamic_hf_size = 0; } if (attribute_types_hash) { g_hash_table_destroy (attribute_types_hash); attribute_types_hash = NULL; } } static void attribute_types_post_update_cb(void) { gint* hf_id; gchar* attribute_type; deregister_attribute_types(); if (num_attribute_types) { attribute_types_hash = g_hash_table_new(g_str_hash, g_str_equal); dynamic_hf = g_new0(hf_register_info,num_attribute_types); dynamic_hf_size = num_attribute_types; for (guint i = 0; i < dynamic_hf_size; i++) { hf_id = g_new(gint,1); *hf_id = -1; attribute_type = g_strdup(attribute_types[i].attribute_type); dynamic_hf[i].p_id = hf_id; dynamic_hf[i].hfinfo.name = attribute_type; dynamic_hf[i].hfinfo.abbrev = g_strdup_printf("ldap.AttributeValue.%s", attribute_type); dynamic_hf[i].hfinfo.type = FT_STRING; dynamic_hf[i].hfinfo.display = BASE_NONE; dynamic_hf[i].hfinfo.strings = NULL; dynamic_hf[i].hfinfo.bitmask = 0; dynamic_hf[i].hfinfo.blurb = g_strdup(attribute_types[i].attribute_desc); HFILL_INIT(dynamic_hf[i]); g_hash_table_insert(attribute_types_hash, attribute_type, hf_id); } proto_register_field_array(proto_ldap, dynamic_hf, dynamic_hf_size); } } static void attribute_types_reset_cb(void) { deregister_attribute_types(); } /* MS-ADTS specification, section 6.3.1.1, NETLOGON_NT_VERSION Options Bits */ static int dissect_mscldap_ntver_flags(proto_tree *parent_tree, tvbuff_t *tvb, int offset) { static int * const flags[] = { &hf_mscldap_ntver_flags_v1, &hf_mscldap_ntver_flags_v5, &hf_mscldap_ntver_flags_v5ex, &hf_mscldap_ntver_flags_v5ep, &hf_mscldap_ntver_flags_vcs, &hf_mscldap_ntver_flags_vnt4, &hf_mscldap_ntver_flags_vpdc, &hf_mscldap_ntver_flags_vip, &hf_mscldap_ntver_flags_vl, &hf_mscldap_ntver_flags_vgc, NULL }; proto_tree_add_bitmask_with_flags(parent_tree, tvb, offset, hf_mscldap_ntver_flags, ett_mscldap_ntver_flags, flags, ENC_LITTLE_ENDIAN, BMT_NO_FALSE); offset += 4; return offset; } /* This string contains the last LDAPString that was decoded */ static const char *attributedesc_string=NULL; /* This string contains the last AssertionValue that was decoded */ static char *ldapvalue_string=NULL; /* if the octet string contain all printable ASCII characters, then * display it as a string, othervise just display it in hex. */ static int dissect_ldap_AssertionValue(gboolean implicit_tag, tvbuff_t *tvb, int offset, asn1_ctx_t *actx _U_, proto_tree *tree, int hf_index) { gint8 ber_class; gboolean pc, ind, is_ascii; gint32 tag; guint32 len; if(!implicit_tag){ offset=get_ber_identifier(tvb, offset, &ber_class, &pc, &tag); offset=get_ber_length(tvb, offset, &len, &ind); } else { len=tvb_reported_length_remaining(tvb,offset); } if(len==0){ return offset; } /* * Some special/wellknown attributes in common LDAP (read AD) * are neither ascii strings nor blobs of hex data. * Special case these attributes and decode them more nicely. * * Add more special cases as required to prettify further * (there can't be that many ones that are truly interesting) */ if(attributedesc_string && !strncmp("DomainSid", attributedesc_string, 9)){ tvbuff_t *sid_tvb; char *tmpstr; /* this octet string contains an NT SID */ sid_tvb=tvb_new_subset_length(tvb, offset, len); dissect_nt_sid(sid_tvb, 0, tree, "SID", &tmpstr, hf_index); ldapvalue_string=tmpstr; goto finished; } else if ( (len==16) /* GUIDs are always 16 bytes */ && (attributedesc_string && !strncmp("DomainGuid", attributedesc_string, 10))) { guint8 drep[4] = { 0x10, 0x00, 0x00, 0x00}; /* fake DREP struct */ e_guid_t uuid; /* This octet string contained a GUID */ dissect_dcerpc_uuid_t(tvb, offset, actx->pinfo, tree, drep, hf_ldap_guid, &uuid); ldapvalue_string=(char*)wmem_alloc(wmem_packet_scope(), 1024); g_snprintf(ldapvalue_string, 1023, "%08x-%04x-%04x-%02x%02x-%02x%02x%02x%02x%02x%02x", uuid.data1, uuid.data2, uuid.data3, uuid.data4[0], uuid.data4[1], uuid.data4[2], uuid.data4[3], uuid.data4[4], uuid.data4[5], uuid.data4[6], uuid.data4[7]); goto finished; } else if (attributedesc_string && !strncmp("NtVer", attributedesc_string, 5)){ guint32 flags; len = 0; /* get flag value to populate ldapvalue_string */ flags=tvb_get_letohl(tvb, offset); ldapvalue_string=(char*)wmem_alloc(wmem_packet_scope(), 1024); g_snprintf(ldapvalue_string, 1023, "0x%08x",flags); /* populate bitmask subtree */ offset = dissect_mscldap_ntver_flags(tree, tvb, offset); goto finished; } /* * It was not one of our "wellknown" attributes so make the best * we can and just try to see if it is an ascii string or if it * is a binary blob. * * XXX - should we support reading RFC 2252-style schemas * for LDAP, and using that to determine how to display * attribute values and assertion values? * * -- I don't think there are full schemas available that describe the * interesting cases i.e. AD -- ronnie */ is_ascii=tvb_ascii_isprint(tvb, offset, len); /* convert the string into a printable string */ if(is_ascii){ ldapvalue_string= tvb_get_string_enc(wmem_packet_scope(), tvb, offset, len, ENC_UTF_8|ENC_NA); } else { ldapvalue_string= tvb_bytes_to_str_punct(wmem_packet_scope(), tvb, offset, len, ':'); } proto_tree_add_string(tree, hf_index, tvb, offset, len, ldapvalue_string); finished: offset+=len; return offset; } /* This string contains the last Filter item that was decoded */ static const char *Filter_string=NULL; static const char *and_filter_string=NULL; static const char *or_filter_string=NULL; static const char *substring_value=NULL; static const char *substring_item_init=NULL; static const char *substring_item_any=NULL; static const char *substring_item_final=NULL; static const char *matching_rule_string=NULL; static gboolean matching_rule_dnattr=FALSE; #define MAX_FILTER_LEN 4096 static gint Filter_length; #define MAX_FILTER_ELEMENTS 200 static gint Filter_elements; /* Global variables */ static gint MessageID =-1; static gint ProtocolOp = -1; static gint result = 0; static proto_item *ldm_tree = NULL; /* item to add text to */ static void ldap_do_protocolop(packet_info *pinfo) { const gchar* valstr; if (do_protocolop) { valstr = val_to_str(ProtocolOp, ldap_ProtocolOp_choice_vals, "Unknown (%%u)"); col_append_fstr(pinfo->cinfo, COL_INFO, "%s(%u) ", valstr, MessageID); if(ldm_tree) proto_item_append_text(ldm_tree, " %s(%d)", valstr, MessageID); do_protocolop = FALSE; } } static ldap_call_response_t * ldap_match_call_response(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree, guint messageId, guint protocolOpTag, ldap_conv_info_t *ldap_info) { ldap_call_response_t lcr, *lcrp=NULL; /* first see if we have already matched this */ lcr.messageId=messageId; switch(protocolOpTag){ case LDAP_REQ_BIND: case LDAP_REQ_SEARCH: case LDAP_REQ_MODIFY: case LDAP_REQ_ADD: case LDAP_REQ_DELETE: case LDAP_REQ_MODRDN: case LDAP_REQ_COMPARE: case LDAP_REQ_EXTENDED: lcr.is_request=TRUE; lcr.req_frame=pinfo->num; lcr.rep_frame=0; break; case LDAP_RES_BIND: case LDAP_RES_SEARCH_ENTRY: case LDAP_RES_SEARCH_REF: case LDAP_RES_SEARCH_RESULT: case LDAP_RES_MODIFY: case LDAP_RES_ADD: case LDAP_RES_DELETE: case LDAP_RES_MODRDN: case LDAP_RES_COMPARE: case LDAP_RES_EXTENDED: case LDAP_RES_INTERMEDIATE: lcr.is_request=FALSE; lcr.req_frame=0; lcr.rep_frame=pinfo->num; break; default: return NULL; } lcrp=(ldap_call_response_t *)wmem_map_lookup(ldap_info->matched, &lcr); if(lcrp){ lcrp->is_request=lcr.is_request; } else { /* we haven't found a match - try and match it up */ switch(protocolOpTag){ case LDAP_REQ_BIND: case LDAP_REQ_SEARCH: case LDAP_REQ_MODIFY: case LDAP_REQ_ADD: case LDAP_REQ_DELETE: case LDAP_REQ_MODRDN: case LDAP_REQ_COMPARE: case LDAP_REQ_EXTENDED: /* this a a request - add it to the unmatched list */ /* check that we don't already have one of those in the unmatched list and if so remove it */ lcr.messageId=messageId; lcrp=(ldap_call_response_t *)wmem_map_lookup(ldap_info->unmatched, &lcr); if(lcrp){ wmem_map_remove(ldap_info->unmatched, lcrp); } /* if we can't reuse the old one, grab a new chunk */ if(!lcrp){ lcrp=wmem_new0(wmem_file_scope(), ldap_call_response_t); } lcrp->messageId=messageId; lcrp->req_frame=pinfo->num; lcrp->req_time=pinfo->abs_ts; lcrp->rep_frame=0; lcrp->protocolOpTag=protocolOpTag; lcrp->is_request=TRUE; wmem_map_insert(ldap_info->unmatched, lcrp, lcrp); return NULL; break; case LDAP_RES_BIND: case LDAP_RES_SEARCH_ENTRY: case LDAP_RES_SEARCH_REF: case LDAP_RES_SEARCH_RESULT: case LDAP_RES_MODIFY: case LDAP_RES_ADD: case LDAP_RES_DELETE: case LDAP_RES_MODRDN: case LDAP_RES_COMPARE: case LDAP_RES_EXTENDED: case LDAP_RES_INTERMEDIATE: /* this is a result - it should be in our unmatched list */ lcr.messageId=messageId; lcrp=(ldap_call_response_t *)wmem_map_lookup(ldap_info->unmatched, &lcr); if(lcrp){ if(!lcrp->rep_frame){ wmem_map_remove(ldap_info->unmatched, lcrp); lcrp->rep_frame=pinfo->num; lcrp->is_request=FALSE; wmem_map_insert(ldap_info->matched, lcrp, lcrp); } } break; } } /* we have found a match */ if(lcrp){ proto_item *it; if(lcrp->is_request){ it=proto_tree_add_uint(tree, hf_ldap_response_in, tvb, 0, 0, lcrp->rep_frame); proto_item_set_generated(it); } else { nstime_t ns; it=proto_tree_add_uint(tree, hf_ldap_response_to, tvb, 0, 0, lcrp->req_frame); proto_item_set_generated(it); nstime_delta(&ns, &pinfo->abs_ts, &lcrp->req_time); it=proto_tree_add_time(tree, hf_ldap_time, tvb, 0, 0, &ns); proto_item_set_generated(it); } } return lcrp; } #include "packet-ldap-fn.c" static int dissect_LDAPMessage_PDU(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree, ldap_conv_info_t *ldap_info) { int offset = 0; asn1_ctx_t asn1_ctx; asn1_ctx_init(&asn1_ctx, ASN1_ENC_BER, TRUE, pinfo); asn1_ctx.private_data = ldap_info; offset = dissect_ldap_LDAPMessage(FALSE, tvb, offset, &asn1_ctx, tree, hf_ldap_LDAPMessage_PDU); return offset; } static void dissect_ldap_payload(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree, ldap_conv_info_t *ldap_info, gboolean is_mscldap) { int offset = 0; guint length_remaining; guint msg_len = 0; int messageOffset = 0; guint headerLength = 0; guint length = 0; tvbuff_t *msg_tvb = NULL; gint8 ber_class; gboolean pc, ind = 0; gint32 ber_tag; attributedesc_string=NULL; one_more_pdu: length_remaining = tvb_ensure_captured_length_remaining(tvb, offset); if (length_remaining < 6) return; /* * OK, try to read the "Sequence Of" header; this gets the total * length of the LDAP message. */ messageOffset = get_ber_identifier(tvb, offset, &ber_class, &pc, &ber_tag); messageOffset = get_ber_length(tvb, messageOffset, &msg_len, &ind); /* sanity check */ if((msg_len<4) || (msg_len>10000000)) return; if ( (ber_class==BER_CLASS_UNI) && (ber_tag==BER_UNI_TAG_SEQUENCE) ) { /* * Add the length of the "Sequence Of" header to the message * length. */ headerLength = messageOffset - offset; msg_len += headerLength; if (msg_len < headerLength) { /* * The message length was probably so large that the total length * overflowed. * * Report this as an error. */ show_reported_bounds_error(tvb, pinfo, tree); return; } } else { /* * We couldn't parse the header; just make it the amount of data * remaining in the tvbuff, so we'll give up on this segment * after attempting to parse the message - there's nothing more * we can do. "dissect_ldap_message()" will display the error. */ msg_len = length_remaining; } /* * Construct a tvbuff containing the amount of the payload we have * available. Make its reported length the amount of data in the * LDAP message. * * XXX - if reassembly isn't enabled. the subdissector will throw a * BoundsError exception, rather than a ReportedBoundsError exception. * We really want a tvbuff where the length is "length", the reported * length is "plen", and the "if the snapshot length were infinite" * length is the minimum of the reported length of the tvbuff handed * to us and "plen", with a new type of exception thrown if the offset * is within the reported length but beyond that third length, with * that exception getting the "Unreassembled Packet" error. */ length = length_remaining; if (length > msg_len) length = msg_len; msg_tvb = tvb_new_subset_length_caplen(tvb, offset, length, msg_len); /* * Now dissect the LDAP message. */ ldap_info->is_mscldap = is_mscldap; dissect_LDAPMessage_PDU(msg_tvb, pinfo, tree, ldap_info); offset += msg_len; /* If this was a sasl blob there might be another PDU following in the * same blob */ if(tvb_reported_length_remaining(tvb, offset)>=6){ tvb = tvb_new_subset_remaining(tvb, offset); offset = 0; goto one_more_pdu; } } static void ldap_frame_end(void) { ldap_found_in_frame = FALSE; attr_type = NULL; ldapvalue_string = NULL; /* ? */ attributedesc_string = NULL; Filter_string = NULL; and_filter_string = NULL; object_identifier_id = NULL; or_filter_string = NULL; substring_item_any = NULL; substring_item_final = NULL; substring_item_init = NULL; substring_value = NULL; ldm_tree = NULL; Filter_elements = 0; Filter_length = 0; do_protocolop = FALSE; result = 0; /* seems to be ok, but reset just in case */ matching_rule_string = NULL; } static void dissect_ldap_pdu(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree, gboolean is_mscldap) { int offset = 0; conversation_t *conversation; gboolean doing_sasl_security = FALSE; guint length_remaining; ldap_conv_info_t *ldap_info = NULL; proto_item *ldap_item = NULL; proto_tree *ldap_tree = NULL; ldm_tree = NULL; conversation = find_or_create_conversation(pinfo); /* * Do we already have a type and mechanism? */ ldap_info = (ldap_conv_info_t *)conversation_get_proto_data(conversation, proto_ldap); if (ldap_info == NULL) { /* No. Attach that information to the conversation, and add * it to the list of information structures. */ ldap_info = wmem_new0(wmem_file_scope(), ldap_conv_info_t); ldap_info->matched=wmem_map_new(wmem_file_scope(), ldap_info_hash_matched, ldap_info_equal_matched); ldap_info->unmatched=wmem_map_new(wmem_file_scope(), ldap_info_hash_unmatched, ldap_info_equal_unmatched); conversation_add_proto_data(conversation, proto_ldap, ldap_info); } switch (ldap_info->auth_type) { case LDAP_AUTH_SASL: /* * It's SASL; are we using a security layer? */ if (ldap_info->first_auth_frame != 0 && pinfo->num >= ldap_info->first_auth_frame) { doing_sasl_security = TRUE; /* yes */ } } length_remaining = tvb_ensure_captured_length_remaining(tvb, offset); /* It might still be a packet containing a SASL security layer * but it's just that we never saw the BIND packet. * check if it looks like it could be a SASL blob here * and in that case just assume it is GSS-SPNEGO */ if(!doing_sasl_security && (tvb_bytes_exist(tvb, offset, 5)) &&(tvb_get_ntohl(tvb, offset)<=(guint)(tvb_reported_length_remaining(tvb, offset)-4)) &&(tvb_get_guint8(tvb, offset+4)==0x60) ){ ldap_info->auth_type=LDAP_AUTH_SASL; ldap_info->first_auth_frame=pinfo->num; ldap_info->auth_mech=wmem_strdup(wmem_file_scope(), "GSS-SPNEGO"); doing_sasl_security=TRUE; } /* * This is the first PDU, set the Protocol column and clear the * Info column. */ col_set_str(pinfo->cinfo, COL_PROTOCOL, pinfo->current_proto); if(ldap_found_in_frame) { /* we have already dissected an ldap PDU in this frame - add a separator and set a fence */ col_append_str(pinfo->cinfo, COL_INFO, " | "); col_set_fence(pinfo->cinfo, COL_INFO); } else { col_clear(pinfo->cinfo, COL_INFO); register_frame_end_routine (pinfo, ldap_frame_end); ldap_found_in_frame = TRUE; } ldap_item = proto_tree_add_item(tree, is_mscldap?proto_cldap:proto_ldap, tvb, 0, -1, ENC_NA); ldap_tree = proto_item_add_subtree(ldap_item, ett_ldap); /* * Might we be doing a SASL security layer and, if so, *are* we doing * one? * * Just because we've seen a bind reply for SASL, that doesn't mean * that we're using a SASL security layer; I've seen captures in * which some SASL negotiations lead to a security layer being used * and other negotiations don't, and it's not obvious what's different * in the two negotiations. Therefore, we assume that if the first * byte is 0, it's a length for a SASL security layer (that way, we * never reassemble more than 16 megabytes, protecting us from * chewing up *too* much memory), and otherwise that it's an LDAP * message (actually, if it's an LDAP message it should begin with 0x30, * but we want to parse garbage as LDAP messages rather than really * huge lengths). */ if (doing_sasl_security && tvb_get_guint8(tvb, offset) == 0) { proto_tree *sasl_tree; tvbuff_t *sasl_tvb; guint sasl_len, sasl_msg_len, length; /* * Yes. The frame begins with a 4-byte big-endian length. * And we know we have at least 6 bytes */ /* * Get the SASL length, which is the length of data in the buffer * following the length (i.e., it's 4 less than the total length). * * XXX - do we need to reassemble buffers? For now, we * assume that each LDAP message is entirely contained within * a buffer. */ sasl_len = tvb_get_ntohl(tvb, offset); sasl_msg_len = sasl_len + 4; if (sasl_msg_len < 4) { /* * The message length was probably so large that the total length * overflowed. * * Report this as an error. */ show_reported_bounds_error(tvb, pinfo, tree); return; } /* * Construct a tvbuff containing the amount of the payload we have * available. Make its reported length the amount of data in the PDU. * * XXX - if reassembly isn't enabled. the subdissector will throw a * BoundsError exception, rather than a ReportedBoundsError exception. * We really want a tvbuff where the length is "length", the reported * length is "plen", and the "if the snapshot length were infinite" * length is the minimum of the reported length of the tvbuff handed * to us and "plen", with a new type of exception thrown if the offset * is within the reported length but beyond that third length, with * that exception getting the "Unreassembled Packet" error. */ length = length_remaining; if (length > sasl_msg_len) length = sasl_msg_len; sasl_tvb = tvb_new_subset_length_caplen(tvb, offset, length, sasl_msg_len); proto_tree_add_uint(ldap_tree, hf_ldap_sasl_buffer_length, sasl_tvb, 0, 4, sasl_len); sasl_tree = proto_tree_add_subtree(ldap_tree, sasl_tvb, 4, sasl_msg_len - 4, ett_ldap_sasl_blob, NULL, "SASL Buffer"); if (ldap_info->auth_mech != NULL && ((strcmp(ldap_info->auth_mech, "GSS-SPNEGO") == 0) || /* auth_mech may have been set from the bind */ (strcmp(ldap_info->auth_mech, "GSSAPI") == 0))) { tvbuff_t *gssapi_tvb = NULL; int ver_len; int tmp_length; gssapi_encrypt_info_t gssapi_encrypt; /* * This is GSS-API (using SPNEGO, but we should be done with * the negotiation by now). * * Dissect the GSS_Wrap() token; it'll return the length of * the token, from which we compute the offset in the tvbuff at * which the plaintext data, i.e. the LDAP message, begins. */ tmp_length = tvb_reported_length_remaining(sasl_tvb, 4); if ((guint)tmp_length > sasl_len) tmp_length = sasl_len; gssapi_tvb = tvb_new_subset_length_caplen(sasl_tvb, 4, tmp_length, sasl_len); /* Attempt decryption of the GSSAPI wrapped data if possible */ memset(&gssapi_encrypt, 0, sizeof(gssapi_encrypt)); gssapi_encrypt.decrypt_gssapi_tvb=DECRYPT_GSSAPI_NORMAL; ver_len = call_dissector_with_data(gssapi_wrap_handle, gssapi_tvb, pinfo, sasl_tree, &gssapi_encrypt); /* * If ver_len is 0, it probably means that we got a PDU that is not * aligned to the start of the segment. */ if(ver_len==0){ return; } if (gssapi_encrypt.gssapi_decrypted_tvb) { tvbuff_t *decr_tvb = gssapi_encrypt.gssapi_decrypted_tvb; proto_tree *enc_tree = NULL; /* * The LDAP payload (blob) was encrypted and we were able to decrypt it. * The data was signed via a MIC token, sealed (encrypted), and "wrapped" * within the mechanism's "blob." Call dissect_ldap_payload to dissect * one or more LDAPMessages such as searchRequest messages within this * payload. */ col_set_str(pinfo->cinfo, COL_INFO, "SASL GSS-API Privacy (decrypted): "); if (sasl_tree) { guint decr_len = tvb_reported_length(decr_tvb); enc_tree = proto_tree_add_subtree_format(sasl_tree, decr_tvb, 0, -1, ett_ldap_payload, NULL, "GSS-API Encrypted payload (%d byte%s)", decr_len, plurality(decr_len, "", "s")); } dissect_ldap_payload(decr_tvb, pinfo, enc_tree, ldap_info, is_mscldap); } else if (gssapi_encrypt.gssapi_data_encrypted) { /* * The LDAP message was encrypted but couldn't be decrypted so just display the * encrypted data all of which is found in Packet Bytes. */ col_add_fstr(pinfo->cinfo, COL_INFO, "SASL GSS-API Privacy: payload (%d byte%s)", sasl_len-ver_len, plurality(sasl_len-ver_len, "", "s")); proto_tree_add_item(sasl_tree, hf_ldap_gssapi_encrypted_payload, gssapi_tvb, ver_len, -1, ENC_NA); } else { tvbuff_t *plain_tvb = tvb_new_subset_remaining(gssapi_tvb, ver_len); proto_tree *plain_tree = NULL; /* * The payload was not encrypted (sealed) but was signed via a MIC token. * If krb5_tok_id == KRB_TOKEN_CFX_WRAP, the payload was wrapped within * the mechanism's blob. Call dissect_ldap_payload to dissect one or more * LDAPMessages within the payload. */ col_set_str(pinfo->cinfo, COL_INFO, "SASL GSS-API Integrity: "); if (sasl_tree) { guint plain_len = tvb_reported_length(plain_tvb); plain_tree = proto_tree_add_subtree_format(sasl_tree, plain_tvb, 0, -1, ett_ldap_payload, NULL, "GSS-API payload (%d byte%s)", plain_len, plurality(plain_len, "", "s")); } dissect_ldap_payload(plain_tvb, pinfo, plain_tree, ldap_info, is_mscldap); } } } else { /* * The LDAP packet does not contain a SASL security layer. Such messages are typically sent * prior to the LDAP "bind" negotiation exchange which establishes the "context" of the session. * This means the data could neither be "signed" (no data origin auth or data integrity * check) nor "sealed" (encrypted). */ dissect_ldap_payload(tvb, pinfo, ldap_tree, ldap_info, is_mscldap); } } /* * prepend_dot is no longer used, but is being left in place in order to * maintain ABI compatibility. */ int dissect_mscldap_string(tvbuff_t *tvb, int offset, char *str, int max_len, gboolean prepend_dot _U_) { int compr_len; const gchar *name; guint name_len; /* The name data MUST start at offset 0 of the tvb */ compr_len = get_dns_name(tvb, offset, max_len, 0, &name, &name_len); g_strlcpy(str, name, max_len); return offset + compr_len; } /* These are the cldap DC flags http://msdn.microsoft.com/en-us/library/cc201036.aspx */ static const true_false_string tfs_ads_pdc = { "This is a PDC", "This is NOT a pdc" }; static const true_false_string tfs_ads_gc = { "This is a GLOBAL CATALOGUE of forest", "This is NOT a global catalog of forest" }; static const true_false_string tfs_ads_ldap = { "This is an LDAP server", "This is NOT an ldap server" }; static const true_false_string tfs_ads_ds = { "This dc supports DS", "This dc does NOT support ds" }; static const true_false_string tfs_ads_kdc = { "This is a KDC (kerberos)", "This is NOT a kdc (kerberos)" }; static const true_false_string tfs_ads_timeserv = { "This dc is running TIME SERVICES (ntp)", "This dc is NOT running time services (ntp)" }; static const true_false_string tfs_ads_closest = { "This server is in the same site as the client", "This server is NOT in the same site as the client" }; static const true_false_string tfs_ads_writable = { "This dc is WRITABLE", "This dc is NOT writable" }; static const true_false_string tfs_ads_good_timeserv = { "This dc has a GOOD TIME SERVICE (i.e. hardware clock)", "This dc does NOT have a good time service (i.e. no hardware clock)" }; static const true_false_string tfs_ads_ndnc = { "Domain is NON-DOMAIN NC serviced by ldap server", "Domain is NOT non-domain nc serviced by ldap server" }; static const true_false_string tfs_ads_rodc = { "Domain controller is a Windows 2008 RODC", "Domain controller is not a Windows 2008 RODC" }; static const true_false_string tfs_ads_wdc = { "Domain controller is a Windows 2008 writable NC", "Domain controller is not a Windows 2008 writable NC" }; static const true_false_string tfs_ads_dns = { "Server name is in DNS format (Windows 2008)", "Server name is not in DNS format (Windows 2008)" }; static const true_false_string tfs_ads_dnc = { "The NC is the default NC (Windows 2008)", "The NC is not the default NC (Windows 2008)" }; static const true_false_string tfs_ads_fnc = { "The NC is the default forest NC(Windows 2008)", "The NC is not the default forest NC (Windows 2008)" }; static int dissect_mscldap_netlogon_flags(proto_tree *parent_tree, tvbuff_t *tvb, int offset) { static int * const flags[] = { &hf_mscldap_netlogon_flags_fnc, &hf_mscldap_netlogon_flags_dnc, &hf_mscldap_netlogon_flags_dns, &hf_mscldap_netlogon_flags_wdc, &hf_mscldap_netlogon_flags_rodc, &hf_mscldap_netlogon_flags_ndnc, &hf_mscldap_netlogon_flags_good_timeserv, &hf_mscldap_netlogon_flags_writable, &hf_mscldap_netlogon_flags_closest, &hf_mscldap_netlogon_flags_timeserv, &hf_mscldap_netlogon_flags_kdc, &hf_mscldap_netlogon_flags_ds, &hf_mscldap_netlogon_flags_ldap, &hf_mscldap_netlogon_flags_gc, &hf_mscldap_netlogon_flags_pdc, NULL }; proto_tree_add_bitmask_with_flags(parent_tree, tvb, offset, hf_mscldap_netlogon_flags, ett_mscldap_netlogon_flags, flags, ENC_LITTLE_ENDIAN, BMT_NO_FALSE); offset += 4; return offset; } static int dissect_NetLogon_PDU(tvbuff_t *tvb, packet_info *pinfo _U_, proto_tree *tree, void* data _U_) { int old_offset, offset=0; char str[256]; guint16 itype; guint16 len; guint32 version; int fn_len; proto_item *item; ldm_tree = NULL; /* Get the length of the buffer */ len=tvb_reported_length_remaining(tvb,offset); /* check the len if it is to small return */ if (len < 10) return tvb_captured_length(tvb); /* Type */ proto_tree_add_item(tree, hf_mscldap_netlogon_opcode, tvb, offset, 2, ENC_LITTLE_ENDIAN); itype = tvb_get_letohs(tvb, offset); offset += 2; switch(itype){ case LOGON_SAM_LOGON_RESPONSE: /* logon server name; must be aligned on a 2-byte boundary */ if ((offset & 1) != 0) { offset++; } proto_tree_add_item_ret_length(tree, hf_mscldap_nb_hostname_z, tvb,offset, -1, ENC_UTF_16|ENC_LITTLE_ENDIAN, &fn_len); offset +=fn_len; /* username; must be aligned on a 2-byte boundary */ if ((offset & 1) != 0) { offset++; } proto_tree_add_item_ret_length(tree, hf_mscldap_username_z, tvb,offset, -1, ENC_UTF_16|ENC_LITTLE_ENDIAN, &fn_len); offset +=fn_len; /* domain name; must be aligned on a 2-byte boundary */ if ((offset & 1) != 0) { offset++; } proto_tree_add_item_ret_length(tree, hf_mscldap_nb_domain_z, tvb,offset, -1, ENC_UTF_16|ENC_LITTLE_ENDIAN, &fn_len); offset +=fn_len; /* get the version number from the end of the buffer, as the length is variable and the version determines what fields need to be decoded */ version = tvb_get_letohl(tvb,len-8); /* include the extra version 5 fields */ if ((version & NETLOGON_NT_VERSION_5) == NETLOGON_NT_VERSION_5){ /* domain guid */ proto_tree_add_item(tree, hf_mscldap_domain_guid, tvb, offset, 16, ENC_LITTLE_ENDIAN); offset += 16; /* domain guid part 2 there is another 16 byte guid but this is alway zero, so we will skip it */ offset += 16; /* Forest */ old_offset=offset; offset=dissect_mscldap_string(tvb, offset, str, 255, FALSE); proto_tree_add_string(tree, hf_mscldap_forest, tvb, old_offset, offset-old_offset, str); /* Domain */ old_offset=offset; offset=dissect_mscldap_string(tvb, offset, str, 255, FALSE); proto_tree_add_string(tree, hf_mscldap_domain, tvb, old_offset, offset-old_offset, str); /* Hostname */ old_offset=offset; offset=dissect_mscldap_string(tvb, offset, str, 255, FALSE); proto_tree_add_string(tree, hf_mscldap_hostname, tvb, old_offset, offset-old_offset, str); /* DC IP Address */ proto_tree_add_item(tree, hf_mscldap_netlogon_ipaddress, tvb, offset, 4, ENC_BIG_ENDIAN); offset += 4; /* Flags */ dissect_mscldap_netlogon_flags(tree, tvb, offset); } break; case LOGON_SAM_LOGON_RESPONSE_EX: /* MS-ADTS 6.3.1.9 */ offset += 2; /* Skip over "Sbz" field (MUST be set to 0) */ /* Flags */ offset = dissect_mscldap_netlogon_flags(tree, tvb, offset); /* Domain GUID */ proto_tree_add_item(tree, hf_mscldap_domain_guid, tvb, offset, 16, ENC_LITTLE_ENDIAN); offset += 16; /* Forest */ old_offset=offset; offset=dissect_mscldap_string(tvb, offset, str, 255, FALSE); proto_tree_add_string(tree, hf_mscldap_forest, tvb, old_offset, offset-old_offset, str); /* Domain */ old_offset=offset; offset=dissect_mscldap_string(tvb, offset, str, 255, FALSE); proto_tree_add_string(tree, hf_mscldap_domain, tvb, old_offset, offset-old_offset, str); /* Hostname */ old_offset=offset; offset=dissect_mscldap_string(tvb, offset, str, 255, FALSE); proto_tree_add_string(tree, hf_mscldap_hostname, tvb, old_offset, offset-old_offset, str); /* NetBIOS Domain */ old_offset=offset; offset=dissect_mscldap_string(tvb, offset, str, 255, FALSE); proto_tree_add_string(tree, hf_mscldap_nb_domain, tvb, old_offset, offset-old_offset, str); /* NetBIOS Hostname */ old_offset=offset; offset=dissect_mscldap_string(tvb, offset, str, 255, FALSE); proto_tree_add_string(tree, hf_mscldap_nb_hostname, tvb, old_offset, offset-old_offset, str); /* User */ old_offset=offset; offset=dissect_mscldap_string(tvb, offset, str, 255, FALSE); proto_tree_add_string(tree, hf_mscldap_username, tvb, old_offset, offset-old_offset, str); /* Server Site */ old_offset=offset; offset=dissect_mscldap_string(tvb, offset, str, 255, FALSE); proto_tree_add_string(tree, hf_mscldap_sitename, tvb, old_offset, offset-old_offset, str); /* Client Site */ old_offset=offset; offset=dissect_mscldap_string(tvb, offset, str, 255, FALSE); proto_tree_add_string(tree, hf_mscldap_clientsitename, tvb, old_offset, offset-old_offset, str); /* get the version number from the end of the buffer, as the length is variable and the version determines what fields need to be decoded */ version = tvb_get_letohl(tvb,len-8); /* include the extra fields for version 5 with IP s */ if ((version & NETLOGON_NT_VERSION_5EX_WITH_IP) == NETLOGON_NT_VERSION_5EX_WITH_IP){ /* The ip address is returned as a sockaddr_in structure * * This section may need to be updated if the base Windows APIs * are changed to support ipv6, which currently is not the case. * * The desector assumes the length is based on ipv4 and * ignores the length */ /* skip the length of the sockaddr_in */ offset +=1; /* add IP address and desect the sockaddr_in structure */ old_offset = offset + 4; item = proto_tree_add_item(tree, hf_mscldap_netlogon_ipaddress, tvb, old_offset, 4, ENC_BIG_ENDIAN); if (tree) { proto_tree *subtree; subtree = proto_item_add_subtree(item, ett_mscldap_ipdetails); /* get sockaddr family */ proto_tree_add_item(subtree, hf_mscldap_netlogon_ipaddress_family, tvb, offset, 2, ENC_LITTLE_ENDIAN); offset +=2; /* get sockaddr port */ proto_tree_add_item(subtree, hf_mscldap_netlogon_ipaddress_port, tvb, offset, 2, ENC_LITTLE_ENDIAN); offset +=2; /* get IP address */ proto_tree_add_item(subtree, hf_mscldap_netlogon_ipaddress_ipv4, tvb, offset, 4, ENC_BIG_ENDIAN); } } break; } /* complete the decode with the version and token details */ offset = len - 8; /* NETLOGON_NT_VERISON Options (MS-ADTS 6.3.1.1) */ offset = dissect_mscldap_ntver_flags(tree, tvb, offset); /* LM Token */ proto_tree_add_item(tree, hf_mscldap_netlogon_lm_token, tvb, offset, 2, ENC_LITTLE_ENDIAN); offset += 2; /* NT Token */ proto_tree_add_item(tree, hf_mscldap_netlogon_nt_token, tvb, offset, 2, ENC_LITTLE_ENDIAN); return tvb_captured_length(tvb); } static guint get_sasl_ldap_pdu_len(packet_info *pinfo _U_, tvbuff_t *tvb, int offset, void *data _U_) { /* sasl encapsulated ldap is 4 bytes plus the length in size */ return tvb_get_ntohl(tvb, offset)+4; } static int dissect_sasl_ldap_pdu(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree, void* data _U_) { dissect_ldap_pdu(tvb, pinfo, tree, FALSE); return tvb_captured_length(tvb); } static guint get_normal_ldap_pdu_len(packet_info *pinfo _U_, tvbuff_t *tvb, int offset, void *data _U_) { guint32 len; gboolean ind; int data_offset; /* normal ldap is tag+len bytes plus the length * offset is where the tag is * offset+1 is where length starts */ data_offset=get_ber_length(tvb, offset+1, &len, &ind); return len+data_offset-offset; } static int dissect_normal_ldap_pdu(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree, void* data _U_) { dissect_ldap_pdu(tvb, pinfo, tree, FALSE); return tvb_captured_length(tvb); } static int dissect_ldap_oid(tvbuff_t *tvb, packet_info *pinfo _U_, proto_tree *tree, void* data _U_) { char *oid; const char *oidname; /* tvb here contains an ascii string that is really an oid */ /* XXX we should convert the string oid into a real oid so we can use * proto_tree_add_oid() instead. */ oid=tvb_get_string_enc(wmem_packet_scope(), tvb, 0, tvb_reported_length(tvb), ENC_UTF_8|ENC_NA); if(!oid){ return tvb_captured_length(tvb); } oidname=oid_resolved_from_string(wmem_packet_scope(), oid); if(oidname){ proto_tree_add_string_format_value(tree, hf_ldap_oid, tvb, 0, tvb_reported_length(tvb), oid, "%s (%s)",oid,oidname); } else { proto_tree_add_string(tree, hf_ldap_oid, tvb, 0, tvb_captured_length(tvb), oid); } return tvb_captured_length(tvb); } #define LDAP_ACCESSMASK_ADS_CREATE_CHILD 0x00000001 #define LDAP_ACCESSMASK_ADS_DELETE_CHILD 0x00000002 #define LDAP_ACCESSMASK_ADS_LIST 0x00000004 #define LDAP_ACCESSMASK_ADS_SELF_WRITE 0x00000008 #define LDAP_ACCESSMASK_ADS_READ_PROP 0x00000010 #define LDAP_ACCESSMASK_ADS_WRITE_PROP 0x00000020 #define LDAP_ACCESSMASK_ADS_DELETE_TREE 0x00000040 #define LDAP_ACCESSMASK_ADS_LIST_OBJECT 0x00000080 #define LDAP_ACCESSMASK_ADS_CONTROL_ACCESS 0x00000100 static void ldap_specific_rights(tvbuff_t *tvb, gint offset, proto_tree *tree, guint32 access) { static int * const access_flags[] = { &hf_ldap_AccessMask_ADS_CONTROL_ACCESS, &hf_ldap_AccessMask_ADS_LIST_OBJECT, &hf_ldap_AccessMask_ADS_DELETE_TREE, &hf_ldap_AccessMask_ADS_WRITE_PROP, &hf_ldap_AccessMask_ADS_READ_PROP, &hf_ldap_AccessMask_ADS_SELF_WRITE, &hf_ldap_AccessMask_ADS_LIST, &hf_ldap_AccessMask_ADS_DELETE_CHILD, &hf_ldap_AccessMask_ADS_CREATE_CHILD, NULL }; proto_tree_add_bitmask_list_value(tree, tvb, offset, 4, access_flags, access); } struct access_mask_info ldap_access_mask_info = { "LDAP", /* Name of specific rights */ ldap_specific_rights, /* Dissection function */ NULL, /* Generic mapping table */ NULL /* Standard mapping table */ }; static int dissect_ldap_nt_sec_desc(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree, void* data _U_) { dissect_nt_sec_desc(tvb, 0, pinfo, tree, NULL, TRUE, tvb_reported_length(tvb), &ldap_access_mask_info); return tvb_captured_length(tvb); } static int dissect_ldap_sid(tvbuff_t *tvb, packet_info *pinfo _U_, proto_tree *tree, void* data _U_) { char *tmpstr; /* this octet string contains an NT SID */ dissect_nt_sid(tvb, 0, tree, "SID", &tmpstr, hf_ldap_sid); ldapvalue_string=tmpstr; return tvb_captured_length(tvb); } static int dissect_ldap_guid(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree, void* data _U_) { guint8 drep[4] = { 0x10, 0x00, 0x00, 0x00}; /* fake DREP struct */ e_guid_t uuid; /* This octet string contained a GUID */ dissect_dcerpc_uuid_t(tvb, 0, pinfo, tree, drep, hf_ldap_guid, &uuid); ldapvalue_string=(char*)wmem_alloc(wmem_packet_scope(), 1024); g_snprintf(ldapvalue_string, 1023, "%08x-%04x-%04x-%02x%02x-%02x%02x%02x%02x%02x%02x", uuid.data1, uuid.data2, uuid.data3, uuid.data4[0], uuid.data4[1], uuid.data4[2], uuid.data4[3], uuid.data4[4], uuid.data4[5], uuid.data4[6], uuid.data4[7]); return tvb_captured_length(tvb); } static int dissect_ldap_tcp(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree, void* data) { guint32 sasl_len; guint32 ldap_len; gboolean ind; conversation_t *conversation; ldap_conv_info_t *ldap_info = NULL; /* * Do we have a conversation for this connection? */ conversation = find_conversation_pinfo(pinfo, 0); if(conversation){ ldap_info = (ldap_conv_info_t *)conversation_get_proto_data(conversation, proto_ldap); } ldm_tree = NULL; /* This is a bit tricky. We have to find out whether SASL is used * so that we know how big a header we are supposed to pass * to tcp_dissect_pdus() * We must also cope with the case when a client connects to LDAP * and performs a few unauthenticated searches of LDAP before * it performs the bind on the same tcp connection. */ /* check for a SASL header, i.e. assume it is SASL if * 1, first four bytes (SASL length) is an integer * with a value that must be 2 * (>2 to fight false positives, 0x00000000 is a common * "random" tcp payload) * (SASL ldap PDUs might be >64k in size, which is why * LDAP_SASL_MAX_BUF is used - defined in packet-ldap.h) * * 2, we must have a conversation and the auth type must * be LDAP_AUTH_SASL */ sasl_len=tvb_get_ntohl(tvb, 0); if( sasl_len<2 ){ goto this_was_not_sasl; } if( sasl_len>LDAP_SASL_MAX_BUF ){ goto this_was_not_sasl; } if((!ldap_info) || (ldap_info->auth_type!=LDAP_AUTH_SASL) ){ goto this_was_not_sasl; } tcp_dissect_pdus(tvb, pinfo, tree, ldap_desegment, 4, get_sasl_ldap_pdu_len, dissect_sasl_ldap_pdu, data); return tvb_captured_length(tvb); this_was_not_sasl: /* check if it is a normal BER encoded LDAP packet * i.e. first byte is 0x30 followed by a length that is * <64k * (no ldap PDUs are ever >64kb? ) */ if(tvb_get_guint8(tvb, 0)!=0x30){ goto this_was_not_normal_ldap; } /* check that length makes sense */ get_ber_length(tvb, 1, &ldap_len, &ind); /* don't check ind since indefinite length is never used for ldap (famous last words)*/ if(ldap_len<2){ goto this_was_not_normal_ldap; } /* * The minimum size of a LDAP pdu is 7 bytes * * dumpasn1 -hh ldap-unbind-min.dat * * <30 05 02 01 09 42 00> * 0 5: SEQUENCE { * <02 01 09> * 2 1: INTEGER 9 * <42 00> * 5 0: [APPLICATION 2] * : Error: Object has zero length. * : } * * dumpasn1 -hh ldap-unbind-windows.dat * * <30 84 00 00 00 05 02 01 09 42 00> * 0 5: SEQUENCE { * <02 01 09> * 6 1: INTEGER 9 * <42 00> * 9 0: [APPLICATION 2] * : Error: Object has zero length. * : } * * 6 bytes would also be ok to get the full length of * the pdu, but as the smallest pdu can be 7 bytes * we can use 7. */ tcp_dissect_pdus(tvb, pinfo, tree, ldap_desegment, 7, get_normal_ldap_pdu_len, dissect_normal_ldap_pdu, data); goto end; this_was_not_normal_ldap: /* Ok it might be a strange case of SASL still * It has been seen with Exchange setup to MS AD * when Exchange pretend that there is SASL but in fact data are still * in clear*/ if ((sasl_len + 4) == (guint32)tvb_reported_length_remaining(tvb, 0)) tcp_dissect_pdus(tvb, pinfo, tree, ldap_desegment, 4, get_sasl_ldap_pdu_len, dissect_sasl_ldap_pdu, data); end: return tvb_captured_length(tvb); } static int dissect_mscldap(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree, void* data _U_) { dissect_ldap_pdu(tvb, pinfo, tree, TRUE); return tvb_captured_length(tvb); } /*--- proto_register_ldap -------------------------------------------*/ void proto_register_ldap(void) { /* List of fields */ static hf_register_info hf[] = { { &hf_ldap_sasl_buffer_length, { "SASL Buffer Length", "ldap.sasl_buffer_length", FT_UINT32, BASE_DEC, NULL, 0x0, NULL, HFILL }}, { &hf_ldap_response_in, { "Response In", "ldap.response_in", FT_FRAMENUM, BASE_NONE, NULL, 0x0, "The response to this LDAP request is in this frame", HFILL }}, { &hf_ldap_response_to, { "Response To", "ldap.response_to", FT_FRAMENUM, BASE_NONE, NULL, 0x0, "This is a response to the LDAP request in this frame", HFILL }}, { &hf_ldap_time, { "Time", "ldap.time", FT_RELATIVE_TIME, BASE_NONE, NULL, 0x0, "The time between the Call and the Reply", HFILL }}, { &hf_mscldap_netlogon_opcode, { "Operation code", "mscldap.netlogon.opcode", FT_UINT16, BASE_DEC, VALS(netlogon_opcode_vals), 0x0, "LDAP ping operation code", HFILL }}, { &hf_mscldap_netlogon_ipaddress_family, { "Family", "mscldap.netlogon.ipaddress.family", FT_UINT16, BASE_DEC, NULL, 0x0, NULL, HFILL }}, { &hf_mscldap_netlogon_ipaddress_ipv4, { "IPv4", "mscldap.netlogon.ipaddress.ipv4", FT_IPv4, BASE_NONE, NULL, 0x0, "IP Address", HFILL }}, { &hf_mscldap_netlogon_ipaddress_port, { "Port", "mscldap.netlogon.ipaddress.port", FT_UINT16, BASE_DEC, NULL, 0x0, NULL, HFILL }}, { &hf_mscldap_netlogon_ipaddress, { "IP Address","mscldap.netlogon.ipaddress", FT_IPv4, BASE_NONE, NULL, 0x0, "Domain Controller IP Address", HFILL }}, { &hf_mscldap_netlogon_lm_token, { "LM Token", "mscldap.netlogon.lm_token", FT_UINT16, BASE_HEX, NULL, 0x0, "MUST be set to 0xFFFF", HFILL }}, { &hf_mscldap_netlogon_nt_token, { "NT Token", "mscldap.netlogon.nt_token", FT_UINT16, BASE_HEX, NULL, 0x0, "MUST be set to 0xFFFF", HFILL }}, { &hf_mscldap_netlogon_flags, { "Flags", "mscldap.netlogon.flags", FT_UINT32, BASE_HEX, NULL, 0x0, "Netlogon flags describing the DC properties", HFILL }}, { &hf_mscldap_ntver_flags, { "Version Flags", "mscldap.ntver.flags", FT_UINT32, BASE_HEX, NULL, 0x0, "NETLOGON_NT_VERSION Options Bits", HFILL }}, { &hf_mscldap_domain_guid, { "Domain GUID", "mscldap.domain.guid", FT_GUID, BASE_NONE, NULL, 0x0, "Value of the NC's GUID attribute", HFILL }}, { &hf_mscldap_forest, { "Forest", "mscldap.forest", FT_STRING, BASE_NONE, NULL, 0x0, "DNS name of the forest", HFILL }}, { &hf_mscldap_domain, { "Domain", "mscldap.domain", FT_STRING, BASE_NONE, NULL, 0x0, "DNS name of the NC", HFILL }}, { &hf_mscldap_hostname, { "Hostname", "mscldap.hostname", FT_STRING, BASE_NONE, NULL, 0x0, "DNS name of server", HFILL }}, { &hf_mscldap_nb_domain_z, { "NetBIOS Domain", "mscldap.nb_domain", FT_STRINGZ, BASE_NONE, NULL, 0x0, "NetBIOS name of the NC", HFILL }}, { &hf_mscldap_nb_domain, { "NetBIOS Domain", "mscldap.nb_domain", FT_STRING, BASE_NONE, NULL, 0x0, "NetBIOS name of the NC", HFILL }}, { &hf_mscldap_nb_hostname_z, { "NetBIOS Hostname", "mscldap.nb_hostname", FT_STRINGZ, BASE_NONE, NULL, 0x0, "NetBIOS name of the server", HFILL }}, { &hf_mscldap_nb_hostname, { "NetBIOS Hostname", "mscldap.nb_hostname", FT_STRING, BASE_NONE, NULL, 0x0, "NetBIOS name of the server", HFILL }}, { &hf_mscldap_username_z, { "Username", "mscldap.username", FT_STRINGZ, BASE_NONE, NULL, 0x0, "User specified in client's request", HFILL }}, { &hf_mscldap_username, { "Username", "mscldap.username", FT_STRING, BASE_NONE, NULL, 0x0, "User specified in client's request", HFILL }}, { &hf_mscldap_sitename, { "Server Site", "mscldap.sitename", FT_STRING, BASE_NONE, NULL, 0x0, "Site name of the server", HFILL }}, { &hf_mscldap_clientsitename, { "Client Site", "mscldap.clientsitename", FT_STRING, BASE_NONE, NULL, 0x0, "Site name of the client", HFILL }}, { &hf_ldap_sid, { "Sid", "ldap.sid", FT_STRING, BASE_NONE, NULL, 0x0, NULL, HFILL }}, { &hf_mscldap_ntver_flags_v1, { "V1", "mscldap.ntver.searchflags.v1", FT_BOOLEAN, 32, TFS(&tfs_ntver_v1), 0x00000001, "See section 6.3.1.1 of MS-ADTS specification", HFILL }}, { &hf_mscldap_ntver_flags_v5, { "V5", "mscldap.ntver.searchflags.v5", FT_BOOLEAN, 32, TFS(&tfs_ntver_v5), 0x00000002, "See section 6.3.1.1 of MS-ADTS specification", HFILL }}, { &hf_mscldap_ntver_flags_v5ex, { "V5EX", "mscldap.ntver.searchflags.v5ex", FT_BOOLEAN, 32, TFS(&tfs_ntver_v5ex), 0x00000004, "See section 6.3.1.1 of MS-ADTS specification", HFILL }}, { &hf_mscldap_ntver_flags_v5ep, { "V5EP", "mscldap.ntver.searchflags.v5ep", FT_BOOLEAN, 32, TFS(&tfs_ntver_v5ep), 0x00000008, "See section 6.3.1.1 of MS-ADTS specification", HFILL }}, { &hf_mscldap_ntver_flags_vcs, { "VCS", "mscldap.ntver.searchflags.vcs", FT_BOOLEAN, 32, TFS(&tfs_ntver_vcs), 0x00000010, "See section 6.3.1.1 of MS-ADTS specification", HFILL }}, { &hf_mscldap_ntver_flags_vnt4, { "VNT4", "mscldap.ntver.searchflags.vnt4", FT_BOOLEAN, 32, TFS(&tfs_ntver_vnt4), 0x01000000, "See section 6.3.1.1 of MS-ADTS specification", HFILL }}, { &hf_mscldap_ntver_flags_vpdc, { "VPDC", "mscldap.ntver.searchflags.vpdc", FT_BOOLEAN, 32, TFS(&tfs_ntver_vpdc), 0x10000000, "See section 6.3.1.1 of MS-ADTS specification", HFILL }}, { &hf_mscldap_ntver_flags_vip, { "VIP", "mscldap.ntver.searchflags.vip", FT_BOOLEAN, 32, TFS(&tfs_ntver_vip), 0x20000000, "See section 6.3.1.1 of MS-ADTS specification", HFILL }}, { &hf_mscldap_ntver_flags_vl, { "VL", "mscldap.ntver.searchflags.vl", FT_BOOLEAN, 32, TFS(&tfs_ntver_vl), 0x40000000, "See section 6.3.1.1 of MS-ADTS specification", HFILL }}, { &hf_mscldap_ntver_flags_vgc, { "VGC", "mscldap.ntver.searchflags.vgc", FT_BOOLEAN, 32, TFS(&tfs_ntver_vgc), 0x80000000, "See section 6.3.1.1 of MS-ADTS specification", HFILL }}, { &hf_mscldap_netlogon_flags_pdc, { "PDC", "mscldap.netlogon.flags.pdc", FT_BOOLEAN, 32, TFS(&tfs_ads_pdc), 0x00000001, "Is this DC a PDC or not?", HFILL }}, { &hf_mscldap_netlogon_flags_gc, { "GC", "mscldap.netlogon.flags.gc", FT_BOOLEAN, 32, TFS(&tfs_ads_gc), 0x00000004, "Does this dc service as a GLOBAL CATALOGUE?", HFILL }}, { &hf_mscldap_netlogon_flags_ldap, { "LDAP", "mscldap.netlogon.flags.ldap", FT_BOOLEAN, 32, TFS(&tfs_ads_ldap), 0x00000008, "Does this DC act as an LDAP server?", HFILL }}, { &hf_mscldap_netlogon_flags_ds, { "DS", "mscldap.netlogon.flags.ds", FT_BOOLEAN, 32, TFS(&tfs_ads_ds), 0x00000010, "Does this dc provide DS services?", HFILL }}, { &hf_mscldap_netlogon_flags_kdc, { "KDC", "mscldap.netlogon.flags.kdc", FT_BOOLEAN, 32, TFS(&tfs_ads_kdc), 0x00000020, "Does this dc act as a KDC?", HFILL }}, { &hf_mscldap_netlogon_flags_timeserv, { "Time Serv", "mscldap.netlogon.flags.timeserv", FT_BOOLEAN, 32, TFS(&tfs_ads_timeserv), 0x00000040, "Does this dc provide time services (ntp) ?", HFILL }}, { &hf_mscldap_netlogon_flags_closest, { "Closest", "mscldap.netlogon.flags.closest", FT_BOOLEAN, 32, TFS(&tfs_ads_closest), 0x00000080, "Is this the closest dc?", HFILL }}, { &hf_mscldap_netlogon_flags_writable, { "Writable", "mscldap.netlogon.flags.writable", FT_BOOLEAN, 32, TFS(&tfs_ads_writable), 0x00000100, "Is this dc writable?", HFILL }}, { &hf_mscldap_netlogon_flags_good_timeserv, { "Good Time Serv", "mscldap.netlogon.flags.good_timeserv", FT_BOOLEAN, 32, TFS(&tfs_ads_good_timeserv), 0x00000200, "Is this a Good Time Server? (i.e. does it have a hardware clock)", HFILL }}, { &hf_mscldap_netlogon_flags_ndnc, { "NDNC", "mscldap.netlogon.flags.ndnc", FT_BOOLEAN, 32, TFS(&tfs_ads_ndnc), 0x00000400, "Is this an NDNC dc?", HFILL }}, { &hf_mscldap_netlogon_flags_rodc, { "RODC", "mscldap.netlogon.flags.rodc", FT_BOOLEAN, 32, TFS(&tfs_ads_rodc), 0x00000800, "Is this an read only dc?", HFILL }}, { &hf_mscldap_netlogon_flags_wdc, { "WDC", "mscldap.netlogon.flags.writabledc", FT_BOOLEAN, 32, TFS(&tfs_ads_wdc), 0x00001000, "Is this an writable dc (Windows 2008)?", HFILL }}, { &hf_mscldap_netlogon_flags_dns, { "DNS", "mscldap.netlogon.flags.dnsname", FT_BOOLEAN, 32, TFS(&tfs_ads_dns), 0x20000000, "Does the server have a dns name (Windows 2008)?", HFILL }}, { &hf_mscldap_netlogon_flags_dnc, { "DNC", "mscldap.netlogon.flags.defaultnc", FT_BOOLEAN, 32, TFS(&tfs_ads_dnc), 0x40000000, "Is this the default NC (Windows 2008)?", HFILL }}, { &hf_mscldap_netlogon_flags_fnc, { "FDC", "mscldap.netlogon.flags.forestnc", FT_BOOLEAN, 32, TFS(&tfs_ads_fnc), 0x80000000, "Is the the NC the default forest root(Windows 2008)?", HFILL }}, { &hf_ldap_guid, { "GUID", "ldap.guid", FT_GUID, BASE_NONE, NULL, 0, NULL, HFILL }}, { &hf_ldap_AccessMask_ADS_CREATE_CHILD, { "Ads Create Child", "ldap.AccessMask.ADS_CREATE_CHILD", FT_BOOLEAN, 32, TFS(&tfs_set_notset), LDAP_ACCESSMASK_ADS_CREATE_CHILD, NULL, HFILL }}, { &hf_ldap_AccessMask_ADS_DELETE_CHILD, { "Ads Delete Child", "ldap.AccessMask.ADS_DELETE_CHILD", FT_BOOLEAN, 32, TFS(&tfs_set_notset), LDAP_ACCESSMASK_ADS_DELETE_CHILD, NULL, HFILL }}, { &hf_ldap_AccessMask_ADS_LIST, { "Ads List", "ldap.AccessMask.ADS_LIST", FT_BOOLEAN, 32, TFS(&tfs_set_notset), LDAP_ACCESSMASK_ADS_LIST, NULL, HFILL }}, { &hf_ldap_AccessMask_ADS_SELF_WRITE, { "Ads Self Write", "ldap.AccessMask.ADS_SELF_WRITE", FT_BOOLEAN, 32, TFS(&tfs_set_notset), LDAP_ACCESSMASK_ADS_SELF_WRITE, NULL, HFILL }}, { &hf_ldap_AccessMask_ADS_READ_PROP, { "Ads Read Prop", "ldap.AccessMask.ADS_READ_PROP", FT_BOOLEAN, 32, TFS(&tfs_set_notset), LDAP_ACCESSMASK_ADS_READ_PROP, NULL, HFILL }}, { &hf_ldap_AccessMask_ADS_WRITE_PROP, { "Ads Write Prop", "ldap.AccessMask.ADS_WRITE_PROP", FT_BOOLEAN, 32, TFS(&tfs_set_notset), LDAP_ACCESSMASK_ADS_WRITE_PROP, NULL, HFILL }}, { &hf_ldap_AccessMask_ADS_DELETE_TREE, { "Ads Delete Tree", "ldap.AccessMask.ADS_DELETE_TREE", FT_BOOLEAN, 32, TFS(&tfs_set_notset), LDAP_ACCESSMASK_ADS_DELETE_TREE, NULL, HFILL }}, { &hf_ldap_AccessMask_ADS_LIST_OBJECT, { "Ads List Object", "ldap.AccessMask.ADS_LIST_OBJECT", FT_BOOLEAN, 32, TFS(&tfs_set_notset), LDAP_ACCESSMASK_ADS_LIST_OBJECT, NULL, HFILL }}, { &hf_ldap_AccessMask_ADS_CONTROL_ACCESS, { "Ads Control Access", "ldap.AccessMask.ADS_CONTROL_ACCESS", FT_BOOLEAN, 32, TFS(&tfs_set_notset), LDAP_ACCESSMASK_ADS_CONTROL_ACCESS, NULL, HFILL }}, { &hf_ldap_LDAPMessage_PDU, { "LDAPMessage", "ldap.LDAPMessage_element", FT_NONE, BASE_NONE, NULL, 0, NULL, HFILL }}, { &hf_ldap_object_security_flag, { "Flag Object_Security", "ldap.object_security_flag", FT_BOOLEAN, 32, NULL, 0x00000001, NULL, HFILL }}, { &hf_ldap_ancestor_first_flag, { "Flag Ancestor_First", "ldap.ancestor_first_flag", FT_BOOLEAN, 32, NULL, 0x00000800, NULL, HFILL }}, { &hf_ldap_public_data_only_flag, { "Flag Public_Data_Only", "ldap.public_data_only_flag", FT_BOOLEAN, 32, NULL, 0x00002000, NULL, HFILL }}, { &hf_ldap_incremental_value_flag, { "Flag Incremental_Value", "ldap.incremental_value_flag", FT_BOOLEAN, 32, NULL, 0x80000000, NULL, HFILL }}, { &hf_ldap_oid, { "OID", "ldap.oid", FT_STRING, BASE_NONE, NULL, 0, NULL, HFILL }}, { &hf_ldap_gssapi_encrypted_payload, { "GSS-API Encrypted payload", "ldap.gssapi_encrypted_payload", FT_BYTES, BASE_NONE, NULL, 0, NULL, HFILL }}, #include "packet-ldap-hfarr.c" }; /* List of subtrees */ static gint *ett[] = { &ett_ldap, &ett_ldap_payload, &ett_ldap_sasl_blob, &ett_ldap_msg, &ett_mscldap_netlogon_flags, &ett_mscldap_ntver_flags, &ett_mscldap_ipdetails, &ett_ldap_DirSyncFlagsSubEntry, #include "packet-ldap-ettarr.c" }; /* UAT for header fields */ static uat_field_t custom_attribute_types_uat_fields[] = { UAT_FLD_CSTRING(attribute_types, attribute_type, "Attribute type", "Attribute type"), UAT_FLD_CSTRING(attribute_types, attribute_desc, "Description", "Description of the value matching type"), UAT_END_FIELDS }; static ei_register_info ei[] = { { &ei_ldap_exceeded_filter_length, { "ldap.exceeded_filter_length", PI_UNDECODED, PI_ERROR, "Filter length exceeds number. Giving up", EXPFILL }}, { &ei_ldap_too_many_filter_elements, { "ldap.too_many_filter_elements", PI_UNDECODED, PI_ERROR, "Found more than %%u filter elements. Giving up.", EXPFILL }}, }; expert_module_t* expert_ldap; module_t *ldap_module; uat_t *attributes_uat; /* Register protocol */ proto_ldap = proto_register_protocol(PNAME, PSNAME, PFNAME); /* Register fields and subtrees */ proto_register_field_array(proto_ldap, hf, array_length(hf)); proto_register_subtree_array(ett, array_length(ett)); expert_ldap = expert_register_protocol(proto_ldap); expert_register_field_array(expert_ldap, ei, array_length(ei)); ldap_handle = register_dissector("ldap", dissect_ldap_tcp, proto_ldap); ldap_module = prefs_register_protocol(proto_ldap, prefs_register_ldap); prefs_register_bool_preference(ldap_module, "desegment_ldap_messages", "Reassemble LDAP messages spanning multiple TCP segments", "Whether the LDAP dissector should reassemble messages spanning multiple TCP segments." " To use this option, you must also enable \"Allow subdissectors to reassemble TCP streams\" in the TCP protocol settings.", &ldap_desegment); prefs_register_uint_preference(ldap_module, "tls.port", "LDAPS TCP Port", "Set the port for LDAP operations over TLS", 10, &global_ldaps_tcp_port); prefs_register_obsolete_preference(ldap_module, "ssl.port"); /* UAT */ attributes_uat = uat_new("Custom LDAP AttributeValue types", sizeof(attribute_type_t), "custom_ldap_attribute_types", TRUE, &attribute_types, &num_attribute_types, /* specifies named fields, so affects dissection and the set of named fields */ UAT_AFFECTS_DISSECTION|UAT_AFFECTS_FIELDS, NULL, attribute_types_copy_cb, attribute_types_update_cb, attribute_types_free_cb, attribute_types_post_update_cb, attribute_types_reset_cb, custom_attribute_types_uat_fields); prefs_register_uat_preference(ldap_module, "custom_ldap_attribute_types", "Custom AttributeValue types", "A table to define custom LDAP attribute type values for which fields can be setup and used for filtering/data extraction etc.", attributes_uat); prefs_register_obsolete_preference(ldap_module, "max_pdu"); proto_cldap = proto_register_protocol( "Connectionless Lightweight Directory Access Protocol", "CLDAP", "cldap"); ldap_tap=register_tap("ldap"); ldap_name_dissector_table = register_dissector_table("ldap.name", "LDAP Attribute Type Dissectors", proto_cldap, FT_STRING, BASE_NONE); register_srt_table(proto_ldap, NULL, 1, ldapstat_packet, ldapstat_init, NULL); } /*--- proto_reg_handoff_ldap ---------------------------------------*/ void proto_reg_handoff_ldap(void) { dissector_handle_t cldap_handle; cldap_handle = create_dissector_handle(dissect_mscldap, proto_cldap); dissector_add_uint_with_preference("udp.port", UDP_PORT_CLDAP, cldap_handle); gssapi_handle = find_dissector_add_dependency("gssapi", proto_ldap); gssapi_wrap_handle = find_dissector_add_dependency("gssapi_verf", proto_ldap); spnego_handle = find_dissector_add_dependency("spnego", proto_ldap); ntlmssp_handle = find_dissector_add_dependency("ntlmssp", proto_ldap); tls_handle = find_dissector_add_dependency("tls", proto_ldap); prefs_register_ldap(); oid_add_from_string("ISO assigned OIDs, USA", "1.2.840"); /* http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dsml/dsml/ldap_controls_and_session_support.asp */ /* https://docs.microsoft.com/en-us/openspecs/windows_protocols/ms-adts/3c5e87db-4728-4f29-b164-01dd7d7391ea */ oid_add_from_string("LDAP_PAGED_RESULT_OID_STRING","1.2.840.113556.1.4.319"); oid_add_from_string("LDAP_SERVER_SHOW_DELETED_OID","1.2.840.113556.1.4.417"); oid_add_from_string("LDAP_SERVER_SORT_OID","1.2.840.113556.1.4.473"); oid_add_from_string("LDAP_SERVER_RESP_SORT_OID","1.2.840.113556.1.4.474"); oid_add_from_string("LDAP_SERVER_CROSSDOM_MOVE_TARGET_OID","1.2.840.113556.1.4.521"); oid_add_from_string("LDAP_SERVER_NOTIFICATION_OID","1.2.840.113556.1.4.528"); oid_add_from_string("LDAP_SERVER_EXTENDED_DN_OID","1.2.840.113556.1.4.529"); oid_add_from_string("meetingAdvertiseScope","1.2.840.113556.1.4.582"); oid_add_from_string("LDAP_SERVER_LAZY_COMMIT_OID","1.2.840.113556.1.4.619"); oid_add_from_string("mhsORAddress","1.2.840.113556.1.4.650"); oid_add_from_string("managedObjects","1.2.840.113556.1.4.654"); oid_add_from_string("LDAP_CAP_ACTIVE_DIRECTORY_OID","1.2.840.113556.1.4.800"); oid_add_from_string("LDAP_SERVER_SD_FLAGS_OID","1.2.840.113556.1.4.801"); oid_add_from_string("LDAP_SERVER_RANGE_OPTION_OID","1.2.840.113556.1.4.802"); oid_add_from_string("LDAP_OID_COMPARATOR_OR","1.2.840.113556.1.4.804"); oid_add_from_string("LDAP_SERVER_TREE_DELETE_OID","1.2.840.113556.1.4.805"); oid_add_from_string("LDAP_SERVER_DIRSYNC_OID","1.2.840.113556.1.4.841"); oid_add_from_string("LDAP_SERVER_GET_STATS_OID","1.2.840.113556.1.4.970"); oid_add_from_string("LDAP_SERVER_VERIFY_NAME_OID","1.2.840.113556.1.4.1338"); oid_add_from_string("LDAP_SERVER_DOMAIN_SCOPE_OID","1.2.840.113556.1.4.1339"); oid_add_from_string("LDAP_SERVER_SEARCH_OPTIONS_OID","1.2.840.113556.1.4.1340"); oid_add_from_string("LDAP_SERVER_RODC_DCPROMO_OID","1.2.840.113556.1.4.1341"); oid_add_from_string("LDAP_SERVER_PERMISSIVE_MODIFY_OID","1.2.840.113556.1.4.1413"); oid_add_from_string("LDAP_SERVER_ASQ_OID","1.2.840.113556.1.4.1504"); oid_add_from_string("LDAP_CAP_ACTIVE_DIRECTORY_V51_OID","1.2.840.113556.1.4.1670"); oid_add_from_string("msDS-SDReferenceDomain","1.2.840.113556.1.4.1711"); oid_add_from_string("msDS-AdditionalDnsHostName","1.2.840.113556.1.4.1717"); oid_add_from_string("LDAP_SERVER_FAST_BIND_OID","1.2.840.113556.1.4.1781"); oid_add_from_string("LDAP_CAP_ACTIVE_DIRECTORY_LDAP_INTEG_OID","1.2.840.113556.1.4.1791"); oid_add_from_string("msDS-ObjectReference","1.2.840.113556.1.4.1840"); oid_add_from_string("msDS-QuotaEffective","1.2.840.113556.1.4.1848"); oid_add_from_string("LDAP_CAP_ACTIVE_DIRECTORY_ADAM_OID","1.2.840.113556.1.4.1851"); oid_add_from_string("LDAP_SERVER_QUOTA_CONTROL_OID","1.2.840.113556.1.4.1852"); oid_add_from_string("msDS-PortSSL","1.2.840.113556.1.4.1860"); oid_add_from_string("LDAP_SERVER_SHUTDOWN_NOTIFY_OID","1.2.840.113556.1.4.1907"); oid_add_from_string("LDAP_SERVER_RANGE_RETRIEVAL_NOERR_OID","1.2.840.113556.1.4.1948"); oid_add_from_string("msDS-isRODC","1.2.840.113556.1.4.1960"); oid_add_from_string("LDAP_SERVER_FORCE_UPDATE_OID","1.2.840.113556.1.4.1974"); oid_add_from_string("LDAP_SERVER_DN_INPUT_OID","1.2.840.113556.1.4.2026"); oid_add_from_string("LDAP_SERVER_SHOW_RECYCLED_OID","1.2.840.113556.1.4.2064"); oid_add_from_string("LDAP_SERVER_SHOW_DEACTIVATED_LINK_OID","1.2.840.113556.1.4.2065"); oid_add_from_string("LDAP_SERVER_POLICY_HINTS_DEPRECATED_OID","1.2.840.113556.1.4.2066"); oid_add_from_string("LDAP_SERVER_DIRSYNC_EX_OID","1.2.840.113556.1.4.2090"); oid_add_from_string("LDAP_SERVER_TREE_DELETE_EX_OID","1.2.840.113556.1.4.2204"); oid_add_from_string("LDAP_SERVER_UPDATE_STATS_OID","1.2.840.113556.1.4.2205"); oid_add_from_string("LDAP_SERVER_SEARCH_HINTS_OID","1.2.840.113556.1.4.2206"); oid_add_from_string("LDAP_SERVER_EXPECTED_ENTRY_COUNT_OID","1.2.840.113556.1.4.2211"); oid_add_from_string("LDAP_SERVER_POLICY_HINTS_OID","1.2.840.113556.1.4.2239"); oid_add_from_string("LDAP_SERVER_SET_OWNER_OID","1.2.840.113556.1.4.2255"); oid_add_from_string("LDAP_SERVER_BYPASS_QUOTA_OID","1.2.840.113556.1.4.2256"); oid_add_from_string("LDAP_SERVER_LINK_TTL_OID","1.2.840.113556.1.4.2309"); oid_add_from_string("LDAP_SERVER_SET_CORRELATION_ID_OID","1.2.840.113556.1.4.2330"); oid_add_from_string("LDAP_SERVER_THREAD_TRACE_OVERRIDE_OID","1.2.840.113556.1.4.2354"); oid_add_from_string("DYNAMIC_REFRESH","1.3.6.1.4.1.1466.101.119.1"); oid_add_from_string("LDAP_START_TLS_OID","1.3.6.1.4.1.1466.20037"); oid_add_from_string("inetOrgPerson", "2.16.840.1.113730.3.2.2"); /* RFC2798 */ oid_add_from_string("US company arc", "2.16.840.1"); /* http://www.alvestrand.no/objectid/2.16.840.1.113730.3.4.html */ oid_add_from_string("Manage DSA IT LDAPv3 control", "2.16.840.1.113730.3.4.2"); oid_add_from_string("Persistent Search LDAPv3 control", "2.16.840.1.113730.3.4.3"); oid_add_from_string("Netscape Password Expired LDAPv3 control", "2.16.840.1.113730.3.4.4"); oid_add_from_string("Netscape Password Expiring LDAPv3 control", "2.16.840.1.113730.3.4.5"); oid_add_from_string("Netscape NT Synchronization Client LDAPv3 control", "2.16.840.1.113730.3.4.6"); oid_add_from_string("Entry Change Notification LDAPv3 control", "2.16.840.1.113730.3.4.7"); oid_add_from_string("Transaction ID Request Control", "2.16.840.1.113730.3.4.8"); oid_add_from_string("VLV Request LDAPv3 control", "2.16.840.1.113730.3.4.9"); oid_add_from_string("VLV Response LDAPv3 control", "2.16.840.1.113730.3.4.10"); oid_add_from_string("Transaction ID Response Control", "2.16.840.1.113730.3.4.11"); oid_add_from_string("Proxied Authorization (version 1) control", "2.16.840.1.113730.3.4.12"); oid_add_from_string("iPlanet Directory Server Replication Update Information Control", "2.16.840.1.113730.3.4.13"); oid_add_from_string("iPlanet Directory Server search on specific backend control", "2.16.840.1.113730.3.4.14"); oid_add_from_string("Authentication Response Control", "2.16.840.1.113730.3.4.15"); oid_add_from_string("Authentication Request Control", "2.16.840.1.113730.3.4.16"); oid_add_from_string("Real Attributes Only Request Control", "2.16.840.1.113730.3.4.17"); oid_add_from_string("Proxied Authorization (version 2) Control", "2.16.840.1.113730.3.4.18"); oid_add_from_string("Chaining loop detection", "2.16.840.1.113730.3.4.19"); oid_add_from_string("iPlanet Replication Modrdn Extra Mods Control", "2.16.840.1.113730.3.4.999"); oid_add_from_string("LDAP_SERVER_QUOTA_CONTROL_OID", "1.2.840.113556.1.4.1852"); oid_add_from_string("LDAP_SERVER_RANGE_OPTION_OID", "1.2.840.113556.1.4.802"); oid_add_from_string("LDAP_SERVER_SHUTDOWN_NOTIFY_OID", "1.2.840.113556.1.4.1907"); oid_add_from_string("LDAP_SERVER_RANGE_RETRIEVAL_NOERR_OID", "1.2.840.113556.1.4.1948"); dissector_add_string("ldap.name", "netlogon", create_dissector_handle(dissect_NetLogon_PDU, proto_cldap)); dissector_add_string("ldap.name", "objectGUID", create_dissector_handle(dissect_ldap_guid, proto_ldap)); dissector_add_string("ldap.name", "supportedControl", create_dissector_handle(dissect_ldap_oid, proto_ldap)); dissector_add_string("ldap.name", "supportedCapabilities", create_dissector_handle(dissect_ldap_oid, proto_ldap)); dissector_add_string("ldap.name", "objectSid", create_dissector_handle(dissect_ldap_sid, proto_ldap)); dissector_add_string("ldap.name", "nTSecurityDescriptor", create_dissector_handle(dissect_ldap_nt_sec_desc, proto_ldap)); #include "packet-ldap-dis-tab.c" dissector_add_uint_range_with_preference("tcp.port", TCP_PORT_RANGE_LDAP, ldap_handle); dissector_add_uint("acdr.tls_application_port", 636, ldap_handle); dissector_add_uint("acdr.tls_application", TLS_APP_LDAP, ldap_handle); } static void prefs_register_ldap(void) { if(ssl_port != global_ldaps_tcp_port) { if(ssl_port) ssl_dissector_delete(ssl_port, ldap_handle); /* Set our port number for future use */ ssl_port = global_ldaps_tcp_port; if(ssl_port) ssl_dissector_add(ssl_port, ldap_handle); } } /* * Editor modelines - https://www.wireshark.org/tools/modelines.html * * Local Variables: * c-basic-offset: 2 * tab-width: 8 * indent-tabs-mode: nil * End: * * vi: set shiftwidth=2 tabstop=8 expandtab: * :indentSize=2:tabSize=8:noTabs=true: */