ldd-CC/sinelock.lua

--[[
   Sinelock v1.3
  The *COOLEST* computer/door lock ever!
 Now with slightly less seizure!

 pastebin get XDgeSDTq sinelock
 std pb XDgeSDTq sinelock
 std ld sinelock sinelock

 Now with salting!
--]]
local scr_x, scr_y = term.getSize()	--Gets screen size. Don't modify this

--Config variables start!
local terminateMode = 2				--0 enables termination, 1 blocks it, 2 provides a taunting screen.
local passFile = ".sl_password"		--The ABSOLUTE path of the password file.
local saltFile = ".sl_salt"			--The ABSOLUTE path of the salt file.
local characterLimit = 1024			--The cap of characters at the read() prompt. Set this to prevent crashes.
local runProgram = ""				--Set to something to run it when correct, and not using doors.
local dahChar = "*"					--The character used to hide characters when typed.
local doKeyCards = true				--Whether or not the lock also accepts keycards (floppy disks) as well as passwords.
local doEjectDisk = false			--Whether or not to eject a keycard after it's accepted, just to speed things up a bit.
local doorSides = {}				--If it has anything, the lock will open the doors instead of unlocking the PC.
local doInvertSignal = false		--If true, it will invert the redstone signal of the door, in case you need to.
local doShowDoorSides = true		--If true, will show the door sides being opened. Set to false if you are paranoid.
local beWavey = true				--Whether or not to animate the sine wave.
local readYpos = scr_y-2			--The Y position of the read() prompt
local requireAllPasswords = false	--Whether or not the lock asks for ONE of the multiple passwords, or ALL of them in order.
local badlength = 4					--The length in seconds that you have to wait to try again.
local goodlength = 6				--The length in seconds that doors will stay open.
local sineFrameDelay = 0.15			--The amount of time between sine animation frames. Tradeoff of purty vs performance.
local palate = {
	frontsine = colors.lightGray,
	backsine = colors.gray,
	background = colors.black,
	rainColor = colors.gray,
	rainChar = "|",
	promptBG = colors.gray,
	promptTXT = colors.white,
	wrongBG = colors.black,
	wrongTXT = colors.gray,
}
local language = "english"
local lang = {
	english = {
		wrong1 = "YOU ARE WRONG.",
		wrong2 = "YOU ARE WRONG. AS ALWAYS.",
		right1 = "Correct!",
		right2 = "Correct, finally!",
	},
	spanish = {
		wrong1 = "ESTA USTED EQUIVOCADO.",
		wrong2 = "ESTA USTED EQUIVOCADO. TODAVIA OTRA VEZ.",
		right1 = "Correcto!",
		right2 = "Asi es, por fin!",
		noTerminate = "No termine!",
	},
	german = {
		wrong1 = "SIE LIEGEN FALSCH.",
		wrong2 = "SIE LIEGEN FALSCH. WIE IMMER.",
		right1 = "Richtig!",
		right2 = "Richtig, endlich!",
		noTerminate = "Nicht zu beenden!",
	},
	dutch = {
		wrong1 = "U BENT ONJUIST.",
		wrong2 = "JE BENT ONJUIST, ALS ALTIJD.",
		right1 = "Dat is juist!",
		right2 = "Dat is juist, eindelijk!",
		noTerminate = "Niet te beeindigen!",
	},
	latin = { --As a joke
		wrong1 = "ERRAS",
		wrong2 = "TU DEFICIENTES!",
		right1 = "Quod suus 'verum!",
		right2 = "Quod suus 'verum, demum!",
		noTerminate = "Vade futuo te ipsum!",
	},
	italian = {
		wrong1 = "HAI SBAGLIATO.",
		wrong2 = "HAI SBAGLIATO, COME SEMPRE D'ALTRONDE.",
		right1 = "CORRETTO!",
		right2 = "CORRETTO, FINALMENTE!",
		noTerminate = "Non cercare di terminarmi",
	},
}

-- Config variables end. Don't touch anything else, m'kay?
if not _VERSION then
	return printError("Sorry, only CC 1.7 and later supported.")
end
local csv, salt, doSine
local floor, ceil, random, abs = math.floor, math.ceil, math.random, math.abs
local sin, cos = math.sin, math.cos
local rhite = term.write
local setTextColor, setBackgroundColor, getTextColor, getBackgroundColor = term.setTextColor, term.setBackgroundColor, term.getTextColor, term.getBackgroundColor
local setCursorPos, setCursorBlink, getCursorPos, getSize = term.setCursorPos, term.setCursorBlink, term.getCursorPos, term.getSize
local sineLevel = 1
local isTerminable = false
local kaykaycoolcool = true
if term.current().setVisible then
	csv = true
else
	csv = false
end

local writeError = function(...)
	local tx,bg = getTextColor(),getBackgroundColor()
	if term.isColor() then
		setTextColor(colors.red)
	else
		setTextColor(colors.white)
	end
	rhite(table.concat(arg," "))
	setTextColor(tx)
	setBackgroundColor(bg)
end

local goodPullEvent
if terminateMode == 1 then
	if os.pullEvent ~= os.pullEventRaw then
		goodPullEvent = os.pullEvent
	end
	os.pullEvent = os.pullEventRaw
end

local keepLooping = true

---- SHA256 START ----
--SHA256 implementation done by GravityScore.

local MOD = 2^32
local MODM = MOD-1

local function memoize(f)
	local mt = {}
	local t = setmetatable({}, mt)
	function mt:__index(k)
		local v = f(k)
		t[k] = v
		return v
	end
	return t
end

local function make_bitop_uncached(t, m)
	local function bitop(a, b)
		local res,p = 0,1
		while a ~= 0 and b ~= 0 do
			local am, bm = a % m, b % m
			res = res + t[am][bm] * p
			a = (a - am) / m
			b = (b - bm) / m
			p = p*m
		end
		res = res + (a + b) * p
		return res
	end
	return bitop
end

local function make_bitop(t)
	local op1 = make_bitop_uncached(t,2^1)
	local op2 = memoize(function(a) return memoize(function(b) return op1(a, b) end) end)
	return make_bitop_uncached(op2, 2 ^ (t.n or 1))
end

local bxor1 = make_bitop({[0] = {[0] = 0,[1] = 1}, [1] = {[0] = 1, [1] = 0}, n = 4})

local function bxor(a, b, c, ...)
	local z = nil
	if b then
		a = a % MOD
		b = b % MOD
		z = bxor1(a, b)
		if c then z = bxor(z, c, ...) end
		return z
	elseif a then return a % MOD
	else return 0 end
end

local function band(a, b, c, ...)
	local z
	if b then
		a = a % MOD
		b = b % MOD
		z = ((a + b) - bxor1(a,b)) / 2
		if c then z = bit32_band(z, c, ...) end
		return z
	elseif a then return a % MOD
	else return MODM end
end

local function bnot(x) return (-1 - x) % MOD end

local function rshift1(a, disp)
	if disp < 0 then return lshift(a,-disp) end
	return floor(a % 2 ^ 32 / 2 ^ disp)
end

local function rshift(x, disp)
	if disp > 31 or disp < -31 then return 0 end
	return rshift1(x % MOD, disp)
end

local function lshift(a, disp)
	if disp < 0 then return rshift(a,-disp) end 
	return (a * 2 ^ disp) % 2 ^ 32
end

local function rrotate(x, disp)
    x = x % MOD
    disp = disp % 32
    local low = band(x, 2 ^ disp - 1)
    return rshift(x, disp) + lshift(low, 32 - disp)
end

local k = {
	0x428a2f98, 0x71374491, 0xb5c0fbcf, 0xe9b5dba5,
	0x3956c25b, 0x59f111f1, 0x923f82a4, 0xab1c5ed5,
	0xd807aa98, 0x12835b01, 0x243185be, 0x550c7dc3,
	0x72be5d74, 0x80deb1fe, 0x9bdc06a7, 0xc19bf174,
	0xe49b69c1, 0xefbe4786, 0x0fc19dc6, 0x240ca1cc,
	0x2de92c6f, 0x4a7484aa, 0x5cb0a9dc, 0x76f988da,
	0x983e5152, 0xa831c66d, 0xb00327c8, 0xbf597fc7,
	0xc6e00bf3, 0xd5a79147, 0x06ca6351, 0x14292967,
	0x27b70a85, 0x2e1b2138, 0x4d2c6dfc, 0x53380d13,
	0x650a7354, 0x766a0abb, 0x81c2c92e, 0x92722c85,
	0xa2bfe8a1, 0xa81a664b, 0xc24b8b70, 0xc76c51a3,
	0xd192e819, 0xd6990624, 0xf40e3585, 0x106aa070,
	0x19a4c116, 0x1e376c08, 0x2748774c, 0x34b0bcb5,
	0x391c0cb3, 0x4ed8aa4a, 0x5b9cca4f, 0x682e6ff3,
	0x748f82ee, 0x78a5636f, 0x84c87814, 0x8cc70208,
	0x90befffa, 0xa4506ceb, 0xbef9a3f7, 0xc67178f2,
}

local function str2hexa(s)
	return (string.gsub(s, ".", function(c) return string.format("%02x", string.byte(c)) end))
end

local function num2s(l, n)
	local s = ""
	for i = 1, n do
		local rem = l % 256
		s = string.char(rem) .. s
		l = (l - rem) / 256
	end
	return s
end

local function s232num(s, i)
	local n = 0
	for i = i, i + 3 do n = n*256 + string.byte(s, i) end
	return n
end

local function preproc(msg, len)
	local extra = 64 - ((len + 9) % 64)
	len = num2s(8 * len, 8)
	msg = msg .. "\128" .. string.rep("\0", extra) .. len
	assert(#msg % 64 == 0)
	return msg
end

local function initH256(H)
	H[1] = 0x6a09e667
	H[2] = 0xbb67ae85
	H[3] = 0x3c6ef372
	H[4] = 0xa54ff53a
	H[5] = 0x510e527f
	H[6] = 0x9b05688c
	H[7] = 0x1f83d9ab
	H[8] = 0x5be0cd19
	return H
end

local function digestblock(msg, i, H)
	local w = {}
	for j = 1, 16 do w[j] = s232num(msg, i + (j - 1)*4) end
	for j = 17, 64 do
		local v = w[j - 15]
		local s0 = bxor(rrotate(v, 7), rrotate(v, 18), rshift(v, 3))
		v = w[j - 2]
		w[j] = w[j - 16] + s0 + w[j - 7] + bxor(rrotate(v, 17), rrotate(v, 19), rshift(v, 10))
	end

	local a, b, c, d, e, f, g, h = H[1], H[2], H[3], H[4], H[5], H[6], H[7], H[8]
	for i = 1, 64 do
		local s0 = bxor(rrotate(a, 2), rrotate(a, 13), rrotate(a, 22))
		local maj = bxor(band(a, b), band(a, c), band(b, c))
		local t2 = s0 + maj
		local s1 = bxor(rrotate(e, 6), rrotate(e, 11), rrotate(e, 25))
		local ch = bxor (band(e, f), band(bnot(e), g))
		local t1 = h + s1 + ch + k[i] + w[i]
		h, g, f, e, d, c, b, a = g, f, e, d + t1, c, b, a, t1 + t2
	end

	H[1] = band(H[1] + a)
	H[2] = band(H[2] + b)
	H[3] = band(H[3] + c)
	H[4] = band(H[4] + d)
	H[5] = band(H[5] + e)
	H[6] = band(H[6] + f)
	H[7] = band(H[7] + g)
	H[8] = band(H[8] + h)
end

local function sha256(...)
	local msg = table.concat(arg,",")
	msg = preproc(msg, #msg)
	local H = initH256({})
	for i = 1, #msg, 64 do digestblock(msg, i, H) end
	return str2hexa(num2s(H[1], 4) .. num2s(H[2], 4) .. num2s(H[3], 4) .. num2s(H[4], 4) ..
		num2s(H[5], 4) .. num2s(H[6], 4) .. num2s(H[7], 4) .. num2s(H[8], 4))
end

---- SHA256 END ----

local terminates = 0
local sillyTerminate = function()
	local goodpull = _G.os.pullEvent
	os.pullEvent = os.pullEventRaw
	terminates = terminates + 1
	local script = {
		"You shall not pass!",
		"THOU shalt not pass!",
		"Stop trying to pass!",
		"...maybe I'm not clear.",
		"YOU. SHALL NOT. PASS!!",
		"Pass thou shalt not!",
		"Hey, piss off, will ya?",
		"I haven't got all day.",
		"...no, shut up. I don't.",
		"I won't tell you it!",
		"No password for you.",
		"It's been hashed!",
		"Hashed...with a salt!",
		"I'll never tell you the salt.",
		"You know why?",
		"Because that requires passing!",
		"WHICH THOU SHALT NOT DO!",
		"(oh btw don't pass k?)",
		"You! Don't pass!",
		"That means YOU!",
		"Cut it out!",
		"Re: Cut it out!",
		"Perhaps if you keep it up...",
		"..hmm...",
		"..oh I give up.",
		"<bullshitterm>",
		"What? Is this what you wanted?",
		"Huh? No? I-it's not?",
		"Well then...!",
		"<toobad>",
		"YEAH I SAID IT",
		"You think you're a terminating machine!",
		"You think you're above consequence!",
		"...w-...",
		"eat my shorts",
		"Your attempts are futile anyhow.",
		"Here I am getting drunk off your sweat,",
		"...while you push CTRL and T.",
		"Or maybe you're pressing that [T] button.",
		"Like, um, in CCEmuRedux.",
		"But it matters not!",
		"For you see, my defences are great!",
		"Nothing can bust my rock-hard abs!",
		"<fuckinghell>",
		"Oh bualls.",
		"That was embarrasing.",
		"...?",
		"What're YOU lookin' at??",
		"You callin' me UNSTABLE!?",
		"HUH!??",
		"...",
		"...w-well at least I admit it",
		"...b-bakka",
		".......",
		"Hey, have you ever played EarthBound?",
		"(Yes. I'm gonna rant.)",
		"It's an RPG on the Super Nintendo.",
		"Like, instead of fighting fantasy demons,",
		"you fight stop signs and cars and shit",
		"And, like, you hit rabid dogs with a bat",
		"And you have magical PSI spells",
		"...speaking of PSI, I happen to use it a lot.",
		"...er, *I* as in the coder of this lock...",
		"And by PSI, I mean the mod.",
		"You don't see too many psychic locks these days.",
		"A shame, really.",
		"I bet a PSI lock could act as a heater with PSI Fire.",
		"Or maybe it can kill rats with PSI Ground or Thunder",
		"Maybe, you can get a psychic KEY lock, so, like,",
		"you could put it on that Psychonauts head door thing.",
		"...WHAT!? just a suggestion.",
		"Psychonauts is another game I reccommend.",
		"It has some really clever dialogue.",
		"I'm sure you'd like it quite a lot.",
		"I know, because you've been here for ten fucking minutes.",
		"And you're not ONE STEP closer to getting the password",
		"Which I've been guarding very, very closely.",
		"Yes. Extremely closely.",
		"Excrutiatingly, some would say.",
		"You know, I should probably get to shouting.",
		"*ahem*",
		"...",
		"*aahhhechhemmemmhmm*",
		"*aachkskacehchachkhackcoughfartfuckdammitaaucahkh*",
		"...",
		"STAHP IT",
		"STAHP TEHRMINATIN",
		"do it for the CHILDREN",
		"okay fuck the children, who needs 'em",
		"then",
		"um",
		"THINK OF THE...THE...",
		"the babies...?",
		"um",
		"<abuseofcommunity>",
		"That's a fucking horrible idea.",
		"I'd rather eat my own brain then think about that.",
		"I'd sooner kiss a pig!",
		"I'd sooner swallow an avocado pit!",
		"...",
		"You know, you suck so much.",
		"You suck so much, and I'm sick of writing this script",
		"If my knuckles bleed, you're paying my insurance",
		"In order to save time, money, and my joints,",
		"I believe it would be in order to...",
		"...to say,",
		"NO TERMINATING.",
	}
	setCursorBlink(false)
	local mess
	if terminates > #script then
		mess = script[#script]
	else
		mess = script[terminates]
	end
	if mess == "<bullshitterm>" then
		setBackgroundColor(colors.black)
		if term.isColor() then
			setTextColor(colors.yellow)
		else
			setTextColor(colors.white)
		end
		term.clear()
		setCursorPos(1,1)
		print(os.version())
		write("> ")
		setTextColor(colors.white)
		read()
		printError("shell:350: Unable to pass")
		sleep(2)
	elseif mess == "<toobad>" then
		setBackgroundColor(colors.black)
		if term.isColor() then
			setTextColor(colors.red)
		else
			setTextColor(colors.white)
		end
		term.clear()
		setCursorPos(1,scr_y/2)
		local toobad = " T"..("O"):rep(scr_x-8).." BAD!"
		for a = 1, #toobad do
			for y = 1, scr_y do
				setCursorPos(a,y)
				rhite(toobad:sub(a,a))
			end
			sleep(0)
		end
		sleep(1.5)
		for a = 1, 16 do
			if a%3 == 0 then
				setBackgroundColor(colors.white)
			elseif a%3 == 1 then
				setBackgroundColor(colors.black)
			else
				if term.isColor() then
					setBackgroundColor(colors.red)
				else
					setBackgroundColor(colors.gray)
				end
			end
			term.clear()
			sleep(0)
		end
	elseif mess == "<fuckinghell>" then
		writeError("Terminated")
		setBackgroundColor(colors.black)
		setTextColor(colors.white)
		term.blit(">","4","f")
		read()
		sleep(0.75)
		for a = 1, 2 do
			sleep(0.05)
			term.scroll(1)
		end
		for a = 1, scr_y do 
			sleep(0.05)
			term.scroll(-1)
		end
		sleep(0.25)
		setBackgroundColor(colors.gray)
		term.clear()
		sleep(0.1)
		setBackgroundColor(colors.lightGray)
		term.clear()
		sleep(0.1)
		setBackgroundColor(colors.white)
		term.clear()
		sleep(0.25)
		local msg = "taht didn't happan"
		term.setCursorPos(scr_x-#msg,scr_y)
		setTextColor(colors.black)
		rhite(msg)
		sleep(1)
	elseif mess == "<abuseofcommunity>" then
		setBackgroundColor(colors.white)
		setTextColor(colors.black)
		term.clear()
		setCursorPos(2,3)
		print("Since you're such a smart bastard, why don't you come up with something objectionable to think about?\n")
		setBackgroundColor(colors.gray)
		setTextColor(colors.white)
		term.clearLine()
		local yourFuckingShittyAssResponceThatSucksSoMuchBallsThatIWouldRatherListenToThatFuckingOwlFromOcarinaOfTimeBlatherAboutHisFuckingDayThanSitWithYouForAnotherGoddamnedSecondReeeeee = read()
		setBackgroundColor(colors.white)
		setTextColor(colors.black)
		for a = 1, 5 do
			sleep(0.6)
			write(".")
		end
		sleep(1)
		term.setTextColor(colors.red)
		for a = 1, 20 do
			sleep(0.05)
			write(".")
		end
		sleep(0.5)
	else
		setBackgroundColor(colors.gray)
		setTextColor(colors.white)
		setCursorPos(math.max(1,(scr_x/2)-(#mess/2)),scr_y/2)
		if language == "english" then
			write(mess)
		else
			write(lang[language].noTerminate)
		end
		sleep(1.5)
	end
	os.pullEvent = goodpull
	return terminates
end

local shuffle = function(txt)
	local output = ""
	for a = 1, #txt do
		if a % 2 == 0 then
			output = output..txt:sub(a,a)
		else
			output = txt:sub(a,a)..output
		end
	end
	return output
end

local goodpass = function(pswd,count)
	isTerminable = true
	doSine = false
	setCursorBlink(false)
	local flashes = {
		colors.white,
		colors.lightGray,
		colors.gray,
	}
	if type(pswd) == "table" then
		pswd = pswd[1]
	end
	setTextColor(colors.black)
	local correctmsg
	if count < 10 then
		correctmsg = lang[language].right1
	else
		correctmsg = lang[language].right2
	end
	for a = 1, #flashes do
		setBackgroundColor(flashes[#flashes-(a-1)])
		term.clear()
		setCursorPos((scr_x/2)-(#correctmsg/2),scr_y/2)
		rhite(correctmsg)
		sleep(0)
	end
	if #doorSides == 0 then
		sleep(0.4)
		keepLooping = false
	else
		local doormsg
		if doShowDoorSides then
			doormsg = "Applying RS to "..table.concat(doorSides,", ").."."
		else
			doormsg = "Applying redstone."
		end
		setCursorPos((scr_x/2)-(#doormsg/2),(scr_y/2)+2)
		rhite(doormsg)
		for a = 1, #doorSides do
			redstone.setOutput(doorSides[a],not doInvertSignal)
		end
		if terminateMode == 1 then
			os.pullEvent = goodPullEvent
		end
		sleep(goodlength)
		if terminateMode == 1 then
			os.pullEvent = os.pullEventRaw
		end
		for a = 1, #doorSides do
			redstone.setOutput(doorSides[a],doInvertSignal)
		end
	end
	for a = 1, #flashes do
		setBackgroundColor(flashes[a])
		term.clear()
		setCursorPos((scr_x/2)-(#correctmsg/2),scr_y/2)
		rhite(correctmsg)
		sleep(0)
	end
	setBackgroundColor(colors.black)
	term.clear()
	setCursorPos(1,1)
	if terminateMode == 1 and goodPullEvent and (#doorSides == 0) then
		os.pullEvent = goodPullEvent
	end
	setCursorBlink(true)
	isTerminable = false
	return true
end

local badpass = function(pswd,count)
	doSine = false
	local getevent = os.pullEvent
	os.pullEvent = os.pullEventRaw
	setCursorBlink(false)
	setBackgroundColor(palate.wrongBG)
	setTextColor(palate.wrongTXT)
	term.clear()
	if type(pswd) == "table" then
		pswd = pswd[1]
	end
	local badmsg
	if count < 10 then
		if pswd == sha256("bepis",salt) then
			badmsg = "Bepis."
		else
			badmsg = lang[language].wrong1
		end
	else
		if pswd == sha256("bepis",salt) then
			badmsg = "BEPIS!"
		else
			badmsg = lang[language].wrong2
		end
	end
	setCursorPos((scr_x/2)-(#badmsg/2),scr_y/2)
	rhite(badmsg)
	sleep(badlength)
	doSine = true
	setCursorBlink(true)
	os.pullEvent = getevent
	return "man you suck"
end
	
local readPassFile = function()
	local _output, _salt
	if fs.exists(passFile) then
		local file = fs.open(passFile,"r")
		_output = file.readLine()
		file.close()
	end
	if fs.exists(saltFile) then
		local file = fs.open(saltFile,"r")
		_salt = file.readLine()
		file.close()
	end
	return _output, _salt
end

local addNewPassword = function(pword,_path)
	local file = fs.open(_path or passFile,"a")
	file.write( sha256(pword,salt) )
	file.close()
end
       
local rendersine = function(move)
	move = move or 0
	local res1,res2,x,y
	if csv then term.current().setVisible(false) end
	setBackgroundColor(colors.black)
	setCursorBlink(false)
	for a = 1, scr_y do
		if a ~= readYpos then
			for b = 1, scr_x do
				x = b+floor(scr_x/2)
				y = a-floor(scr_y/2)
				res1 = abs( floor(sin((x/(scr_x/7.3))+move)*scr_y/4) - y ) <= 2
				setCursorPos(b,a)
				if res1 then
					setBackgroundColor(palate.backsine)
				else
					setBackgroundColor(palate.background)
				end
				rhite(" ")
				res2 = abs( floor(cos((x/(scr_x/12.75))+(move*4))*scr_y/7) - y+2 ) <= 1
				setCursorPos(b,a)
				if res2 then
					setBackgroundColor(palate.frontsine)
					rhite(" ")
				elseif not res1 then
					setBackgroundColor(palate.background)
					setTextColor(palate.rainColor)
					if (x % 2 == 0) and ((y+floor(move*-10)+(x % 5)) % 5 <= 1) then
						rhite(palate.rainChar)
					else
						rhite(" ")
					end
				end
			end
		end
	end
	if csv then term.current().setVisible(true) end
	setCursorBlink(true)
end

local sine = function()
	doSine = true
	while true do
		if sineLevel > 900 then
			sineLevel = 1
		end
		if doSine then
			local cX,cY = getCursorPos()
			local bg,txt = getBackgroundColor(),getTextColor()
			rendersine(sineLevel/10)
			setCursorPos(cX,cY)
			setBackgroundColor(bg)
			setTextColor(txt)
		end
		sleep(sineFrameDelay)
		if kaykaycoolcool then
			sineLevel = sineLevel + 1
		end
	end
end

local funcread = function(repchar,rHistory,doFunc,noNewLine,writeFunc,cursorAdjFunc,doFuncEvent,charLimit)
	local scr_x,scr_y = term.getSize()
	local sx,sy = term.getCursorPos()
	local cursor = 1
	local rCursor = #rHistory+1
	local output = ""
	term.setCursorBlink(true)
	local rite = writeFunc or term.write
	cursorAdjFunc = cursorAdjFunc or function() return 0 end
	while true do
		local evt,key = os.pullEvent()
		if evt == doFuncEvent then
			pleaseDoFunc = true
		elseif evt == "key" then
			if key == keys.enter then
				if not noNewLine then
					write("\n")
				end
				term.setCursorBlink(false)
				return output
			elseif key == keys.left then
				if cursor-1 >= 1 then
					cursor = cursor - 1
				end
			elseif key == keys.right then
				if cursor <= #output then
					cursor = cursor + 1
				end
			elseif key == keys.up then
				if rCursor > 1 then
					rCursor = rCursor - 1
					term.setCursorPos(sx,sy)
					rite((" "):rep(#output))
					output = (rHistory[rCursor] or ""):sub(1,charLimit or -1)
					cursor = #output+1
					pleaseDoFunc = true
				end
			elseif key == keys.down then
				term.setCursorPos(sx,sy)
				rite((" "):rep(#output))
				if rCursor < #rHistory then
					rCursor = rCursor + 1
					output = (rHistory[rCursor] or ""):sub(1,charLimit or -1)
					cursor = #output+1
					pleaseDoFunc = true
				else
					rCursor = #rHistory+1
					output = ""
					cursor = 1
				end
			elseif key == keys.backspace then
				if cursor > 1 and #output > 0 then
					output = (output:sub(1,cursor-2)..output:sub(cursor)):sub(1,charLimit or -1)
					cursor = cursor - 1
					pleaseDoFunc = true
				end
			elseif key == keys.delete then
				if #output:sub(cursor,cursor) == 1 then
					output = (output:sub(1,cursor-1)..output:sub(cursor+1)):sub(1,charLimit or -1)
					pleaseDoFunc = true
				end
			end
		elseif evt == "char" or evt == "paste" then
			output = (output:sub(1,cursor-1)..key..output:sub(cursor+(#key-1))):sub(1,charLimit or -1)
			cursor = math.min(#output+1,cursor+#key)
			pleaseDoFunc = true
		end
		local pOut = (output or ""):sub(math.max( 1,(#output+sx)-scr_x) )
		if pleaseDoFunc then
			pleaseDoFunc = false
			if type(doFunc) == "function" then
				doFunc(output:sub(1,charLimit or -1))
			end
			term.setCursorPos(sx,sy)
			if repchar then
				rite(repchar:sub(1,1):rep(#pOut))
			else
				rite(pOut)
			end
			term.write(" ")
		end
		term.setCursorPos(sx+cursorAdjFunc(pOut)+cursor-math.max( 1,(#output+sx)-scr_x),sy)
	end
end

local arse, arseSHA, passes

local awaitKeyCard = function()
	local bwop,_,side
	repeat
		_,side = os.pullEvent("disk")
		if side then
			bwop = fs.combine(disk.getMountPath(side),".sinepw") --bwop!
		else
			bwop = ""
		end
	until fs.exists(bwop) and not fs.isDir(bwop)
	local file = fs.open(bwop,"r")
	local output = file.readLine()
	file.close()
	arseSHA = output
	if doEjectDisk then disk.eject(side) end
end

local passwordPrompt = function()
	if requireAllPasswords then
		arse = {}
		arseSHA = ""
		for a = 1, ceil(#passes/64) do
			setCursorPos(1,readYpos)
			setBackgroundColor(palate.promptBG)
			term.clearLine()
			setTextColor(palate.promptTXT)
			write("P"..a..">")
			arse[#arse+1] = read(dahChar)
			arseSHA = arseSHA..sha256(arse[#arse],salt)
		end
	else
		setCursorPos(1,readYpos)
		setBackgroundColor(palate.promptBG)
		term.clearLine()
		setTextColor(palate.promptTXT)
		write(">")
		arse = funcread(dahChar,{},nil,true,nil,nil,nil,characterLimit)
		arseSHA = sha256(arse,salt)
	end
end

local count = 0

local lock = function()
	if #doorSides > 0 then
		for a = 1, #doorSides do
			redstone.setOutput(doorSides[a],doInvertSignal)
		end
	end
	while true do
		passes, salt = readPassFile()
		count = count + 1
		if doKeyCards then
			parallel.waitForAny(passwordPrompt,awaitKeyCard)
		else
			passwordPrompt()
		end
		local good
		if requireAllPasswords then
			if passes == arseSHA then
				good = true
			else
				good = false
			end
		else
			if string.find(passes,arseSHA) then
				good = true
			else
				good = false
			end
		end
		if good then
			goodpass(arseSHA,count)
			if #doorSides == 0 then
				return true
			else
				doSine = true
			end
		else
			badpass(arseSHA,count)
		end
	end
end

local choice = function(input)
	repeat
		event, key = os.pullEvent("key")
		if type(key) == "number" then key = keys.getName(key) end
		if key == nil then key = " " end
	until string.find(input, key)
	return key
end

if not fs.exists(saltFile) then
	local file = fs.open(saltFile,"w")
	for a = 1, 128 do
		local c = string.char(random(1,255))
		file.write(c)
	end
	file.close()
	local f = fs.open(saltFile,"r")
	salt = f.readLine()
	f.close()
end

passes, salt = readPassFile()

local tArg = {...}
if tArg[1] == "addpass" then
	if tArg[2] then
		print("Really add password? [Y,N]")
		local answer = choice("yn")
		if answer == "n" then
			sleep(0)
			return print("Oh, okay.")
		else
			table.remove(tArg,1)
			addNewPassword(table.concat(tArg," "))
			sleep(0)
			return print("Added password.")
		end
	else
		sleep(0)
		return print("Expected a new password...")
	end
elseif tArg[1] == "keymake" then
	if tArg[2] then
		print("Really add to disk?")
		print("Keep in mind the password has to be manually added for the keycard to work.\n[Y,N]")
		local answer = choice("yn")
		if answer == "n" then
			sleep(0)
			return print("Oh, okay.")
		else
			print("Please insert a disk or pocket computer.")
			local _,side = os.pullEvent("disk")
			local diskPassPath = fs.combine(disk.getMountPath(side),".sinepw")
			table.remove(tArg,1)
			addNewPassword(table.concat(tArg," "),diskPassPath)
			if not disk.getLabel(side) then
				disk.setLabel(side,"slkey-"..random(1,1000))
			end
			sleep(0)
			print("Added password.")
			if not doKeyCards then
				print("Key cards aren't enabled, though.")
			end
			return
		end
	else
		sleep(0)
		return print("Expected a password...")
	end
end

if not fs.exists(passFile) then
	local progname = fs.getName(shell.getRunningProgram())
	return print("No password file found.\nRun '"..progname.." addpass <password>' to add a password.")
end

setBackgroundColor(colors.black)
term.clear()

local parafunky = { --it looks kinda funky, but it tastes funKAY!
	sine,
	lock,
}

if not beWavey then table.remove(parafunky,1) end --not funky, man
local staytis, errawr
while keepLooping do
	kaykaycoolcool = true
	staytis, errawr = pcall(parallel.waitForAny,unpack(parafunky))
	if keepLooping == false then break else
		if terminateMode == 2 then
			kaykaycoolcool = false
			if not isTerminable then
				sillyTerminate()
			else
				keepLooping = false
				setBackgroundColor(colors.black)
				term.clear()
				setTextColor(colors.white)
				setCursorPos(1,1)
				break
			end
		else
			keepLooping = false
			setBackgroundColor(colors.black)
			term.clear()
			setTextColor(colors.white)
			setCursorPos(1,1)
			if not staytis then
				printError(errawr)
			end
			break
		end
	end
end
if runProgram and (runProgram ~= "") then
	shell.run(runProgram)
end