CC-Server code

local myid = os.computerID()
local doorList = { 11,13 } --id of the stations
local passwordForDoor = { "notch","minecraft" } --password for each stations

mon=peripheral.wrap("bottom") - position of screen
print("Access Terminal")
rednet.open("back") -- open rednet modem

print("Computer id for Access Terminal is "..tostring(myid)) --show the name of terminal and ID

function findIndexForId(id) -- comparaison of password
   for i,v in ipairs(doorList) do
      if id == v then
         return i
      end
   end
   return 0
end

--[[ for future implementation ]]--
function setPasswordForLock(id,password)
   local i = findIndexForId(id)

   if i == 0 then
      return false
   end

   passwordForDoor[i] = password
   print("in setPasswordForLock"..id..password)
   return true
end

function checkPasswordForLock(id,password)
   local i = findIndexForId(id)
   if i == 0 then
      return -1
   end
   if passwordForDoor[i] == password then
      return 1
   else
      return 0
   end
end

--[[ Not needed yet, for later when we allow remove password changes ]]-
function saveData()
  local myfile = io.open("/doorpw.dat","w")
  print(tostring(myfile))
  print("1")
  for i,pw in ipairs(passwordForDoor) do
     myfile:write(pw)
  end
  print("4")
  myfile:close()
end
----------------------------PROGRAM------------------------------------------------
local isValid = 0

while true do
   local timeString = textutils.formatTime(os.time(),false) -- time

   senderId, message, distance = rednet.receive()

   isValid = checkPasswordForLock(senderId, message) --value is -1, 0 or 1

   if isValid == -1 then
      print("server "..senderId.." sent us a request but is not in our list") --if sender of message is not in list
   elseif isValid == 1 then
      rednet.send(senderId, "Valid")
      mon.scroll(1)
      mon.setCursorPos(1,4)
      mon.write("Access from "..senderId.." at "..timeString) --access granted for senderID at time
   else
      rednet.send(senderId, "Not Valid")
      mon.scroll(1)
      mon.setCursorPos(1,4)
      mon.write("Failure from "..senderId.." at "..timeString) --access not granted, tentative of hacking
  end
end