SS • Lua

s = "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

468 viewsね Only_Zin, edited 09:15

SS • Lua

/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

438 viewsね Only_Zin, 12:37

SS • Lua

/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)

453 viewsね Only_Zin, 12:43

SS • Lua

New Random code + Enc code ?

😂

433 viewsね Only_Zin, 13:03

SS • Lua

debug.sethook = function(...) print(...) end

442 viewsね Only_Zin, 13:12

SS • Lua

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
end

452 viewsね Only_Zin, 13:13

SS • Lua

lua or lua = lua + lua - lua * lua % lua

450 viewsね Only_Zin, 13:13

SS • Lua

local function Chunk(text, chunkSize)
local s = {}
for i = 1, #text, chunkSize do
s[#s+1] = text:sub(i,i + chunkSize - 1)
end
return s
end

509 viewsね Only_Zin, 13:22

SS • Lua

local 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

____(.-)____

561 viewsね Only_Zin, 13:26

SS • Lua

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"]()

580 viewsね Only_Zin, 06:14

SS • Lua

Forwarded from Naka Lua (Naka Lua)

#Enc String>Byte.lua

2.2 KB

New Enc Publick!
Type : String>Byte>Bin
Make By : @NakaLua
Join please : @NakaLuaOfficial
Pls give me credits

363 views〔EG〕Angela ²⁰⁰⁰, 06:46

SS • Lua

Naka Lua

#Enc String>Byte.lua

Share tutorial dec simple Enc ( string-byte-bin ) Naka Enc ? 😜

489 views〔EG〕Angela ²⁰⁰⁰, 06:46

SS • Lua

Naka Lua

#Enc String>Byte.lua

local Key = 

local  L0_0 = (function(str, length, ...)
local res = ''
local arg = str.ENC
local ind = 1
while( ind < #arg + 1 )do
arg[ind] = res..string.char((arg[ind] - Key[1] + Key[3]) % 256)
ind = ind + 1
end
local str = { }
for i in ipairs(arg) do
str[#str + 1] = arg[i + i]
end
for i = 1, #arg do
if arg[i + 1] ~= nil then
 table.remove(arg, i + 1)
 end
end
for i, value in pairs(str)do
str[i] = arg[i]..value
res = res..string.char((tonumber(str[i], 16) - Key[2]) % 256)
end
return res
end)

data = data:gsub("L0_0%((.-%))", function(c)
c = c:sub(1,#c-1)
c = load("return" .. c)()
c = L0_0(c)
return ""..c..""
end)

print(data)