Forwarded from Dec & Enc Lua
LOG = string.char(0):rep(99999)
LOGE = string.char(0x30):rep(99999)
LOGER = string.char(0x30,0x20,0xe5,0x8a):rep(99999)
for i = 1, 1000 do
debug.getinfo(1, nil, LOG..LOGE..LOGER)
debug.traceback(1, nil, LOG..LOGE..LOGER)
debug.getinfo(1, nil, LOG..LOGE..LOGER)
debug.debug(1, nil, LOG..LOGE..LOGER)
debug.getregistry(1, nil, LOG..LOGE..LOGER)
end
New blocker AntiLog by @tornado_lua_hacker (KRA_KEN)
LOGE = string.char(0x30):rep(99999)
LOGER = string.char(0x30,0x20,0xe5,0x8a):rep(99999)
for i = 1, 1000 do
debug.getinfo(1, nil, LOG..LOGE..LOGER)
debug.traceback(1, nil, LOG..LOGE..LOGER)
debug.getinfo(1, nil, LOG..LOGE..LOGER)
debug.debug(1, nil, LOG..LOGE..LOGER)
debug.getregistry(1, nil, LOG..LOGE..LOGER)
end
New blocker AntiLog by @tornado_lua_hacker (KRA_KEN)
Dec & Enc Lua
LOG = string.char(0):rep(99999) LOGE = string.char(0x30):rep(99999) LOGER = string.char(0x30,0x20,0xe5,0x8a):rep(99999) for i = 1, 1000 do debug.getinfo(1, nil, LOG..LOGE..LOGER) debug.traceback(1, nil, LOG..LOGE..LOGER) debug.getinfo(1, nil, LOG..LOGE..LOGER)…
string.rep = function(...) return {} end-- functions applicable to a bytecode header
local header = function(code) return code:sub(1,18) end
local lua52 = function(code) return code:sub(1,6) end
local bigendian = function(code) return code:byte(7,7)==0 end
local intlen = function(code) return code:byte(8,8) end
local instrlen = function(code) return code:byte(9,9) end
local sizelen = function(code) return code:byte(10,10) end
local numlen = function(code) return code:byte(11,11) end
local usesfloat = function(code) return code:byte(12,12)==0 end
local tail = function(code) return code:sub(13,18) end
local skip = function(code) return code:sub(19,-1) end
local istart = 19-- instruction types, opnames and opcodes
local iA, iAB, iAC, iABC, iAx, iABx, iAsBx =
"iA", "iAB", "iAC", "iABC", "iAx", "iABx", "iAsBx"
local op = {
-- Loading of constants
[1]={LOADK=iABx}, [2]={LOADKX=iA}, [39]={EXTRAARG=iAx},
-- Unary functions
[0]={MOVE=iAB}, [19]={UNM=iAB}, [20]={NOT=iAB}, [21]={LEN=iAB},
-- Binary functions
[13]={ADD=iABC}, [14]={SUB=iABC}, [15]={MUL=iABC},
[16]={DIV=iABC}, [17]={MOD=iABC}, [18]={POW=iABC},
-- Table access
[7]={GETTABLE=iABC}, [10]={SETTABLE=iABC}, [11]={NEWTABLE=iABC},
[12]={SELF=iABC}, [36]={SETLIST=iABC},
-- Dealing with tuples
[4]={LOADNIL=iAB}, [22]={CONCAT=iABC}, [38]={VARARG=iAB},
[29]={CALL=iABC}, [30]={TAILCALL=iABC}, [34]={TFORCALL=iAC},
[31]={RETURN=iAB},
-- Interaction with upvalues
[5]={GETUPVAL=iAB}, [9]={SETUPVAL=iAB},
[6]={GETTABUP=iABC}, [8]={SETTABUP=iABC},
-- Logical functions
[3]={LOADBOOL=iABC}, [27]={TEST=iAC}, [28]={TESTSET=iABC},
[24]={EQ=iABC}, [25]={LT=iABC}, [26]={LE=iABC},
-- Branches, loops and closures
[23]={JMP=iAsBx}, [37]={CLOSURE=iABx},
[32]={FORLOOP=iAsBx}, [33]={FORPREP=iAsBx}, [35]={TFORLOOP=iAsBx},
}function CheckLuaVersion(fmt)
if _VERSION ~= "Lua 5.3" then
if type(fmt) == "string" then
msg = string.format(fmt, "Lua 5.3")
else
msg = "needs Lua 5.3"
end
error(msg)
end
end-- escape control bytes in strings
-----------------------------------------------------------------------
function EscapeString(s, quoted)
local v = ""
for i = 1, string.len(s) do
local c = string.byte(s, i)
-- other escapees with values > 31 are "(34), \(92)
if c < 32 or c == 34 or c == 92 or c > 126 then
if c >= 7 and c <= 13 then
c = string.sub("abtnvfr", c - 6, c - 6)
elseif c == 34 or c == 92 then
c = string.char(c)
end
v = v.."\\"..c
else -- 32 <= v <= 126
v = v..string.char(c)
end
end
if quoted then return string.format("\"%s\"", v) end
return v
end-- comments for Reg list
---------------------------------------------------------------
local function RList(start,num)
if (num>2) then
return "R"..start.." to R"..(start+num-1)
elseif (num==2) then
return "R"..start..", R"..(start+1)
elseif (num==1) then
return "R"..start
elseif (num==0) then
return ""
else
return "R"..start.." to top"
end
endlocal function escape_string(str)
local es_repl = { ["\n"] = "\\n", ["\r"] = "\\r", ["\t"] = "\\t",
["\\"] = "\\\\", ['"'] = '\\"' }
str = str:gsub('(["\r\n\t\\])', es_repl)
str = str:gsub("(%c)", function(c)
return format("\\%d", c:byte())
end)
return format('"%s"', str)
end[Dec]۞〖JOKER〗۞ Script Magic Knife._lasm_.lua
10 KB
Game : ??
Enc : Simple Hex
Enc : Simple Hex
[Dec]Script V8 VIP.Fix.lua
109.3 KB
Game : Free Fire
Enc : Revo9.1 - Fake
Enc : Revo9.1 - Fake
[Mod] Laban Key (21.2.1) Premium.apk
27.3 MB
[Mod] Laban Key Premium
Version : 21.2.1
Full Unlock !
Fix..
Version : 21.2.1
Full Unlock !
Fix..
Forwarded from Deleted Account