Double password (passbreak is W.I.P.)

--- Revised By 7Seven77 (mc name is Topnotch477)
--- this is a huge thing of code but the only things you might need to change are below this text and at very bottom :)
--- before you change any code i suggest you get it and play with it to see what it does :)

sgt = false
if sgt == false then
redstone.setOutput("bottom",true) -- Change side, if needed
end

pass = "password" --- make this your password
enclvl = 0
hash = {{'1','2','3','4'},{'5','6','7','8'}}
patDec = {{'1','2','3','4'},{'5','6','7','8'}}
patSol = "2552" --- make this your 4 digit code
maxX = 4
maxY = 2
selI = {1, 1}
strI = ""
lenI = 4
WdLen = 1

menu1 = {"Inbox", "Disk", "Exit"} --- Change any of theese if you please
menu2 = {"received mail", "sent mail", "Back"} --- theese can only be access after the first menu has been passed
mess1 = ""

function menu(x, y, op)
n = table.maxn(op)
pos = 1
stop = false
while stop == false do
term.clear()
term.setCursorPos(1,1)
print("Encryption Level : " .. enclvl)
for i=1,n do
term.setCursorPos(x,y-n/2+i)
if i==pos then
print("> " .. op[i])
else
print(op[i])
end
end
e, key = os.pullEvent("key")
if key == 200 then
pos = pos-1
if pos == 0 then pos = n end
end
if key == 208 then
pos = pos+1
if pos == n+1 then pos = 1 end
end
if key == 28 or key == 57 then
stop = true
end
end
return pos
end

function passBreak(p)
a = "hack"
for i = 1, string.len(p) do
for j = 1, string.len(a) do
term.clear()
term.setCursorPos(1,1)
print("Calculating...")
print(string.sub(p, 1, i-1) .. string.sub(a,j,j))
sleep(0.05)
end
end
term.clear()
term.setCursorPos(1,1)
print("Password found :")
print(p)
print("This code dosnt currently work")
print("Press any key to continue...")
os.pullEvent("key")
end

function decrypt(lvl, enc)
term.clear()
term.setCursorPos(1,1)
if lvl >= enc then
print("Decrypting...")
sleep(lvl*0.5 + 1)
print("done")
enclvl = 0
else
print("Encryption level too high.")
end
print("Press Any key to continue...")
os.pullEvent("key")
end

function interface()
stpI = false
while stpI == false do
term.clear()
term.setCursorPos(1,1)
print("Pattern Recognition")
for i=1,maxY do
term.setCursorPos(4,3+i)
for j=1,maxX do
if selI[1] == i and selI[2] == j then
write("<" .. hash[i][j] .. ">")
else
write(" " .. hash[i][j] .. " ")
end
end
end
term.setCursorPos(1,9)
write("Password : " .. strI)
e, k = os.pullEvent("key")
if k == 200 then selI[1] = selI[1] - 1
elseif k == 208 then selI[1] = selI[1] + 1
elseif k == 203 then selI[2] = selI[2] - 1
elseif k == 205 then selI[2] = selI[2] + 1
end
selI[1] = (selI[1]-1)%maxY + 1
selI[2] = (selI[2]-1)%maxX + 1
if k == 57 or k == 28 then stpI = true end
end
strI = strI .. hash[selI[1]][selI[2]]
term.setCursorPos(1,9)
print("Password : " .. strI)
end

function pattern()
strI = ""
stI = false
while stI == false do
interface()
if string.len(strI) == WdLen*lenI then
stI = true
if strI == patSol then
term.setCursorPos(1,10)
print("Correct!")
sleep(1)
admin()
else
print("Incorrect!")
sleep(1)
end
strI = ""
end
end
end

function patDecode()
term.clear()
term.setCursorPos(1,1)
if hash ~= nil then
print("Calculating...")
for j=1,maxY do
term.setCursorPos(3,3+j)
for i=1,maxX do
write("* ")
sleep(0.1)
end
end
for j=1,maxY do
term.setCursorPos(3,3+j)
for i=1,maxX do
write(patDec[j][i] .. " ")
sleep(1)
end
end
else
print("Can't find pattern...")
end
print("\n\nPress any key to continue")
os.pullEvent("key")
end

function diskCheck(s)
term.clear()
term.setCursorPos(1,1)
print("Searching...")
sleep(0.5)
if disk.isPresent(s) == false then
print("disk drive empty.")
sleep(1)
else
l = disk.getLabel(s)
if l == "Password Breaker" then passBreak(pass)
elseif l == "Decrypter Level 1" then decrypt(1, enclvl)
elseif l == "Decrypter Level 2" then decrypt(2, enclvl)
elseif l == "Decrypter Level 3" then decrypt(3, enclvl)
elseif l == "Pattern Decoder" then patDecode()

else print("Disk empty or corrupt.")
sleep(1)
end
end
end

function showDoc(doc)
term.clear()
term.setCursorPos(1,1)
print(doc)
print("")
print("Press any key to continue...")
os.pullEvent("key")
end

function ReceivedBox()
stpB = false
while stpB == false do
ch = menu(1, 4, menu3)
term.clear()
term.setCursorPos(1,1)
print("Dont go too crazy now...\n\nPress any key to continue...")
os.pullEvent("key")
end
end


function SentBox()
stpB = false
while stpB == false do
ch = menu(1, 4, menu3)
term.clear()
term.setCursorPos(1,1)
if ch == 1 then
showDoc(mess1)
else
stpB = true
end
end
end

function admin()
stp = false
while stp == false do
ch = menu(20, 8, menu2)
term.clear()
term.setCursorPos(1,1)
if ch == 1 then
SentBox()
elseif ch == 2 then
ReceivedBox()
else
stp = true
end
end
end

st = false
while st == false do
o = menu(20, 8, menu1)
if o == 1 then
term.clear()
term.setCursorPos(1,1)
if enclvl > 0 then
print("Page Encrypted...")
print("Press Any key to go back to the menu...")
os.pullEvent("key")
else
print("Password Required...")
write("Password : ")
pw = read()
if pw == pass then
print("Correct!")
sleep(0.5)
print("This computer is Protected by a Pattern System.")
sleep(1)
pattern()
else
print("Incorrect!")
print("Press any key to go back to the menu...")
os.pullEvent("key")
end
end
elseif o == 2 then
diskCheck("left")
else
st = true
end
end
term.clear()
term.setCursorPos(1,1)
print("Shutting Down ...")
sleep(1)
os.shutdown()