basic Moonsec v3 dumper (readable version)

local output_dir = "unpacked_output"
if not isfolder(output_dir) then makefolder(output_dir) end

local headers = { "all", "readable", "obfuscated", "suspicious" }
local output_files = {}
for _, name in ipairs(headers) do
    local path = output_dir .. "/" .. name .. ".txt"
    output_files[name] = path
    if not isfile(path) then
        writefile(path, "-- " .. name:upper() .. " --\n\n")
    end
end

local orig_appendfile = appendfile or function() end
function appendfile(file, content)
    if not isfile(file) then writefile(file, "") end
    orig_appendfile(file, content)
end

local function classify(k, v)
    local cats = {}
    if type(v) == "string" then
        if #v > 40 and v:match("[^%w%s]") then cats.obfuscated = true end
        if #v > 100 and not v:match("[%s]") then cats.suspicious = true end
        if #v > 2 and not v:match("^%d+$") then cats.readable = true end
    end
    return cats
end

local function deep_unpack(tbl)
    for _, v in pairs(tbl) do
        if type(v) == "table" then
            deep_unpack(v)
        elseif type(v) == "string" then
            local cats = classify(_, v)
            for cat in pairs(cats) do
                if output_files[cat] then appendfile(output_files[cat], v .. "\n") end
            end
        end
    end