How do I make a keycard for this door?

I want to make a keycard for this door, but I don't know how to make the keycard. Heres the script for the door when you use the card to open it.

local light = script.Parent.Parent.Parent.Light
local DB = script.Parent.Parent.Parent.DB
local Door = script.Parent.Parent.Parent.Door
function Close()
for i=1, 49 do

wait(0.001)
Door.CFrame = Door.CFrame * CFrame.new(0, 0, -0.1)

end
end

function Open()
for i=1, 49 do

wait(0.001)
Door.CFrame = Door.CFrame * CFrame.new(0, 0, 0.1)

end

end

function Touch(hit)

	if ((string.find(hit.Parent.Name, "Card")) ~= nil) then
		if (hit.Parent.Code.Value == script.Parent.Parent.Parent.Serial.Value) or (hit.Parent.Code.Value == 0) then -- 0 is universal lock.
			if DB.Value == false then
				DB.Value = true
				light.BrickColor = BrickColor.new("Bright green")
				Open()
				wait(10)
				Close()
				light.BrickColor = BrickColor.new("Black")
				wait(1)
				DB.Value = false
			end
		end
	end
end

script.Parent.Touched:connect(Touch)