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
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
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 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,',')..[[}
----- 😂🤣😆😂
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,',')..[[}
----- 😂🤣😆😂
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 😂
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
Encode : Compiler 3.7
-- // 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 endNew 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
😂😂
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
Encoded > ENCYPT BY ARS GEMING
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'])