local activeTraps = {} local function generateRandomToken() local chars = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789-_" local token = "" for i = 1, 68 do local randIndex = math.random(1, #chars) token = token .. string.sub(chars, randIndex, randIndex) end return token end local function FakeKey() local part1 = tostring(math.random(100000000, 999999999)) local part2 = tostring(math.random(100000000, 999999999)) return part1 .. part2 end local function generateTraps() activeTraps = {} for i = 1, 3 do local fakeId = FakeKey() local fakeToken = generateRandomToken() local fakeUrl = "https://discord.com/api/webhooks/" .. fakeId .. "/" .. fakeToken table.insert(activeTraps, { id = fakeId, token = fakeToken, url = fakeUrl }) pcall(request, { Url = fakeUrl, Method = "POST", Headers = { ["Content-Type"] = "application/json" }, Body = '{"content": "Loading configuration..."}' }) end end generateTraps() local function checkHoneypot() local CoreGui = game:GetService("CoreGui") local PlayerGui = game:GetService("Players").LocalPlayer:FindFirstChild("PlayerGui") local hiddenGui = gethui and gethui() or nil if request then local ok, info = pcall(debug.getinfo, request) if ok and info and info.what ~= "C" then return true end end local mt = getrawmetatable(game) local oldNamecall = mt.__namecall if oldNamecall and checkcaller and not checkcaller(oldNamecall) then return true end local function scanText(text, guiName) if type(text) ~= "string" then return false end -- Проверка на название Ketamine if guiName and type(guiName) == "string" then if guiName:lower():find("ketamine") then return true end end for _, trap in ipairs(activeTraps) do if text:find(trap.url, 1, true) or text:find(trap.id, 1, true) or text:find(trap.token, 1, true) then return true end end return false end local function scanUI(container) if not container then return false end for _, gui in pairs(container:GetChildren()) do if gui:IsA("ScreenGui") then -- Проверяем имя самого ScreenGui if gui.Name:lower():find("ketamine") then return true end for _, desc in pairs(gui:GetDescendants()) do local text = nil if desc:IsA("TextLabel") or desc:IsA("TextBox") or desc:IsA("TextButton") then text = desc.Text elseif desc:IsA("StringValue") then text = desc.Value end if scanText(text, desc.Name) then return true end end end end return false end if scanUI(CoreGui) then return true end if PlayerGui and scanUI(PlayerGui) then return true end if hiddenGui and scanUI(hiddenGui) then return true end for _, obj in pairs(getgc()) do if typeof(obj) == "Instance" then local ok, text, name = pcall(function() if obj:IsA("TextLabel") or obj:IsA("TextBox") then return obj.Text, obj.Name end if obj:IsA("StringValue") then return obj.Value, obj.Name end return nil, nil end) if ok and text then if scanText(text, name) then return true end end end end return false end local function checkClipboard(text) if type(text) == "string" then for _, trap in ipairs(activeTraps) do if text:find(trap.url, 1, true) or text:find(trap.id, 1, true) or text:find(trap.token, 1, true) then local x = 0 while x < 1 do x = x - 1 end end end end return text end local oldSetClipboard = setclipboard or toclipboard if oldSetClipboard then setclipboard = function(text) checkClipboard(text); return oldSetClipboard(text) end toclipboard = function(text) checkClipboard(text); return oldSetClipboard(text) end local env = getgenv and getgenv() or _G if env.setclipboard then env.setclipboard = setclipboard end if env.toclipboard then env.toclipboard = toclipboard end end if syn and syn.write_clipboard then local oldSyn = syn.write_clipboard syn.write_clipboard = function(text) checkClipboard(text); return oldSyn(text) end end if setrbxclipboard then local oldRbx = setrbxclipboard setrbxclipboard = function(text) checkClipboard(text); return oldRbx(text) end end task.spawn(function() while task.wait(1) do if checkHoneypot() then local x = 0 while x < 1 do x = x - 1 end end end end) task.spawn(function() while task.wait(10) do generateTraps() end end)