ComputerCraftKeycard

local ID = {'63B063F5B637A3E8CED50585A954606C637C30A9211C4DEDFD508DEDCBD5C060',
'678202B3C0C345EF8E5CE5451DCD3B7B33D657BD9A1FF73B29EA20988BF5ACB8'}

function Clear()
    term.setBackgroundColor(colours.black)
    term.clear()
    term.setCursorPos(1,1)
end

while true do
    Clear()
    print('Please insert keycard')
    if disk.isPresent('right') then
        print('Reading')
        sleep(.5)
        Clear()
        print('Reading.')
        sleep(.5)
        Clear()
        print('Reading..')
        sleep(.5)
        Clear()
        print('Reading...')
        sleep(.5)
        Clear()
        local d = fs.open('disk/Info.lua','r')
        hash = d.readLine()
        name = d.readLine()
        clearance = d.readLine()
        Accept = false
        for i,v in pairs(ID) do
            if hash == v then
                print('ACCEPTED')
                print('Name: '..name)
                print('Clearance: '..clearance)
                redstone.setOutput('left', true)
                Accept = true
                while disk.isPresent('right') do
                    sleep(.5)
                end
                break
            end
        end
        redstone.setOutput('left', false)
        if Accept == false then
            Clear()
            print('DENIED')
            while disk.isPresent('right') do
                sleep(.5)
            end
        end
    end
    sleep(1)
end