0
forgot to change the title
Made a small security system using floppy disks as key:
Spoiler
Server:
Server commands:
- genCode
Client:
Server:
Server commands:
- genCode
local genCode = "";
local command = {}
local uncode = textutils.unserialize
local code = textutils.serialize
rednet.open("back")
local function genCode()
if not(disk.hasData("bottom")) then
print("Insert disk")
end
while not(disk.hasData("bottom")) do
os.sleep(1)
end
ran = math.random(20000)
genCode = "" .. ran
writeFile("disk/code.gen",{genCode})
writeFile("currentCode.gen",{genCode})
disk.eject("bottom")
end
function setCommands()
command["genCode"] = genCode
end
function getCommand()
print("Type in command:")
local t = read()
if not(command[t] == nil) then
command[t]()
else
print("Do not recognise: " .. t)
end
end
function readFile(file)
if fs.exists(file) then
local filer = io.open(file,"r");
local lines = {}
local str = ""
local count = 0
str = filer:read();
while str do
print("Loading: " .. count)
lines[#lines+1] = str;
count = count + 1
str = filer:read();
end
filer:close()
return lines
else
return "100"
end
end
function writeFile(file,tabel)
local filer = io.open(file,"w");
for i=1, #tabel do
filer:write(tabel[i] .. "\n")
end
filer:close()
end
function input()
event,p1,p2,p3 = os.pullEvent()
if event == "timer" then
os.startTimer(1)
end
if event == "rednet_message" then
redinput(p1,p2)
end
if event == "key" then
end
end
function redinput(id,mess)
local messu = uncode(mess)
if messu[1] == "200" then
if messu[2] == "GETGENCODE" then
if messu[3] == genCode then
rednet.send(id,code({"255",genCode}))
else
rednet.send(id,code({"255","ERROR"}))
end
end
hten end
end
function updateTerminal()
while true do
getCommand()
end
end
function updateInput()
while true do
input()
end
end
setCommands();
print("Loading file...")
local readP = readFile("currentCode.gen")
genCode = readP[1]
os.startTimer(1)
print("Starting...")
parallel.waitForAll(updateInput,updateTerminal)
Client:
local open = true
local timer = 5
local generatedCode = ""
local mainID = 7;
rednet.open("left");
local uncode = textutils.unserialize
local code = textutils.serialize
local runnning = true;
local function send(message)
rednet.send(mainID,code(message))
end
local function getgeneratedCode(try)
print("Sending data...")
send({"200","GETGENCODE",try})
local umess = {};
umess[1] = ""
umess[2] = " "
print("Receiveing data...")
i , mess = rednet.receive(2);
while (i ~= mainID) do
if (mess == nil) then
break
end
print("Receiveing data...")
local i , mess rednet.receive(2);
end
if (mess ~= nil) then
umess = uncode(mess)
return umess[2]
else
return "ERROR"
end
end
local function readDisk()
local file = io.open("disk/code.gen","r")
local line = {}
redln = file:read();
if (redln == getgeneratedCode(redln)) and (redln ~= "ERROR") then
opent()
end
file:close()
end
function opent()
rs.setOutput("right",true)
disk.eject("back")
os.sleep(timer)
rs.setOutput("right",false)
end
while runnning do
term.clear()
print("Insert disk")
os.sleep(1)
if disk.hasData("back") then
if fs.exists("disk/code.gen")then
print("Reading disk..")
readDisk()
end
end
end
