Creeper9207

ghfghf

Apr 8th, 2015
227
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 2.75 KB | None | 0 0
  1. function getFileData(file, file2)
  2. if file == nil then
  3. return false
  4. else
  5. local a = fs.open(file, "r")
  6. local data = a.readAll()
  7. a.close()
  8. local newdata = data:match(":"..":"..file2..":"..":(.+);".."/;"..file2..";"..";"):gsub("=n".."32", " \ ".."n")
  9. return newdata
  10. end
  11. end
  12. function setFileData(fileb, file2b, data)
  13.     if data and fileb and file2b then
  14.         fd = getFileData(fileb, file2b)
  15.         filea = fs.open(fileb, "r")
  16.         adata = filea.readAll()
  17.         filea.close()
  18.         filet = fs.open(fileb, "w")
  19.         data = data:gsub("\n", "=n".."32")
  20.         adata = adata:gsub(":"..":"..file2..":"..":"..fd..";/"..";"..file2..";"..";", ":"..":"..file2..":"..":"..data..";/"..";"..file2..";"..";")
  21.         filet.write(adata)
  22.         filet.flush()
  23.         filet.close()
  24.     else
  25.         return false
  26.     end
  27. end
  28. --[=[
  29. ::nu::;/;nu;;
  30. ::pack::args = { ... }=n32b = fs.open(args[1], "w")=n32b.write('function getFileData(file, file2)\nif file == nil then\nreturn false\nelse\nlocal a = fs.open(file, "r")\nlocal data = a.readAll()\na.close()\nlocal newdata = data:match(":"..":"..file2..":"..":(.+);".."/;"..file2..";"..";"):gsub("=n".."32", "\".."n")\nreturn newdata\nend\nend')=n32b.write('\n--[[\n')=n32function listAll(_path, _files)=n32  local path = _path or ""=n32  files = _files or {}=n32  if #path > 1 then table.insert(files, path) end=n32  for _, file in ipairs(fs.list(path)) do=n32 if not fs.isReadOnly(file) then=n32      local path = fs.combine(path, file)=n32      if fs.isDir(path) then=n32        listAll(path, files)=n32      else=n32        table.insert(files, path)=n32      end=n32    end=n32  end=n32end=n32listAll(args[2])=n32for k, v in pairs(files) do=n32  if not fs.isDir(v) then=n32 print(v)=n32    a = fs.open(v, "r")=n32 c = a.readAll()=n32 a.close()=n32   b.write(":".. ":" .. v .. ":" .. ":" .. c:gsub("\n", "=n" .. "32") .. ";/".. ";" .. v .. ";" .. ";")=n32    b.write("\n")=n32   sleep(0.01)=n32 =n32    =n32    =n32  end=n32end=n32b.write("!end\n")=n32b.write("--]]")=n32b.flush()=n32b.close();/;pack;;
  31. ::ppo::os.unloadAPI("nu")=n32os.loadAPI("nu")=n32print(nu.getFileData("dll", "FileTo"))=n32  =n32  ;/;ppo;;
  32. ::unpack::i = true=n32args = {...}=n32function readSelf()=n32  rsi = fs.open(args[1], "r")=n32  while i == true do=n32    a = rsi.readLine()=n32    if a == "!end" then=n32      i = false=n32    else=n32    a = a:gsub("=n" .. "32", "\n")=n32      b = string.match(a, ":"..":(.+):"..":"):gsub(":" .. ":", ""):gsub(":" .. ":", "")=n32   print(b)=n32    if args[2] then=n32       der = fs.open(args[2] .."/" .. b, "w")=n32    else=n32      der = fs.open(b, "w")=n32     end=n32     der.write(a:gsub(":"..":" .. a:match(":"..":(.+):"..":") .. ":"..":", ""):gsub(";/"..";" .. a:match(";/"..";(.+);"..";") .. ";"..";", ""))=n32      der.flush()=n32     der.close()=n32     sleep(0.01)=n32    end=n32  end=n32end=n32pcall(readSelf);/;unpack;;
  33. !end
  34. --]=]
Advertisement
Add Comment
Please, Sign In to add comment