function OpenAll()
        for _,side in ipairs(rs.getSides()) do
                rednet.open(side)
        end
end

function split(str, pat)
  local t = { }
  local fpat = "(.-)"..pat
  local last_end = 1
  local s, e, cap = str:find(fpat, 1)
  while s do
    if s ~= 1 or cap ~= "" then
      table.insert(t,cap)
    end
    last_end = e+1
    s, e, cap = str:find(fpat, last_end)
  end
  if last_end <= #str then
    cap = str:sub(last_end)
    table.insert(t, cap)
  end
  return t
end

function runApp()
OpenAll()
id, msg, d = rednet.receive()
if id == 35 then
t = split(msg, "!SP!")
nuser = t[1]
npass = t[2]
if fs.isDir(nuser) = true then
rednet.send(35, "usererror")
runApp()
else
fs.makeDir(nuser)
r = fs.open(nuser.."/password", "w")
r.write(npass)
r.close
rednet.send("usradded")
runApp()
end
else
tbl = split(msg, "!SP!")
usr = t[1]
pswrd = t[2]
if fs.isDir(usr) == true then
w = fs.open(usr.."/password", "r")
y = w.readAll()
if y == pswrd then
rednet.send(id, "cnfrmd")
runApp()
else
rednet.send(id, "wrongpswrd")
runApp()
end
else
rednet.send(id, "wrngusr")
runApp()
end
end

runApp()