Add nasl functions for dumping icmp packets

CHANGELOG.md

@@ -26,6 +26,7 @@ The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/).
 - Add support for TLSv1.3. [#588](https://github.com/greenbone/openvas/pull/588)
 - Add alternative for supporting snmp during scans. [#594](https://github.com/greenbone/openvas/pull/594)
 - Add resolve_hostname_to_multiple_ips() NASL function. [#596](https://github.com/greenbone/openvas/pull/596)
+- Add dump_icmp_packet() and dump_icmp_v6_packet() nasl functions. [#609](https://github.com/greenbone/openvas/pull/609)
 
 ### Fixed
 - Fork vhosts before creating the socket.[#576](https://github.com/greenbone/openvas/pull/576)

nasl/nasl_init.c

@@ -225,6 +225,8 @@ static init_func libfuncs[] = {
   {"forge_icmp_v6_packet", forge_icmp_v6_packet},
   {"get_icmp_element", get_icmp_element},
   {"get_icmp_v6_element", get_icmp_v6_element},
+  {"dump_icmp_packet", dump_icmp_packet},
+  {"dump_icmp_v6_packet", dump_icmp_v6_packet},
   {"forge_igmp_packet", forge_igmp_packet},
   {"forge_igmp_v6_packet", forge_igmp_v6_packet},
   {"send_packet", nasl_send_packet},

nasl/nasl_packet_forgery.c

@@ -1178,6 +1178,34 @@ get_icmp_element (lex_ctxt *lexic)
   return NULL;
 }
 
+/**
+ * @brief Dump the ICMP part of a IP Datagram.
+ *
+ * @param[in] lexic   Lexical context of NASL interpreter.
+ * @param[in] ...     IP datagrams to dump the ICMP part from.
+ */
+tree_cell *
+dump_icmp_packet (lex_ctxt *lexic)
+{
+  int i = 0;
+  u_char *pkt;
+  while ((pkt = (u_char *) get_str_var_by_num (lexic, i++)) != NULL)
+    {
+      struct ip *ip = (struct ip *) pkt;
+      struct icmp *icmp;
+      icmp = (struct icmp *) (pkt + ip->ip_hl * 4);
+      printf ("------\n");
+      printf ("\ticmp_id    : %d\n", ntohs (icmp->icmp_id));
+      printf ("\ticmp_code  : %d\n", icmp->icmp_code);
+      printf ("\ticmp_type  : %u\n", icmp->icmp_type);
+      printf ("\ticmp_seq   : %u\n", ntohs (icmp->icmp_seq));
+      printf ("\ticmp_cksum : %d\n", ntohs (icmp->icmp_cksum));
+      printf ("\tData       : %s\n", icmp->icmp_data);
+      printf ("\n");
+    }
+  return NULL;
+}
+
 /*--------------[  IGMP  ]--------------------------------------------*/
 
 struct igmp

nasl/nasl_packet_forgery.h

@@ -53,6 +53,8 @@ tree_cell *
 forge_icmp_packet (lex_ctxt *);
 tree_cell *
 get_icmp_element (lex_ctxt *);
+tree_cell *
+dump_icmp_packet (lex_ctxt *);
 
 tree_cell *
 forge_igmp_packet (lex_ctxt *);

nasl/nasl_packet_forgery_v6.c

@@ -1433,6 +1433,44 @@ get_icmp_v6_element (lex_ctxt *lexic)
   return NULL;
 }
 
+/**
+ * @brief Dump the ICMP part of a IP Datagram.
+ *
+ * @param[in] lexic   Lexical context of NASL interpreter.
+ * @param[in] ...     IP datagrams to dump the ICMP part from.
+ */
+tree_cell *
+dump_icmp_v6_packet (lex_ctxt *lexic)
+{
+  int i = 0;
+  u_char *pkt;
+  while ((pkt = (u_char *) get_str_var_by_num (lexic, i++)) != NULL)
+    {
+      unsigned int j;
+      unsigned int limit;
+      char *c;
+      struct ip6_hdr *ip6 = (struct ip6_hdr *) pkt;
+      struct icmp6_hdr *icmp;
+      icmp = (struct icmp6_hdr *) (pkt + 40);
+      limit = get_var_size_by_num (lexic, i - 1);
+      printf ("------\n");
+      printf ("\ticmp6_id    : %d\n", ntohs (icmp->icmp6_id));
+      printf ("\ticmp6_code  : %d\n", icmp->icmp6_code);
+      printf ("\ticmp6_type  : %u\n", icmp->icmp6_type);
+      printf ("\ticmp6_seq   : %u\n", ntohs (icmp->icmp6_seq));
+      printf ("\ticmp6_cksum : %d\n", ntohs (icmp->icmp6_cksum));
+      printf ("\tData        : ");
+      c = (char *) ((char *) icmp + sizeof (struct icmp6_hdr));
+      if (UNFIX (ip6->ip6_plen) > (sizeof (struct icmp6_hdr)))
+        for (j = 0;
+             j < UNFIX (ip6->ip6_plen) - sizeof (struct icmp6_hdr) && j < limit;
+             j++)
+          printf ("%c", isprint (c[j]) ? c[j] : '.');
+      printf ("\n");
+    }
+  return NULL;
+}
+
 /*--------------[  IGMP  ]--------------------------------------------*/
 /*
  * @brief Forge v6 IGMP packet.

nasl/nasl_packet_forgery_v6.h

@@ -57,6 +57,8 @@ tree_cell *
 forge_icmp_v6_packet (lex_ctxt *);
 tree_cell *
 get_icmp_v6_element (lex_ctxt *);
+tree_cell *
+dump_icmp_v6_packet (lex_ctxt *);
 
 tree_cell *
 forge_igmp_v6_packet (lex_ctxt *);