Herkle Deobfuscation
-- This will no longer get update because it's private from now on
-- settings
local getfenvhook = false
local concathook = false
local constant = false -- sucks
local decode = false -- sucks either
local loadshook = false -- prints the whole original source (only if obfuscator uses loadstring)
local pairshook = false -- logs for i,v in pairs
local log = true -- something like threads (not deobfuscate, logs what script does)
local printf = false -- not recommended, may spam your console (on wearedevs)
-- functions for lua 53+ and for deobf
local object_map = {}
local obj_count = 0
local old_pr = print
if not loadstring then
function loadstring(code)
old_pr(code)
return load(code)
end
end
function typeof(v)
return type(v)
end
function getfenv(level)
level = (level or 1) + 1
local info = debug.getinfo(level, "f")
if not info then return _ENV end
local func = info.func
if type(func) ~= "function" then return _ENV end
local i = 1
while true do
local name, value = debug.getupvalue(func, i)
if not name then break end
if name == "_ENV" then
return value
end
i = i + 1
end
return _ENV
end
function unpack(arg)
return table.unpack(arg)
end
local function const(source)
local constants = {}
local index = {}
local count = 0
local function decode(str)
return (str:gsub("\\(%d%d?%d?)", function(d)
return string.char(tonumber(d))
end))
end
source = source:gsub("(['\"])(.-)%1", function(_, str)
local decoded = decode(str)
if not index[decoded] then
count = count + 1
index[decoded] = count
constants[count] = decoded
end
return ("C[%d]"):format(index[decoded])
end)
local constSrc = "local C = {\n"
for i, v in ipairs(constants) do
constSrc = constSrc .. (" [%d] = %q,\n"):format(i, v)
end
constSrc = constSrc .. "}\n\n"
return constSrc .. source
end
local function addCompoundSupport(code)
local lines = {}
for line in code:gmatch("([^\n\r]+)") do
local startPos, endPos = line:find("%s*%+=%s*")
if startPos then
local left = line:sub(1, startPos - 1):match("^%s*(.-)%s*$")
local right = line:sub(endPos + 1):match("^%s*(.-)%s*$")
line = string.format("local _v = %s; %s = _v + %s", left, left, right)
end
table.insert(lines, line)
end
return table.concat(lines, "\n")
end
if log then
local function serialize(v)
if object_map[v] then return object_map[v] end
local t = (type(v) == "table" and v.__type) or type(v)
if getmetatable(v) and getmetatable(v).__type == "Instance" then t = "Instance" end
if t == "string" then
return string.format("%q", v)
elseif t == "EnumItem" then
return v.Value
elseif t == "Vector3" then
return "Vector3.new(" .. tostring(v) .. ")"
elseif t == "Vector2" then
return "Vector2.new(" .. tostring(v) .. ")"
elseif t == "CFrame" then
return "CFrame.new(" .. tostring(v) .. ")"
elseif t == "Color3" then
local constructor = v.__mode or "new"
return "Color3." .. constructor .. "(" .. tostring(v) .. ")"
elseif t == "ColorSequence" then
local kps = {}
for i, kp in ipairs(v.Keypoints) do
table.insert(kps, serialize(kp))
end
return "ColorSequence.new({" .. table.concat(kps, ", ") .. "})"
elseif t == "ColorSequenceKeypoint" then
return "ColorSequenceKeypoint.new(" .. v.Time .. ", " .. serialize(v.Value) .. ")"
elseif t == "UDim2" then
return "UDim2.new(" .. tostring(v) .. ")"
elseif t == "UDim" then
return "UDim.new(" .. tostring(v) .. ")"
elseif t == "Instance" then
return v:GetFullName()
elseif t == "table" then
local s = "{"
for k, val in pairs(v) do
if k ~= "__type" and k ~= "__mode" then
local keyStr = type(k) == "string" and string.format("%q", k) or tostring(k)
local valStr = serialize(val)
s = s .. string.format("\n [%s] = %s,", keyStr, valStr)
end
end
return s .. "\n}"
elseif t == "function" then
return "function"
elseif t == "TweenInfo" then
return string.format("TweenInfo.new(%s, %s, %s, %s, %s, %s)", v.Time, serialize(v.EasingStyle), serialize(v.EasingDirection), v.RepeatCount, v.Reverses, v.DelayTime)
else
return tostring(v)
end
end
local function createDataType(name, methods)
return setmetatable({}, {
__index = function(_, method)
return function(...)
local args = {...}
local out = {}
for i, v in ipairs(args) do out[i] = serialize(v) end
local result = methods[method](...)
return result
end
end
})
end
_G.Enum = setmetatable({}, {
__index = function(self, enumType)
local enumObj = setmetatable({}, {
__index = function(_, enumItem)
return {
__type = "EnumItem",
Value = "Enum." .. enumType .. "." .. enumItem
}
end,
__tostring = function() return "Enum." .. enumType end
})
rawset(self, enumType, enumObj)
return enumObj
end
})
_G.Color3 = createDataType("Color3", {
new = function(r, g, b)
return setmetatable({
R = r or 0,
G = g or 0,
B = b or 0,
__type = "Color3",
__mode = "new"
}, {
__tostring = function(t) return t.R .. ", " .. t.G .. ", " .. t.B end
})
end,
fromRGB = function(r, g, b)
return setmetatable({
R = r or 0,
G = g or 0,
B = b or 0,
__type = "Color3",
__mode = "fromRGB"
}, {
__tostring = function(t) return t.R .. ", " .. t.G .. ", " .. t.B end
})
end
})
_G.ColorSequenceKeypoint = createDataType("ColorSequenceKeypoint", {
new = function(time, color)
return setmetatable({
Time = time or 0,
Value = color,
__type = "ColorSequenceKeypoint"
}, {
__tostring = function(t) return tostring(t.Time) .. " " .. serialize(t.Value) end
})
end
})
_G.ColorSequence = createDataType("ColorSequence", {
new = function(...)
local args = {...}
local kps = type(args[1]) == "table" and args[1] or args
return setmetatable({
Keypoints = kps,
__type = "ColorSequence"
}, {
__tostring = function() return "ColorSequence" end
})
end
})
_G.Vector3 = createDataType("Vector3", {
new = function(x, y, z) return setmetatable({X = x or 0, Y = y or 0, Z = z or 0, __type = "Vector3"}, {__tostring = function(t) return t.X .. ", " .. t.Y .. ", " .. t.Z end}) end
})
_G.Vector2 = createDataType("Vector2", {
new = function(x, y)
return setmetatable({
X = x or 0,
Y = y or 0,
__type = "Vector2"
}, {
__tostring = function(t)
return t.X .. ", " .. t.Y
end
})
end
})
_G.CFrame = createDataType("CFrame", {
new = function(x, y, z)
return setmetatable({p = _G.Vector3.new(x, y, z), __type = "CFrame"}, {
__tostring = function(t) return tostring(t.p) end
})
end
})
_G.UDim = createDataType("UDim", {
new = function(scale, offset)
return setmetatable({
Scale = scale or 0,
Offset = offset or 0,
__type = "UDim"
}, {
__tostring = function(t)
return t.Scale .. ", " .. t.Offset
end
})
end
})
_G.UDim2 = createDataType("UDim2", {
new = function(sx, ox, sy, oy) return setmetatable({Sx = sx or 0, Ox = ox or 0, Sy = sy or 0, Oy = oy or 0, __type = "UDim2"}, {__tostring = function(t) return t.Sx .. ", " .. t.Ox .. ", " .. t.Sy .. ", " .. t.Oy end}) end,
fromScale = function(x, y) return _G.UDim2.new(x, 0, y, 0) end,
fromOffset = function(x, y) return _G.UDim2.new(0, x, 0, y) end
})
_G.TweenInfo = createDataType("TweenInfo", {
new = function(time, easingStyle, easingDirection, repeatCount, reverses, delay)
return setmetatable({
Time = time or 1,
EasingStyle = easingStyle or _G.Enum.EasingStyle.Linear,
EasingDirection = easingDirection or _G.Enum.EasingDirection.Out,
RepeatCount = repeatCount or 0,
Reverses = reverses or false,
DelayTime = delay or 0,
__type = "TweenInfo"
}, {
__tostring = function() return "TweenInfo.new()" end
})
end
})
_G.Drawing = {
new = function(className)
obj_count = obj_count + 1
local varName = "draw_" .. obj_count
old_pr(string.format("local %s = Drawing.new(%q)", varName, className))
local internal = { Visible = false, Transparency = 1, Color = _G.Color3.new(1,1,1) }
local proxy = setmetatable({}, {
__type = "Drawing",
__index = function(_, k)
if k == "Remove" or k == "Destroy" then
return function() old_pr(varName .. ":Remove()") end
end
return internal[k]
end,
__newindex = function(_, k, v)
internal[k] = v
old_pr(string.format("%s.%s = %s", varName, k, serialize(v)))
end
})
object_map[proxy] = varName
return proxy
end
}
local services = {}
local function createInstance(className, name, isService)
obj_count = obj_count + 1
local varName = isService and ('game:GetService("' .. name .. '")') or ("obj_" .. obj_count)
local internal = { ClassName = className, Name = name or className, Parent = nil }
local proxy = setmetatable({}, {
__type = "Instance",
__index = function(_, k)
if internal[k] then
return internal[k]
end
if k == "WalkSpeed" then return 16 end
if k == "Health" then return 100 end
if k == "GetFullName" then return function() return "game." .. internal.Name end end
if k == "WaitForChild" or k == "FindFirstChild" or k == "FindFirstChildOfClass" then
return function(_, childName)
local child = createInstance("Part", childName or "Child")
old_pr(string.format("local %s = %s:%s(%q)", object_map[child], varName, k, tostring(childName)))
return child
end
end
if k == "SetCore" then
return function(_, coreName, data)
old_pr(string.format("%s:SetCore(%q, %s)", varName, coreName, serialize(data)))
return nil
end
end
if k == "GetChildren" or k == "getChildren" then
return function() return {} end
end
if k == "Destroy" or k == "Clone" then
return function()
old_pr(varName .. ":" .. k .. "()")
internal.Parent = nil
end
end
if k == "JSONEncode" then
return function(_, data)
local res = "{}"
old_pr(string.format('%s:JSONEncode(%s)', varName, serialize(data)))
return res
end
end
if k == "GenerateGUID" then
return function(_, arg)
local res = "00000000-0000-0000-0000-000000000000"
old_pr(string.format('%s:GenerateGUID(%s)', varName, arg ~= nil and tostring(arg) or ""))
return res
end
end
if k == "Create" and internal.ClassName == "TweenService" then
return function(_, obj, info, props)
obj_count = obj_count + 1
local tweenVar = "obj_" .. obj_count
old_pr(string.format("local %s = %s:Create(%s, %s, %s)",
tweenVar, varName, serialize(obj), serialize(info), serialize(props)))
local tweenProxy = {
Play = function() old_pr(tweenVar .. ":Play()") end,
Stop = function() old_pr(tweenVar .. ":Stop()") end,
Cancel = function() old_pr(tweenVar .. ":Cancel()") end,
Pause = function() old_pr(tweenVar .. ":Pause()") end,
Completed = { Connect = function() return {Disconnect = function() end} end, Wait = function() end }
}
return tweenProxy
end
end
local propertyObj = createInstance("Part", k)
old_pr(string.format("local %s = %s.%s", tostring(object_map[propertyObj]), tostring(varName), tostring(k)))
local mt = getmetatable(propertyObj)
local old_idx = mt.__index
mt.__index = function(t, key)
if key == "Connect" or key == "connect" then
return function(_, fn)
old_pr(object_map[t] .. ":" .. key .. "(function()")
if type(fn) == "function" then task.spawn(fn) end
old_pr("end)")
return { Disconnect = function() end }
end
elseif key == "Wait" or key == "wait" then
return function() return end
end
return old_idx(t, key)
end
rawset(internal, k, propertyObj)
return propertyObj
end,
__newindex = function(proxy, k, v)
internal[k] = v
local valStr = serialize(v)
if (type(v) == "table" or type(v) == "userdata") and valStr == "nil" then
valStr = "UnknownObject"
end
old_pr(varName .. "." .. tostring(k) .. " = " .. valStr)
end,
__tostring = function() return internal.Name end
})
object_map[proxy] = varName
return proxy
end
_G.game = setmetatable({
GetService = function(_, s)
if not services[s] then services[s] = createInstance(s, s, true) end
return services[s]
end,
HttpGet = function(_, url)
old_pr(string.format('loadstring(game:HttpGet(%q))()', url))
return ""
end
}, {
__index = function(t, k)
return t:GetService(k)
end
})
_G.Instance = {
new = function(c, p)
local o = createInstance(c)
old_pr("local " .. object_map[o] .. " = Instance.new(" .. serialize(c) .. ")")
if p then o.Parent = p end
return o
end
}
_G.game:GetService("UserInputService")
_G.workspace = _G.game:GetService("Workspace")
_G.HttpService = _G.game:GetService("HttpService")
_G.TweenService = _G.game:GetService("TweenService")
_G.RunService = _G.game:GetService("RunService")
_G.syn = {
request = function(options)
old_pr("syn.request(" .. serialize(options) .. ")")
return {Success = true, Body = "{}", StatusCode = 200}
end
}
_G.request = _G.syn.request
end
local function pretty(v)
if type(v) == "table" then
return tostring(v)
elseif type(v) == "function" then
return tostring(v)
elseif type(v) == "string" then
return string.format("%q", v)
else
return tostring(v)
end
end
local b='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'
local function base64_decode(data)
data = data:gsub('[^'..b..'=]', '')
return (data:gsub('.', function(x)
if x == '=' then return '' end
local r,f='',(b:find(x)-1)
for i=6,1,-1 do
r = r .. (f%2^i - f%2^(i-1) > 0 and '1' or '0')
end
return r
end):gsub('%d%d%d?%d?%d?%d?%d?%d?', function(x)
if #x ~= 8 then return '' end
local c = 0
for i=1,8 do
c = c + (x:sub(i,i)=='1' and 2^(8-i) or 0)
end
return string.char(c)
end))
end
local function deobf(code)
local strings = {}
for encoded in code:gmatch("'([^']+)'") do
pcall(function()
local decoded = base64_decode(encoded:reverse()):gsub("\n","")
table.insert(strings, decoded)
end)
end
if #strings == 2 then
local func = strings[1]
local arg = strings[2]
return string.format('%s(%q)', func, arg)
end
end
spawn = spawn or function(fn) local co = coroutine.create(function() pcall(fn) end) coroutine.resume(co) end
task = task or {}
task.spawn = task.spawn or spawn
task.wait = function() return 0 end
task.defer = function(fn) spawn(fn) end
task.delay = function(d, fn) spawn(fn) end
wait = function() return 0 end
if old_prf then
function error(f)
old_pr(f)
end
function warn(f)
old_pr(f)
end
end
-- hook
local old_fenv = getfenv
local old_concat = table.concat
local old_pairs = pairs
local concatQueue = {}
if getfenvhook then
local seen = {}
local function safe(v)
local t = typeof(v)
if t == "string" then
return string.format("%q", v)
elseif t == "Instance" then
return v:GetFullName()
else
return tostring(v)
end
end
getfenv = function(level)
local env = old_fenv(level)
return setmetatable({}, {
__index = function(_, key)
if type(key) == "string" and not seen[key] then
seen[key] = true
end
local val = env[key]
if type(val) == "function" then
return function(...)
local args = {...}
local out = {}
for i = 1, #args do
out[i] = safe(args[i])
end
local re = tostring(
key .. "(" .. table.concat(out, ", ") .. ")", "\n"
)
if type(re) == "string" then
old_pr(re, "\n")
return function() end
end
return val(...)
end
end
return val
end
})
end
end
if concathook then
table.concat = function(tbl, sep, i)
sep = sep or ""
i = i or 1
local result = old_concat(tbl, sep, i)
table.insert(concatQueue, result)
if #concatQueue >= 2 then
local a = concatQueue[#concatQueue - 1]
local b = concatQueue[#concatQueue]
if a == "Text" then
local m = a .. " = " .. string.format("%q", b)
old_pr(m)
return m
end
end
if result == "ReplicatedStorage" then result = 'local v1 = game:GetService("ReplicatedStorage")' end
if result == "HttpService" then result = 'local v2 = game:GetService("HttpService")' end
if result == "Lighting" then result = 'local v3 = game:GetService("Lighting")' end
if result == "RunService" then result = 'local v4 = game:GetService("RunService")' end
if result == "MarketplaceService" then result = 'local v5 = game:GetService("MarketplaceService")' end
if result == "CollectionService" then result = 'local v6 = game:GetService("CollectionService")' end
if result == "Players" then result = 'local v7 = game:GetService("Players")' end
if result == "Workspace" then result = 'local v8 = game:GetService("Workspace")' end
if result == "TeleportService" then result = 'local v9 = game:GetService("TeleportService")' end
if result == "GetMouse" then result = 'local v9 = v7.LocalPlayer:GetMouse()' end
if result == "PlayerGui" then result = 'local v10 = v7.LocalPlayer.PlayerGui' end
if result == "CharacterAdded" then result = 'v7.LocalPlayer.CharacterAdded' end
if result == "Died" then result = 'v7.LocalPlayer.Character.Humanoid.Died' end
if result == "HumanoidRootPart" then result = 'v7.LocalPlayer.Character:FindFirstChild("HumanoidRootPart")' end
if result == "Humanoid" then result = 'v7.LocalPlayer.Character:FindFirstChildOfClass("Humanoid")' end
if result == "Character" then result = 'v7.LocalPlayer.Character' end
if result == "LocalPlayer" then result = 'v7.LocalPlayer' end
if result == "PlaceId" then result = 'game.PlaceId' end
if result == "IsLoaded" then result = 'game.IsLoaded' end
if result == "spawn" then result = 'spawn(function()' end
if result == "CurrentCamera" then result = 'local v10 = workspace.CurrentCamera' end
if result == "ScreenGui" then result = 'local v11 = Instance.new("ScreenGui")' end
if result == "Frame" then result = 'local v12 = Instance.new("Frame")' end
if result == "TextLabel" then result = 'local v13 = Instance.new("TextLabel")' end
if result == "TextButton" then result = 'local v14 = Instance.new("TextButton")' end
if result == "Custom" then result = 'Enum.CameraType.Custom' end
if result == "Color" then result = 'Color3.new' end
if result == "CFrame" then result = 'CFrame.new' end
if result == "Vector3" then result = 'Vector3.new' end
if result == "MouseButton1Click" then result = 'v14.MouseButton1Click:Connect(function()' end
old_pr(tostring(result))
return result
end
end
if loadshook then
loadstring = function(code)
old_pr(tostring(code))
return function() end
end
end
if pairshook then
pairs = function(t)
local iter, tbl, key = old_pairs(t)
return function(_, k)
local v
k, v = iter(tbl, k)
if k ~= nil then
old_pr(string.format(
"for i,v in pairs(%s) do\nprint(%s,%s)\nend\n",
pretty(tbl),
pretty(k),
pretty(v),
pretty(v)
))
end
return k, v
end, tbl, key
end
end
if log then
print = function(...)
local args, s = {...}, ""
for i, v in ipairs(args) do s = s .. tostring(v) .. (i < #args and "\t" or "") end
old_pr('print("' .. s .. '")')
end
end
-- paste the script inside "script" and run
local script = [====[
local plr = game:GetService("Players").LocalPlayer
local char = plr.Character or plr.CharacterAdded:Wait()
local hrp = char:WaitForChild("HumanoidRootPart")
local part = Instance.new("Part")
part.Parent = workspace
part.Shape = Enum.PartType.Ball
part.Color = Color3.fromRGB(255, 0, 0)
part.CFrame = hrp.CFrame
]====]
if constant then
local res = const(deobf(script))
old_pr(res)
else
if decode then
local decoded = deobf(script)
old_pr(decoded)
end
script = addCompoundSupport(script)
local func, err = load(script)
if func then
func()
else
old_pr("Error: " .. err)
end
endINFO