startup

functions = {CheckPass = {{"Username"},{"Password","*"}},
  NewUser = {{"Existing user username"},
  {"Existing user password","*"},
  {"New user username"},{"New user password","*"}}}

os.loadAPI("StoreData")
rednet.open("bottom")

local running = true

local function CheckPass(Username,Password)
  if Username ~= nil and Password ~= nil then
    local Users = StoreData.Load("/Users")
    local password = Users[Username]
    if password ~= nil then
      if password ~= Password then
        return(false)
      else
        return(true)
      end
    else
      return(false)
    end
  end
end

local oldPull = os.pullEvent
os.pullEvent = os.pullEventRaw

local function TurnOff()
  os.pullEventRaw("terminate")
  print("Username")
  local U = read()
  print("Password")
  local P = read("*")
  if CheckPass(U,P) then
    os.pullEvent = oldPull
    running = false
  else
    print("Wrong")
  end
end

local function GetRednet()
  local sender,message,about = rednet.receive()

  if functions[message] ~= nil then
    rednet.send(sender,functions[message])
    local DoWhat = message
    local sender,message = rednet.receive()
    print(CheckPass("Bionicles_rule","Password"))
    if DoWhat == "CheckPass" then
      rednet.send(sender,CheckPass(message["Username"],message["Password"]))
    elseif DoWhat == "NewUser" then
      print(textutils.serialise(message))
      if CheckPass(message["Existing user username"],message["Existing user password"]) then
        StoreData.Edit("/Users",message["New user username"],message["New user password"])
        print(textutils.serialise(StoreData.Load("/Users")))
        rednet.send(sender,true)
      end
    end
   else
     rednet.send(sender,false)
   end
  sleep(0)
end

while running do
parallel.waitForAny(GetRednet,TurnOff)
end