Server - Password

--[[    Password Server for Minecraft 1.5 with Computercraft installed.
        This script is written by Albrat
        Credits to www.coronlabs.com for help in string splitting function by Rob Miracle

        This program is intended to use rednet and several computers to create a working door system
        that locks and will not allow access untill the correct pass code is given.

        The program uses Usernames and Passwords over rednet login to a server.

        (This script keeps a log of all login names, But not the passwords.)
        the log is handy to see who tried to log in / who has used the door.

        If you use this program with my client program I suggest that you not type the comments
        if you use the pastebin.get command, save this as server01 and create a startup file with
        the next line of code in it... and have a monitor above the server comp.

        shell.run("monitor top server01")

--]]


-- local variable

local cmpid = os.getComputerID()
local debug = false  --  This is the debug value Default is 0 so no messages are outputted on the server.
local Log = 1  -- Log  (capital L) is a varible.
local log = { "" } -- log (small case) is a table.
local message = ""
local pas = ""
local firstCycle = true
local validSender = false
local modemSide = "top" -- change to the side of the computer your modem is on
local valid = false

-- Note : Users and Passwords are not account names for minecraft they are what you make them.

users = {"user", "guest" } --make sure users and passwords line up , also no gaps in names / pass.
passwords = {"pass1", "pass2" }  -- Passwords have to be whole no gaps , user = pass1 guest = pass2
senders = { 11, 2, 3, 12, 10, 32, 1 } -- computer ID's of the computers you want to accept requests from

-- you can get computer ID's by going to the computer, type lua [enter], type os.getComputerID() [enter]
-- That will output the ID of the computer.
-- I suggest that you write the little bit of code I use though, always use it so I never confuse them.

-- local cmpid = os.getComputerID()
-- print(cmpid)


-- *************************
-- **  Functions listing  **
-- *************************

-- Our string handling Function

function string:split( inSplitPattern, outResults )

   if not outResults then
      outResults = { }
   end
   local theStart = 1
   local theSplitStart, theSplitEnd = string.find( self, inSplitPattern, theStart )
   while theSplitStart do
      table.insert( outResults, string.sub( self, theStart, theSplitStart-1 ) )
      theStart = theSplitEnd + 1
      theSplitStart, theSplitEnd = string.find( self, inSplitPattern, theStart )
   end
   table.insert( outResults, string.sub( self, theStart ) )
   return outResults
end

-- Boot up Function
function bootUp()
 rednet.open(modemSide)
end

-- Clear the Terminal Function
function server()
 term.clear()
 term.setCursorPos(1,1)
 print("This is a password server. There is no user interaction here.")
 print("Please find a computer and login there.")
 print("Computer ID : ".. cmpid)
end

-- *********************
-- **  Program Start  **
-- *********************

server()  -- Setup screen output
 -- os.pullEvent = os.pullEventRaw


while true do   -- loop infinite
 validSender = false
 if firstCycle then
  bootUp()
  firstCycle = false
 end
 senderId, mess, distance = rednet.receive()

 ---[[
 -- Commentable section of code To turn off and on the logging feature.
 -- To turn on this section of code add a - to the first two - in this -- [[ section.

 -- Note : this section of code is just to output the login list.

if mess == "log " then  -- remember we added a space as the seperator...
     for i=1, #log do  -- If a computer asks for the log output the login names to screen.
      print(log[i])
     end
     sleep(10) -- show for 10 seconds (yes the server is out of touch while showing this)
     server() -- reset server screen (this is why I made it a function)
end

 --]]

 ---[[  splitting Algorythm

 -- I should make this a function as it is used like a function.

 tablemes = string.split(mess, " ")
 message = tablemes[1]                  --  This is the string splitter and its processing.

 pas = tablemes[2]

--]]

---[[  Logging algorythm
 log[Log] = message
 Log = Log + 1
 --]]






 ---[[  Debugging Code
 -- We want to debug the code and check that all messages are correctly decoded.
 -- I wrote this section for debugging my origional code and checking what messages i got
 -- I never removed the debugging code as it helps you to understand how I know it works.

 if debug then
 print(mess)
 print("output 1 : ", message)
 print("Output 2 : ", pas)
 print(senderId)
 for i=1, #log do
 print(log[i])
 end
 end

 --]]


 for i,v in ipairs(senders) do
  if v == senderId then
   validSender = true   --  Are we a valid sender ID ? listed in the local variable section
      break
  end

 end
 if validSender then  -- if we are a valid sender then check the passwords !!
  for i,v in ipairs(users) do
   if message == v then  -- If the message matches a user password set our response to true
    valid = true
    password = passwords[i]
    break
   else
    valid = false  -- if no password matches...
   end
  end
  if valid then -- if we are valid respond the pass
   rednet.send(senderId, "valid", true)
  else
   rednet.send(senderId, "Not Valid", true)  -- otherwise respond Not Valid
  end
 end
end