nasl_host.h File Reference

#include "nasl_lex_ctxt.h"
#include "nasl_tree.h"

Include dependency graph for nasl_host.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Functions
tree_cell *	add_hostname (lex_ctxt *)
tree_cell *	get_hostname (lex_ctxt *)
tree_cell *	get_hostnames (lex_ctxt *)
tree_cell *	get_hostname_source (lex_ctxt *)
tree_cell *	resolve_hostname (lex_ctxt *)
tree_cell *	resolve_hostname_to_multiple_ips (lex_ctxt *)
	Resolve a hostname and return all ip addresses as nasl array.
tree_cell *	get_host_ip (lex_ctxt *)
tree_cell *	get_host_open_port (lex_ctxt *)
tree_cell *	get_port_state (lex_ctxt *)
tree_cell *	get_udp_port_state (lex_ctxt *)
tree_cell *	nasl_islocalhost (lex_ctxt *)
tree_cell *	nasl_islocalnet (lex_ctxt *)
tree_cell *	nasl_this_host (lex_ctxt *)
tree_cell *	nasl_this_host_name (lex_ctxt *)
tree_cell *	get_port_transport (lex_ctxt *)
	Return the encapsulation mode of a port.
tree_cell *	nasl_same_host (lex_ctxt *)
tree_cell *	nasl_target_is_ipv6 (lex_ctxt *lexic)
tree_cell *	host_reverse_lookup (lex_ctxt *lexic)
	implements ip_reverse_lookup

Function Documentation

add_hostname()

tree_cell * add_hostname

(

lex_ctxt *

lexic

)

Definition at line 113 of file nasl_host.c.

{
  struct ipc_data *hn = NULL;
  char *lower;
  const char *json = NULL;
  char *value = get_str_var_by_name (lexic, "hostname");
  char *source = get_str_var_by_name (lexic, "source");
 
  if (!value)
    {
      nasl_perror (lexic, "%s: Empty hostname\n", __func__);
      return NULL;
    }
  if (!source || !*source)
    source = "NASL";
  /* Add to current process' vhosts list. */
  lower = g_ascii_strdown (value, -1);
  hn = ipc_data_type_from_hostname (source, strlen (source), lower,
                                    strlen (lower));
  json = ipc_data_to_json (hn);
  ipc_data_destroy (&hn);
  if (plug_add_host_fqdn (lexic->script_infos, lower, source))
    goto end_add_hostname;
 
  // send it to host process to extend vhosts list there
  if (ipc_send (lexic->script_infos->ipc_context, IPC_MAIN, json, strlen (json))
      < 0)
    g_warning ("Unable to send %s to host process", lower);
 
end_add_hostname:
  g_free (lower);
  g_free ((void *) json);
  return NULL;
}

References get_str_var_by_name(), script_infos::ipc_context, ipc_data_destroy(), ipc_data_to_json(), ipc_data_type_from_hostname(), IPC_MAIN, ipc_send(), nasl_perror(), plug_add_host_fqdn(), and struct_lex_ctxt::script_infos.

Here is the call graph for this function:

get_host_ip()

tree_cell * get_host_ip

(

lex_ctxt *

lexic

)

Definition at line 208 of file nasl_host.c.

{
  struct script_infos *script_infos = lexic->script_infos;
  struct in6_addr *ip = plug_get_host_ip (script_infos);
  tree_cell *retc;
 
  if (ip == NULL) /* WTF ? */
    {
      return FAKE_CELL;
    }
 
  retc = alloc_typed_cell (CONST_STR);
  retc->x.str_val = addr6_as_str (ip);
  retc->size = strlen (retc->x.str_val);
 
  return retc;
}

References alloc_typed_cell(), CONST_STR, FAKE_CELL, plug_get_host_ip(), struct_lex_ctxt::script_infos, TC::size, TC::str_val, and TC::x.

Here is the call graph for this function:

get_host_open_port()

tree_cell * get_host_open_port

(

lex_ctxt *

lexic

)

Definition at line 227 of file nasl_host.c.

{
  struct script_infos *script_infos = lexic->script_infos;
  unsigned int port = plug_get_host_open_port (script_infos);
  tree_cell *retc;
 
  retc = alloc_typed_cell (CONST_INT);
  retc->x.i_val = port;
 
  return retc;
}

References alloc_typed_cell(), CONST_INT, TC::i_val, plug_get_host_open_port(), struct_lex_ctxt::script_infos, and TC::x.

Here is the call graph for this function:

get_hostname()

tree_cell * get_hostname

(

lex_ctxt *

lexic

)

Definition at line 79 of file nasl_host.c.

{
  struct script_infos *script_infos = lexic->script_infos;
  char *hostname = plug_get_host_fqdn (script_infos);
  tree_cell *retc;
 
  if (hostname == NULL)
    return NULL;
 
  retc = alloc_typed_cell (CONST_STR);
  retc->size = strlen (hostname);
  retc->x.str_val = hostname;
  return retc;
}

References alloc_typed_cell(), CONST_STR, hostname, plug_get_host_fqdn(), struct_lex_ctxt::script_infos, TC::size, TC::str_val, and TC::x.

Here is the call graph for this function:

get_hostname_source()

tree_cell * get_hostname_source

(

lex_ctxt *

lexic

)

Definition at line 95 of file nasl_host.c.

{
  struct script_infos *script_infos = lexic->script_infos;
  char *source;
  tree_cell *retc;
 
  source = plug_get_host_source (script_infos,
                                 get_str_var_by_name (lexic, "hostname"));
  if (!source)
    return NULL;
 
  retc = alloc_typed_cell (CONST_STR);
  retc->size = strlen (source);
  retc->x.str_val = source;
  return retc;
}

References alloc_typed_cell(), CONST_STR, get_str_var_by_name(), plug_get_host_source(), struct_lex_ctxt::script_infos, TC::size, TC::str_val, and TC::x.

Here is the call graph for this function:

get_hostnames()

tree_cell * get_hostnames

(

lex_ctxt *

lexic

)

Definition at line 49 of file nasl_host.c.

{
  struct script_infos *script_infos = lexic->script_infos;
  tree_cell *retc;
  int i = 0;
  nasl_array *arr;
  GSList *tmp, *hostnames;
 
  hostnames = tmp = plug_get_host_fqdn_list (script_infos);
  if (!hostnames)
    return NULL;
 
  retc = alloc_typed_cell (DYN_ARRAY);
  retc->x.ref_val = arr = g_malloc0 (sizeof (nasl_array));
  while (tmp)
    {
      anon_nasl_var v;
 
      v.var_type = VAR2_DATA;
      v.v.v_str.s_siz = strlen (tmp->data);
      v.v.v_str.s_val = tmp->data;
      add_var_to_list (arr, i++, &v);
      tmp = tmp->next;
    }
 
  g_slist_free_full (hostnames, g_free);
  return retc;
}

References add_var_to_list(), alloc_typed_cell(), DYN_ARRAY, plug_get_host_fqdn_list(), TC::ref_val, st_nasl_string::s_siz, st_nasl_string::s_val, struct_lex_ctxt::script_infos, st_a_nasl_var::v, st_a_nasl_var::v_str, VAR2_DATA, st_a_nasl_var::var_type, and TC::x.

Here is the call graph for this function:

get_port_state()

tree_cell * get_port_state

(

lex_ctxt *

lexic

)

Definition at line 292 of file nasl_host.c.

{
  int open;
  struct script_infos *script_infos = lexic->script_infos;
  tree_cell *retc;
  long int port;
 
  port = get_int_var_by_num (lexic, 0, -1);
 
  if (port < 0 || port > USHRT_MAX)
    return FAKE_CELL;
 
  retc = alloc_typed_cell (CONST_INT);
  open = host_get_port_state (script_infos, port);
  retc->x.i_val = open;
  return retc;
}

References alloc_typed_cell(), CONST_INT, FAKE_CELL, get_int_var_by_num(), host_get_port_state(), TC::i_val, struct_lex_ctxt::script_infos, and TC::x.

Here is the call graph for this function:

get_port_transport()

tree_cell * get_port_transport

(

lex_ctxt *

lexic

)

Return the encapsulation mode of a port.

NASL Function: get_port_transport\n

Takes a port number and returns its encapsulation mode (ENCAPS_*) The defined encapsulation modes are:

• ENCAPS_AUTO Automatic encapsulation detection.
• ENCAPS_IP No encapsulation
• ENCAPS_SSLv23 Request compatibility options
• ENCAPS_SSLv2 SSL version 2
• ENCAPS_SSLv3 SSL version 3
• ENCAPS_TLSv1 TLS version 1.0
• ENCAPS_TLSv11 TLS version 1.1
• ENCAPS_TLSv12 TLS version 1.2
• ENCAPS_TLSv13 TLS version 1.3
• ENCAPS_TLScustom SSL or TLS with custom priorities

NASL Unnamed Parameters:\n

• An integer with the port number.

NASL Named Parameters:\n

-asstring If not 0 return a human readabale string instead of an integer.

NASL Returns:\n An integer or a string with the encapsulation mode or NULL

on error.

Parameters

[in]

lexic

Lexical context of the NASL interpreter.

Returns

A tree cell.

Definition at line 456 of file nasl_host.c.

{
  struct script_infos *script_infos = lexic->script_infos;
  tree_cell *retc;
  long int port = get_int_var_by_num (lexic, 0, -1);
 
  if (port >= 0 && port <= USHRT_MAX)
    {
      int trp = plug_get_port_transport (script_infos, port);
 
      retc = alloc_typed_cell (CONST_STR);
      if (get_int_var_by_name (lexic, "asstring", 0))
        {
          const char *s = get_encaps_name (trp);
          retc->x.str_val = g_strdup (s);
          retc->size = strlen (s);
        }
      else
        {
          retc->type = CONST_INT;
          retc->x.i_val = trp;
        }
      return retc;
    }
  return NULL;
}

References alloc_typed_cell(), CONST_INT, CONST_STR, get_encaps_name(), get_int_var_by_name(), get_int_var_by_num(), TC::i_val, plug_get_port_transport(), struct_lex_ctxt::script_infos, TC::size, TC::str_val, TC::type, and TC::x.

Here is the call graph for this function:

get_udp_port_state()

tree_cell * get_udp_port_state

(

lex_ctxt *

lexic

)

Definition at line 311 of file nasl_host.c.

{
  int open;
  struct script_infos *script_infos = lexic->script_infos;
  tree_cell *retc;
  long int port;
 
  port = get_int_var_by_num (lexic, 0, -1);
  if (port < 0 || port > USHRT_MAX)
    return FAKE_CELL;
 
  retc = alloc_typed_cell (CONST_INT);
  open = host_get_port_state_udp (script_infos, port);
  retc->x.i_val = open;
  return retc;
}

References alloc_typed_cell(), CONST_INT, FAKE_CELL, get_int_var_by_num(), host_get_port_state_udp(), TC::i_val, struct_lex_ctxt::script_infos, and TC::x.

Here is the call graph for this function:

host_reverse_lookup()

tree_cell * host_reverse_lookup

(

lex_ctxt *

lexic

)

implements ip_reverse_lookup

Definition at line 245 of file nasl_host.c.

{
  char *t = get_str_var_by_num (lexic, 0);
  gvm_host_t *target = NULL;
  tree_cell *retc;
 
  if (t == NULL)
    {
      t = plug_get_host_ip_str (lexic->script_infos);
    }
  else
    {
      // we need to duplicate t because plug_get_host_ip_from_str allocates
      // memory and to have the same behavior for both we simply duplicate the
      // memory here
      t = g_strdup (t);
    }
  if (t == NULL)
    {
      nasl_perror (lexic, "Empty target\n");
      goto fail;
    }
  target = gvm_host_from_str (t);
  if (target == NULL)
    {
      nasl_perror (lexic, "%s: Invalid target\n", t);
      g_free (t);
      goto fail;
    }
  g_free (t);
 
  t = gvm_host_reverse_lookup (target);
  if (t == NULL)
    {
      goto fail;
    }
 
  retc = alloc_typed_cell (CONST_STR);
  retc->x.str_val = t;
  retc->size = strlen (t);
 
  return retc;
fail:
  return FAKE_CELL;
}

References alloc_typed_cell(), CONST_STR, FAKE_CELL, get_str_var_by_num(), nasl_perror(), plug_get_host_ip_str(), struct_lex_ctxt::script_infos, TC::size, TC::str_val, and TC::x.

Here is the call graph for this function:

nasl_islocalhost()

tree_cell * nasl_islocalhost

(

lex_ctxt *

lexic

)

Definition at line 329 of file nasl_host.c.

{
  struct script_infos *script_infos = lexic->script_infos;
  struct in6_addr *dst = plug_get_host_ip (script_infos);
  tree_cell *retc;
 
  retc = alloc_typed_cell (CONST_INT);
  retc->x.i_val = v6_islocalhost (dst);
  return retc;
}

References alloc_typed_cell(), CONST_INT, TC::i_val, plug_get_host_ip(), struct_lex_ctxt::script_infos, v6_islocalhost(), and TC::x.

Here is the call graph for this function:

nasl_islocalnet()

tree_cell * nasl_islocalnet

(

lex_ctxt *

lexic

)

Definition at line 341 of file nasl_host.c.

{
  struct script_infos *script_infos = lexic->script_infos;
  struct in6_addr *ip = plug_get_host_ip (script_infos);
  tree_cell *retc;
 
  retc = alloc_typed_cell (CONST_INT);
  retc->x.i_val = v6_is_local_ip (ip);
  return retc;
}

References alloc_typed_cell(), CONST_INT, TC::i_val, plug_get_host_ip(), struct_lex_ctxt::script_infos, v6_is_local_ip(), and TC::x.

Here is the call graph for this function:

nasl_same_host()

tree_cell * nasl_same_host

(

lex_ctxt *

lexic

)

Definition at line 484 of file nasl_host.c.

{
  tree_cell *retc;
  struct hostent *h;
  char *hn[2], **names[2];
  struct in_addr ia, *a[2];
  int i, j, n[2], names_nb[2], flag;
  int cmp_hostname = get_int_var_by_name (lexic, "cmp_hostname", 0);
 
  memset (names_nb, '\0', sizeof (names_nb));
  memset (names, '\0', sizeof (names));
  memset (a, '\0', sizeof (a));
  for (i = 0; i < 2; i++)
    {
      hn[i] = get_str_var_by_num (lexic, i);
      if (hn[i] == NULL)
        {
          nasl_perror (lexic, "same_host needs two parameters!\n");
          return NULL;
        }
      if (strlen (hn[i]) >= 256)
        {
          nasl_perror (lexic, "same_host(): Too long hostname !\n");
          return NULL;
        }
    }
  for (i = 0; i < 2; i++)
    {
      if (!inet_aton (hn[i], &ia)) /* Not an IP address */
        {
          h = gethostbyname (hn[i]);
          if (h == NULL)
            {
              nasl_perror (lexic, "same_host: %s does not resolve\n", hn[i]);
              n[i] = 0;
              if (cmp_hostname)
                {
                  names_nb[i] = 1;
                  names[i] = g_malloc0 (sizeof (char *));
                  names[i][0] = g_strdup (hn[i]);
                }
            }
          else
            {
              for (names_nb[i] = 0; h->h_aliases[names_nb[i]] != NULL;
                   names_nb[i]++)
                ;
              names_nb[i]++;
              names[i] = g_malloc0 (sizeof (char *) * names_nb[i]);
              names[i][0] = g_strdup (h->h_name);
              for (j = 1; j < names_nb[i]; j++)
                names[i][j] = g_strdup (h->h_aliases[j - 1]);
 
              /* Here, we should check that h_addrtype == AF_INET */
              for (n[i] = 0; ((struct in_addr **) h->h_addr_list)[n[i]] != NULL;
                   n[i]++)
                ;
              a[i] = g_malloc0 ((gsize) h->h_length * n[i]);
              for (j = 0; j < n[i]; j++)
                a[i][j] = *((struct in_addr **) h->h_addr_list)[j];
            }
        }
      else
        {
          if (cmp_hostname)
            h = gethostbyaddr ((const char *) &ia, sizeof (ia), AF_INET);
          else
            h = NULL;
          if (h == NULL)
            {
              a[i] = g_malloc0 (sizeof (struct in_addr));
              memcpy (a[i], &ia, sizeof (struct in_addr));
              n[i] = 1;
            }
          else
            {
              for (names_nb[i] = 0; h->h_aliases[names_nb[i]] != NULL;
                   names_nb[i]++)
                ;
              names_nb[i]++;
              names[i] = g_malloc0 (sizeof (char *) * names_nb[i]);
              names[i][0] = g_strdup (h->h_name);
              for (j = 1; j < names_nb[i]; j++)
                names[i][j] = g_strdup (h->h_aliases[j - 1]);
 
              /* Here, we should check that h_addrtype == AF_INET */
              for (n[i] = 0; ((struct in_addr **) h->h_addr_list)[n[i]] != NULL;
                   n[i]++)
                ;
              a[i] = g_malloc0 ((gsize) h->h_length * n[i]);
              for (j = 0; j < n[i]; j++)
                a[i][j] = *((struct in_addr **) h->h_addr_list)[j];
            }
        }
    }
  flag = 0;
  for (i = 0; i < n[0] && !flag; i++)
    for (j = 0; j < n[1] && !flag; j++)
      if (a[0][i].s_addr == a[1][j].s_addr)
        {
          flag = 1;
        }
 
  if (cmp_hostname)
    for (i = 0; i < names_nb[0] && !flag; i++)
      for (j = 0; j < names_nb[1] && !flag; j++)
        if (strcmp (names[0][i], names[1][j]) == 0)
          {
            flag = 1;
          }
 
  retc = alloc_typed_cell (CONST_INT);
  retc->x.i_val = flag;
 
  for (i = 0; i < 2; i++)
    g_free (a[i]);
 
  for (i = 0; i < 2; i++)
    {
      for (j = 0; j < names_nb[i]; j++)
        g_free (names[i][j]);
      g_free (names[i]);
    }
 
  return retc;
}

References alloc_typed_cell(), CONST_INT, get_int_var_by_name(), get_str_var_by_num(), TC::i_val, nasl_perror(), and TC::x.

Here is the call graph for this function:

nasl_target_is_ipv6()

tree_cell * nasl_target_is_ipv6

(

lex_ctxt *

lexic

)

Definition at line 612 of file nasl_host.c.

{
  tree_cell *retc;
  struct script_infos *script_infos = lexic->script_infos;
  struct in6_addr *addr;
 
  addr = plug_get_host_ip (script_infos);
  retc = alloc_typed_cell (CONST_INT);
 
  if (addr == NULL)
    {
      nasl_perror (lexic, "address is NULL!\n");
      return NULL;
    }
  if (IN6_IS_ADDR_V4MAPPED (addr) == 1)
    retc->x.i_val = 0;
  else
    retc->x.i_val = 1;
 
  return retc;
}

References alloc_typed_cell(), CONST_INT, TC::i_val, nasl_perror(), plug_get_host_ip(), struct_lex_ctxt::script_infos, and TC::x.

Here is the call graph for this function:

nasl_this_host()

tree_cell * nasl_this_host

(

lex_ctxt *

lexic

)

Definition at line 353 of file nasl_host.c.

{
  struct script_infos *script_infos = lexic->script_infos;
  tree_cell *retc;
  char hostname[255];
  struct in6_addr *ia = plug_get_host_ip (script_infos);
  struct in6_addr in6addr;
  struct in6_addr src6;
 
  retc = alloc_typed_cell (CONST_DATA);
 
  if (gvm_source_iface_is_set ())
    {
      struct in6_addr addr;
 
      /* Use source_iface's IP address when available. */
      if (IN6_IS_ADDR_V4MAPPED (ia))
        gvm_source_addr_as_addr6 (&addr);
      else
        gvm_source_addr6 (&addr);
      retc->x.str_val = addr6_as_str (&addr);
      retc->size = strlen (retc->x.str_val);
      return retc;
    }
  else
    {
      /* Manually find the source IP that will be used. */
      int err = 1;
      if (v6_islocalhost (ia))
        memcpy (&src6, ia, sizeof (struct in6_addr));
      else
        err = v6_getsourceip (&src6, ia);
 
      if (err && !IN6_ARE_ADDR_EQUAL (&src6, &in6addr_any))
        {
          retc->x.str_val = addr6_as_str (&src6);
          retc->size = strlen (retc->x.str_val);
 
          return retc;
        }
 
      hostname[sizeof (hostname) - 1] = '\0';
      gethostname (hostname, sizeof (hostname) - 1);
      if (gvm_resolve_as_addr6 (hostname, &in6addr))
        {
          retc->x.str_val = addr6_as_str (&in6addr);
          retc->size = strlen (retc->x.str_val);
        }
    }
  return retc;
}

References alloc_typed_cell(), CONST_DATA, hostname, plug_get_host_ip(), struct_lex_ctxt::script_infos, TC::size, TC::str_val, v6_getsourceip(), v6_islocalhost(), and TC::x.

Here is the call graph for this function:

nasl_this_host_name()

tree_cell * nasl_this_host_name

(

lex_ctxt *

lexic

)

Definition at line 406 of file nasl_host.c.

{
  char *hostname;
  tree_cell *retc;
 
  (void) lexic;
  retc = alloc_typed_cell (CONST_DATA);
 
  hostname = g_malloc0 (256);
  gethostname (hostname, 255);
 
  retc->x.str_val = hostname;
  retc->size = strlen (hostname);
  return retc;
}

References alloc_typed_cell(), CONST_DATA, hostname, TC::size, TC::str_val, and TC::x.

Here is the call graph for this function:

resolve_hostname()

tree_cell * resolve_hostname

(

lex_ctxt *

lexic

)

Definition at line 186 of file nasl_host.c.

{
  struct in6_addr in6addr;
  char *value = get_str_var_by_name (lexic, "hostname");
 
  if (!value)
    {
      nasl_perror (lexic, "%s: Empty hostname\n", __func__);
      return NULL;
    }
 
  if (!gvm_resolve_as_addr6 (value, &in6addr))
    {
      tree_cell *retc = alloc_typed_cell (CONST_STR);
      retc->x.str_val = addr6_as_str (&in6addr);
      retc->size = strlen (retc->x.str_val);
      return retc;
    }
  return NULL;
}

References alloc_typed_cell(), CONST_STR, get_str_var_by_name(), nasl_perror(), TC::size, TC::str_val, and TC::x.

Here is the call graph for this function:

resolve_hostname_to_multiple_ips()

tree_cell * resolve_hostname_to_multiple_ips

(

lex_ctxt *

lexic

)

Resolve a hostname and return all ip addresses as nasl array.

Definition at line 153 of file nasl_host.c.

{
  GSList *list = NULL;
  char *value = get_str_var_by_name (lexic, "hostname");
  tree_cell *retc;
  nasl_array *arr;
  int i = 0;
 
  if (!value)
    {
      nasl_perror (lexic, "%s: Empty hostname\n", __func__);
      return NULL;
    }
 
  list = gvm_resolve_list (value);
 
  retc = alloc_typed_cell (DYN_ARRAY);
  retc->x.ref_val = arr = g_malloc0 (sizeof (nasl_array));
  while (list)
    {
      anon_nasl_var var_aux;
 
      var_aux.var_type = VAR2_DATA;
      var_aux.v.v_str.s_siz = strlen (addr6_as_str (list->data));
      var_aux.v.v_str.s_val = (unsigned char *) addr6_as_str (list->data);
      add_var_to_list (arr, i++, &var_aux);
      list = list->next;
    }
  g_slist_free_full (list, g_free);
  return retc;
}

References add_var_to_list(), alloc_typed_cell(), DYN_ARRAY, get_str_var_by_name(), nasl_perror(), list::next, TC::ref_val, st_nasl_string::s_siz, st_nasl_string::s_val, st_a_nasl_var::v, st_a_nasl_var::v_str, VAR2_DATA, st_a_nasl_var::var_type, and TC::x.

Here is the call graph for this function: