function clearScreen()
  term.clear()
  term.setCursorPos(1,1)
end

function loggedOn(username, password, balance)
  clearScreen()
  print("The Bank Of Sanctuary")
  print("---------------------------------------------------")
  print("Acount: "..username.."              Balance: "..balance)
  print("---------------------------------------------------")
  print("1 - Pay another user")
  print("2 - Deposit")
  print("3 - Withdraw")
  print("")
  write("Action> ")
  action = read()
  if action == "1" then
    payScreen(username, password, balance)
  end
end

function payScreen(username, password, balance)
  clearScreen()
  print("The Bank Of Sanctuary")
  print("---------------------------------------------------")
  print("Acount: "..username.."              Balance: "..balance)
  print("---------------------------------------------------")
  write("Username to pay: ")
  username = read()
  clearScreen()
  print("The Bank Of Sanctuary")
  print("---------------------------------------------------")
  print("Acount: "..username.."              Balance: "..balance)
  print("---------------------------------------------------")
  write("Amount to pay: $")
  amount = read()
  if amount > balance then
    clearScreen()
    difference = amount - balance
    print("You do not have enough money to pay! You need "..difference
    os.sleep(4)
  end
  --Update users balance
  balance = balance - amount

  loggedOn(username, password, balance)
end

while true do
  clearScreen()
  print("Welcome to The Bank!")
  print("Press 1 for a new user")
  print("Press 2 for an existing user")
  print("")
  write("Key> ")

  key = read()
  local modem = peripheral.wrap("back")
  if key == "1" then
    --user wants to create a new account
    clearScreen()
    print("Register")
    write("Username: ")
    username = read()
    clearScreen()
    print("Register")
    write("Password: ")
    pssw = read("*")
    --Hash password
    password = sha256(pssw)
    print(pssw)
    pssw = ""
    print("Waiting for server...")
    modem.transmit(1,1,"register`"..username.."`"..password)
    modem.open(1)
    local _, side, freq, rfreq, message = os.pullEvent("modem_message")
    if messsage == "409" then
      print("This user is already registered!")
    else
      print("User "..username.." registered!")
    end
    os.sleep(4)
  else
    --user just wants to login
    clearScreen()
    print("Login")
    write("Username: ")
    username = read()
    clearScreen()
    print("Login")
    write("Password: ")
    password = read("*")
    clearScreen()
    modem.transmit(1,1,"balance`"..username.."`"..password)

    modem.open(1)
    local _, side, freq, rfreq, message = os.pullEvent("modem_message")
    if message == "403" then
      print("Incorrect password!")
    else if message == "404" then
      print("There is no user called "..username.."!")
    else
      loggedOn(var1,var2,message)
    end
  end
os.sleep(4)
  end
end

--Code to SHA-256 it
local g=string.gsub sha256=loadstring(g(g(g(g(g(g(g(g('Sa=XbandSb=XbxWSc=XlshiftSd=unpackSe=2^32SYf(g,h)Si=g/2^hSj=i%1Ui-j+j*eVSYk(l,m)Sn=l/2^mUn-n%1VSo={0x6a09e667Tbb67ae85T3c6ef372Ta54ff53aT510e527fT9b05688cT1f83d9abT5be0cd19}Sp={0x428a2f98T71374491Tb5c0fbcfTe9b5dba5T3956c25bT59f111f1T923f82a4Tab1c5ed5Td807aa98T12835b01T243185beT550c7dc3T72be5d74T80deb1feT9bdc06a7Tc19bf174Te49b69c1Tefbe4786T0fc19dc6T240ca1ccT2de92c6fT4a7484aaT5cb0a9dcT76f988daT983e5152Ta831c66dTb00327c8Tbf597fc7Tc6e00bf3Td5a79147T06ca6351T14292967T27b70a85T2e1b2138T4d2c6dfcT53380d13T650a7354T766a0abbT81c2c92eT92722c85Ta2bfe8a1Ta81a664bTc24b8b70Tc76c51a3Td192e819Td6990624Tf40e3585T106aa070T19a4c116T1e376c08T2748774cT34b0bcb5T391c0cb3T4ed8aa4aT5b9cca4fT682e6ff3T748f82eeT78a5636fT84c87814T8cc70208T90befffaTa4506cebTbef9a3f7Tc67178f2}SYq(r,q)if e-1-r[1]<q then r[2]=r[2]+1;r[1]=q-(e-1-r[1])-1 else r[1]=r[1]+qVUrVSYs(t)Su=#t;t[#t+1]=0x80;while#t%64~=56Zt[#t+1]=0VSv=q({0,0},u*8)fWw=2,1,-1Zt[#t+1]=a(k(a(v[w]TFF000000),24)TFF)t[#t+1]=a(k(a(v[w]TFF0000),16)TFF)t[#t+1]=a(k(a(v[w]TFF00),8)TFF)t[#t+1]=a(v[w]TFF)VUtVSYx(y,w)Uc(y[w]W0,24)+c(y[w+1]W0,16)+c(y[w+2]W0,8)+(y[w+3]W0)VSYz(t,w,A)SB={}fWC=1,16ZB[C]=x(t,w+(C-1)*4)VfWC=17,64ZSD=B[C-15]SE=b(b(f(B[C-15],7),f(B[C-15],18)),k(B[C-15],3))SF=b(b(f(B[C-2],17),f(B[C-2],19)),k(B[C-2],10))B[C]=(B[C-16]+E+B[C-7]+F)%eVSG,h,H,I,J,j,K,L=d(A)fWC=1,64ZSM=b(b(f(J,6),f(J,11)),f(J,25))SN=b(a(J,j),a(Xbnot(J),K))SO=(L+M+N+p[C]+B[C])%eSP=b(b(f(G,2),f(G,13)),f(G,22))SQ=b(b(a(G,h),a(G,H)),a(h,H))SR=(P+Q)%e;L,K,j,J,I,H,h,G=K,j,J,(I+O)%e,H,h,G,(O+R)%eVA[1]=(A[1]+G)%e;A[2]=(A[2]+h)%e;A[3]=(A[3]+H)%e;A[4]=(A[4]+I)%e;A[5]=(A[5]+J)%e;A[6]=(A[6]+j)%e;A[7]=(A[7]+K)%e;A[8]=(A[8]+L)%eUAVUY(t)t=t W""t=type(t)=="string"and{t:byte(1,-1)}Wt;t=s(t)SA={d(o)}fWw=1,#t,64ZA=z(t,w,A)VU("%08x"):rep(8):format(d(A))V',"S"," local "),"T",",0x"),"U"," return "),"V"," end "),"W","or "),"X","bit32."),"Y","function "),"Z"," do "))()