Advertisement
Guest User

Untitled

a guest
Sep 20th, 2019
191
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.64 KB | None | 0 0
  1. rednet.open("top")
  2.  
  3. users = {
  4. [1] = {user = "Trey", pass = "test", priv = 5, id = 22, ign = "Trey2k"},
  5. [2] = {user = "shoe", pass = "abc", priv = 1, id = 25, ign = "i_am_a_shoe"},
  6. }
  7. umsg = {}
  8. --for k,v in pairs(users) do print(k.." : "..v.user) end
  9.  
  10.  
  11. function encrypt(string)
  12. local out = ""
  13. for i = 1, #string do
  14. local char = string:sub(i,i)
  15. local sNum = char:byte()
  16. local oNum = sNum + 47
  17. if oNum > 127 then
  18. oNum = oNum - 94
  19. end
  20. out = out .. string.char(oNum)
  21. end
  22. return out
  23. end
  24.  
  25. function decrypt(string)
  26. local out = string.gsub(encrypt(string),"~"," ")
  27. return out
  28. end
  29.  
  30. function login(u, p)
  31. stk = {" ", false}
  32. for k,v in pairs(users) do
  33. if v.user == u and v.pass == p then
  34. stk = {k, true}
  35. end
  36. end
  37. print(stk[2])
  38. if stk[2] == true then
  39. return true
  40. else
  41. return false
  42. end
  43. end
  44.  
  45. function rnet()
  46. umsg = {}
  47. id, content = rednet.receive()
  48. if textutils.unserialise(content) then
  49. umsg = textutils.unserialise(content)
  50. end
  51. end
  52.  
  53. function comm()
  54. local asd = stk[1]
  55. if umsg.cat == "exec" then
  56. commands.exec(umsg.cmd)
  57. elseif umsg.cat == "heal" then
  58. print(users[asd].ign)
  59. commands.exec("heal "..users[asd].ign)
  60. end
  61.  
  62. end
  63.  
  64. --login("i_am_a_shoe", "abc")
  65. while true do
  66. rnet()
  67. if login(umsg.user, umsg.pass) then
  68. print("Successful Login: "..umsg.user)
  69. print(umsg.user.." Attempted to run "..umsg.cmd)
  70. comm()
  71. else
  72. print("Invalid Packet: "..content)
  73. end
  74. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement