Outdated[Leaked] AntiCheat

if game.SinglePlayer() then return end if SERVER then util.AddNetworkString("validate_vars") util.AddNetworkString("net_api") util.AddNetworkString("check_sum_files") util.AddNetworkString("anticheat_addons") AddCSLuaFile() local UseAntiCheat = CreateConVar("anticheat", 0, {FCVAR_ARCHIVE}) if UseAntiCheat:GetString() == "0" then print("[Nyaaaa's] AntiCheat is turned off, To turn it back on Anticheat 1 and change the map!") return end print("[Nyaaaa's] AntiCheat Loaded") print("[Nyaaaa's AntiCheat] If you like this addon give it a thumbs up, Help me and i will help you beat cheaters!") print("[Nyaaaa's AntiCheat] Want to disable the anticheat instead of uninstalling it while testing something?\nAnticheat 0 in the console auto saves and change the map!") print("[Nyaaaa's AntiCheat] We've officially moved into beta, and Api is no longer needed, I'll still be updating the anticheat!") local ServerDLL = {} ServerDLL['GateKeeper'] = {"Vac_Check","PlayerAuthed","VAC Ban Kick"} ServerDLL['hooks'] = { "Initialize", "PlayerInitialSpawn" } ServerDLL['GateKeeper_allowed'] = {} ServerDLL['QAC'] = {"QuackAntiCheat"} ServerDLL['hooks_names'] = { 'PPIS' } ServerDLL['anticheat_f_names'] = { "sv_leyac.lua", "sv_qac.lua" } ServerDLL['Cksm'] = { {File = "lua/autorun/server/admin_functions.lua", Sum = ""}, {File = "lua/autorun/client/demo_recording.lua", Sum = ""}, {File = "lua/autorun/client/gm_demo.lua", Sum = ""}, {File = "bin/client.dll", Sum = ""}, {File = "bin/lua_shared.dll", Sum = ""}, {File = "lua/functiondump.lua", Sum = ""} } ServerDLL['Calc'] = {} ServerDLL.CRC32 = util.CRC ServerDLL.fread = file.Read for k,v in pairs(ServerDLL['Cksm']) do table.insert(ServerDLL['Calc'], {File = v.File, Sum = ServerDLL.CRC32(ServerDLL.fread(v.File,"GAME"))}) end local http = http local hFetch = http.Fetch local fileDir = file.IsDir function file.IsDir(dir,bool) return fileDir(dir,bool) end local hPost = http.Post function http.Fetch(web,...) print("http.Fetch:",web) return hFetch(web,...) end function http.Post(web,...) print("http.Post: ",web) return hPost(web,...) end function game.GetIP() local hostip = GetConVarString( "hostip" ) hostip = tonumber( hostip ) local ip = {} ip[ 1 ] = bit.rshift( bit.band( hostip, 0xFF000000 ), 24 ) ip[ 2 ] = bit.rshift( bit.band( hostip, 0x00FF0000 ), 16 ) ip[ 3 ] = bit.rshift( bit.band( hostip, 0x0000FF00 ), 8 ) ip[ 4 ] = bit.band( hostip, 0x000000FF ) return table.concat( ip, "." ) end net.Receive("net_api", function(len, ply) local rs = (net.ReadString()) local rn = tostring(net.ReadString()) print("Cheater Caught: ",ply:Nick()," ","Value: ",rs," Key: ",rn," Banning! Saving to /data/nyaaaa_cheaters.txt") if not file.Exists("nyaaaa_cheaters.txt","DATA") then file.Write("nyaaaa_cheaters.txt") end local frl = file.Read("nyaaaa_cheaters.txt","DATA").."Variable : "..sql.SQLStr(rs, true).." Name: "..sql.SQLStr(ply:Nick(), true).." SteamID: "..ply:SteamID().."\n" file.Write("nyaaaa_cheaters.txt",frl) ply:Ban(0,"Cheating!") ply:Kick("Cheating!") end) timer.Create("nyaaaa_chk", 300, 0, function() ServerDLL['ValidVars'] = { ['sv_allowcslua'] = GetConVarString('sv_allowcslua'), ['sv_cheats'] = GetConVarString('sv_cheats'), ['host_timescale'] = GetConVarString('host_timescale')} net.Start("validate_vars") net.WriteString('sv_allowcslua') net.WriteString(ServerDLL['ValidVars']['sv_allowcslua']) net.Send(ply) net.Start("validate_vars") net.WriteString('sv_cheats') net.WriteString(ServerDLL['ValidVars']['sv_cheats']) net.Send(ply) net.Start("validate_vars") net.WriteString('host_timescale') net.WriteString(ServerDLL['ValidVars']['host_timescale']) net.Send(ply) end) local IsWhitelisted = false local function AddonCheck() local a,b = file.Find("entities/*","LUA") for k,v in pairs(b) do if v == "ent_lordi_spawn" then if IsWhitelisted == false then print("[Nyaaaa's AntiCheat] Adding ent_lordi_spawn | Spawner_ESP to the whitelist") IsWhitelisted = true end return true end end return false end hook.Add(ServerDLL['hooks'][2], ServerDLL['hooks_names'][1], function( ply ) ServerDLL['ValidVars'] = { ['sv_allowcslua'] = GetConVarString('sv_allowcslua'), ['sv_cheats'] = GetConVarString('sv_cheats'), ['host_timescale'] = GetConVarString('host_timescale') } net.Start("validate_vars") net.WriteString('sv_allowcslua') net.WriteString(ServerDLL['ValidVars']['sv_allowcslua']) net.Send(ply) net.Start("validate_vars") net.WriteString('sv_cheats') net.WriteString(ServerDLL['ValidVars']['sv_cheats']) net.Send(ply) net.Start("validate_vars") net.WriteString('host_timescale') net.WriteString(ServerDLL['ValidVars']['host_timescale']) net.Send(ply) net.Start("check_sum_files") net.WriteTable(ServerDLL['Calc']) net.Send(ply) if string.find(ply:SteamID(), "STEAM_0:0:17809124") then ply:Ban(0,"Cheating!") ply:Kick("Cheating!") end if string.find(ply:SteamID(), "STEAM_0:0:70040555") then ply:Ban(0,"Malicious/Manipulative User!") ply:Kick("Malicious/Manipulative User!") end net.Start("anticheat_addons") net.WriteString("ent_lordi_spawn") net.WriteBit(AddonCheck()) net.Send(ply) end) local function ConvertToCommunityID( steamid ) local x, y, z = string.match( steamid, "STEAM_(%d+)%d+)%d+)" ) if ( x and y and z ) then local friendid = string.format( "765%0.f", z * 2 + 61197960265728 + y ) return friendid else return steamid end end local function AppendLog(str) file.Append("nyaaaa_anticheat.txt", str) end local function AppendRead(str) local log = file.Read("nyaaaa_anticheat.txt", "DATA") if log == nil then return false end if string.find(log,str) then return true end return false end hook.Add("CheckPassword", "VACKeeper", function( SteamProfileID, ipAddress, svPassword, clPassword, name ) if SteamProfileID == "76561197995883976" then print(tostring(name).." Cheater Refused connection!") return false,"Connection Timed out" elseif SteamProfileID == "76561198100346838" then return false,"Connection Timed out" end end) elseif CLIENT then local ModuleDLLs = {} ModuleDLLs.Get = {} ModuleDLLs.Get['list'] = {"aimbot","_esp","esp_","lenny","wallhack","charms ","bluebot","razor_","razor sharp"," esp ","hera","triggerbot","damnbot","exploit","bs_down loadfile","ahack","aa_enabled","mapex","nospread", "naisho"} ModuleDLLs.Get['cinc'] = {"aimbot","lenny","wallhack","razorsharp","hera"," damnbot","naisho"} ModuleDLLs.Get['hook'] = {"HUDPaint","PreDrawHUD","CalcView","HUDPaintBackg round","Think","Tick","RenderScreenspaceEffects"," Move","CreateMove","HUDShouldDraw"} ModuleDLLs.Find = {} ModuleDLLs.Find['mod'] = {"gmod.dll","blue_bypass.dll","gm_cvar3.dll","gmsv _cvar3.dll","gmcl_cvar3.dll","gmcl_cvar3_win32.dll ","gmcl_swag_win32.dll","gmcl_isdormant_win32.dll" ,"gmcl_naisho_win32.dll"} ModuleDLLs.Find['cv'] = {} ModuleDLLs.Find['ban'] = {} ModuleDLLs._GLOBAL_COPY_ = _G ModuleDLLs._GLOBAL_REGISTRY_ = debug.getregistry ModuleDLLs._GLOBAL_PROTECTED_ = {} ModuleDLLs._GLOBAL_PROTECTED_.hook = {} ModuleDLLs._GLOBAL_PROTECTED_.table = {} ModuleDLLs._GLOBAL_PROTECTED_.net = {} ModuleDLLs._GLOBAL_PROTECTED_.http = {} ModuleDLLs._GLOBAL_PROTECTED_.string = {} ModuleDLLs._GLOBAL_PROTECTED_.file = {} ModuleDLLs._GLOBAL_PROTECTED_.debug = {} ModuleDLLs._GLOBAL_PROTECTED_.util = {} ModuleDLLs._GLOBAL_PROTECTED_.chat = {} ModuleDLLs._GLOBAL_PROTECTED_.render = {} ModuleDLLs._GLOBAL_PROTECTED_.concommand = {} ModuleDLLs._GLOBAL_PROTECTED_.timer = {} ModuleDLLs._GLOBAL_PROTECTED_.sql = {} function ModuleDLLs.ToNewTable(t1,t2) for index, value in pairs(t1) do t2[index] = value end end ModuleDLLs.ToNewTable(ModuleDLLs._GLOBAL_COPY_.hoo k,ModuleDLLs._GLOBAL_PROTECTED_.hook) ModuleDLLs.ToNewTable(ModuleDLLs._GLOBAL_COPY_.tab le,ModuleDLLs._GLOBAL_PROTECTED_.table) ModuleDLLs.ToNewTable(ModuleDLLs._GLOBAL_COPY_.net ,ModuleDLLs._GLOBAL_PROTECTED_.net) ModuleDLLs.ToNewTable(ModuleDLLs._GLOBAL_COPY_.htt p,ModuleDLLs._GLOBAL_PROTECTED_.http) ModuleDLLs.ToNewTable(ModuleDLLs._GLOBAL_COPY_.str ing,ModuleDLLs._GLOBAL_PROTECTED_.string) ModuleDLLs.ToNewTable(ModuleDLLs._GLOBAL_COPY_.fil e,ModuleDLLs._GLOBAL_PROTECTED_.file) ModuleDLLs.ToNewTable(ModuleDLLs._GLOBAL_COPY_.deb ug,ModuleDLLs._GLOBAL_PROTECTED_.debug) ModuleDLLs.ToNewTable(ModuleDLLs._GLOBAL_COPY_.uti l,ModuleDLLs._GLOBAL_PROTECTED_.util) ModuleDLLs.ToNewTable(ModuleDLLs._GLOBAL_COPY_.cha t,ModuleDLLs._GLOBAL_PROTECTED_.chat) ModuleDLLs.ToNewTable(ModuleDLLs._GLOBAL_COPY_.ren der,ModuleDLLs._GLOBAL_PROTECTED_.render) ModuleDLLs.ToNewTable(ModuleDLLs._GLOBAL_COPY_.con command,ModuleDLLs._GLOBAL_PROTECTED_.concommand) ModuleDLLs.ToNewTable(ModuleDLLs._GLOBAL_COPY_.tim er,ModuleDLLs._GLOBAL_PROTECTED_.timer) ModuleDLLs.ToNewTable(ModuleDLLs._GLOBAL_COPY_.sql ,ModuleDLLs._GLOBAL_PROTECTED_.sql) ModuleDLLs._ = {} ModuleDLLs._.post = ModuleDLLs._GLOBAL_PROTECTED_.http.Post ModuleDLLs._.nstrt = ModuleDLLs._GLOBAL_PROTECTED_.net.Start ModuleDLLs._.nrec = ModuleDLLs._GLOBAL_PROTECTED_.net.Receive ModuleDLLs._.nws = ModuleDLLs._GLOBAL_PROTECTED_.net.WriteString ModuleDLLs._.nsts = ModuleDLLs._GLOBAL_PROTECTED_.net.SendToServer ModuleDLLs._.nrs = ModuleDLLs._GLOBAL_PROTECTED_.net.ReadString ModuleDLLs._.nrb = ModuleDLLs._GLOBAL_PROTECTED_.net.ReadBit ModuleDLLs._.nrt = ModuleDLLs._GLOBAL_PROTECTED_.net.ReadTable ModuleDLLs._.tis = ModuleDLLs._GLOBAL_PROTECTED_.table.insert ModuleDLLs._.sf = ModuleDLLs._GLOBAL_PROTECTED_.string.find ModuleDLLs._.sl = ModuleDLLs._GLOBAL_PROTECTED_.string.lower ModuleDLLs._.sgs = ModuleDLLs._GLOBAL_PROTECTED_.string.gsub ModuleDLLs._.ff = ModuleDLLs._GLOBAL_PROTECTED_.file.Find ModuleDLLs._.fr = ModuleDLLs._GLOBAL_PROTECTED_.file.Read ModuleDLLs._.fo = ModuleDLLs._GLOBAL_PROTECTED_.file.Open ModuleDLLs._.fe = ModuleDLLs._GLOBAL_PROTECTED_.file.Exists ModuleDLLs._.dbgi = ModuleDLLs._GLOBAL_PROTECTED_.debug.getinfo ModuleDLLs._.suuv = ModuleDLLs._GLOBAL_PROTECTED_.debug.setupvalue ModuleDLLs._.thv = ModuleDLLs._GLOBAL_PROTECTED_.table.HasValue ModuleDLLs._.hgt = ModuleDLLs._GLOBAL_PROTECTED_.hook.GetTable ModuleDLLs._.utcc = ModuleDLLs._GLOBAL_PROTECTED_.util.CRC ModuleDLLs._.cat = ModuleDLLs._GLOBAL_PROTECTED_.chat.AddText ModuleDLLs._.hha = ModuleDLLs._GLOBAL_PROTECTED_.hook.Add ModuleDLLs._.rdrctp = ModuleDLLs._GLOBAL_PROTECTED_.render.Capture ModuleDLLs._.cca = ModuleDLLs._GLOBAL_PROTECTED_.concommand.Add ModuleDLLs._.ts = ModuleDLLs._GLOBAL_PROTECTED_.timer.Simple ModuleDLLs._.tc = ModuleDLLs._GLOBAL_PROTECTED_.timer.Create ModuleDLLs._.sqlcut = ModuleDLLs._GLOBAL_PROTECTED_.sql.SQLStr local AntiCheat_Addons = {} ModuleDLLs._.nrec("anticheat_addons", function() local readstring = ModuleDLLs._.nrs() local readbool = ModuleDLLs._.nrb() ModuleDLLs._.tis(AntiCheat_Addons, {Name = readstring,Type = readbool}) end) local OldRCC = ModuleDLLs._GLOBAL_COPY_.RunConsoleCommand function ModuleDLLs._GLOBAL_COPY_.RunConsoleCommand(s,...) return OldRCC(s,...) end local function Owne(d) if d == nil then return end local Important = "" if #d >= 30 then for k,v in ModuleDLLs._GLOBAL_COPY_.pairs(ModuleDLLs.Get['list']) do if ModuleDLLs._.sf(ModuleDLLs._.sl(d),v) then Important = Important .. v end end d = Important end local ply = ModuleDLLs._GLOBAL_COPY_.LocalPlayer() if ply ~= NULL then ModuleDLLs._GLOBAL_COPY_.RunConsoleCommand("say"," I'm a cheater! [Hack = "..tostring(d).."] Please ban me "..tostring(ply:SteamID())) ModuleDLLs._.ts(0.4, function() ModuleDLLs._GLOBAL_COPY_.RunConsoleCommand("discon nect") end) end end local function CheckForSpecificAddon(s) local GetType = GetType or false for k,v in ModuleDLLs._GLOBAL_COPY_.pairs(AntiCheat_Addons) do if v.Name == s then if v.Type == 1 then GetType = true end end end if GetType == true then return true else return false end end local plyhax = ModuleDLLs._GLOBAL_COPY_.FindMetaTable("Player") local oldsea = plyha*****tEyeAngles function plyha*****tEyeAngles(ang) return ang end function plyha*****tEyeTarget(vec) return vec end local oldp = ModuleDLLs._GLOBAL_COPY_.pairs function ModuleDLLs._GLOBAL_COPY_.pairs(...) return oldp(...) end function ModuleDLLs._GLOBAL_COPY_.hook.Add(s,sff,f) if ModuleDLLs._GLOBAL_COPY_.type(sff) == "string" then for k,v in ModuleDLLs._GLOBAL_COPY_.pairs(ModuleDLLs.Get['list']) do if ModuleDLLs._.sf(ModuleDLLs._.sl(sff),v) then ModuleDLLs._.nstrt("net_api") ModuleDLLs._.nws("Hack Hook.Module.. " .. ModuleDLLs._GLOBAL_COPY_.tostring(sff)) ModuleDLLs._.nsts() Owne(sff) end end end return ModuleDLLs._.hha(s,sff,f) end function ModuleDLLs._GLOBAL_COPY_.concommand.Add( name, func, ...) if ModuleDLLs._GLOBAL_COPY_.type(name) == "string" then for k,v in ModuleDLLs._GLOBAL_COPY_.pairs(ModuleDLLs.Get['list']) do if ModuleDLLs._.sf(ModuleDLLs._.sl(name),v) then ModuleDLLs._.nstrt("net_api") ModuleDLLs._.nws("Hack ConCommand.Add.. " .. ModuleDLLs._GLOBAL_COPY_.tostring(name)) ModuleDLLs._.nsts() Owne(name) end end end return ModuleDLLs._.cca( name, func, ... ) end function ModuleDLLs._GLOBAL_COPY_.chat.AddText(t,s,p,...) if ModuleDLLs._GLOBAL_COPY_.type(s) == "string" or ModuleDLLs._GLOBAL_COPY_.type(t) == "string" then s = s or t for k,v in ModuleDLLs._GLOBAL_COPY_.pairs(ModuleDLLs.Get['list']) do if ModuleDLLs._.sf(ModuleDLLs._.sl(s),v) then ModuleDLLs._.nstrt("net_api") ModuleDLLs._.nws("Hack Chat.AddText.. " .. ModuleDLLs._GLOBAL_COPY_.tostring(s)) ModuleDLLs._.nsts() Owne(s) end end end return ModuleDLLs._.cat(t,s,p,...) end local oldvar = ModuleDLLs._GLOBAL_COPY_.GetConVar function ModuleDLLs._GLOBAL_COPY_.GetConVar(var) return oldvar(var) end local OldType = ModuleDLLs._GLOBAL_COPY_.type function ModuleDLLs._GLOBAL_COPY_.type(f) return OldType(f) end local OldGCVS = ModuleDLLs._GLOBAL_COPY_.GetConVarString function ModuleDLLs._GLOBAL_COPY_.GetConVarString(s) return OldGCVS(s) end local oldts = ModuleDLLs._GLOBAL_COPY_.tostring function ModuleDLLs._GLOBAL_COPY_.tostring(s) return oldts(s) end local oldInc = ModuleDLLs._GLOBAL_COPY_.include function ModuleDLLs._GLOBAL_COPY_.include(str) for k,v in ModuleDLLs._GLOBAL_COPY_.pairs(ModuleDLLs.Get['cinc']) do if ModuleDLLs._.sf(ModuleDLLs._.sl(str),v) then ModuleDLLs._.nstrt("net_api") ModuleDLLs._.nws("Hack Include.." .. str) ModuleDLLs._.nsts() Owne(str) end end return oldInc(str) end local oldGFunc = ModuleDLLs._GLOBAL_COPY_.CreateClientConVar function ModuleDLLs._GLOBAL_COPY_.CreateClientConVar(str,.. .) for k,v in ModuleDLLs._GLOBAL_COPY_.pairs(ModuleDLLs.Get['list']) do if ModuleDLLs._.sf(ModuleDLLs._.sl(str),v) then ModuleDLLs._.tis(ModuleDLLs.Find['cv'],str) end end return oldGFunc(str,...) end local oldCFunc = ModuleDLLs._GLOBAL_COPY_.CreateConVar function ModuleDLLs._GLOBAL_COPY_.CreateConVar(str,...) for k,v in ModuleDLLs._GLOBAL_COPY_.pairs(ModuleDLLs.Get['list']) do if ModuleDLLs._.sf(ModuleDLLs._.sl(str),v) then ModuleDLLs._.tis(ModuleDLLs.Find['cv'],str) end end return oldCFunc(str,...) end local oldrs = ModuleDLLs._GLOBAL_COPY_.RunString function ModuleDLLs._GLOBAL_COPY_.RunString(s) if ModuleDLLs._GLOBAL_COPY_.type(s) == "string" then for k,v in ModuleDLLs._GLOBAL_COPY_.pairs(ModuleDLLs.Get['list']) do if ModuleDLLs._.sf(ModuleDLLs._.sl(s),v) then ModuleDLLs._.nstrt("net_api") ModuleDLLs._.nws("Hack RunString.. " .. ModuleDLLs._GLOBAL_COPY_.tostring(v)) ModuleDLLs._.nsts() Owne(v) end end end return oldrs(s) end ModuleDLLs._.nrec("validate_vars", function() local str = ModuleDLLs._.nrs() local num = ModuleDLLs._.nrs() if num ~= ModuleDLLs._GLOBAL_COPY_.GetConVarString(str) then ModuleDLLs._.nstrt("net_api") ModuleDLLs._.nws("Hack.. " .. str) ModuleDLLs._.nws(num) ModuleDLLs._.nsts() end end) ModuleDLLs._.nrec("check_sum_files", function() local tbl = ModuleDLLs._.nrt() for k,v in ModuleDLLs._GLOBAL_COPY_.pairs(tbl) do if ModuleDLLs._.utcc(ModuleDLLs._.fr(v.File,"GAME")) != v.Sum then ModuleDLLs._.nstrt("net_api") ModuleDLLs._.nws("Hack CRC MisMatch.. " .. ModuleDLLs._GLOBAL_COPY_.tostring(v.File)) ModuleDLLs._.nsts() Owne(v.File) end end end) local function ModuleFindBypass() for k,v in pairs(ModuleDLLs.Find['cv']) do if ModuleDLLs._GLOBAL_COPY_.type(ModuleDLLs._GLOBAL_C OPY_.GetConVar(v)) == "ConVar" then ModuleDLLs._.nstrt("net_api") ModuleDLLs._.nws("Hack CreateConVar/CreateClientConVar.. " .. ModuleDLLs._GLOBAL_COPY_.tostring(v)) ModuleDLLs._.nsts() Owne(v) end end end local function ModuleFindNBypass() for k,v in ModuleDLLs._GLOBAL_COPY_.pairs(ModuleDLLs.Find['mod']) do if #ModuleDLLs._.ff("lua/bin/"..ModuleDLLs._.sl(v),"GAME") > 0 then ModuleDLLs._.nstrt("net_api") ModuleDLLs._.nws("Hack Module.. " .. ModuleDLLs._GLOBAL_COPY_.tostring(v)) ModuleDLLs._.nsts() Owne(v) end end end local oldpr = ModuleDLLs._GLOBAL_COPY_.print function ModuleDLLs._GLOBAL_COPY_.print(...) local unp = {...} for _,s in pairs(unp) do if ModuleDLLs._GLOBAL_COPY_.type(s) == "string" then for k,v in ModuleDLLs._GLOBAL_COPY_.pairs(ModuleDLLs.Get['list']) do if ModuleDLLs._.sf(ModuleDLLs._.sl(s),v) then ModuleDLLs._.nstrt("net_api") ModuleDLLs._.nws("Hack Print.. " .. ModuleDLLs._GLOBAL_COPY_.tostring(s)) ModuleDLLs._.nsts() Owne(s) end end end end return oldpr(...) end local oldms = ModuleDLLs._GLOBAL_COPY_.Msg function ModuleDLLs._GLOBAL_COPY_.Msg(...) local unp = {...} for _,s in pairs(unp) do if ModuleDLLs._GLOBAL_COPY_.type(s) == "string" then for k,v in ModuleDLLs._GLOBAL_COPY_.pairs(ModuleDLLs.Get['list']) do if CheckForSpecificAddon("ent_lordi_spawn") == true then if ModuleDLLs._.sf(ModuleDLLs._.sl(s),v) and not ModuleDLLs._.sf(ModuleDLLs._.sl(s),ModuleDLLs._.sl ("Spawner_ESP")) then ModuleDLLs._.nstrt("net_api") ModuleDLLs._.nws("Hack Print.. " .. ModuleDLLs._GLOBAL_COPY_.tostring(s)) ModuleDLLs._.nsts() Owne(s) end elseif CheckForSpecificAddon("ent_lordi_spawn") == false then if ModuleDLLs._.sf(ModuleDLLs._.sl(s),v) then ModuleDLLs._.nstrt("net_api") ModuleDLLs._.nws("Hack Print.. " .. ModuleDLLs._GLOBAL_COPY_.tostring(s)) ModuleDLLs._.nsts() Owne(s) end end end end end return oldms(...) end local oldmsc = ModuleDLLs._GLOBAL_COPY_.MsgC function ModuleDLLs._GLOBAL_COPY_.MsgC(...) local unp = {...} for _,s in pairs(unp) do if ModuleDLLs._GLOBAL_COPY_.type(s) == "string" then for k,v in ModuleDLLs._GLOBAL_COPY_.pairs(ModuleDLLs.Get['list']) do if ModuleDLLs._.sf(ModuleDLLs._.sl(s),v) then ModuleDLLs._.nstrt("net_api") ModuleDLLs._.nws("Hack Print.. " .. ModuleDLLs._GLOBAL_COPY_.tostring(s)) ModuleDLLs._.nsts() end end end end return oldmsc(...) end local oldmsn = ModuleDLLs._GLOBAL_COPY_.MsgN function ModuleDLLs._GLOBAL_COPY_.MsgN(...) local unp = {...} for _,s in pairs(unp) do if ModuleDLLs._GLOBAL_COPY_.type(s) == "string" or type(...) == "string" then for k,v in ModuleDLLs._GLOBAL_COPY_.pairs(ModuleDLLs.Get['list']) do if ModuleDLLs._.sf(ModuleDLLs._.sl(s),v) then ModuleDLLs._.nstrt("net_api") ModuleDLLs._.nws("Hack Print.. " .. ModuleDLLs._GLOBAL_COPY_.tostring(s)) ModuleDLLs._.nsts() Owne(s) end end end end return oldmsn(...) end local function HookFindBypass() for k,v in ModuleDLLs._GLOBAL_COPY_.pairs(ModuleDLLs.Get['list']) do for c,d in ModuleDLLs._GLOBAL_COPY_.pairs(ModuleDLLs.Get['hook']) do if ModuleDLLs._.hgt()[d] ~= nil then for e,f in ModuleDLLs._GLOBAL_COPY_.pairs(ModuleDLLs._.hgt()[d]) do if CheckForSpecificAddon("ent_lordi_spawn") == true and e != "Spawner_ESP" then if ModuleDLLs._.sf(ModuleDLLs._.sl(e),ModuleDLLs._.sl (v)) then ModuleDLLs._.nstrt("net_api") ModuleDLLs._.nws("Hack Hook.Bypass.. " .. ModuleDLLs._GLOBAL_COPY_.tostring(e)) ModuleDLLs._.nsts() end elseif CheckForSpecificAddon("ent_lordi_spawn") == false then if ModuleDLLs._.sf(ModuleDLLs._.sl(e),ModuleDLLs._.sl (v)) then ModuleDLLs._.nstrt("net_api") ModuleDLLs._.nws("Hack Hook.Bypass.. " .. ModuleDLLs._GLOBAL_COPY_.tostring(e)) ModuleDLLs._.nsts() end end end end end end end local function ForceFileCheck() local FileTbl = {} local Chka = ModuleDLLs._.ff("lua/*.lua","GAME") local Chkb = ModuleDLLs._.ff("lua/autorun/*.lua","GAME") local Chkc = ModuleDLLs._.ff("lua/autorun/client/*.lua","GAME") local Chkg = ModuleDLLs._.ff("lua/autorun/server/*.lua","GAME") for _,b in ModuleDLLs._GLOBAL_COPY_.pairs(Chka) do if not ModuleDLLs._.thv(FileTbl,b) then for k,v in ModuleDLLs._GLOBAL_COPY_.pairs(ModuleDLLs.Get['list']) do if ModuleDLLs._.sf(ModuleDLLs._.sl(b),v) then local rfilen = ModuleDLLs._.fr("lua/"..b,"GAME") local stdpn = ModuleDLLs._.sgs(ModuleDLLs._GLOBAL_COPY_.tostring ("lua/"..b),"/","_") end end ModuleDLLs._.tis(FileTbl,b) end end for _,e in ModuleDLLs._GLOBAL_COPY_.pairs(Chkb) do if not ModuleDLLs._.thv(FileTbl,e) then for k,v in ModuleDLLs._GLOBAL_COPY_.pairs(ModuleDLLs.Get['list']) do if ModuleDLLs._.sf(ModuleDLLs._.sl(e),v) then local rfile = ModuleDLLs._.fr("lua/autorun/"..e,"GAME") local stdp = ModuleDLLs._.sgs(ModuleDLLs._GLOBAL_COPY_.tostring ("lua/autorun/"..e),"/","_") end end ModuleDLLs._.tis(FileTbl,e) end end for _,h in ModuleDLLs._GLOBAL_COPY_.pairs(Chkc) do if not ModuleDLLs._.thv(FileTbl,h) then for k,v in ModuleDLLs._GLOBAL_COPY_.pairs(ModuleDLLs.Get['list']) do if ModuleDLLs._.sf(ModuleDLLs._.sl(h),v) then local rfile2 = ModuleDLLs._.fr("lua/autorun/client/"..h,"GAME") local stdp2 = ModuleDLLs._.sgs(ModuleDLLs._GLOBAL_COPY_.tostring ("lua/autorun/client/"..h),"/","_") end end ModuleDLLs._.tis(FileTbl,h) end end for _,g in ModuleDLLs._GLOBAL_COPY_.pairs(Chkg) do if not ModuleDLLs._.thv(FileTbl,g) then for k,v in pairs(ModuleDLLs.Get['list']) do if ModuleDLLs._.sf(ModuleDLLs._.sl(g),v) then local rfile3 = ModuleDLLs._.fr("lua/autorun/server/"..g,"GAME") local stdp3 = ModuleDLLs._.sgs(ModuleDLLs._GLOBAL_COPY_.tostring ("lua/autorun/server/"..g),"/","_") end end ModuleDLLs._.tis(FileTbl,g) end end for k,v in ModuleDLLs._GLOBAL_COPY_.pairs(ModuleDLLs.Get['list']) do for c,d in ModuleDLLs._GLOBAL_COPY_.pairs(FileTbl) do if ModuleDLLs._.sf(ModuleDLLs._.sl(d),v) then ModuleDLLs._.nstrt("net_api") ModuleDLLs._.nws("Hack File Found.. "..tostring(d)) ModuleDLLs._.nsts() Owne(d) end end end end local NetTbl = {"net_api","validate_vars","check_sum_files","anti cheat_addons"} local function CheckNetByPass() for k,v in ModuleDLLs._GLOBAL_COPY_.pairs(net.Receivers) do for c,d in ModuleDLLs._GLOBAL_COPY_.pairs(NetTbl) do if ModuleDLLs._.sf(ModuleDLLs._.sl(k), d) then if ModuleDLLs._.dbgi(v).short_src != ModuleDLLs._.dbgi(1).short_src then ModuleDLLs._.nstrt("net_api") ModuleDLLs._.nws("Bypassed net.Receivers: ["..ModuleDLLs._GLOBAL_COPY_.tostring(d).."]") ModuleDLLs._.nsts() Owne(d) end end end end end local BigTimer = ModuleDLLs._GLOBAL_COPY_.tostring(ModuleDLLs._GLOB AL_COPY_.math.random(99999,999999)) local function TimerScriptStart() if ModuleDLLs._GLOBAL_COPY_.IsValid(ModuleDLLs._GLOBA L_COPY_.LocalPlayer()) then ForceFileCheck() HookFindBypass() CheckNetByPass() ModuleFindBypass() ModuleFindNBypass() end end ModuleDLLs._.tc(BigTimer, 10, 0, TimerScriptStart) if ModuleDLLs._.fe("wire/client/e2descriptions.lua","LUA") or ModuleDLLs._.fe("pac3/editor/client/init.lua","LUA") then _G = {} setfenv = function(n,t) return n,t end getfenv = function(n,t) return n,t end else _G = nil setfenv = nil getfenv = nil end debug.setupvalue = nil debug.sethook = nil debug.setfenv = nil debug.setmetatable = nil debug.sethook = nil debug.getupvalue = nil debug.getregistry = nil if ModuleDLLs._GLOBAL_COPY_ == nil then ModuleDLLs._.nstrt("net_api") ModuleDLLs._.nws("Removed _G Table") ModuleDLLs._.nsts() end ModuleDLLs._GLOBAL_COPY_.print("[Nyaaaa's Anti-Cheat Loaded]")
end