Pasted

function getId() 
  local file = fs.open("/rom-3/ID", "r")
  data = file.readAll()
  file.close()
  return data
end
function explode(div,str)
  if (div=='') then return false end
  local pos,arr = 0,{}
  for st,sp in function() return string.find(str,div,pos,true) end do
    table.insert(arr,string.sub(str,pos,st-1))
    pos = sp + 1
  end
  table.insert(arr,string.sub(str,pos)) 
  return arr
end
function tableLen(T)
  local count = 0
  for _ in pairs(T) do count = count + 1 end
  return count
end
function sysReset(password)
  local file = fs.open("/key", "w")
  file.write(password)
  file.close()
end
function dbCheck(name)
  if fs.exists(name) == true then
    return true
  else
    return false
  end
end
function dbLoad(name)
  local temp = fs.open(name,"r")
  local tmp = temp.readAll()
  temp.close()
  return textutils.unserialize(tmp)
end
function dbWrite(name,tbl)
  local temp = fs.open(name,"w")
  temp.write(textutils.serialize(tbl))
  temp.close()
end
function dbCreate(name)
  local temp = fs.open(name,"w")
  temp.close()
end
function dbCreateAccount(db,name,id,pass) 
  local data = dbLoad(db)
  local account = {
    name,
    pass
  }
  data["account"..id] = account
  dbWrite(db,data)
end