1 files changed, 118 insertions, 0 deletions
diff --git a/ncat/ncat_lua.c b/ncat/ncat_lua.c
new file mode 100644
index 0000000..e5e6e8a
--- /dev/null
+++ b/ncat/ncat_lua.c
@@ -0,0 +1,118 @@
+/***************************************************************************
+ * ncat_lua.c -- ncat lua facilities                                       *
+ ***********************IMPORTANT NMAP LICENSE TERMS************************
+ *
+ * The Nmap Security Scanner is (C) 1996-2023 Nmap Software LLC ("The Nmap
+ * Project"). Nmap is also a registered trademark of the Nmap Project.
+ *
+ * This program is distributed under the terms of the Nmap Public Source
+ * License (NPSL). The exact license text applying to a particular Nmap
+ * release or source code control revision is contained in the LICENSE
+ * file distributed with that version of Nmap or source code control
+ * revision. More Nmap copyright/legal information is available from
+ * https://nmap.org/book/man-legal.html, and further information on the
+ * NPSL license itself can be found at https://nmap.org/npsl/ . This
+ * header summarizes some key points from the Nmap license, but is no
+ * substitute for the actual license text.
+ *
+ * Nmap is generally free for end users to download and use themselves,
+ * including commercial use. It is available from https://nmap.org.
+ *
+ * The Nmap license generally prohibits companies from using and
+ * redistributing Nmap in commercial products, but we sell a special Nmap
+ * OEM Edition with a more permissive license and special features for
+ * this purpose. See https://nmap.org/oem/
+ *
+ * If you have received a written Nmap license agreement or contract
+ * stating terms other than these (such as an Nmap OEM license), you may
+ * choose to use and redistribute Nmap under those terms instead.
+ *
+ * The official Nmap Windows builds include the Npcap software
+ * (https://npcap.com) for packet capture and transmission. It is under
+ * separate license terms which forbid redistribution without special
+ * permission. So the official Nmap Windows builds may not be redistributed
+ * without special permission (such as an Nmap OEM license).
+ *
+ * Source is provided to this software because we believe users have a
+ * right to know exactly what a program is going to do before they run it.
+ * This also allows you to audit the software for security holes.
+ *
+ * Source code also allows you to port Nmap to new platforms, fix bugs, and add
+ * new features. You are highly encouraged to submit your changes as a Github PR
+ * or by email to the dev@nmap.org mailing list for possible incorporation into
+ * the main distribution. Unless you specify otherwise, it is understood that
+ * you are offering us very broad rights to use your submissions as described in
+ * the Nmap Public Source License Contributor Agreement. This is important
+ * because we fund the project by selling licenses with various terms, and also
+ * because the inability to relicense code has caused devastating problems for
+ * other Free Software projects (such as KDE and NASM).
+ *
+ * The free version of Nmap is distributed in the hope that it will be
+ * useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. Warranties,
+ * indemnification and commercial support are all available through the
+ * Npcap OEM program--see https://nmap.org/oem/
+ *
+ ***************************************************************************/
+
+/* $Id$ */
+
+#include "ncat.h"
+#include "ncat_lua.h"
+
+static lua_State *L;
+static int last_function_number;
+
+static void report(char *prefix)
+{
+    const char *errormsg;
+    errormsg = lua_tostring(L, -1);
+    if (errormsg == NULL)
+        errormsg = "(error object is not a string)";
+    bye("%s: %s.", prefix, errormsg);
+}
+
+static int traceback (lua_State *LL)
+{
+    const char *msg;
+    msg = lua_tostring(LL, 1);
+    if (msg) {
+        luaL_traceback(LL, LL, msg, 1);
+    } else {
+        if (!lua_isnoneornil(LL, 1)) {  /* is there an error object? */
+            if (!luaL_callmeta(LL, 1, "__tostring"))  /* try its 'tostring' metamethod */
+                lua_pushliteral(LL, "(no error message)");
+        }
+    }
+    return 1;
+}
+
+void lua_setup(void)
+{
+    ncat_assert(o.cmdexec != NULL);
+
+    L = luaL_newstate();
+    luaL_openlibs(L);
+
+    if (luaL_loadfile(L, o.cmdexec) != 0)
+        report("Error loading the Lua script");
+
+    /* install the traceback function */
+    last_function_number = lua_gettop(L);
+    lua_pushcfunction(L, traceback);
+    lua_insert(L, last_function_number);
+}
+
+void lua_run(void)
+{
+    if (lua_pcall(L, 0, 0, last_function_number) != LUA_OK && !lua_isnil(L, -1)) {
+        /* handle the error; the code below is taken from lua.c, Lua source code */
+        lua_remove(L, last_function_number);
+        report("Error running the Lua script");
+    } else {
+        if (o.debug)
+            logdebug("%s returned successfully.\n", o.cmdexec);
+        lua_close(L);
+        exit(EXIT_SUCCESS);
+    }
+}