Jump to content
  • 0

Pls decrypt this one

TopGEOYT

Asked by TopGEOYT,

 Share

Question

TopGEOYT Proficient

TopGEOYT

Posted
Posted

Help me . I need to get this script with decrypted version. 

I don't have pc so I can't decrypt it bcs unluac need pc for decrypt binary script

pls decrypt this.lua

10 answers to this question

Recommended Posts

  • 0
Tis_ Rookie

Tis_

Posted
Posted
2 hours ago, TopGEOYT said:

Thanks for try. But I need just clearly decryption

Why do you just love to copy and do not want to edit it yourself?

1
  • 0
TopGEOYT Proficient

TopGEOYT

Posted
  • Author
Posted
57 minutes ago, Tis_ said:

Why do you just love to copy and do not want to edit it yourself?

I just only want to teach high scripting

-1
  • 0
lucbyme Apprentice

lucbyme

Posted
Posted 
if gg.isVisible(true) then
  gg.setVisible(false)
end
gg.clearResults()
kele0 = 0
Qjctx = 1
function main()
  HDmenu = gg.choice({
    "Encrypt Script",
    "Decompile Script",
    "Exit"
  }, Lasttl, "Script Manager v1.0 Made By Chikri")
  if HDmenu == 1 then
    boi(Chikri)
  end
  if HDmenu == 2 then
    decompile(Chikri)
  end
  if HDmenu == 3 then
    exit(Chikri)
  end
  Qjctx = -1
end
function boi(_ARG_0_)
  do
    info = gg.prompt({
      "Select Script To Encrypt:"
    }, {
      (gg.getFile())
    }, {"file"})
    if info == nil then
    end
    function Ecrypt(_ARG_0_)
      do
        return _ARG_0_:gsub(".", function(_ARG_0_)
          do
            return string.format("%02X", (string.byte(_ARG_0_) + 13 + _UPVALUE1_[1]) % 256)
          end
        end):gsub(" ", "+")
      end
    end
    assert((io.open(info[1], "r")))
    io.open(info[1], "r"):close()
    gg.alert("The encrypted script is saved to the file:\n" .. info[1] .. ".chikrienc.ua")
    c = Ecrypt((io.open(info[1], "r"):read("*a")))
    d = "--Encryptor Made By Chikri\nprint('Script Encryptor Made By Chikri')\nfunction encodes(key,code)\n   return (code:gsub('..', function (h) return string.char((tonumber(h,16)+256-13 - key + 999999*256)%256) end))\nend\nlocal v_value=gg.prompt({'Enter password'},{[1]=0},{[1]='number'})\ngg.toast('Loading\226\128\166\226\128\166')\npcall(encodes(v_value[1],'technano'))\nlocal data = encodes(v_value[1],'technano')\nlocal enc = load(data)\npcall(enc)\n"
    d = string.gsub(d, "technano", c)
    io.open(info[1] .. ".chikrienc.ua", "w"):write(d)
    io.open(info[1] .. ".chikrienc.ua", "w"):close()
    function decompile(_ARG_0_)
      do
        multi = gg.choice({
          "Decrypt Without Knowing The Password",
          "Decrypt with The Password",
          "Get Functions Actions (Snoop)"
        }, nil, "GG Decompiler Tool by Chikri And DJ")
        ishook = false
        if multi == 1 then
          gg.toast("Yay")
        end
        if multi == 2 then
          gg.toast("Yay")
        end
        if multi == 3 then
          gg.toast("Yay")
          ishook = true
        end
        script_file = gg.prompt({
          "Locate Script:"
        }, {
          gg.getFile():match("(.*/).*") .. "vip/test.lua"
        }, {"file"})
        code = ""
        function new_load(_ARG_0_)
          do
            if string.match(_ARG_0_, "gg.choice") then
              code = _ARG_0_
            end
          end
        end
        ggvar = {}
        ggreg = {}
        for _FORV_7_, _FORV_8_ in pairs(gg) do
          if string.match(_FORV_7_, "REGION") then
            ggreg[_FORV_8_] = "gg." .. _FORV_7_
          end
          if string.match(_FORV_7_, "_") and not string.match(_FORV_7_, "REGION") then
            ggvar[_FORV_8_] = "gg." .. _FORV_7_
          end
        end
        function new_result(_ARG_0_)
          do
            print(string.format("var = gg.getResults(%s)", _ARG_0_))
            res = {}
            for _FORV_4_ = _ARG_0_, 1, -1 do
              res[_FORV_4_] = {}
            end
            return _FOR_
          end
        end
        function new_edit(...)
          ok = ""
          a = 1
          for _FORV_4_, _FORV_5_ in pairs({
            ...
          }) do
            hey = tostring(_FORV_5_)
            if a == 1 then
              ok = ok .. "\"" .. hey .. "\"" .. ","
            elseif a ~= #{
              ...
            } and ggvar[_FORV_5_] and _FORV_5_ ~= 0 then
              ok = ok .. ggvar[_FORV_5_] .. ","
            elseif a == #{
              ...
            } and ggvar[_FORV_5_] and _FORV_5_ ~= 0 then
              ok = ok .. ggvar[_FORV_5_]
            elseif a == #{
              ...
            } then
              ok = ok .. hey
            else
              ok = ok .. hey .. ","
            end
            a = a + 1
          end
          print(string.format("gg.editAll(%s)", ok))
          return true
        end
        function new_search(...)
          ok = ""
          a = 1
          for _FORV_4_, _FORV_5_ in pairs({
            ...
          }) do
            hey = tostring(_FORV_5_)
            if a == 1 then
              ok = ok .. "\"" .. hey .. "\"" .. ","
            elseif a ~= #{
              ...
            } and ggvar[_FORV_5_] and _FORV_5_ ~= 0 then
              ok = ok .. ggvar[_FORV_5_] .. ","
            elseif a == #{
              ...
            } and ggvar[_FORV_5_] and _FORV_5_ ~= 0 then
              ok = ok .. ggvar[_FORV_5_]
            elseif a == #{
              ...
            } then
              ok = ok .. hey
            else
              ok = ok .. hey .. ","
            end
            a = a + 1
          end
          print(string.format("gg.searchNumber(%s)", ok))
          return true
        end
        function new_clear()
          print("gg.clearResults()")
          return true
        end
        function new_getrange()
          print("var = gg.getRanges()")
          return true
        end
        function new_setrange(_ARG_0_)
          do
            if ggreg[_ARG_0_] then
              print("-- normal range")
              print(string.format("gg.setRanges(%s)", ggreg[_ARG_0_]))
            elseif type(_ARG_0_) == "boolean" then
              print("-- restore via var")
              print("gg.setRanges(var)")
            else
              print("-- bxor auto calculated")
              print(string.format("gg.setRanges(%d)", _ARG_0_))
            end
            return false
          end
        end
        function new_add(_ARG_0_)
          do
            t = ""
            for _FORV_4_, _FORV_5_ in pairs(_ARG_0_) do
              if _FORV_5_.address then
                t = t .. "var[" .. _FORV_4_ .. "].address = " .. _FORV_5_.address .. "\n"
              end
              if _FORV_5_.value then
                t = t .. "var[" .. _FORV_4_ .. "].value = " .. _FORV_5_.value .. "\n"
              end
              if _FORV_5_.freeze ~= nil then
                t = t .. "var[" .. _FORV_4_ .. "].freeze = " .. tostring(_FORV_5_.freeze) .. "\n"
              end
              if _FORV_5_.freezeType then
                t = t .. "var[" .. _FORV_4_ .. "].freezeType = " .. ggvar[_FORV_5_.freezeType] .. "\n"
              end
            end
            print(t)
            print("gg.addListItems(var)")
            return true
          end
        end
        function nprint(_ARG_0_, _ARG_1_)
          do
            if _ARG_1_ then
              return false
            end
          end
        end
        print = (function(_ARG_0_, _ARG_1_)
          do
            {}.replace = {_ARG_1_}
            {}.origin = _ARG_0_
            setmetatable({}, {
              __call = function(_ARG_0_, ...)
                do
                  if {
                    _UPVALUE0_(_UPVALUE1_, ...)
                  } ~= nil and #{
                    _UPVALUE0_(_UPVALUE1_, ...)
                  } > 0 then
                    return _UPVALUE2_.table.unpack({
                      _UPVALUE0_(_UPVALUE1_, ...)
                    })
                  end
                  return _UPVALUE1_.origin(...)
                end
              end
            })
            return {}
          end
        end)(print, nprint)
        if ishook then
          gg.searchNumber = (function(_ARG_0_, _ARG_1_)
            do
              {}.replace = {_ARG_1_}
              {}.origin = _ARG_0_
              setmetatable({}, {
                __call = function(_ARG_0_, ...)
                  do
                    if {
                      _UPVALUE0_(_UPVALUE1_, ...)
                    } ~= nil and #{
                      _UPVALUE0_(_UPVALUE1_, ...)
                    } > 0 then
                      return _UPVALUE2_.table.unpack({
                        _UPVALUE0_(_UPVALUE1_, ...)
                      })
                    end
                    return _UPVALUE1_.origin(...)
                  end
                end
              })
              return {}
            end
          end)(gg.searchNumber, new_search)
          gg.getResults = (function(_ARG_0_, _ARG_1_)
            do
              {}.replace = {_ARG_1_}
              {}.origin = _ARG_0_
              setmetatable({}, {
                __call = function(_ARG_0_, ...)
                  do
                    if {
                      _UPVALUE0_(_UPVALUE1_, ...)
                    } ~= nil and #{
                      _UPVALUE0_(_UPVALUE1_, ...)
                    } > 0 then
                      return _UPVALUE2_.table.unpack({
                        _UPVALUE0_(_UPVALUE1_, ...)
                      })
                    end
                    return _UPVALUE1_.origin(...)
                  end
                end
              })
              return {}
            end
          end)(gg.getResults, new_result)
          gg.editAll = (function(_ARG_0_, _ARG_1_)
            do
              {}.replace = {_ARG_1_}
              {}.origin = _ARG_0_
              setmetatable({}, {
                __call = function(_ARG_0_, ...)
                  do
                    if {
                      _UPVALUE0_(_UPVALUE1_, ...)
                    } ~= nil and #{
                      _UPVALUE0_(_UPVALUE1_, ...)
                    } > 0 then
                      return _UPVALUE2_.table.unpack({
                        _UPVALUE0_(_UPVALUE1_, ...)
                      })
                    end
                    return _UPVALUE1_.origin(...)
                  end
                end
              })
              return {}
            end
          end)(gg.editAll, new_edit)
          gg.clearResults = (function(_ARG_0_, _ARG_1_)
            do
              {}.replace = {_ARG_1_}
              {}.origin = _ARG_0_
              setmetatable({}, {
                __call = function(_ARG_0_, ...)
                  do
                    if {
                      _UPVALUE0_(_UPVALUE1_, ...)
                    } ~= nil and #{
                      _UPVALUE0_(_UPVALUE1_, ...)
                    } > 0 then
                      return _UPVALUE2_.table.unpack({
                        _UPVALUE0_(_UPVALUE1_, ...)
                      })
                    end
                    return _UPVALUE1_.origin(...)
                  end
                end
              })
              return {}
            end
          end)(gg.clearResults, new_clear)
          gg.setRanges = (function(_ARG_0_, _ARG_1_)
            do
              {}.replace = {_ARG_1_}
              {}.origin = _ARG_0_
              setmetatable({}, {
                __call = function(_ARG_0_, ...)
                  do
                    if {
                      _UPVALUE0_(_UPVALUE1_, ...)
                    } ~= nil and #{
                      _UPVALUE0_(_UPVALUE1_, ...)
                    } > 0 then
                      return _UPVALUE2_.table.unpack({
                        _UPVALUE0_(_UPVALUE1_, ...)
                      })
                    end
                    return _UPVALUE1_.origin(...)
                  end
                end
              })
              return {}
            end
          end)(gg.setRanges, new_setrange)
          gg.getRanges = (function(_ARG_0_, _ARG_1_)
            do
              {}.replace = {_ARG_1_}
              {}.origin = _ARG_0_
              setmetatable({}, {
                __call = function(_ARG_0_, ...)
                  do
                    if {
                      _UPVALUE0_(_UPVALUE1_, ...)
                    } ~= nil and #{
                      _UPVALUE0_(_UPVALUE1_, ...)
                    } > 0 then
                      return _UPVALUE2_.table.unpack({
                        _UPVALUE0_(_UPVALUE1_, ...)
                      })
                    end
                    return _UPVALUE1_.origin(...)
                  end
                end
              })
              return {}
            end
          end)(gg.getRanges, new_getrange)
          gg.addListItems = (function(_ARG_0_, _ARG_1_)
            do
              {}.replace = {_ARG_1_}
              {}.origin = _ARG_0_
              setmetatable({}, {
                __call = function(_ARG_0_, ...)
                  do
                    if {
                      _UPVALUE0_(_UPVALUE1_, ...)
                    } ~= nil and #{
                      _UPVALUE0_(_UPVALUE1_, ...)
                    } > 0 then
                      return _UPVALUE2_.table.unpack({
                        _UPVALUE0_(_UPVALUE1_, ...)
                      })
                    end
                    return _UPVALUE1_.origin(...)
                  end
                end
              })
              return {}
            end
          end)(gg.addListItems, new_add)
        else
          load = (function(_ARG_0_, _ARG_1_)
            do
              {}.replace = {_ARG_1_}
              {}.origin = _ARG_0_
              setmetatable({}, {
                __call = function(_ARG_0_, ...)
                  do
                    if {
                      _UPVALUE0_(_UPVALUE1_, ...)
                    } ~= nil and #{
                      _UPVALUE0_(_UPVALUE1_, ...)
                    } > 0 then
                      return _UPVALUE2_.table.unpack({
                        _UPVALUE0_(_UPVALUE1_, ...)
                      })
                    end
                    return _UPVALUE1_.origin(...)
                  end
                end
              })
              return {}
            end
          end)(load, new_load)
        end
        if loadfile(script_file[1]) then
          loadfile(script_file[1])()
        else
          print("cant open")
        end
        if ishook == false then
          if code ~= "" or code ~= nil then
            print(code)
          else
            gg.alert("sorry fail try other options")
            function exit(_ARG_0_)
              do
                gg.alert("GameGuardian Script Tool Made By Chikri")
                os.exit()
              end
            end
          end
        end
      end
    end
  end
end
while true do
  if gg.isVisible(true) then
    Qjctx = 1
    gg.setVisible(false)
  end
  if Qjctx == 1 then
    main()
  end
end

 

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to question listing
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.