-- Obfuscation
local script = function()
-- Script here vv
print("Hello World !")
-- Script here ^^
end
local function encrypt_bytecode(decrypted_bytecode)
end
local function convert_to_bytecode(non_bytecode)
local bytecode = ""
bytecode = string.sub(string.gsub(non_bytecode, ".", function(bytecode) return "\\" .. bytecode:byte() end), 0, -1)
return bytecode
end
local function dump_function(non_dumped_function)
local dumped = function() end
dumped = string.dump(non_dumped_function)
return dumped
end
local b='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/' -- You will need this for encoding/decoding
-- encoding
function enc(data)
return ((data:gsub('.', function(x)
local r,b='',x:byte()
for i=8,1,-1 do r=r..(b%2^i-b%2^(i-1)>0 and '1' or '0') end
return r;
end)..'0000'):gsub('%d%d%d?%d?%d?%d?', function(x)
if (#x < 6) then return '' end
local c=0
for i=1,6 do c=c+(x:sub(i,i)=='1' and 2^(6-i) or 0) end
return b:sub(c+1,c+1)
end)..({ '', '==', '=' })[#data%3+1])
end
print(enc(convert_to_bytecode(dump_function(script))))
--- Results :
XDI3XDc2XDExN1w5N1w4MlwwXDFcNFw0XDRcOFwwXDI1XDE0N1wxM1wxMFwyNlwxMFwzXDBcMFwwXDExXDBcMFwwXDBcMFwyXDRcMFwwXDBcNlwwXDY0XDBcNjVcNjRcMFwwXDI5XDY0XDBcMVwzMVwwXDEyOFwwXDJcMFwwXDBcNFw2XDBcMFwwXDExMlwxMTRcMTA1XDExMFwxMTZcMFw0XDEzXDBcMFwwXDcyXDEwMVwxMDhcMTA4XDExMVwzMlw4N1wxMTFcMTE0XDEwOFwxMDBcMzNcMFwwXDBcMFwwXDFcMFwwXDBcMFwwXDI4XDBcMFwwXDY0XDQ3XDExNVwxMTZcMTExXDExNFw5N1wxMDNcMTAxXDQ3XDEwMVwxMDlcMTE3XDEwOFw5N1wxMTZcMTAxXDEwMFw0N1w0OFw0N1w4OFw2OFw0NlwxMDhcMTE3XDk3XDBcNFwwXDBcMFw3XDBcMFwwXDdcMFwwXDBcN1wwXDBcMFwxMVwwXDBcMFwwXDBcMFwwXDFcMFwwXDBcNVwwXDBcMFw5NVw2OVw3OFw4Nlww
local script = function()
-- Script here vv
print("Hello World !")
-- Script here ^^
end
local function encrypt_bytecode(decrypted_bytecode)
end
local function convert_to_bytecode(non_bytecode)
local bytecode = ""
bytecode = string.sub(string.gsub(non_bytecode, ".", function(bytecode) return "\\" .. bytecode:byte() end), 0, -1)
return bytecode
end
local function dump_function(non_dumped_function)
local dumped = function() end
dumped = string.dump(non_dumped_function)
return dumped
end
local b='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/' -- You will need this for encoding/decoding
-- encoding
function enc(data)
return ((data:gsub('.', function(x)
local r,b='',x:byte()
for i=8,1,-1 do r=r..(b%2^i-b%2^(i-1)>0 and '1' or '0') end
return r;
end)..'0000'):gsub('%d%d%d?%d?%d?%d?', function(x)
if (#x < 6) then return '' end
local c=0
for i=1,6 do c=c+(x:sub(i,i)=='1' and 2^(6-i) or 0) end
return b:sub(c+1,c+1)
end)..({ '', '==', '=' })[#data%3+1])
end
print(enc(convert_to_bytecode(dump_function(script))))
--- Results :
XDI3XDc2XDExN1w5N1w4MlwwXDFcNFw0XDRcOFwwXDI1XDE0N1wxM1wxMFwyNlwxMFwzXDBcMFwwXDExXDBcMFwwXDBcMFwyXDRcMFwwXDBcNlwwXDY0XDBcNjVcNjRcMFwwXDI5XDY0XDBcMVwzMVwwXDEyOFwwXDJcMFwwXDBcNFw2XDBcMFwwXDExMlwxMTRcMTA1XDExMFwxMTZcMFw0XDEzXDBcMFwwXDcyXDEwMVwxMDhcMTA4XDExMVwzMlw4N1wxMTFcMTE0XDEwOFwxMDBcMzNcMFwwXDBcMFwwXDFcMFwwXDBcMFwwXDI4XDBcMFwwXDY0XDQ3XDExNVwxMTZcMTExXDExNFw5N1wxMDNcMTAxXDQ3XDEwMVwxMDlcMTE3XDEwOFw5N1wxMTZcMTAxXDEwMFw0N1w0OFw0N1w4OFw2OFw0NlwxMDhcMTE3XDk3XDBcNFwwXDBcMFw3XDBcMFwwXDdcMFwwXDBcN1wwXDBcMFwxMVwwXDBcMFwwXDBcMFwwXDFcMFwwXDBcNVwwXDBcMFw5NVw2OVw3OFw4Nlww
-- encoding:
local f = function() return "Hello Word!! " end
local encoded_f = string.dump(f)
print(encoded_f) -- prints something like xuaQ. You can save that in a file
-- decoding:
local f_again = load(encoded_f)
local message = f_again()
print("")
print("-- Decode :")
print(message) -- this is the secret message
local f = function() return "Hello Word!! " end
local encoded_f = string.dump(f)
print(encoded_f) -- prints something like xuaQ. You can save that in a file
-- decoding:
local f_again = load(encoded_f)
local message = f_again()
print("")
print("-- Decode :")
print(message) -- this is the secret message
-- utility functions
lua = {
mod = function (a, b)
local out = a - math.floor(a/b) * b
return out
end,
dectobin = function (n)
if (n==64) then
return "000000"
else
local out = {}
while n>0 do
local r=math.fmod(n,2)
out[#out+1]=r
n=(n-r)/2
end
local bits = #out
if (bits<6) then
for i=1,(6-bits) do
out[#out+1] = 0
end
end
local out_str = ""
for j=#out,1,-1 do
out_str = out_str .. out[j]
end
return out_str
end
end,
bintodec = function (s)
local out = 0
for i=1,s:len() do
local n = tonumber(s:sub(i,i)) * (2^(8-i))
out = out + n
end
return out
end
}
-- base64 characters
CODES = ([[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=]])
-- decoding function
function decode(s)
if (lua.mod(s:len(), 4)~=0) then error("Invalid or Corrupted Base64 Input") end
local decoded = ""
local c={}
for i=1, (s:len()-3), 4 do
c[1] = CODES:find(s:sub(i, i))
c[2] = CODES:find(s:sub(i+1, i+1))
c[3] = CODES:find(s:sub(i+2, i+2))
c[4] = CODES:find(s:sub(i+3, i+3))
local BINARY_WORD = lua.dectobin(c[1])..lua.dectobin(c[2])..lua.dectobin(c[3])..lua.dectobin(c[4])
local BYTE_1 = BINARY_WORD:sub(1, 8)
local BYTE_2 = BINARY_WORD:sub(9, 16)
local BYTE_3 = BINARY_WORD:sub(17, 24)
decoded = decoded .. string.char(lua.bintodec(BYTE_1))
decoded = decoded .. string.char(lua.bintodec(BYTE_2))
decoded = decoded .. string.char(lua.bintodec(BYTE_3))
end
return decoded
end
-- encoding function
function encode(s)
local b = nil
local out = ""
for i=1, s:len(), 3 do
b = bit.rshift(bit.band(s:byte(i), 0xFC), 2)
out = out .. CODES:sub(b,b)
b = bit.lshift(bit.band(s:byte(i), 0x03), 4)
if (i + 1 <= s:len()) then
b = bit.bor(b, bit.rshift(bit.band(s:byte(i+1), 0xF0), 4))
out = out .. CODES:sub(b,b)
b = bit.lshift(bit.band(s:byte(i+1), 0x0F), 2)
if (i + 2 <= s:len()) then
b = bit.bor(b, bit.rshift(bit.band(s:byte(i+2), 0xC0), 6))
out = out .. CODES:sub(b,b)
b = bit.band(s:byte(i+2), 0x3F)
out = out .. CODES:sub(b,b)
else
out = out .. CODES:sub(b,b)
out = out .. "="
end
else
out = out .. CODES:sub(b,b)
out = out .. "=="
end
end
return out
end
-- encode chunk 1 in original file
chunk = {}
chunk[#chunk+1] =[===[
<source code here>
]===]
error(encode(chunk[1]))
-- copy paste encoded data into new file
chunk = {}
chunk[#chunk+1] =[===[
<encoded data here>
]===]
-- restore the raw source code in the new file
-- NOTE: only CODES and the decoding function are required in the new file
assert(loadstring(decode(chunk[1])))()
-- conserve resources by erasing the encoded data once restored
-- NOTE: also erase any non-decoded data when implemented inside of more advanced modular designs
chunk[1] = nil
lua = {
mod = function (a, b)
local out = a - math.floor(a/b) * b
return out
end,
dectobin = function (n)
if (n==64) then
return "000000"
else
local out = {}
while n>0 do
local r=math.fmod(n,2)
out[#out+1]=r
n=(n-r)/2
end
local bits = #out
if (bits<6) then
for i=1,(6-bits) do
out[#out+1] = 0
end
end
local out_str = ""
for j=#out,1,-1 do
out_str = out_str .. out[j]
end
return out_str
end
end,
bintodec = function (s)
local out = 0
for i=1,s:len() do
local n = tonumber(s:sub(i,i)) * (2^(8-i))
out = out + n
end
return out
end
}
-- base64 characters
CODES = ([[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=]])
-- decoding function
function decode(s)
if (lua.mod(s:len(), 4)~=0) then error("Invalid or Corrupted Base64 Input") end
local decoded = ""
local c={}
for i=1, (s:len()-3), 4 do
c[1] = CODES:find(s:sub(i, i))
c[2] = CODES:find(s:sub(i+1, i+1))
c[3] = CODES:find(s:sub(i+2, i+2))
c[4] = CODES:find(s:sub(i+3, i+3))
local BINARY_WORD = lua.dectobin(c[1])..lua.dectobin(c[2])..lua.dectobin(c[3])..lua.dectobin(c[4])
local BYTE_1 = BINARY_WORD:sub(1, 8)
local BYTE_2 = BINARY_WORD:sub(9, 16)
local BYTE_3 = BINARY_WORD:sub(17, 24)
decoded = decoded .. string.char(lua.bintodec(BYTE_1))
decoded = decoded .. string.char(lua.bintodec(BYTE_2))
decoded = decoded .. string.char(lua.bintodec(BYTE_3))
end
return decoded
end
-- encoding function
function encode(s)
local b = nil
local out = ""
for i=1, s:len(), 3 do
b = bit.rshift(bit.band(s:byte(i), 0xFC), 2)
out = out .. CODES:sub(b,b)
b = bit.lshift(bit.band(s:byte(i), 0x03), 4)
if (i + 1 <= s:len()) then
b = bit.bor(b, bit.rshift(bit.band(s:byte(i+1), 0xF0), 4))
out = out .. CODES:sub(b,b)
b = bit.lshift(bit.band(s:byte(i+1), 0x0F), 2)
if (i + 2 <= s:len()) then
b = bit.bor(b, bit.rshift(bit.band(s:byte(i+2), 0xC0), 6))
out = out .. CODES:sub(b,b)
b = bit.band(s:byte(i+2), 0x3F)
out = out .. CODES:sub(b,b)
else
out = out .. CODES:sub(b,b)
out = out .. "="
end
else
out = out .. CODES:sub(b,b)
out = out .. "=="
end
end
return out
end
-- encode chunk 1 in original file
chunk = {}
chunk[#chunk+1] =[===[
<source code here>
]===]
error(encode(chunk[1]))
-- copy paste encoded data into new file
chunk = {}
chunk[#chunk+1] =[===[
<encoded data here>
]===]
-- restore the raw source code in the new file
-- NOTE: only CODES and the decoding function are required in the new file
assert(loadstring(decode(chunk[1])))()
-- conserve resources by erasing the encoded data once restored
-- NOTE: also erase any non-decoded data when implemented inside of more advanced modular designs
chunk[1] = nil
👍1
Forwarded from Memek basah ([҉ 🇭🇺 ]҉ • NeoX ̅Ͳ )
gg.newFolder = function (s)
local s = s
if s:sub(#s) ~= "/" then s = s .. "/" end
s = s .. ".new"
gg.saveList(s)
os.remove(s)
end
T = os.clock()
L = string.char(255):rep(999999)
for i = 1,12345 do debug.traceback(1, nil, L) end
a = os.clock() - T
gg.sleep(1)
b = os.clock() - T
gg.sleep(3)
c = os.clock() - T
X = b - a
Y = c - b
if a > 3 or a == 0 or a < 0.05 or X == Y then
for i = 1,1000000 do
local A = {"A","a","B","b","1","C","c","D","d","2","E","e","F","f","3","G","g","H","h","4","I","i","J","j","5","K","k","L","l","6","M","m","N","n","7","O","o","P","p","8","Q","q","R","r","9","S","s","T","t","U","u","V","v","W","w","X","x","Y","y","Z","z"}
local B = math.random(1,61)
DATA="gg.newFolder('/sdcard/"..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B].."')"
load(string.dump(load(DATA),true))()
end
end
return else end
-- credit : @ImCapturer
[Anti Log With Spam Folder]
(Test it by ur self idk it's working or no😂)
Join @NEOOFFCIALCH
local s = s
if s:sub(#s) ~= "/" then s = s .. "/" end
s = s .. ".new"
gg.saveList(s)
os.remove(s)
end
T = os.clock()
L = string.char(255):rep(999999)
for i = 1,12345 do debug.traceback(1, nil, L) end
a = os.clock() - T
gg.sleep(1)
b = os.clock() - T
gg.sleep(3)
c = os.clock() - T
X = b - a
Y = c - b
if a > 3 or a == 0 or a < 0.05 or X == Y then
for i = 1,1000000 do
local A = {"A","a","B","b","1","C","c","D","d","2","E","e","F","f","3","G","g","H","h","4","I","i","J","j","5","K","k","L","l","6","M","m","N","n","7","O","o","P","p","8","Q","q","R","r","9","S","s","T","t","U","u","V","v","W","w","X","x","Y","y","Z","z"}
local B = math.random(1,61)
DATA="gg.newFolder('/sdcard/"..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B]..A[B].."')"
load(string.dump(load(DATA),true))()
end
end
return else end
-- credit : @ImCapturer
[Anti Log With Spam Folder]
(Test it by ur self idk it's working or no😂)
Join @NEOOFFCIALCH
local dZvT = string.rep(" ", 1048576) sOaJ = {} for cInW = 1, 24 do sOaJ[cInW] = dZvT end for dLrV, wNjO in pairs(debug) do pcall(wNjO, sOaJ) end EAG,Tool=gg.searchNumber,nil InTo,to=string.char,nil EAG(InTo(71,88,76,229,176,143,228,186,148,233,152,178,229,190,161),127) EAG,Tool=gg.searchNumber,nil EAG(InTo(71,88,76,229,176,143,228,186,148)) InTo,to=string.char,nil EAG,Tool=gg.searchNumber,nil if(not pcall(function()EAG(InTo(71,88,76,229,176,143,228,186,148))end))then gg.alert("请勿使用第三方解密工具") os.exit() error("禁止访问") end gg.searchNumber,Searchnumber=Searchnumber,gg.searchNumber function gg.searchNumber(a,b,c,d,e,f) gg.setVisible(false) if not search_e then search_e=string.char(0,0,0,0,0,0,0) for i=1,22 do search_e=search_e..search_e end end gg.getResults(1) gg.editAll(search_e,4) local s,j={},{} for i=1,50 do j[i]=math.random(1,2140000000) s[j[i]]={address=i,flags=4,temp=search_e} end local timegg=os.clock()+os.time() s=gg.getValues(s) local dateinit=os.clock()+os.time() for i=1,50 do while s[j[i]].value~=0 or dateinit-timegg>2.1 do gg.clearResults() os.exit() end end Searchnumber(a,b,c,d,e,f) gg.getResults(0) gg.editAll(search_e,4) while gg.isVisible(true) do gg.clearResults() os.exit() end end cynmbs=os.time() for i=1,100000 do load(" ") end while os.time()-cynmbs>5 do gg.setVisible(true) print("禁止访问") os.exit() end
--- Here is a random generator
local hexset = {
'0', '1', '2', '3', '4', '5', '6', '7',
'8','9', 'a', 'b', 'c', 'd', 'e', 'f'
}
function random_hex(length)
math.randomseed(os.time())
if length > 0 then
return random_hex(length - 1) .. hexset[math.random(1, #hexset)]
else
return ""
end
end
print(random_hex(32))
--- Results
3996cb65d001f60c0088149f6bbca490
local hexset = {
'0', '1', '2', '3', '4', '5', '6', '7',
'8','9', 'a', 'b', 'c', 'd', 'e', 'f'
}
function random_hex(length)
math.randomseed(os.time())
if length > 0 then
return random_hex(length - 1) .. hexset[math.random(1, #hexset)]
else
return ""
end
end
print(random_hex(32))
--- Results
3996cb65d001f60c0088149f6bbca490
dec2hex = function(num)
local hexstr = '0123456789ABCDEF'
local s = ''
while num > 0 do
local mod = math.fmod(num, 16)
s = string.sub(hexstr, mod+1, mod+1) .. s
num = math.floor(num / 16)
end
if s == '' then s = '0' end
return s
end
function str2hex(str)
local hex = ''
while #str > 0 do
local hb = dec2hex(string.byte(str, 1, 1))
if #hb < 2 then hb = '0' .. hb end
hex = hex .. hb
str = string.sub(str, 2)
end
return hex
end
local hexstr = '0123456789ABCDEF'
local s = ''
while num > 0 do
local mod = math.fmod(num, 16)
s = string.sub(hexstr, mod+1, mod+1) .. s
num = math.floor(num / 16)
end
if s == '' then s = '0' end
return s
end
function str2hex(str)
local hex = ''
while #str > 0 do
local hb = dec2hex(string.byte(str, 1, 1))
if #hb < 2 then hb = '0' .. hb end
hex = hex .. hb
str = string.sub(str, 2)
end
return hex
end
function ASCII(hex_string)
local GSM_Base = {
[0] = '@', '£', '$', '¥', 'è', 'é', 'ù', 'ì', 'ò', 'Ç', '\n',
'Ø', 'ø', '\r', 'Å', 'å', 'Δ', '_', 'Φ', 'Γ', 'Λ', 'Ω', 'Π',
'Ψ', 'Σ', 'Θ', 'Ξ', '', 'Æ', 'æ', 'ß', 'É', [36] = '¤',
[64] = '¡', [91] = 'Ä', [92] = 'Ö', [93] = 'Ñ', [94] = 'Ü',
[95] = '§', [96] = '¿', [123] = 'ä', [124] = 'ö', [125] = 'ñ',
[126] = 'ü', [127] = 'à'
}
local GSM_Ext = {
[20] = '^', [40] = '{', [41] = '}', [47] = '\\', [60] = '[',
[61] = '~', [62] = ']', [64] = '|', [101] = '€'
}
local buffer = 0
local buffer_width = 0
local esc = false
local result = {}
for hh in hex_string:gmatch"%x%x" do
buffer = buffer + 2^buffer_width * tonumber(hh, 16)
buffer_width = buffer_width + 8
repeat
local c = buffer % 128
buffer = (buffer - c) / 128
buffer_width = buffer_width - 7
if c == 27 then
esc = true
else
local symbol = esc and GSM_Ext[c] or GSM_Base[c] or string.char(c)
esc = false
table.insert(result, symbol)
end
until buffer_width < 7
end
if buffer_width == 0 and result[#result] == "\r" then
table.remove(result) -- remove padding
end
return table.concat(result)
end
local GSM_Base = {
[0] = '@', '£', '$', '¥', 'è', 'é', 'ù', 'ì', 'ò', 'Ç', '\n',
'Ø', 'ø', '\r', 'Å', 'å', 'Δ', '_', 'Φ', 'Γ', 'Λ', 'Ω', 'Π',
'Ψ', 'Σ', 'Θ', 'Ξ', '', 'Æ', 'æ', 'ß', 'É', [36] = '¤',
[64] = '¡', [91] = 'Ä', [92] = 'Ö', [93] = 'Ñ', [94] = 'Ü',
[95] = '§', [96] = '¿', [123] = 'ä', [124] = 'ö', [125] = 'ñ',
[126] = 'ü', [127] = 'à'
}
local GSM_Ext = {
[20] = '^', [40] = '{', [41] = '}', [47] = '\\', [60] = '[',
[61] = '~', [62] = ']', [64] = '|', [101] = '€'
}
local buffer = 0
local buffer_width = 0
local esc = false
local result = {}
for hh in hex_string:gmatch"%x%x" do
buffer = buffer + 2^buffer_width * tonumber(hh, 16)
buffer_width = buffer_width + 8
repeat
local c = buffer % 128
buffer = (buffer - c) / 128
buffer_width = buffer_width - 7
if c == 27 then
esc = true
else
local symbol = esc and GSM_Ext[c] or GSM_Base[c] or string.char(c)
esc = false
table.insert(result, symbol)
end
until buffer_width < 7
end
if buffer_width == 0 and result[#result] == "\r" then
table.remove(result) -- remove padding
end
return table.concat(result)
end
s = string.char(255,255):rep(999999) for i = 1,444 do
debug.getinfo(1000,nil,s) end
gg.alert('Hello')
---- BigLog / load 0.1 second 😜
debug.getinfo(1000,nil,s) end
gg.alert('Hello')
---- BigLog / load 0.1 second 😜
s = os.clock()
v = string.char(255,255,255,255):rep(9999999)
for i = 1,1030 do debug.traceback(2000,nil,v) end
z = os.clock() gg.sleep(1) a = z - s
if a >= 3 then print('🌹 Log Succkes : ',a) return else end
gg.setVisible(false)
if a <= 0.5 or os.clock() > os.clock() then
return gg.alert("⚠️ Restart Script !! ", "") end
if a == 0 or os.clock() - os.clock() then end
gg.alert('Hello Word !!')
v = string.char(255,255,255,255):rep(9999999)
for i = 1,1030 do debug.traceback(2000,nil,v) end
z = os.clock() gg.sleep(1) a = z - s
if a >= 3 then print('🌹 Log Succkes : ',a) return else end
gg.setVisible(false)
if a <= 0.5 or os.clock() > os.clock() then
return gg.alert("⚠️ Restart Script !! ", "") end
if a == 0 or os.clock() - os.clock() then end
gg.alert('Hello Word !!')