lua-obfuscator 1.0.0 → 1.0.1

package/src/prometheus/src/prometheus/step.lua

@@ -1,79 +0,0 @@
--- This Script is Part of the Prometheus Obfuscator by Levno_710
---
--- step.lua
---
--- This file Provides the base class for Obfuscation Steps
-
-local logger = require("logger");
-local util = require("prometheus.util");
-
-local lookupify = util.lookupify;
-
-local Step = {};
-
-Step.SettingsDescriptor = {}
-
-function Step:new(settings)
-	local instance = {};
-	setmetatable(instance, self);
-	self.__index = self;
-	
-	if type(settings) ~= "table" then
-		settings = {};
-	end
-	
-	for key, data in pairs(self.SettingsDescriptor) do
-		if settings[key] == nil then
-			if data.default == nil then
-				logger:error(string.format("The Setting \"%s\" was not provided for the Step \"%s\"", key, self.Name));
-			end
-			instance[key] = data.default;
-		elseif(data.type == "enum") then
-			local lookup = lookupify(data.values);
-			if not lookup[settings[key]] then
-				logger:error(string.format("Invalid value for the Setting \"%s\" of the Step \"%s\". It must be one of the following: %s", key, self.Name, table.concat(data, ", ")));
-			end
-			instance[key] = settings[key];
-		elseif(type(settings[key]) ~= data.type) then
-			logger:error(string.format("Invalid value for the Setting \"%s\" of the Step \"%s\". It must be a %s", key, self.Name, data.type));
-		else
-			if data.min then
-				if  settings[key] < data.min then
-					logger:error(string.format("Invalid value for the Setting \"%s\" of the Step \"%s\". It must be at least %d", key, self.Name, data.min));
-				end
-			end
-			
-			if data.max then
-				if  settings[key] > data.max then
-					logger:error(string.format("Invalid value for the Setting \"%s\" of the Step \"%s\". The biggest allowed value is %d", key, self.Name, data.min));
-				end
-			end
-			
-			instance[key] = settings[key];
-		end
-	end
-	
-	instance:init();
-
-	return instance;
-end
-
-function Step:init()
-	logger:error("Abstract Steps cannot be Created");
-end
-
-function Step:extend()
-	local ext = {};
-	setmetatable(ext, self);
-	self.__index = self;
-	return ext;
-end
-
-function Step:apply(ast, pipeline)
-	logger:error("Abstract Steps cannot be Applied")
-end
-
-Step.Name = "Abstract Step";
-Step.Description = "Abstract Step";
-
-return Step;

package/src/prometheus/src/prometheus/steps/AddVararg.lua

@@ -1,33 +0,0 @@
--- This Script is Part of the Prometheus Obfuscator by Levno_710
---
--- AddVararg.lua
---
--- This Script provides a Simple Obfuscation Step that wraps the entire Script into a function
-
-local Step = require("prometheus.step");
-local Ast = require("prometheus.ast");
-local visitast = require("prometheus.visitast");
-local AstKind = Ast.AstKind;
-
-local AddVararg = Step:extend();
-AddVararg.Description = "This Step Adds Vararg to all Functions";
-AddVararg.Name = "Add Vararg";
-
-AddVararg.SettingsDescriptor = {
-}
-
-function AddVararg:init(settings)
-	
-end
-
-function AddVararg:apply(ast)
-	visitast(ast, nil, function(node)
-        if node.kind == AstKind.FunctionDeclaration or node.kind == AstKind.LocalFunctionDeclaration or node.kind == AstKind.FunctionLiteralExpression then
-            if #node.args < 1 or node.args[#node.args].kind ~= AstKind.VarargExpression then
-                node.args[#node.args + 1] = Ast.VarargExpression();
-            end
-        end
-    end)
-end
-
-return AddVararg;

package/src/prometheus/src/prometheus/steps/AntiTamper.lua

@@ -1,194 +0,0 @@
--- This Script is Part of the Prometheus Obfuscator by Levno_710
---
--- AntiTamper.lua
---
--- This Script provides an Obfuscation Step, that breaks the script, when someone tries to tamper with it.
-
-local Step = require("prometheus.step");
-local Ast = require("prometheus.ast");
-local Scope = require("prometheus.scope");
-local RandomStrings = require("prometheus.randomStrings")
-local Parser = require("prometheus.parser");
-local Enums = require("prometheus.enums");
-local logger = require("logger");
-
-local AntiTamper = Step:extend();
-AntiTamper.Description = "This Step Breaks your Script when it is modified. This is only effective when using the new VM.";
-AntiTamper.Name = "Anti Tamper";
-
-AntiTamper.SettingsDescriptor = {
-    UseDebug = {
-        type = "boolean",
-        default = true,
-        description = "Use debug library. (Recommended, however scripts will not work without debug library.)"
-    }
-}
-
-function AntiTamper:init(settings)
-	
-end
-
-function AntiTamper:apply(ast, pipeline)
-    if pipeline.PrettyPrint then
-        logger:warn(string.format("\"%s\" cannot be used with PrettyPrint, ignoring \"%s\"", self.Name, self.Name));
-        return ast;
-    end
-	local code = "do local valid = true;";
-    if self.UseDebug then
-        local string = RandomStrings.randomString();
-        code = code .. [[
-            -- Anti Beautify
-			local sethook = debug and debug.sethook or function() end;
-			local allowedLine = nil;
-			local called = 0;
-			sethook(function(s, line)
-				if not line then
-					return
-				end
-				called = called + 1;
-				if allowedLine then
-					if allowedLine ~= line then
-						sethook(error, "l", 5);
-					end
-				else
-					allowedLine = line;
-				end
-			end, "l", 5);
-			(function() end)();
-			(function() end)();
-			sethook();
-			if called < 2 then
-				valid = false;
-			end
-            if called < 2 then
-                valid = false;
-            end
-
-            -- Anti Function Hook
-            local funcs = {pcall, string.char, debug.getinfo, string.dump}
-            for i = 1, #funcs do
-                if debug.getinfo(funcs[i]).what ~= "C" then
-                    valid = false;
-                end
-
-                if debug.getlocal(funcs[i], 1) then
-                    valid = false;
-                end
-
-                if debug.getupvalue(funcs[i], 1) then
-                    valid = false;
-                end
-
-                if pcall(string.dump, funcs[i]) then
-                    valid = false;
-                end
-            end
-
-            -- Anti Beautify
-            local function getTraceback()
-                local str = (function(arg)
-                    return debug.traceback(arg)
-                end)("]] .. string .. [[");
-                return str;
-            end
-    
-            local traceback = getTraceback();
-            valid = valid and traceback:sub(1, traceback:find("\n") - 1) == "]] .. string .. [[";
-            local iter = traceback:gmatch(":(%d*):");
-            local v, c = iter(), 1;
-            for i in iter do
-                valid = valid and i == v;
-                c = c + 1;
-            end
-            valid = valid and c >= 2;
-        ]]
-    end
-    code = code .. [[
-    local gmatch = string.gmatch;
-    local err = function() error("Tamper Detected!") end;
-
-    local pcallIntact2 = false;
-    local pcallIntact = pcall(function()
-        pcallIntact2 = true;
-    end) and pcallIntact2;
-
-    local random = math.random;
-    local tblconcat = table.concat;
-    local unpkg = table and table.unpack or unpack;
-    local n = random(3, 65);
-    local acc1 = 0;
-    local acc2 = 0;
-    local pcallRet = {pcall(function() local a = ]] .. tostring(math.random(1, 2^24)) .. [[ - "]] .. RandomStrings.randomString() .. [[" ^ ]] .. tostring(math.random(1, 2^24)) .. [[ return "]] .. RandomStrings.randomString() .. [[" / a; end)};
-    local origMsg = pcallRet[2];
-    local line = tonumber(gmatch(tostring(origMsg), ':(%d*):')());
-    for i = 1, n do
-        local len = math.random(1, 100);
-        local n2 = random(0, 255);
-        local pos = random(1, len);
-        local shouldErr = random(1, 2) == 1;
-        local msg = origMsg:gsub(':(%d*):', ':' .. tostring(random(0, 10000)) .. ':');
-        local arr = {pcall(function()
-            if random(1, 2) == 1 or i == n then
-                local line2 = tonumber(gmatch(tostring(({pcall(function() local a = ]] .. tostring(math.random(1, 2^24)) .. [[ - "]] .. RandomStrings.randomString() .. [[" ^ ]] .. tostring(math.random(1, 2^24)) .. [[ return "]] .. RandomStrings.randomString() .. [[" / a; end)})[2]), ':(%d*):')());
-                valid = valid and line == line2;
-            end
-            if shouldErr then
-                error(msg, 0);
-            end
-            local arr = {};
-            for i = 1, len do
-                arr[i] = random(0, 255);
-            end
-            arr[pos] = n2;
-            return unpkg(arr);
-        end)};
-        if shouldErr then
-            valid = valid and arr[1] == false and arr[2] == msg;
-        else
-            valid = valid and arr[1];
-            acc1 = (acc1 + arr[pos + 1]) % 256;
-            acc2 = (acc2 + n2) % 256;
-        end
-    end
-    valid = valid and acc1 == acc2;
-
-    if valid then else
-        repeat 
-            return (function()
-                while true do
-                    l1, l2 = l2, l1;
-                    err();
-                end
-            end)(); 
-        until true;
-        while true do
-            l2 = random(1, 6);
-            if l2 > 2 then
-                l2 = tostring(l1);
-            else
-                l1 = l2;
-            end
-        end
-        return;
-    end
-end
-
-    -- Anti Function Arg Hook
-    local obj = setmetatable({}, {
-        __tostring = err,
-    });
-    obj[math.random(1, 100)] = obj;
-    (function() end)(obj);
-
-    repeat until valid;
-    ]]
-
-    local parsed = Parser:new({LuaVersion = Enums.LuaVersion.Lua51}):parse(code);
-    local doStat = parsed.body.statements[1];
-    doStat.body.scope:setParent(ast.body.scope);
-    table.insert(ast.body.statements, 1, doStat);
-
-    return ast;
-end
-
-return AntiTamper;