keycreator

-- Config
local sPrefix = "Clearance "              -- Securitylevel Prefix
local sSufix = " Keycard"             -- Securitylevel Sufix
local iLevelLength = 10                -- length of a security level key
local sDiskSide = "right"             -- side of the disk drive
-- End of config

local tVarargs = {...}
local iLevel = tVarargs[1]
local sLevel = ""
-- infrared, red, orange, yellow, green, blue, indigo, violet, ultraviolet


if (iLevel == "1") then sLevel = "Infrared" end
if (iLevel == "2") then sLevel = "Red" end
if (iLevel == "3") then sLevel = "Orange" end
if (iLevel == "4") then sLevel = "Yellow" end
if (iLevel == "5") then sLevel = "Green" end
if (iLevel == "6") then sLevel = "Blue" end
if (iLevel == "7") then sLevel = "Indigo" end
if (iLevel == "8") then sLevel = "Violet" end
if (iLevel == "9") then sLevel = "Ultraviolet" end

local hKey = fs.open("disk/key", "w")
local sMKey = "B1SOK60PSX04GNUPTLCO5LHKJG54R3551HJL4ACIQHOLRPNK3DF21XLKI1NV6P2TMV4ZOJ5MAY7UYCWEAVJ067VGPJ"
local sWriteKey = "key = \"" .. string.sub(sMKey, 1, iLevel*iLevelLength) .. "\""

disk.setLabel(sDiskSide, sPrefix .. sLevel .. sSufix)
hKey.write(sWriteKey)

hKey.close()
print("Keycard written")
print("")