BazZziliuS

Bypass "Say No To Exploits"

Jul 18th, 2018
401
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 2.09 KB | None | 0 0
  1. -- Bypass "Say No To Exploits"
  2. -- Обход  "Say No To Exploits"
  3. ---------------------------------------------------------------------------------------------------------------------------------------
  4. -- 1. download gmcl_stringtables_win32.dll (https://goo.gl/sj5ZM1) and put the file into GarrysMod/garrysmod/lua/bin folder
  5. -- 2. open the menu code that is used and paste this code on top
  6. -- 3. open your menu (now it will lag when loading)
  7. -- 4. PROFIT
  8. -- 5. By Solly
  9. ---------------------------------------------------------------------------------------------------------------------------------------
  10. -- 1. скачай gmcl_stringtables_win32.dll (https://goo.gl/sj5ZM1) и положи его по пути GarrysMod/garrysmod/lua/bin
  11. -- 2. открой код своего меню и вставь код ниже в самый верх
  12. -- 3. открывай/инжекти свое меню (возможен лаг при загрузке)
  13. -- 4. профит
  14. -- 5. Сделал Solly
  15. ---------------------------------------------------------------------------------------------------------------------------------------
  16. require"stringtables"local function _(_)local a=file.Open("cache/lua/".._..".lua","rb","MOD")if!a then return end a:Seek(4)local _=util.Decompress(a:Read(a:Size()-4))return _:sub(1,-2)end local function b(_)local b,c=_:Count(),{}for b=1,b-2 do local d=_:GetString(b)c[b]={Path=d,CRC=_:GetUserDataInt(b)}end return c end local e,f=b(stringtable.Get"client_lua_files"),{}for b=1,#e do local g=_(e[b].CRC)if type(g)~="string"then continue end if g:find"net.Start"then local b=string.Explode("net.Start(",g)for h=2,#b do if b[h]:find"')"||b[h]:find'")'then local i=string.Explode(")",b[h])[1]i=string.Replace(i,"    ","")local j,k=string.Explode("\n",i),''for i=1,#j do k=k..j[i]end k=string.Replace(k,"'",'')k=string.Replace(k,'"','')k=string.Replace(k,' ','')f[#f+1]=k end end end end local _=pcall util.NetworkStringToID=function(_)return f[_]end util.NetworkIDToString=function(_)return f[_]end pcall=function(b,...)if b==net.Start then return table.HasValue(f,...)end return _(b,...)end
Add Comment
Please, Sign In to add comment