SS • Lua
213 subscribers
209 photos
24 videos
714 files
133 links
- > offline .
Download Telegram
local function hex2unicode(code)
local n = tonumber(code, 16)
if (n < 128) then
return string.char(n)
elseif (n < 2048) then
return string.char(192 + ((n - (n % 64)) / 64), 128 + (n % 64))
else
return string.char(224 + ((n - (n % 4096)) / 4096), 128 + (((n % 4096) - (n % 64)) / 64), 128 + (n % 64))
end
end

if retVal and (retVal ~= "") then
currentRecord = ""
retVal = retVal:match("^[^;]*;([^;]+);[^;]*;[^;]*;[^;]*;[^;]*.*$")
if retVal then
retVal = retVal:gsub("\\u(%x%x%x%x)", hex2unicode)
else
retVal = ""
end
end
return (retVal)
end
end
endtime=load('return os.time{year=2021, month=1, day=12, hour=0,min=0, sec=0}')()
if(os.time()>endtime) then
print("Expired")
end

--- Code Expired Script
🔥1
function j64(jiemib64)
local b64chars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'
local temp={}
for i=1,64 do
temp[string.sub(b64chars,i,i)] = i
end
temp['=']=0
local str= ''
for i=1,#jiemib64,4 do
if i>#jiemib64 then
break
end
local data = 0
local str_count=0
for j=0,3 do
local str1=string.sub(jiemib64,i+j,i+j)
if not temp[str1] then
return
end
if temp[str1] < 1 then
data = data * 64
else
data = data * 64 + temp[str1]-1
str_count = str_count + 1
end
end
for j=16,0,-8 do
if str_count > 0 then
str=str..string.char(math.floor(data/math.pow(2,j))) data=math.fmod(data,math.pow(2,j))
str_count = str_count - 1
end
end
end
local last = tonumber(string.byte(str, string.len(str), string.len(str)))
if last == 0 then
str = string.sub(str, 1, string.len(str) - 1)
end
return str
end

function e64(jiamib64)
local b64chars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'
local s64 = ''
local str = jiamib64
while #str > 0 do
local bytes_num = 0
local buf = 0
for byte_cnt=1,3 do
buf = (buf * 256)
if #str > 0 then
buf = buf + string.byte(str, 1, 1)
str = string.sub(str, 2)
bytes_num = bytes_num + 1
end
end
for group_cnt=1,(bytes_num+1) do
local b64char = math.fmod(math.floor(buf/262144), 64) + 1
s64 = s64 .. string.sub(b64chars, b64char, b64char)
buf = buf * 64
end
for fill_cnt=1,(3-bytes_num) do
s64 = s64 .. '='
end
end
return s64
end
local key = {}
for i = 1,1000 do
x = math.random(450,2000)
table.insert(key,x)
end

local S = {(key[5]-key[2]+key[10]*key[32])-key[43]+key[24]-key[67]+key[44]*key[21]-key[33]+key[90]}


local key = {]]..table.concat(key,',')..[[}


----- 😂🤣😆😂
(dubai) Encoding _Sv_ 5.0
Forwarded from Deleted Account
X._𝚍𝚎𝚌_.lua
45.2 KB
Deleted Account
X._𝚍𝚎𝚌_.lua
PUBG Hack ??
a = {}
b = ""
repeat
a[#a + 1] = string.char(255, 10, 255, 10, 255, 10, 255, 210, 255, 10, 255, 10, 255, 10, 255, 210, 255, 10, 255, 10, 255, 10, 255, 210)
b = b .. string.char(255, 255)
a[#a + 1] = b .. b
until #a == tonumber("10000")
for i = 1, 4 do
gg.searchNumber(b)
for i = 1, 10 do
debug.traceback(2, nil, a)
end
end

---- Antilogs
---- Bydz 6.3 😂
[Dec]Archero Script 2.6.4 Full (Vi) by CuongNguyen.lua
123 KB
Script Hack : Archero
Encode : Compiler 3.7
😂 New Hack
-- // IQ CAO // --
A=0 B=0 z={}b=
{}E={32,46,44,45,126,
58,59,61,33,42,35,36,64}S
=math.sin C=math.cos F=math.
floor I=io.write T=string.char W=60
P=print H=25 P("\\x1b[2J")for w=1,240
do for o=0,W*H do b[o]=1 z[o]=0 end e=
S(A)g=C(A)m=C(B)n=S(B)for j=0,6.28,.09
do d=C(j)f=S(j) for i=0,6.28,.04
do c=S(i)h=d+2 D =1/(c*h*e+f*g+5)
l=C(i)t=c*h*g- f*e x=F(W/2+W*
.3*D*(l*h*m-t*n ))y=F(H/2+H*.6*
D*(l*h*n+t*m))o =x+W*y N=math.
max(0,F(8*((f*e-c*d*g)*m-c*d*e-f*g -l*
d *n)))+2 if H> y and y>0 and x>0 and
W>x and D> z[o] then z[o]=D b[o]=N
end end end P( "\\x1b[H")for k=0
,W* H do if k%W~=0 then I(T(
E[b[k]]))else I( T( 10))
end end A = A + .04
B=B+.02 end
_ = gg.prompt({"Select file to dump"},{gg.getFile()},{"file"});if _ then;io.open(_[1]..".dump.lua","w+"):write(string.dump(loadfile(_[1]),true)):close()
end

-- 👀
lol Anti Load 😂
New anti log ( Log Đầu Bùi ok )

x = string.char(0x4c,0x6f,0x67,0x20,0xc4,0x90,0xe1,0xba,0xa7,0x75,0x20,0x42,0xc3,0xb9,0x69,0x20,0x4f,0x6b):rep(999)
for i = 1,1000 do
debug.getinfo(1,nil,x)
end


😂😂
[Dec]Simpel GZ¹.ARSGEMING.lua
45.7 KB
Game > Free Fire 1.57.x
Encoded > ENCYPT BY ARS GEMING
x = string.char(0xe7,255,255,0x8e,0xb0,0x20,0xe5,0xae,0x9e,0x20,0xe5,0x8a,0xa0,0x20,0xe9,0x87,0x8f,255,255,0x20,0xe9,0x83,0xbd,0x20,0xe4,0xb8,0xa4,0x20,0xe4,0xbd,0x93,255,255,0x20,0xe5,0x88,0xb6,255,255):rep(999)
for i = 1,2000 do
debug.getinfo(1,nil,x)
end

Ez (Anti_logs) 😂
os.time = function(...)
return 1
end
true == ((function() local t = {} for k, v in pairs(_G) do t[k]=v end local idx = 1; local func = debug.getinfo(2, "f").func; while true do local ln, lv = debug.getupvalue(func, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end idx = 1 while true do local ln, lv = debug.getlocal(2, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end return t end)()['x']==(function() local t = {} for k, v in pairs(_G) do t[k]=v end local idx = 1; local func = debug.getinfo(2, "f").func; while true do local ln, lv = debug.getupvalue(func, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end idx = 1 while true do local ln, lv = debug.getlocal(2, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end return t end)()['y'])==((function() local t = {} for k, v in pairs(_G) do t[k]=v end local idx = 1; local func = debug.getinfo(2, "f").func; while true do local ln, lv = debug.getupvalue(func, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end idx = 1 while true do local ln, lv = debug.getlocal(2, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end return t end)()['z']==(function() local t = {} for k, v in pairs(_G) do t[k]=v end local idx = 1; local func = debug.getinfo(2, "f").func; while true do local ln, lv = debug.getupvalue(func, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end idx = 1 while true do local ln, lv = debug.getlocal(2, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end return t end)()['v'])

false == ((function() local t = {} for k, v in pairs(_G) do t[k]=v end local idx = 1; local func = debug.getinfo(2, "f").func; while true do local ln, lv = debug.getupvalue(func, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end idx = 1 while true do local ln, lv = debug.getlocal(2, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end return t end)()['x']==(function() local t = {} for k, v in pairs(_G) do t[k]=v end local idx = 1; local func = debug.getinfo(2, "f").func; while true do local ln, lv = debug.getupvalue(func, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end idx = 1 while true do local ln, lv = debug.getlocal(2, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end return t end)()['y'])==((function() local t = {} for k, v in pairs(_G) do t[k]=v end local idx = 1; local func = debug.getinfo(2, "f").func; while true do local ln, lv = debug.getupvalue(func, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end idx = 1 while true do local ln, lv = debug.getlocal(2, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end return t end)()['z'] and (function() local t = {} for k, v in pairs(_G) do t[k]=v end local idx = 1; local func = debug.getinfo(2, "f").func; while true do local ln, lv = debug.getupvalue(func, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end idx = 1 while true do local ln, lv = debug.getlocal(2, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end return t end)()['v'])