From 0d47952611198ef6b1163f366dc03922d20b1475 Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Wed, 17 Apr 2024 09:42:04 +0200
Subject: Adding upstream version 7.94+git20230807.3be01efb1+dfsg.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 scripts/https-redirect.nse | 78 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 78 insertions(+)
 create mode 100644 scripts/https-redirect.nse

(limited to 'scripts/https-redirect.nse')

diff --git a/scripts/https-redirect.nse b/scripts/https-redirect.nse
new file mode 100644
index 0000000..afc57ef
--- /dev/null
+++ b/scripts/https-redirect.nse
@@ -0,0 +1,78 @@
+local comm = require "comm"
+local string = require "string"
+local shortport = require "shortport"
+local nmap = require "nmap"
+local url = require "url"
+local U = require "lpeg-utility"
+
+
+description = [[
+Check for HTTP services that redirect to the HTTPS on the same port.
+]]
+
+author = {"Daniel Miller"}
+
+license = "Same as Nmap--See https://nmap.org/book/man-legal.html"
+
+categories = {"version"}
+
+portrule = function (host, port)
+  if (port.version and port.version.service_tunnel == "ssl") then
+    -- If we already know it's SSL, bail.
+    return false
+  end
+  -- Otherwise, match HTTP services
+  -- always respecting version_intensity
+  return (shortport.http(host, port) and nmap.version_intensity() >= 7)
+end
+
+action = function (host, port)
+  local responses = {}
+  -- Did the service engine already do the hard work?
+  if port.version and port.version.service_fp then
+    -- Probes sent, replies received, but no match.
+    -- Loop through the probes most likely to receive HTTP responses
+    for _, p in ipairs({"GetRequest", "HTTPOptions", "FourOhFourRequest", "NULL"}) do
+      responses[#responses+1] = U.get_response(port.version.service_fp, p)
+    end
+  end
+  if #responses == 0 then
+    -- Have to send the probe ourselves.
+    local socket, result, proto = comm.tryssl(host, port, "GET / HTTP/1.0\r\n\r\n")
+
+    if (not socket) then
+      return nil
+    end
+    socket:close()
+    if proto == "ssl" then
+      -- Unlikely, but we could have negotiated SSL already.
+      port.version.service_tunnel = "ssl"
+      nmap.set_port_version(host, port, "softmatched")
+      return nil
+    end
+    responses[1] = result
+  end
+
+  for _, result in ipairs(responses) do
+    -- Match HTTP redirects, status 3XX
+    if string.match(result, "^HTTP/1.[01] 3%d%d") then
+
+      local location = string.match(result, "\n[Ll][Oo][Cc][Aa][Tt][Ii][Oo][Nn]:[ \t]*(.-)\r?\n")
+      if location then
+        local parsed = url.parse(location)
+        -- Check for a redirect to the same port, but with HTTPS scheme.
+        if parsed.scheme == 'https' and tonumber(parsed.port or 443) == port.number and (
+            -- ensure it's not some other machine
+            parsed.ascii_host == host.ip or
+            parsed.ascii_host == host.targetname or
+            parsed.ascii_host == host.name or
+            parsed.host == "" or parsed.host == nil
+            ) then
+          port.version.service_tunnel = "ssl"
+          nmap.set_port_version(host, port, "softmatched")
+          return nil
+        end
+      end
+    end
+  end
+end
-- 
cgit v1.2.3