View difference between Paste ID: RvnHaiTj and uW0X4aKn

---Encrypted password lock door. Uses valithor's tiny hashing algorithm.
+--Hashed HOTEL lock door. Uses valithor's tiny hashing algorithm.
--- pastebin get uW0X4aKn lock
+--Uses disks to open doors!
 -- pastebin get RvnHaiTj lock
 
 --os.pullEvent = os.pullEventRaw --THIS IS DONE FOR A REASON. DO NOT UNCOMMENT.
 local doorSide = {} --If it is to side(s), then it will open a door.
 local diskSide = "bottom" --Set this to a side if you want one.
 local doorCorrectDelay = 6 --How long the door is open after getting it right
 local doorIncorrectDelay = 2 --How long you are locked out for getting it wrong
 local doorInvertRedstone = false --Inverts redstone for door locks that require it.
 local passwordFile = "/.lddlock"
 local logFile = "/.lddlog"
 local saltCode = tostring(os.getComputerID()^2)
 local palate
 
 if not diskSide then
 	local periph = peripheral.getNames()
 	for a = 1, #periph do
 		if peripheral.getType(periph[a]) == "drive" then
 			diskSide = periph[a]
 			break
 		end
 	end
 end
 
 local log = fs.open(logFile,"a")
 
 local tArg = {...}
 
 if not term.isColor() then
 	if _VERSION then
 		palate = {
 			bgcolor = colors.gray, --Background color
 			fgcolor = colors.lightGray, --Foreground color
 			bg_txtcolor = colors.white, --Text color when overlayed on bgcolor
 			fg_txtcolor = colors.black, --Text color when overlayed on fgcolor
 			bgcorrect = colors.white, --Background color when correct.
 			bgincorrect = colors.black, --Background color when incorrect.
 			txtcorrect = colors.gray, --Text color when correct.
 			txtincorrect = colors.gray, --Text color when incorrect.
 		}
 	else
 		palate = {
 			bgcolor = colors.black, --Background color
 			fgcolor = colors.white, --Foreground color
 			bg_txtcolor = colors.white, --Text color when overlayed on bgcolor
 			fg_txtcolor = colors.black, --Text color when overlayed on fgcolor
 			bgcorrect = colors.white, --Background color when correct.
 			bgincorrect = colors.black, --Background color when incorrect.
 			txtcorrect = colors.black, --Text color when correct.
 			txtincorrect = colors.white, --Text color when incorrect.
 		}
 	end
 else
 	palate = {
 		bgcolor = colors.gray, --Background color
 		fgcolor = colors.lightGray, --Foreground color
 		bg_txtcolor = colors.white, --Text color when overlayed on bgcolor
 		fg_txtcolor = colors.black, --Text color when overlayed on fgcolor
 		bgcorrect = colors.green, --Background color when correct.
 		bgincorrect = colors.red, --Background color when incorrect.
 		txtcorrect = colors.white, --Text color when correct.
 		txtincorrect = colors.black, --Text color when incorrect.
 	}
 end
 for a = 1, #doorSide do
 	redstone.setOutput(doorSide[a], doorInvertRedstone)
 end
 
 local function writeLog(msg)
 	log.writeLine("[day:"..os.day().."/time:"..os.time().."] "..msg)
 	log.flush()
 end
 
 local function clearLines(top, bottom)
 	for a = top, bottom do
 		term.setCursorPos(1,a)
 		term.clearLine()
 	end
 end
 
 local function hash(msg,salt,bool)
 	if not bool then
 		for i = 1, 10 do
 			msg = hash(msg,salt or "",true)
 		end
 	end
 	local num = ""
 	local salt = salt ~= nil and salt..msg or msg
 	for i = 1, #salt do
 		local let = salt:sub(i,i):byte()
 		num = let <= 9  and num.."99"..let or let<=99 and num.."9"..let or num..let
 	end
 	math.randomseed(tonumber(num))
 	local hashed = ""
 	for i = 1, 250 do
 		hashed = hashed..string.char(math.random(32,127))
 	end
 	return hashed
 end
 
 local function rollOver(input, max)
 	return math.floor(input % max)
 end
 
 local number
 
 local function flashScreen(times, number)
 	local flashes
 	if term.isColor() then
 		flashes = {
 			colors.white,
 			colors.black,
 			colors.red,
 		}
 	else
 		if _CC_VERSION then
 			flashes = {
 				colors.white,
 				colors.black,
 				colors.lightGray,
 			}
 		else
 			flashes = {
 				colors.white,
 				colors.black,
 			}
 		end
 	end
 	local terminateMessages = {
 		"TERMINATE AGAIN, I DARE YOU",
 		"TERMINATE AGAIN, I DARE YOU",
 		"NO PLEASE, I IMPLORE",
 		"NO, REALLY",
 		"MOST PEOPLE DISABLE TERMINATION...",
 		"BUT THAT'S BORING.",
 		"THIS IS AT LEAST FUNNY!",
 		"I MEAN, YOU DIDN'T EXPECT MULTIPLE MESSAGES",
 		"AT LEAST, I DON'T THINK...",
 		"...",
 		"OKAY, THIS IS GETTING OLD FAST",
 		"STOP IT!",
 		"STOP TERMINATING, OR ERRORING, OR WHATEVER",
 		"I'LL TELL THE ADMIN!",
 		"I WILL!",
 		"I'M WARNING YOU!",
 		".....",
 		"...YOU CALLED MY BLUFF.",
 		"OKAY, I CAN DO SOMETHING THAT YOU WON'T LIKE",
 		"NO, IT'S NOT TO TATTLE TO A MODERATOR...",
 		"IT'S SOMETHING MUCH WORSE.",
 		"OKAY NOT REALLY, UNLESS YOU HAVE EPILEPSY",
 		"AREN'T YOUR FINGERS GETTING TIRED?",
 		"I GUESS NOT...?",
 		"OKAY, HERE IT GOES!",
 		"YOU'D BETTER HEED MY WARNING!",
 		"<<flash>>",
 		"WHAT DID I TELL YOU?",
 		"YOU THOUGHT YOU'D CALL MY BLUFF, BUT NOOOOO",
 		"YOU MUST THINK YOU'RE SOOOOO CLEVER",
 		"BUT LOOKIT YOU NOW! ALL DEAD AND STUFF",
 		"....",
 		"...OKAY, I'M GETTING BORED.",
 		"ACTUALLY, I WAS ALREADY BORED...",
 		"BUT I THOUGHT THIS WOULD BE FUN",
 		"HOW WRONG WAS I?",
 		"ANYHOW, JUST...UM...",
 		"...DO WHATEVER IT IS YOU DO",
 		"WHEN YOU'RE NOT DESTROYING THE FACILITY",
 		"YOU SHOULD PLAY PORTAL NOW.",
 		"IT'S MUCH MORE FUN THAN TERMINATING A LOCK.",
 		"BELIEVE ME, YOU'LL HAVE A GREAT TIME DOING THAT",
 		"...",
 		"......",
 		"OKAY, IF YOU'RE DOING THIS TO FIND OUT THE CODE...",
 		"...OR GAIN ACCESS WITHOUT IT...",
 		"...THEN YOU ARE WASTING YOUR TIME.",
 		"THIS USES HASHING. THE PASSWORD ISN'T STORED...",
 		"...IN PLAIN TEXT, THAT IS",
 		"IF YOU WANT THAT, THEN GO BEG THE OWNER FOR IT",
 		"AND BY THAT I MEAN THE OWNER OF THE COMPUTER",
 		"NOT THE GUY WHO WROTE THE LOCK",
 		"I'M SURE HE HAS BETTER THINGS TO DO THAN THIS.",
 		"THIS IS THE LAST LINE OF DIALOGUE.",
 		"THIS IS THE LAST LINE OF DIALOGUE.",
 		"THIS IS THE LAST LINE OF DIALOGUE.",
 		"THIS IS THE LAST LINE OF DIALOGUE.",
 		"THIS IS TOTALLY THE LAST LINE OF DIALOGUE.",
 		"GOD DAMN IT, MAN!",
 		"YOU WANT ACCESS SO BAD?",
 		"YOU DO?",
 		"<<flash>>",
 		"NOW YOU HAVE ACCESS TO THE FLOOR",
 		"DON'T BREAK IT, FATTY",
 		"OH, I'M SORRY...",
 		"I ONLY SAID THAT BECAUSE...",
 		"YOU LOOK LIKE YOU'RE SMUGGLING A CAR",
 		"STUPID. STUPID FATTY.",
 		"...",
 		"*ROBOTIC COUGH*",
 		"Damn is this script long!",
 		"I can't wait until someone mods this and adds their own!",
 		"Welp, I'm not adding anything else.",
 		"Really, the last message will repeat.",
 		"So, my ultimate message is:",
 		"DO NOT TERMINATE.",
 	} --THAT was a mouthful!
 	if not number then
 		number = 1
 	end
 	if number >= #terminateMessages then
 		number = #terminateMessages
 	end
 	local message = terminateMessages[number]
 	local scr_x, scr_y = term.getSize()
 	if message == "<<flash>>" then
 		for a = 1, 64 do
 			sleep(0)
 			if term.isColor() then
 				term.setBackgroundColor(2^math.random(0,15))
 			else
 				if a % 2 == 0 then
 					term.setBackgroundColor(colors.white)
 				else
 					term.setBackgroundColor(colors.black)
 				end
 			end
 			term.clear()
 		end
 	else
 		for a = 1, times do
 			for b = 1, #flashes do
 				term.setBackgroundColor(flashes[b])
 				term.setTextColor(flashes[rollOver(b+1,#flashes)+1])
 				term.clear()
 				scr_x, scr_y = term.getSize()
 				if #message >= scr_x then
 					term.setCursorPos(1,scr_y/2)
 				else
 					term.setCursorPos(math.ceil(scr_x/2)-math.floor(#message/2),scr_y/2)
 				end
 				write(message)
 				sleep(0)
 			end
 		end
 	end
 end
 
 local terminateCount = 1
 
 local isCurrentlyGood = false
 
 local function handleCrash(results)
 	if not isCurrentlyGood then
 		writeLog("Someone tried to terminate!")
 		term.clear()
 		term.setCursorBlink(false)
 		local oldpullevent = os.pullEvent
 		os.pullEvent = os.pullEventRaw
 		flashScreen(10, terminateCount) --Gotta rub it in, man.
 		os.pullEvent = oldpullevent
 		terminateCount = terminateCount + 1
 		term.setCursorBlink(true)
 		return false
 	else
 		return true
 	end
 end
 
 local function cprint(txt)
 	local scr_x, scr_y = term.getSize()
 	local posX, posY = term.getCursorPos()
 	term.setCursorPos(math.ceil(scr_x/2)-math.ceil(#txt/2),posY)
 	return print(txt)
 end
 
 local function writeDiskpass(password, side)
 	local file = fs.open(fs.combine(disk.getMountPath(side),".password"),"w")
 	file.write(password)
 	file.close()
 end
 
 local function writeConfig(password, overwrite)
 	if overwrite then
 		file = fs.open(passwordFile,"w")
 	else
 		file = fs.open(passwordFile,"a")
 	end
 	file.writeLine(password)
 	file.close()
 end
 
 local function choice(filter, verbose)
 	if verbose == true then
 		write("[")
 		for a = 1, #filter do
 			write(string.upper(string.sub(filter,a,a)))
 			if a ~= #filter then
 				write(",")
 			end
 		end
 		write("]?")
 	end
 	local event, key
 	repeat
 		event, key = os.pullEvent("char")
 	until string.find(filter,key)
 	if verbose then
 		write(string.upper(key))
 	end
 	return key, string.find(filter,key)
 end
 
 local function correctPassword()
 	term.setBackgroundColor(palate.bgcorrect)
 	term.setTextColor(palate.txtcorrect)
 	local scr_x, scr_y = term.getSize()
 	term.setCursorPos(1,scr_y)
 	if #doorSide > 0 then
 		isCurrentlyGood = true
 	end
 	for a = 2, scr_y do
 		sleep(0)
 		term.scroll(1)
 		if a == math.ceil(scr_y/2) then
 			cprint("Correct!")
 		end
 	end
 	if #doorSide > 0 then
 		term.setCursorPos(1,math.floor(scr_y/2)+1)
 		cprint("Applying RS to "..table.concat(doorSide,", "))
 		for a = 1, #doorSide do
 			redstone.setOutput(doorSide[a], not doorInvertRedstone)
 		end
 		if type(doorCorrectDelay) == "number" then
 			sleep(doorCorrectDelay)
 		else
 			sleep(6)
 		end
 		isCurrentlyGood = false
 		for a = 1, #doorSide do
 			redstone.setOutput(doorSide[a], doorInvertRedstone)
 		end
 		return
 	else
 		sleep(0.6)
 		if _VERSION then
 			term.setCursorPos(1,scr_y/2)
 			term.setTextColor(colors.lightGray)
 			term.setBackgroundColor(colors.lightGray)
 			term.clear()
 			cprint("Correct!")
 			sleep(0)
 			term.setTextColor(colors.black)
 			term.setBackgroundColor(colors.gray)
 			term.clear()
 			sleep(0)
 		end
 		term.setBackgroundColor(colors.black)
-		cprint("Password:")
+
 		term.setCursorPos(1,1)
 		return true
 	end
-		local password
+
 
-			term.setCursorPos(1,posY)
+
-			term.clearLine()
+
-			write(">")
+
-			password = read("*")
+
-		until string.gsub(password," ","") ~= ""
+
-		local hashpassword = hash(password,saltCode)
+
 	if string.lower(pswd) == "bepis" then
 		cprint("Bepis.")
 	else
-		local a, correct = nil, false
+
 	end
 	if type(doorIncorrectDelay) == "number" then
 		sleep(doorIncorrectDelay)
 	else
 		sleep(2)
 	end
 end
 
 local function gui()
 	scr_x, scr_y = term.getSize()
-			incorrectPassword(password)
+	writeLog("Lock has turned on!")
 	while true do
 		term.setBackgroundColor(palate.bgcolor)
 		term.setTextColor(palate.bg_txtcolor)
 		term.clear()
-if not fs.exists(passwordFile) then
+
 		cprint("Enter keycard:")
 		local posX, posY = term.getCursorPos()
 		term.setBackgroundColor(palate.fgcolor)
 		term.setTextColor(palate.fg_txtcolor)
-	cprint("No password file!")
+		local password, evt
-	local newpassword, confpassword
+
 			evt = {os.pullEvent("disk")}
 		until evt[2] == diskSide
-			cprint("Enter a new password.")
+		writeLog("Disk was inserted in side "..diskSide)
-			local posX, posY = term.getCursorPos()
+		local diskDir = disk.getMountPath(diskSide)
-			term.setBackgroundColor(palate.fgcolor)
+
-			term.setTextColor(palate.fg_txtcolor)
+		local file = fs.open(fs.combine(diskDir,".password"),"r")
-			repeat
+		local hashpassword = file.readLine()
-				term.setCursorPos(1,posY)
+		file.close()
-				term.clearLine()
+
-				write(">")
+
-				newpassword = read("*")
+
-			until string.gsub(newpassword," ","") ~= ""
+
-			term.setBackgroundColor(palate.bgcolor)
+		local a, b, correct = nil, 0, false
-			term.setTextColor(palate.bg_txtcolor)
+
-
+
-			cprint("Confirm that.")
+			b = b + 1
-
+
-			local posX, posY = term.getCursorPos()
+
-			term.setBackgroundColor(palate.fgcolor)
+					writeLog("Accepted password (line "..b..")")
-			term.setTextColor(palate.fg_txtcolor)
+
-			repeat
+
-				term.setCursorPos(1,posY)
+
-				term.clearLine()
+
-				write(">")
+
-				confpassword = read("*")
+
-			until string.gsub(confpassword," ","") ~= ""
+			writeLog("Rejected password.")
-			term.setBackgroundColor(palate.bgcolor)
+			incorrectPassword(hashpassword)
-			term.setTextColor(palate.bg_txtcolor)
+
-			if newpassword ~= confpassword then
+
-				cprint("They don't match!")
+
-				local posX, posY = term.getCursorPos()
+
-				posY = posY + 1
+local alphabet = "qwertyuiopasdfghjklzxcvbnm1234567890"
 
-		until newpassword == confpassword
+if not fs.exists(passwordFile) or tArg[1] == "store" then
-
+	writeLog("Making new keycard.")
-		writeConfig(hash(newpassword,saltCode), false)
+
-		cprint("Wrote! Do another password?")
+
-		local input = choice("yn",true)
+
-	until input == "n"
+
 	cprint("Enter a disk.")
 	local _,side = os.pullEvent("disk")
 	local newpass = ""
 	for a = 1, 128 do
 		local b = math.random(1,#alphabet)
 		newpass = newpass..alphabet:sub(a,a)
 	end
 	writeConfig(hash(newpass,saltCode),false)
 	writeDiskpass(hash(newpass,saltCode),diskSide)
 	term.setBackgroundColor(colors.black)
 	term.clear()
 	term.setCursorPos(1,1)
 	cprint("Got it, man.")
-			return true
+
 	return true
 end
 
 while true do
-end
+
 	if not status then
 		local a = handleCrash(res)
 		if a then
 			break
 		end
 	else
 		break
 	end
 end
 writeLog("Lock has stopped.")