/lua
local str = "Hello, Word"
local hex_str = ''
for i = 1, #str do
hex_str = hex_str .. string.format("%x", str:byte(i,i))
end
function en(c, x)
res = ''
for i = 1, #c do
res = res .. string.char((x * c:byte(i)) % 256)
end
return res
end
function __(x)
return en(x, 3)
end
local encoded = __(hex_str)
print("Encode Results : " .. encoded)
local str = "Hello, Word"
local hex_str = ''
for i = 1, #str do
hex_str = hex_str .. string.format("%x", str:byte(i,i))
end
function en(c, x)
res = ''
for i = 1, #c do
res = res .. string.char((x * c:byte(i)) % 256)
end
return res
end
function __(x)
return en(x, 3)
end
local encoded = __(hex_str)
print("Encode Results : " .. encoded)
/lua
-- utf8 encode test
function encode(d)
local x = {}
for p, c in utf8.codes(d) do
table.insert(x, c)
end
local t = {}
for i = 1, #x do
t[i] = string.format("\\x%x", x[i]+2)
end
return table.concat(t)
end
print(encode("mafia :D , proceed from 🇻🇳"))
-- utf8 encode test
function encode(d)
local x = {}
for p, c in utf8.codes(d) do
table.insert(x, c)
end
local t = {}
for i = 1, #x do
t[i] = string.format("\\x%x", x[i]+2)
end
return table.concat(t)
end
print(encode("mafia :D , proceed from 🇻🇳"))
/lua
function encode(str)
if type(str) == 'string' then
for i = 1,#str do
bytes = table.concat({string.byte(str, 1,-1)},',')
p = {}
for sum in bytes:gmatch('%d+') do
table.insert(p, sum) -- table to str sum
q = ""
for k, v in ipairs(p) do
if k < #p then
q = q..v..','
else
q = q..v
end
end
end
end
return "string.char("..q..")" --byte table to str
end
end
x = "Hello, Word" -- string
print(encode(x))
function encode(str)
if type(str) == 'string' then
for i = 1,#str do
bytes = table.concat({string.byte(str, 1,-1)},',')
p = {}
for sum in bytes:gmatch('%d+') do
table.insert(p, sum) -- table to str sum
q = ""
for k, v in ipairs(p) do
if k < #p then
q = q..v..','
else
q = q..v
end
end
end
end
return "string.char("..q..")" --byte table to str
end
end
x = "Hello, Word" -- string
print(encode(x))
/lua
-- Formula Decrypt Konzlet
function __xlet(c, i)
res = ''
for num, value in pairs({c:byte(1,-1)}) do
res = res .. string.char((value - (19 + num) * i) % 256)
end
return res
end
print(__xlet("\155\26\137\251\130\216\97\229\93\202\72\189",118))
-- Formula Decrypt Konzlet
function __xlet(c, i)
res = ''
for num, value in pairs({c:byte(1,-1)}) do
res = res .. string.char((value - (19 + num) * i) % 256)
end
return res
end
print(__xlet("\155\26\137\251\130\216\97\229\93\202\72\189",118))
Forwarded from Offline Nghỉ TeleGram
Hack PUBG Vip .lua
1.6 MB
i need to hire someone who can dec this script for a suitable price , if you can decode it dm me .
for k, v in next, _G, nil do
local j = string.match(tostring(v), "%s[@]?(/.-):")
if j and j ~= gg.getFile() then
return true
end
-- simple block hook Tool
🎉 happy new year 2022 wish everyone good health and happiness with family
local _ = debug.getinfo(gg.searchNumber).source ~= "=[Java]" or not not debug.getupvalue(gg.searchNumber,1,2)
local _ = _ == false or (function() os.exit() end)()-- simple block hook