if string.dump(function()end):sub(1, 12) ~= "\27Lua\81\0\1\4\4\4\8\0" then
gg.toast("This generator requires a 32-bit version of Lua 5.1")
end
gg.toast("This generator requires a 32-bit version of Lua 5.1")
end
-- custom base64 data
-- Encode
local data = "e*!jfg57yfl+[7dmrin_bt#0/g6!1y68(.xh.ata_kn3j7!un_s+jn5..a)s8xi/ou0/{ff)ec}["
-- base64
local data = "RpUpAUT80Jf6CQakfKLHz+1BSpUxFUYa/JDtdeAo4cyC1tHDx6gpazu0kdJqFdX+e4rMvfA+Ua0L"local HEXES = '0123456789abcdef'
local function 2HEX(x)
local s, base = '', 16
local d
while x > 0 do
d = x % base + 1
x = math.floor(x / base)
s = string.sub(HEXES, d, d) .. s
end
while #s < 2 do
s = "0" .. s
end
return s
endfunction math.checkIn(value, ...)
if type(arg[1]) == 'table' then
for k, v in pairs(arg[1]) do
if v == value then
return true
end
end
else
for i, v in ipairs(arg) do
if v == value then
return true
end
end
end
return false
ends = "17:00:00" -- time - minutes - seconds
c = os.date("%T")
if c > s then
return gg.alert("Expired","")
end
gg.alert("a")
--- install the Expired = time script
--- Very Simple Code
-- write code : Only_Zin/lua function test(str)
local rep = ""
local tab = {}
for j in string.gmatch(str, ".") do
table.insert(tab, j)
end
local i = 1
while i <= #tab do
if tab[i - 1] == tab[i] then
rep = rep .."-".. tab[i]
else
rep = rep .. tab[i]
end
i = i + 1
end
return rep
end
for n = 0,10 do
print(test(string.rep("💘",n)))
end
local rep = ""
local tab = {}
for j in string.gmatch(str, ".") do
table.insert(tab, j)
end
local i = 1
while i <= #tab do
if tab[i - 1] == tab[i] then
rep = rep .."-".. tab[i]
else
rep = rep .. tab[i]
end
i = i + 1
end
return rep
end
for n = 0,10 do
print(test(string.rep("💘",n)))
end
/lua
function string.chunk(str, n)
local k, t
t = { }
for k in str:gmatch(string.rep( ".", n )) do
table.insert(t, k)
end
return t
end
x = "001100011100000001111000001100011220003400"
x_x = ""
for k, v in ipairs(x:chunk(4)) do
v = v .. ":"
x_x = x_x .. v
end
print(x_x)
function string.chunk(str, n)
local k, t
t = { }
for k in str:gmatch(string.rep( ".", n )) do
table.insert(t, k)
end
return t
end
x = "001100011100000001111000001100011220003400"
x_x = ""
for k, v in ipairs(x:chunk(4)) do
v = v .. ":"
x_x = x_x .. v
end
print(x_x)
function dump(o)
if type(o) == 'table' then
local s = '{ '
for k,v in pairs(o) do
if type(k) ~= 'number' then k = '"'..k..'"' end
s = s .. '['..k..'] = ' .. dump(v) .. ','
end
return s .. '} '
else
return tostring(o)
end
endlocal function Chunk(text, chunkSize)
local s = {}
for i = 1, #text, chunkSize do
s[#s+1] = text:sub(i,i + chunkSize - 1)
end
return s
endlocal bs = { [0] =
'A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P',
'Q','R','S','T','U','V','W','X','Y','Z','a','b','c','d','e','f',
'g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v',
'w','x','y','z','0','1','2','3','4','5','6','7','8','9','+','/',
}
local function base64(s)
local byte, rep = string.byte, string.rep
local pad = 2 - ((#s-1) % 3)
s = (s..rep('\0', pad)):gsub("...", function(cs)
local a, b, c = byte(cs, 1, 3)
return bs[a>>2] .. bs[(a&3)<<4|b>>4] .. bs[(b&15)<<2|c>>6] .. bs[c&63]
end)
return s:sub(1, #s-pad) .. rep('=', pad)
end____(.-)____
sɴ sᴄʀɪᴘᴛ ᴇɴᴅ:
_ENV["�"] = {"🛡 Encryption Naka Lua 🛡"}
gg["clearResults"]()
gg["setRanges"](gg.REGION_C_ALLOC)
gg["editAll"](0, gg.TYPE_DWORD)
gg["clearResults"]()
gg["toast"](LONGSHOOT_SQUAD)
gg["clearResults"]()
_ENV["�"] = {"🛡 Encryption Naka Lua 🛡"}
gg["clearResults"]()
gg["setRanges"](gg.REGION_C_ALLOC)
gg["editAll"](0, gg.TYPE_DWORD)
gg["clearResults"]()
gg["toast"](LONGSHOOT_SQUAD)
gg["clearResults"]()