mmdbresolve.c

   1 /* Read IPv4 and IPv6 addresses on stdin and print their MMDB entries on stdout.
   2  *
   3  * Wireshark - Network traffic analyzer
   4  * By Gerald Combs <gerald@wireshark.org>
   5  * Copyright 1998 Gerald Combs
   6  *
   7  * This program uses the MaxMind DB library (libmaxminddb) and MUST be
   8  * compatible with its license (Apache 2.0).
   9  *
  10  * SPDX-License-Identifier: MIT
  11  *
  12  */
  13
  14 #include <stdio.h>
  15 #include <stdlib.h>
  16 #include <string.h>
  17
  18 #include <maxminddb.h>
  19
  20 #define MAX_ADDR_LEN 46
  21 #define MMDBR_STRINGIFY(x) MMDBR_STRINGIFY_S(x)
  22 #define MMDBR_STRINGIFY_S(s) #s
  23 #define OUT_BUF_SIZE 65536
  24
  25 // Uncomment to enable slow lookups. Only useful on Windows for now.
  26 // #define MMDB_DEBUG_SLOW 1
  27
  28 #ifdef MMDB_DEBUG_SLOW
  29 #ifdef _WIN32
  30 #include <Windows.h>
  31 #endif
  32 #endif
  33
  34 static const char *co_iso_key[]     = {"country", "iso_code", NULL};
  35 static const char *co_name_key[]    = {"country", "names", "en", NULL};
  36 static const char *ci_name_key[]    = {"city", "names", "en", NULL};
  37 static const char *asn_o_key[]      = {"autonomous_system_organization", NULL};
  38 static const char *asn_key[]        = {"autonomous_system_number", NULL};
  39 static const char *l_lat_key[]      = {"location", "latitude", NULL};
  40 static const char *l_lon_key[]      = {"location", "longitude", NULL};
  41 static const char *l_accuracy_key[] = {"location", "accuracy_radius", NULL};
  42 static const char *empty_key[]      = {NULL};
  43
  44 static const char **lookup_keys[] = {
  45     co_iso_key,
  46     co_name_key,
  47     ci_name_key,
  48     asn_o_key,
  49     asn_key,
  50     l_lat_key,
  51     l_lon_key,
  52     l_accuracy_key,
  53     empty_key
  54 };
  55
  56 static void exit_err(void) {
  57     fprintf(stderr, "Usage: mmdbresolve -f db_file [-f db_file ...]\n");
  58     exit(1);
  59 }
  60
  61 int
  62 main(int argc, char *argv[])
  63 {
  64     char addr_str[MAX_ADDR_LEN+1];
  65     size_t mmdb_count = 0;
  66     MMDB_s *mmdbs = NULL, *new_mmdbs;
  67     int mmdb_err;
  68
  69     char *out_buf = (char *) malloc(OUT_BUF_SIZE);
  70     if (out_buf == NULL) {
  71         fprintf(stdout, "ERROR: malloc failed\n");
  72         return 1;
  73     }
  74     setvbuf(stdout, out_buf, _IOFBF, OUT_BUF_SIZE);
  75
  76     fprintf(stdout, "[init]\n");
  77
  78     // If we need to handle anything beyond "-f" we'll probably want to
  79     // link with GLib and use GOption.
  80     int arg_idx = 0;
  81     while (arg_idx < argc - 1) {
  82         if (strcmp(argv[arg_idx], "-f") == 0) {
  83             arg_idx++;
  84             const char *db_arg = argv[arg_idx];
  85             MMDB_s try_mmdb;
  86             mmdb_err = MMDB_open(db_arg, 0, &try_mmdb);
  87             fprintf(stdout, "db.%zd.path: %s\n", mmdb_count, db_arg);
  88             fprintf(stdout, "db.%zd.status: ", mmdb_count);
  89             if (mmdb_err == MMDB_SUCCESS) {
  90                 mmdb_count++;
  91                 new_mmdbs = (MMDB_s *) realloc(mmdbs, mmdb_count * sizeof(MMDB_s));
  92                 if (new_mmdbs == NULL) {
  93                     free(mmdbs);
  94                     fprintf(stdout, "ERROR out of memory\n");
  95                     return 1;
  96                 }
  97                 mmdbs = new_mmdbs;
  98                 mmdbs[mmdb_count - 1] = try_mmdb;
  99                 fprintf(stdout, "OK\n");
 100                 fprintf(stdout, "db.%zd.type: %s\n", mmdb_count, mmdbs[mmdb_count - 1].metadata.database_type);
 101             } else {
 102                 fprintf(stdout, "ERROR %s\n", MMDB_strerror(mmdb_err));
 103             }
 104         }
 105         arg_idx++;
 106     }
 107
 108     fprintf(stdout, "mmdbresolve.status: %s\n", mmdb_count > 0 ? "true": "false");
 109     fprintf(stdout, "# End init\n");
 110     fflush(stdout);
 111
 112     if (arg_idx != argc || mmdb_count < 1) {
 113         exit_err();
 114     }
 115
 116     int in_items = 0;
 117     while (in_items != EOF) {
 118         int gai_err;
 119
 120         in_items = fscanf(stdin, "%" MMDBR_STRINGIFY(MAX_ADDR_LEN) "s", addr_str);
 121
 122         if (in_items < 1) {
 123             continue;
 124         }
 125
 126         fprintf(stdout, "[%s]\n", addr_str);
 127
 128 #ifdef MMDB_DEBUG_SLOW
 129 #ifdef _WIN32
 130         Sleep(1000);
 131 #endif
 132 #endif
 133
 134         for (size_t mmdb_idx = 0; mmdb_idx < mmdb_count; mmdb_idx++) {
 135             fprintf(stdout, "# %s\n", mmdbs[mmdb_idx].metadata.database_type);
 136             MMDB_lookup_result_s result = MMDB_lookup_string(&mmdbs[mmdb_idx], addr_str, &gai_err, &mmdb_err);
 137
 138             if (result.found_entry && gai_err == 0 && mmdb_err == MMDB_SUCCESS) {
 139                 for (size_t key_idx = 0; lookup_keys[key_idx][0]; key_idx++) {
 140                     MMDB_entry_data_s entry_data;
 141                     int status = MMDB_aget_value(&result.entry, &entry_data, lookup_keys[key_idx]);
 142                     if (status == MMDB_SUCCESS && entry_data.has_data) {
 143                         char *sep = "";
 144                         for (int idx = 0; lookup_keys[key_idx][idx] != 0; idx++) {
 145                             fprintf(stdout, "%s%s", sep, lookup_keys[key_idx][idx]);
 146                             sep = ".";
 147                         }
 148                         switch (entry_data.type) {
 149                             case MMDB_DATA_TYPE_UTF8_STRING:
 150                             {
 151                                 char len_fmt[12]; // : %.xxxxxs\n\0
 152                                 snprintf(len_fmt, 11, ": %%.%us\n", entry_data.data_size);
 153                                 fprintf(stdout, len_fmt, entry_data.utf8_string);
 154                             }
 155                             break;
 156                             case MMDB_DATA_TYPE_UINT16:
 157                                 fprintf(stdout, ": %u\n", entry_data.uint16);
 158                                 break;
 159                             case MMDB_DATA_TYPE_UINT32:
 160                                 fprintf(stdout, ": %u\n", entry_data.uint32);
 161                                 break;
 162                             case MMDB_DATA_TYPE_INT32:
 163                                 fprintf(stdout, ": %d\n", entry_data.int32);
 164                                 break;
 165                             case MMDB_DATA_TYPE_BOOLEAN:
 166                                 fprintf(stdout, ": %s\n", entry_data.boolean ? "True" : "False");
 167                                 break;
 168                             case MMDB_DATA_TYPE_DOUBLE:
 169                                 fprintf(stdout, ": %f\n", entry_data.double_value);
 170                                 break;
 171                             case MMDB_DATA_TYPE_FLOAT:
 172                                 fprintf(stdout, ": %f\n", entry_data.float_value);
 173                                 break;
 174                             default:
 175                                 fprintf(stdout, ": UNKNOWN (%u)\n", entry_data.type);
 176                         }
 177                     }
 178                 }
 179             } else {
 180                 // dump error info.
 181             }
 182         }
 183         fprintf(stdout, "# End %s\n", addr_str);
 184         fflush(stdout);
 185     }
 186
 187     free(mmdbs);
 188
 189     return 0;
 190 }
 191
 192 /*
 193  * Editor modelines  -  https://www.wireshark.org/tools/modelines.html
 194  *
 195  * Local variables:
 196  * c-basic-offset: 4
 197  * tab-width: 8
 198  * indent-tabs-mode: nil
 199  * End:
 200  *
 201  * vi: set shiftwidth=4 tabstop=8 expandtab:
 202  * :indentSize=4:tabSize=8:noTabs=true:
 203  */