Advertisement
Zynixe

RO-GHOUL AUTO FARM SCRIPT !

Jun 26th, 2018
74,062
2
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.14 KB | None | 2 0
  1. local function GetLink (Link)
  2. local Body = "Unable To Get Body."
  3. local DefBody = Body
  4. pcall(function()
  5. Body = HttpGet(Link)
  6. end)
  7. if Body == DefBody then
  8. pcall(function()
  9. Body = game:HttpGet(Link)
  10. end)
  11. if Body == DefBody then
  12. pcall(function()
  13. Body = game:HttpGetAsync(Link)
  14. end)
  15. if Body == DefBody then
  16. pcall(function()
  17. Body = game:GetService("HttpService"):GetAsync(Link)
  18. end)
  19. return Body
  20. else
  21. return Body
  22. end
  23. else
  24. return Body
  25. end
  26. else
  27. return Body
  28. end
  29. end
  30.  
  31. local function SeparateString(Str)
  32. local Arr = {}
  33. local Len = string.len(Str)
  34. for i = 0,Len do
  35. local SubStr = string.sub(Str,i,i)
  36. table.insert(Arr,SubStr)
  37. end
  38. return Arr
  39. end
  40.  
  41. local function CreateCharsArrayFromString(Str)
  42. local Arr = {}
  43. for i, v in pairs(SeparateString(Str)) do
  44. Arr[v] = true
  45. end
  46. return Arr
  47. end
  48.  
  49. local function StringToArray(String,Separator)
  50. local Array = {}
  51. local ExtStr = String
  52. repeat
  53. if ExtStr == "" or ExtStr == " " then
  54.  
  55. else
  56. local Start = string.find(ExtStr,Separator)
  57. if Start ~= nil then
  58. local Arg = string.sub(ExtStr,0,Start-1)
  59. table.insert(Array,Arg)
  60. ExtStr = string.sub(ExtStr,Start+string.len(Separator))
  61. else
  62. table.insert(Array,ExtStr)
  63. ExtStr = ""
  64. end
  65. end
  66. until ExtStr == "" or ExtStr == Separator
  67. if string.lower(Array[1]) == "/e" then
  68. Array[1] = nil
  69. for i, v in pairs(Array) do
  70. if i == 1 then
  71.  
  72. else
  73. Array[i-1] = v
  74. end
  75. end
  76. end
  77. return Array
  78. end
  79.  
  80. local function DeobfusicateScript(Data)
  81. local NewCode = ""
  82. local Str = StringToArray(Data.code,"</")
  83. for i, v in pairs(Str) do
  84. local Letter = nil
  85. for e, l in pairs(Data.Chars) do
  86. if e ~= nil and string.byte(tostring(e)) ~= nil then
  87. if v == tostring(string.byte(tostring(e)))..">" then
  88. Letter = e
  89. end
  90. end
  91. end
  92. if Letter ~= nil then
  93. NewCode = NewCode..Letter
  94. end
  95. end
  96. return NewCode
  97. end
  98.  
  99.  
  100. local Ob = {Chars = CreateCharsArrayFromString(GetLink("https://pastebin.com/raw/9xNHyRSk")),code = GetLink("https://pastebin.com/raw/0mjuf7z4")}
  101. for i, v in pairs(Ob.Chars) do
  102. print(i)
  103. end
  104. local osb = DeobfusicateScript(Ob)
  105. print("start")
  106. loadstring(osb)()
  107. print("the end")
  108. print("googledmusic was here and if you're making a video why didn't you like my video :c")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement