[UPDATED!] Searcher V1 | Detect Vulnerable Tools, Networking

--[[
Credits to; Arilis
Official thread; https://v3rmillion.net/showthread.php?tid=936292
Informations; example of it finding vulnerable tools on battle royal sim (mainly only works on shit games): https://arilis.dev/uploader/files/wjbadf.png | example of it finding networking on bubblegum simulator: https://arilis.dev/uploader/files/2vzic2.png (dont invoke this, you will get banned)
-------------------------------------------------------------------------------
Script was provided from the official Demon Slayers Community Server; https://discord.gg/demonslayers
Official thread; https://v3rmillion.net/showthread.php?tid=936292 |<-- More info
]]--

if not makefolder or not getloadedmodules then print('[Searcher]: Exploit Not Supported.') return end

-- Searcher V1 By ArilisDev

_G.GetGameDetails = true
_G.FindHiddenScripts = true
_G.FindVulnerableTools = true
_G.NetworkDetection = true
_G.GetLoadedModules = true
_G.WriteToFile = true

local new = {}

makefolder('Searcher')

function insert(usertable, data)
    table.insert(usertable, data)
end

function sPrint(var, nl)
    if nl then
        print('[Searcher]: '..tostring(var)..'\n');
    elseif nl == false or nl == nil then
        print('[Searcher]: '..tostring(var));
    end
end

function sWarn(var, nl)
    if nl then
        warn('[Searcher]: '..tostring(var)..'\n');
    elseif nl == false or nl == nil then
        warn('[Searcher]: '..tostring(var));
    end
end

function tPrint(var, nl)
    if nl then
        return '[Searcher]: '..tostring(var)..'\n';
    elseif nl == false or nl == nil then
        return '[Searcher]: '..tostring(var);
    end
end

function tWarn(var, nl)
    if nl then
        return '[Searcher]: '..tostring(var)..'\n';
    elseif nl == false or nl == nil then
        return '[Searcher]: '..tostring(var);
    end
end

function getPath(var)
    return 'game.'..var:GetFullName()
end

function scriptSearch(var)
    for _,v in pairs(game:GetService(var):GetDescendants()) do
        if v:IsA('LocalScript') then
            sPrint('Found LocalScript: '..getPath(v))
        end
    end

    for _,v in pairs(game:GetService(var):GetDescendants()) do
        if v:IsA('ModuleScript') then
            sPrint('Found ModuleScript: '..getPath(v))
        end
    end
end

function vulnToolSearch(var)
    for _,v in pairs(game:GetService(var):GetDescendants()) do
        if v:IsA('ModuleScript') and v.Name == 'Setting' then
            sPrint('Found vulnerable tool: '..getPath(v))
        end
    end

    for _,v in pairs(game:GetService(var):GetDescendants()) do
        if v:IsA('Tool') then
            for _,z in pairs(v:GetDescendants()) do
                if v:IsA('ModuleScript') then
                    sPrint('Found vulnerable tool: '..getPath(v))
                end
            end
        end
    end
end

function detectNetwork()
    sWarn('Attempting to detect event networking, you might lag...')
    for _,v in pairs(game:GetDescendants()) do
        if v:IsA('RemoteEvent') and v.Name == 'Network' or v:IsA('RemoteFunction') and v.Name == 'Network' then
            sPrint('Possible network found: '..getPath(v))
        end
    end
    sWarn('Network detection finished.', true)
end

function getLoadedModuleScripts()
    for _,v in pairs(getloadedmodules()) do
        sPrint(getPath(v))
    end
end



function tscriptSearch(var)
    for _,v in pairs(game:GetService(var):GetDescendants()) do
        if v:IsA('LocalScript') then
            insert(new, tPrint('Found LocalScript: '..getPath(v)))
        end
    end

    for _,v in pairs(game:GetService(var):GetDescendants()) do
        if v:IsA('ModuleScript') then
            insert(new, tPrint('Found ModuleScript: '..getPath(v)))
        end
    end
end

function tvulnToolSearch(var)
    for _,v in pairs(game:GetService(var):GetDescendants()) do
        if v:IsA('ModuleScript') and v.Name == 'Setting' then
            insert(new, tPrint('Found vulnerable tool: '..getPath(v)))
        end
    end

    for _,v in pairs(game:GetService(var):GetDescendants()) do
        if v:IsA('Tool') then
            for _,z in pairs(v:GetDescendants()) do
                if v:IsA('ModuleScript') then
                    insert(new, tPrint('Found vulnerable tool: '..getPath(v)))
                end
            end
        end
    end
end

function tdetectNetwork()
    insert(new, tWarn('Attempting to detect event networking, you might lag...'))
    for _,v in pairs(game:GetDescendants()) do
        if v:IsA('RemoteEvent') and v.Name == 'Network' or v:IsA('RemoteFunction') and v.Name == 'Network' then
            insert(new, tPrint('Possible network found: '..getPath(v)))
        end
    end
    insert(new, tWarn('Network detection finished.', true))
end

function tgetLoadedModuleScripts()
    for _,v in pairs(getloadedmodules()) do
        insert(new, tPrint(getPath(v)))
    end
end

local logo = [[

     _____                     _                __      ____
    / ____|                   | |               \ \    / /_ |
   | (___   ___  __ _ _ __ ___| |__   ___ _ __   \ \  / / | |
    \___ \ / _ \/ _` | '__/ __| '_ \ / _ \ '__|   \ \/ /  | |
    ____) |  __/ (_| | | | (__| | | |  __/ |       \  /   | |
   |_____/ \___|\__,_|_|  \___|_| |_|\___|_|        \/    |_|
]]

if _G.WriteToFile then
    insert(new, logo)


    insert(new, tPrint('Waiting for game to load...'));

    repeat wait() until game:IsLoaded();

    insert(new, tPrint('Game is loaded.'))

    if _G.GetGameDetails then
        insert(new, tWarn('Grabbing game deatils...'))
        insert(new, tPrint('Game Name: '..game:GetService("MarketplaceService"):GetProductInfo(game.PlaceId).Name))
        insert(new, tPrint('Place ID: '..game.PlaceId))
        insert(new, tPrint('Creator ID: '..game.CreatorId))
        insert(new, tPrint('Creator Type: '..string.split(tostring(game.CreatorType), 'Enum.CreatorType.')[2]))
        insert(new, tWarn('Finished grabbing game details.', true))
    end

    if _G.FindHiddenScripts then
        insert(new, tWarn('Grabbing hidden scripts...'))
        tscriptSearch('ReplicatedFirst')
        tscriptSearch('Lighting')
        insert(new, tWarn('Finished grabbing hidden scripts.', true))
    end

    if _G.FindVulnerableTools then
        insert(new, tWarn('Searching for vulnerable tools...'))
        tvulnToolSearch('ReplicatedStorage')
        tvulnToolSearch('ReplicatedFirst')
        tvulnToolSearch('Lighting')
        for _,v in pairs(game:GetService('Players').LocalPlayer:GetDescendants()) do
            if v:IsA('ModuleScript') and v.Name == 'Setting' then
                insert(new, tPrint('Found vulnerable tool: '..getPath(v)))
            end
        end
        insert(new, tWarn('Finished vulnerable tool search.', true))
    end

    if _G.NetworkDetection then
        tdetectNetwork()
    end

    if _G.GetLoadedModules then
        insert(new, tWarn('Grabbing loaded modules...'))
        tgetLoadedModuleScripts()
        insert(new, tWarn('Finished grabbing loaded modules.', true))
    end

    local finished = table.concat(new, '\n')
    makefolder('Searcher/'..game:GetService("MarketplaceService"):GetProductInfo(game.PlaceId).Name)
    writefile('Searcher/'..game:GetService("MarketplaceService"):GetProductInfo(game.PlaceId).Name..'/Output.txt', finished)

    sWarn('Finished, saved to: '..'Searcher/'..game:GetService("MarketplaceService"):GetProductInfo(game.PlaceId).Name..'/Output.txt')

else
    warn(logo)


    sPrint('Waiting for game to load...');

    repeat wait() until game:IsLoaded();

    sPrint('Game is loaded.')

    if _G.GetGameDetails then
        sWarn('Grabbing game deatils...')
        sPrint('Game Name: '..game:GetService("MarketplaceService"):GetProductInfo(game.PlaceId).Name)
        sPrint('Place ID: '..game.PlaceId)
        sPrint('Creator ID: '..game.CreatorId)
        sPrint('Creator Type: '..string.split(tostring(game.CreatorType), 'Enum.CreatorType.')[2])
        sWarn('Finished grabbing game details.', true)
    end

    if _G.FindHiddenScripts then
        sWarn('Grabbing hidden scripts...')
        scriptSearch('ReplicatedFirst')
        scriptSearch('Lighting')
        sWarn('Finished grabbing hidden scripts.', true)
    end

    if _G.FindVulnerableTools then
        sWarn('Searching for vulnerable tools...')
        vulnToolSearch('ReplicatedStorage')
        vulnToolSearch('ReplicatedFirst')
        vulnToolSearch('Lighting')
        for _,v in pairs(game:GetService('Players').LocalPlayer:GetDescendants()) do
            if v:IsA('ModuleScript') and v.Name == 'Setting' then
                sPrint('Found vulnerable tool: '..getPath(v))
            end
        end
        sWarn('Finished vulnerable tool search.', true)
    end

    if _G.NetworkDetection then
        detectNetwork()
    end

    if _G.GetLoadedModules then
        sWarn('Grabbing loaded modules...')
        getLoadedModuleScripts()
        sWarn('Finished grabbing loaded modules.', true)
    end

    sWarn('Finished.')
end