KeyCreator

-- Config
local sPrefix = "Class "              -- Securitylevel Prefix
local sSufix = " Keycard"             -- Securitylevel Sufix
local iLevelLength = 6                -- 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 = ""

if (iLevel == "1") then sLevel = "E" end
if (iLevel == "2") then sLevel = "D" end
if (iLevel == "3") then sLevel = "C" end
if (iLevel == "4") then sLevel = "B" end
if (iLevel == "5") then sLevel = "A" end

local hMKey = fs.open("masterkey", "r")
local hKey = fs.open("disk/key", "w")
local sMKey = hMKey.readAll()
local sWriteKey = string.sub(sMKey, 1, iLevel*iLevelLength)

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

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