AuthServer.lua

local component = require("component")
local term = require("term")
local shell = require("shell")
local gpu = component.gpu
local modem = component.modem
local computer = component.computer
local w, h = gpu.getResolution()
local event = require("event")
event.listen("modem_message", handleEvent)

function clear()
  gpu.fill(0, 0, w, h, " ")
  term.setCursor(1, 1)
end

print("Initializing...")
local validSender = false
valid = false
tserved, vserved, dserved = 0

print("Loading startup settings...")
count = false

print("loading user database...")
users = {"pengo19098"}
passwords = {"6266"}

print("Loading core functions...")
clear()
term.setCursor(1, 1)
print("RLS 1.0 for OpenComputers")
print("There is no user interaction here. please contact your system administrator for assistance regarding the system.")
if count == true then
  print(tserved.." total requests received this session.")
  print(vserved.." requests completed this session.")
  print(dserved.." requests denied this session.")
elseif count == false then
  print("Request statistics have been disabled.")
else
  clear()
  term.setCursor(1, 1)
  print("Error: Counter settings is not boolean and the server can not continue.")
  print("The server program will exit automatically in 10 minutes.")
  print("Please set the variable \"count\" in the source code to either \"true\" or \"false\" WITHOUT QUOTATION MARKS. Doing this with quotation marks will cause the same error.")
  os.sleep(600)
  computer.stop()
end

print("Starting up...")

clear()

while true do
  validSender = false
  local _, _, port, _, message  = event.pull("modem_message")
  for i, v in ipairs(senders) do
    tserved = tserved + 1
    if(v == senderId) then
      validSender = true
      break
    else
      dserved = dserved + 1
      clear()
    end
  end
    if validSender then
      for i, v in ipairs(users) do
        if (message == v) then
      password = passwords[i]
      modem.broadcast(113, password)
      vserved = vserved + 1
      clear()
      break
        else
      modem.broadcast(113, "300")
      dserved = dserved + 1
      clear()
      end
    end
  end
end