Username and password setup

local doorside = "right" --Change this to the side your door is on
local oldPull = os.pullEvent;
os.pullEvent=os.pullEventRaw;
local phil = {}
local MOD = 2^32
local MODM = MOD-1

local function memoize(f)
        local mt = {}
        local t = setmetatable({}, mt)
        function mt:__index(k)
                local v = f(k)
                t[k] = v
                return v
        end
        return t
end

local function make_bitop_uncached(t, m)
        local function bitop(a, b)
                local res,p = 0,1
                while a ~= 0 and b ~= 0 do
                        local am, bm = a % m, b % m
                        res = res + t[am][bm] * p
                        a = (a - am) / m
                        b = (b - bm) / m
                        p = p*m
                end
                res = res + (a + b) * p
                return res
        end
        return bitop
end

local function make_bitop(t)
        local op1 = make_bitop_uncached(t,2^1)
        local op2 = memoize(function(a) return memoize(function(b) return op1(a, b) end) end)
        return make_bitop_uncached(op2, 2 ^ (t.n or 1))
end

local bxor1 = make_bitop({[0] = {[0] = 0,[1] = 1}, [1] = {[0] = 1, [1] = 0}, n = 4})

local function bxor(a, b, c, ...)
        local z = nil
        if b then
                a = a % MOD
                b = b % MOD
                z = bxor1(a, b)
                if c then z = bxor(z, c, ...) end
                return z
        elseif a then return a % MOD
        else return 0 end
end

local function band(a, b, c, ...)
        local z
        if b then
                a = a % MOD
                b = b % MOD
                z = ((a + b) - bxor1(a,b)) / 2
                if c then z = bit32_band(z, c, ...) end
                return z
        elseif a then return a % MOD
        else return MODM end
end

local function bnot(x) return (-1 - x) % MOD end

local function rshift1(a, disp)
        if disp < 0 then return lshift(a,-disp) end
        return math.floor(a % 2 ^ 32 / 2 ^ disp)
end

local function rshift(x, disp)
        if disp > 31 or disp < -31 then return 0 end
        return rshift1(x % MOD, disp)
end

local function lshift(a, disp)
        if disp < 0 then return rshift(a,-disp) end
        return (a * 2 ^ disp) % 2 ^ 32
end

local function rrotate(x, disp)
    x = x % MOD
    disp = disp % 32
    local low = band(x, 2 ^ disp - 1)
    return rshift(x, disp) + lshift(low, 32 - disp)
end

local k = {
        0x428a2f98, 0x71374491, 0xb5c0fbcf, 0xe9b5dba5,
        0x3956c25b, 0x59f111f1, 0x923f82a4, 0xab1c5ed5,
        0xd807aa98, 0x12835b01, 0x243185be, 0x550c7dc3,
        0x72be5d74, 0x80deb1fe, 0x9bdc06a7, 0xc19bf174,
        0xe49b69c1, 0xefbe4786, 0x0fc19dc6, 0x240ca1cc,
        0x2de92c6f, 0x4a7484aa, 0x5cb0a9dc, 0x76f988da,
        0x983e5152, 0xa831c66d, 0xb00327c8, 0xbf597fc7,
        0xc6e00bf3, 0xd5a79147, 0x06ca6351, 0x14292967,
        0x27b70a85, 0x2e1b2138, 0x4d2c6dfc, 0x53380d13,
        0x650a7354, 0x766a0abb, 0x81c2c92e, 0x92722c85,
        0xa2bfe8a1, 0xa81a664b, 0xc24b8b70, 0xc76c51a3,
        0xd192e819, 0xd6990624, 0xf40e3585, 0x106aa070,
        0x19a4c116, 0x1e376c08, 0x2748774c, 0x34b0bcb5,
        0x391c0cb3, 0x4ed8aa4a, 0x5b9cca4f, 0x682e6ff3,
        0x748f82ee, 0x78a5636f, 0x84c87814, 0x8cc70208,
        0x90befffa, 0xa4506ceb, 0xbef9a3f7, 0xc67178f2,
}

local function str2hexa(s)
        return (string.gsub(s, ".", function(c) return string.format("%02x", string.byte(c)) end))
end

local function num2s(l, n)
        local s = ""
        for i = 1, n do
                local rem = l % 256
                s = string.char(rem) .. s
                l = (l - rem) / 256
        end
        return s
end

local function s232num(s, i)
        local n = 0
        for i = i, i + 3 do n = n*256 + string.byte(s, i) end
        return n
end

local function preproc(msg, len)
        local extra = 64 - ((len + 9) % 64)
        len = num2s(8 * len, 8)
        msg = msg .. "\128" .. string.rep("\0", extra) .. len
        assert(#msg % 64 == 0)
        return msg
end

local function initH256(H)
        H[1] = 0x6a09e667
        H[2] = 0xbb67ae85
        H[3] = 0x3c6ef372
        H[4] = 0xa54ff53a
        H[5] = 0x510e527f
        H[6] = 0x9b05688c
        H[7] = 0x1f83d9ab
        H[8] = 0x5be0cd19
        return H
end

local function digestblock(msg, i, H)
        local w = {}
        for j = 1, 16 do w[j] = s232num(msg, i + (j - 1)*4) end
        for j = 17, 64 do
                local v = w[j - 15]
                local s0 = bxor(rrotate(v, 7), rrotate(v, 18), rshift(v, 3))
                v = w[j - 2]
                w[j] = w[j - 16] + s0 + w[j - 7] + bxor(rrotate(v, 17), rrotate(v, 19), rshift(v, 10))
        end

        local a, b, c, d, e, f, g, h = H[1], H[2], H[3], H[4], H[5], H[6], H[7], H[8]
        for i = 1, 64 do
                local s0 = bxor(rrotate(a, 2), rrotate(a, 13), rrotate(a, 22))
                local maj = bxor(band(a, b), band(a, c), band(b, c))
                local t2 = s0 + maj
                local s1 = bxor(rrotate(e, 6), rrotate(e, 11), rrotate(e, 25))
                local ch = bxor (band(e, f), band(bnot(e), g))
                local t1 = h + s1 + ch + k[i] + w[i]
                h, g, f, e, d, c, b, a = g, f, e, d + t1, c, b, a, t1 + t2
        end

        H[1] = band(H[1] + a)
        H[2] = band(H[2] + b)
        H[3] = band(H[3] + c)
        H[4] = band(H[4] + d)
        H[5] = band(H[5] + e)
        H[6] = band(H[6] + f)
        H[7] = band(H[7] + g)
        H[8] = band(H[8] + h)
end

local function sha256(msg)
        msg = preproc(msg, #msg)
        local H = initH256({})
        for i = 1, #msg, 64 do digestblock(msg, i, H) end
        return str2hexa(num2s(H[1], 4) .. num2s(H[2], 4) .. num2s(H[3], 4) .. num2s(H[4], 4) ..
                num2s(H[5], 4) .. num2s(H[6], 4) .. num2s(H[7], 4) .. num2s(H[8], 4))
end

function Bob()
  term.clear()
  term.setCursorPos(1,1)
  print("1. Login")
  write("2. New User?")
  while true do
    local event, spock = os.pullEvent ("char")
    if spock == "1" then
      Login()
    elseif spock == "2" then
      Newguy()
    end
  end
end

function Normalperson()
  term.clear()
  term.setCursorPos(1,1)
  print("Door opened")
  rs.setOutput(doorside,true)
  sleep(3)
  rs.setOutput(doorside,false)
  Bob()
end

function Login()
  term.clear()
  term.setCursorPos(1,1)
  print("Enter Username and Password. Leave blank to cancel.")
  print("Username: ")
  write("Password: ")
  term.setCursorPos(11,2)
  chicken = read()
  term.setCursorPos(11,3)
  passworded = read("*")
  if fs.exists("Users/1"..chicken) == true then
    file = fs.open("Users/1"..chicken, "r")
    local fileData = {}
    local line = file.readLine()
    repeat
      table.insert(fileData,line)
      line = file.readLine()
    until line == nil
    file.close()
    local hashData = sha256(passworded)
    if hashData == fileData[1] then
      if fileData[2] == "Rookie" then
        print("You do not have sufficient permissions.")
        sleep(2)
        Bob()
      elseif fileData[2] == "Administrator" then
        Checkstartup()
      elseif fileData[2] == "Regular" then
        Normalperson()
      elseif fileData[2] == "Denied" then
        fs.delete("Users/1"..chicken)
        print("Your account was not accepted, please ask the Administrator in person if you believe this to be a mistake.")
        sleep(7.5)
        Bob()
      elseif fileData[2] == "Banned" then
        print("Your account was banned by the admin.")
        sleep(4)
        Bob()
      end
    elseif fileData[1] == "ReTurnToBob" then
      Bob()
    else
      print("Username and/or Password are incorrect.")
      sleep(2)
      Login()
    end
  else
  print("Username and/or Password are incorrect")
  sleep(2)
  Login()
  end
end

function Newguy()
  if fs.exists("Users/") == false then
  Newadmin()
  elseif fs.exists("Users/") == true then
  Register()
  end
end

function Newadmin()
  fs.makeDir("Users")
  local bobdole = fs.open("Users/1","a")
  bobdole.writeLine("ReTurnToBob")
  bobdole.close()
  term.clear()
  term.setCursorPos(1,1)
  print("No Users detected. Enter Admin login. You must complete Admin signup or program will not function.")
  print("Username: ")
  print("Password: ")
  term.setCursorPos(11,3)
  adminuser = read()
  term.setCursorPos(11,4)
  adminpass = read("*")
  local holdup = sha256(adminpass)
  local file = fs.open("Users/1"..adminuser,"a")
  file.writeLine(holdup)
  file.writeLine("Administrator")
  file.close()
  print("Registered new Admin")
  sleep(4)
  Bob()
end

function Register()
  local LeaveFunction = ""
  term.clear()
  term.setCursorPos(1,1)
  print("New user setup, please enter new username and pass.")
  print("Username: ")
  print("Password: ")
  term.setCursorPos(11,2)
  newuser = read()
  term.setCursorPos(11,3)
  newpass = read("*")
  if newuser == LeaveFunction then
    Bob()
  elseif fs.exists("Users/1"..newuser) == true then
    print("Username already exists, please try again.")
    sleep(2.5)
    Register()
  else
    local halla = sha256(newpass)
    local file = fs.open("Users/1"..newuser,"a")
    file.writeLine(halla)
    file.writeLine("Rookie")
    file.close()
    local filed = fs.open("Users/Newuserschecklist","a")
    filed.writeLine(newuser)
    filed.close()
    print("New user made, please wait for admin authentication before logging in.")
    sleep(5)
    Bob()
  end
end

function Checkstartup()
  local jimbo = shell.getRunningProgram()
  if jimbo == "startup" then
    Adminmenu()
  elseif jimbo ~= "startup" then
    term.clear()
    term.setCursorPos(1,1)
    print("The program will not open on startup. Would you like it to?")
    print("1. Yes")
    print("2. No")
    while true do
      local jimm, joo = os.pullEvent("char")
      if joo == "1" then
        fs.move(jimbo,"startup")
        Adminmenu()
      elseif joo == "2" then
        Adminmenu()
      end
    end
  end
end

function Adminmenu()
  term.clear()
  term.setCursorPos(1,1)
  print("Admin Menu.")
  print("1. Edit Program")
  print("2. New Users")
  print("3. Edit User Ranks")
  print("4. Exit Program")
  print("5. Normal Menu")
  print("6. Logout")
  while true do
    local tit, pie = os.pullEvent ("char")
    if pie == "1" then
      local steve = shell.getRunningProgram()
      shell.run("edit",steve)
      print("Reloading program.")
      sleep(1.5)
      shell.run(steve)
    elseif pie == "2" then
      Newuseroption()
    elseif pie == "3" then
      Admindisclaimer()
    elseif pie == "4" then
      error()
    elseif pie == "5" then
      Normalperson()
    elseif pie == "6" then
      Bob()
    end
  end
end

function Newuseroption()
  term.clear()
  term.setCursorPos(1,1)
  print("Are you sure you want to view the new users? You must complete every user or the rest will be deleted from the database.")
  print("1. Yes")
  print("2. No")
  while true do
    local even, tat = os.pullEvent("char")
    if tat == "1" then
      Newuserschecklist()
    elseif tat == "2" then
      Adminmenu()
    end
  end
end

function Newuserschecklist()
  local bob = fs.open("Users/Newuserschecklist","r")
  local filebob = {}
  local tag = bob.readLine()
  table.insert(filebob,tag)
  z = 2
  tag = bob.readLine()
  if tag == nil then
    print("No new users.")
    sleep(2.5)
    Adminmenu()
  else
    repeat
    term.clear()
    term.setCursorPos(1,1)
    table.insert(filebob,tag)
    local alpha = filebob[z]
    print(alpha)
    print("1. Accept")
    print("2. Decline")
    local newbob = fs.open("Users/1"..alpha,"r")
    local file = newbob.readLine()
    local test = {}
    while file do
      table.insert(test,file)
      file = newbob.readLine()
    end
    newbob.close()
    while true do
    local sir, henry = os.pullEvent ("char")
    if henry == "1" then
      local chick = fs.open("Users/1"..alpha,"w")
      chick.writeLine(test[1])
      chick.writeLine("Regular")
      chick.close()
      break
    elseif henry == "2" then
      local chick = fs.open("Users/1"..alpha,"w")
      chick.writeLine(test[1])
      chick.writeLine("Denied")
      chick.close()
      break
    end
  end
  z = z + 1
  tag = bob.readLine()
  until tag == nil
  bob.close()
  local guess = fs.open("Users/Newuserschecklist","w")
  guess.writeLine("la")
  guess.close()
  Bob()
  end
end

function Currentusers()
  local tester = fs.list("Users")
  local jim = {}
  for a, p in ipairs(tester) do
    table.insert(jim,a,p)
  end
  local o = 0
  local x = 0
  local y = 7
  local z = 1
  local yay = {}
  repeat
    yay = {}
    term.clear()
    term.setCursorPos(1,1)
    y=y*z
    local a = 0
    repeat
      a=a+1
      x=x+1
      local bob = tostring(a)
      if jim[x] == nil then
        break
      else
        table.insert(yay,jim[x])
        print(a..". "..jim[x])
      end
    until a == y
    print("8. Previous")
    print("9. Next")
    print("0. Exit")
    while true do
      local event, para = os.pullEvent("char")
      if para == "1" then
        table.insert(phil,yay[1])
        hell()
      elseif para == "2" then
        if yay[2] ~= nil then
          table.insert(phil,yay[2])
          hell()
        elseif yay[2] == nil then
          print("File doesn't exist")
        end
      elseif para == "3" then
        if yay[3] ~= nil then
          table.insert(phil,yay[3])
          hell()
        elseif yay[3] == nil then
          print("File doesn't exist")
        end
      elseif para == "4" then
        if yay[4] ~= nil then
          table.insert(phil,yay[4])
          hell()
        elseif yay[4] == nil then
          print("File doesn't exist")
        end
      elseif para == "5" then
        if yay[5] ~= nil then
          table.insert(phil,yay[5])
          hell()
        elseif yay[5] == nil then
          print("File doesn't exist")
        end
      elseif para == "6" then
        if yay[6] ~= nil then
          table.insert(phil,yay[6])
          hell()
        elseif yay[6] == nil then
          print("File doesn't exist")
        end
      elseif para == "7" then
        if yay[7] ~= nil then
          table.insert(phil,yay[7])
          hell()
        elseif yay[7] == nil then
          print("File doesn't exist")
        end
      elseif para == "8" then
        if o == 0 then
          print("Cannot go back")
        elseif o ~= 0 then
          o = o-2
          local j = o+1
          x=7*j
          break
        end
      elseif para == "9" then
        if jim[x] == nil then
          print("Cannot go forward")
        elseif jim[x] ~= nil then
          break
        end
      elseif para == "0" then
        Adminmenu()
      end
    end
  o=o+1
  until nil
end

function hell()
  term.clear()
  term.setCursorPos(1,1)
  local jimmy = fs.open("Users/"..phil[1],"r")
  local colin = {}
  local liner = jimmy.readLine()
  repeat
    table.insert(colin,liner)
    liner = jimmy.readLine()
  until liner == nil
  jimmy.close()
  print("Choose rank of "..phil[1].. ". Currently rank: "..colin[2])
  print("1. Admin")
  print("2. Regular")
  print("3. Banned")
  print("4. Exit")
  while true do
    local joe, jon = os.pullEvent("char")
    if jon == "1" then
      local who = fs.open("Users/"..phil[1],"w")
      who.writeLine(colin[1])
      who.writeLine("Administrator")
      who.close()
      table.remove(phil,1)
      Adminmenu()
    elseif jon == "2" then
      local who = fs.open("Users/"..phil[1],"w")
      who.writeLine(colin[1])
      who.writeLine("Regular")
      who.close()
      table.remove(phil,1)
      Adminmenu()
    elseif jon == "3" then
      local who = fs.open("Users/"..phil[1],"w")
      who.writeLine(colin[1])
      who.writeLine("Banned")
      who.close()
      table.remove(phil,1)
      Adminmenu()
    elseif jon == "4" then
      Adminmenu()
    end
  end
end

function Admindisclaimer()
  term.clear()
  term.setCursorPos(1,1)
  print("Please do not edit the files, named: 1, and Newuserchecklist, those are used for other functions and will not work if edited")
  sleep(5)
  Currentusers()
end

Bob()
os.pullEvent=oldPull;