path="/sdcard/".."填作者名字"
Numto16=function(num)
	if type(num)~="number" or num>255 or num<0 then
   return num
else
	local sp=string.format("%x",num)
	if #sp==1 then
	sp="0"..sp
  end
  return "\\x"..sp
  end
end
toLuaHex=function(str)
return(string.gsub(str,".",function(x)
return(Numto16(string.byte(x)))
end))
end
To_16=function(txt)
local sp=string.format("%x",txt)
if #sp==1 then
sp="0"..sp
end
return "\\x"..sp
end
function To__16(str)
return(str:gsub(".",function(x)
return(To_16(string.byte(x)))
end))
end
function RandomStr(len)
len=len or math.random(4,6)
    local str = ""
    str = string.char(math.random(65, 90))
    for num = 1, len - 1 do
        local number = math.random(1, 3)
        if number == 1 then
            str = str .. string.char(math.random(65, 90))
        elseif number == 2 then
            str = str .. string.char(math.random(97, 122))
        elseif number == 3 then
            str = str .. string.char(math.random(48, 57))
        end
    end
    return str
end
function suiji()
local ret,rec
ret=""
for i=1,3 do
rec=string.char(math.random(150,190))
ret=ret..rec
end
  weizhi="�"
  ret=weizhi..ret..weizhi..string.char(math.random(150,190))..weizhi
  return ret
end
___name={}
function _Random(Table_name,Random,...)
local xxxx=...
if not ___name[Table_name] then
_ENV[Table_name]={}
___name[Table_name]=true
end
while(true)do
x=_ENV[Random](xxxx)
if not _ENV[Table_name][x] then
_ENV[Table_name][x]=x
str=x
break
end
end
return(str)
end

Table_name=RandomStr()
Dec_name=RandomStr()
_ENV["字符串"]={}
String={}
table.insert(String,"local "..Table_name.."={}")
xmnb={}
local KEY=math.random(1,32)
function NZF_Str(STR)
if(STR=="")then;return("\034\034")end
Str=STR
STRING=_ENV["字符串"][STR]
if(STRING)then;return(STRING)end
ascll={string.byte(STR,1,-1)}
res={}
Key=math.random(128,255)
table.insert(xmnb,To_16(Key))
for index,value in ipairs(ascll) do
value=value~(Key~KEY)
value=To_16(value)
table.insert(res,value)
end
Name=Table_name.."['".._Random("乱码","suiji").."']"
table.insert(String,Name.."=(function();return(Str_dec('"..table.concat(res).."'));end)()")
STR="("..Dec_name.."("..Name.."))"
_ENV["字符串"][Str]=STR
return STR
end

Enc_10Num=function(num)
return("Char['"..To_16(num).."']")
end

-- 标准库
fuc = {
    ["gg"] = 2,
    ["os"] = 2,
    ["io"] = 2,
    ["string"] = 2,
    ["math"] = 2,
    ["table"] = 2,
    ["debug"] = 2,
    ["bit32"] = 2,
    ["utf8"] = 2,
}
Bzk_Str = function(data)
	for v, s in pairs(_ENV) do
		if type(s) == "table" and fuc[v] then
			for i in pairs(s) do
				data = data:gsub(v .. "%." .. i .. "%(", "_ENV[\34" .. v .. "\34]" .. "[\34" .. i .. "\34](")
				data = data:gsub(v .. "%." .. i .. "%)", "_ENV[\34" .. v .. "\34]" .. "[\34" .. i .. "\34])")
			end
	    end
	end
	return data
end

local Min_num = function(...)
local arm = {...}
local num = nil
for i, v in pairs(arm) do
if v ~= nil then
if not num then
num = v
elseif num > v then
num = v
end
end
end
return num
end
Enc_Str=function(data)
local gr = {}
repeat
local s1, ss1, x1, xx1, str
s1 = string.find(data, "\034")--单引号
ss1 = string.find(data, "\039")--双引号
x1 = string.find(data, "%[[=]*%[")--中括号
xx1 = string.find(data, "%-%-")--注释
str = Min_num(s1, ss1, x1, xx1)
if str == nil then
break
end
if str == s1 then
data = data:gsub("(.-)(\034.-\034)",function(t1, t2)
gr[#gr + 1] = t1
t2 = string.gsub(t2, "\\\\","\\092")
t2 = string.gsub(t2, "\\\034", "\\034")
if t2:sub(-1, -1) ~= "\034" then
return t2
end
t3 = load("return "..t2)
if not t3 then
gg.alert("\034加密失败\n"..t2)
os.exit()
end
gr[#gr + 1] = NZF_Str(t3(),true)
return ""
end, 1)
elseif str == ss1 then
data = data:gsub("(.-)(\039.-\039)",function(t1, t2)
gr[#gr + 1] = t1
t2 = string.gsub(t2, "\\\\","\\092")
t2 = string.gsub(t2, "\\\039", "\\039")
if t2:sub(-1, -1) ~= "\039" then
return t2
end
t3 = load("return "..t2)
if not t3 then
gg.alert("\039加密失败\n"..t2)
os.exit()
end
gr[#gr + 1] = NZF_Str(t3(),true)
return ""
end, 1)
elseif str == x1 then
local g1 = string.match(data,"%[([=]*)%[")
data=data:gsub("(.-)(%["..g1.."%[.-%]"..g1.."%])",function(t1, t2)
gr[#gr + 1] = t1
t3 = load("return "..t2)
if not t3 then
gg.alert("[[加密失败\n"..t2)
os.exit()
end
gr[#gr + 1] = NZF_Str(t3(),true)
return ""
end, 1)
elseif str == xx1 then
d1, d2, d3, d4 = string.find(data, "%-%-(%[([=]*)%[)")
if d1 == xx1 then
data = string.gsub(data, "(.-)%-%-%[" .. d4 .. "%[.-%]" .. d4 .. "%]", function(txt1)
gr[#gr + 1] = txt1
return " "
end, 1)
else
data = string.gsub(data, "(.-)%-%-[^\n]*", function(txt1)
gr[#gr + 1] = txt1
return ""
end, 1) 
end
else
break
end
until not str
gr[#gr+1]=data
gr = table.concat(gr):gsub("return%s+end","return 0\nend")
gr = gr:gsub("%-%-%[%[.-%]%]",""):gsub("%-%-[^\n]+", "")
return gr
end
小沈=Bzk_Str(小沈)--标准库
小沈=Enc_Str(小沈)--字符串
XM={}
table.insert(XM,[=[
local Char={}
local __pairs,string__byte,string__char=pairs,string.byte,string.char
for index=#Char,255 do
Char[index]=string__char(index)
Char[(Char[index])]=index
end
local INDEX=#Char/#Char
]=])
table.insert(XM,"local xmnb='"..table.concat(xmnb).."'")
table.insert(XM,[=[

local Str_dec=function(str)
local Res={}
for index,value in __pairs({string__byte(str,1,#str)}) do
Res[index]=(value~(]=]..Enc_10Num(KEY)..[=[~string__byte(xmnb,INDEX)))
end
INDEX=INDEX+#xmnb/#xmnb
return(Res)
end
]=])

table.insert(XM,"local "..Dec_name..[=[=function(Table)
local res=""
for index,value in __pairs(Table) do
res=res..Char[(value)]
end
return(res)
end
]=])
local Goto=function(num)
num=num or math.random( 4,10)
hg = ""
return ";if(Char['你好'])then;" .. hg:rep(num * 2) .. "::hg::;end;"
end
___=function(Table)
res=""
for i, v in pairs(Table) do
res=res..v..Goto()
end
return res
end
String=true and  ___(String) or table.concat(String,"\n")
table.insert(XM,String)
XM=table.concat(XM,"\n")
小沈=XM..小沈
local value_var = math.random(130,140)
-- 虚拟化的配置
local start_dec=[===[ 
local value_var
local ar3="p"
local tab_by = {}
local asc_EA = "i"
local asc_E5 = "s"
local asc_E7 = "g"
local asc_EC = "n"
local ar1="("
local asc_E9 = "h"
local asc_EF = "a"
local asc_EB = "t"
local asc_E4 = "r"
local ar2=")"
local asc_E2 = "c"
local asc_E1 = "m"
local asc_E3 = "o"
local ar4 = "d"
local asc_E6 = "u"
local asc_E8 = "b"
local asc_EQ = "e"
local char = _ENV[asc_E5 .. asc_EB .. asc_E4 .. asc_EA .. asc_EC .. asc_E7][asc_E2 .. asc_E9 .. asc_EF .. asc_E4]
local gmtch = _ENV[asc_E5 .. asc_EB .. asc_E4 .. asc_EA .. asc_EC .. asc_E7][asc_E7 .. asc_E1 .. asc_EF .. asc_EB .. asc_E2 .. asc_E9]
local match = _ENV[asc_E5 .. asc_EB .. asc_E4 .. asc_EA .. asc_EC .. asc_E7][asc_E1 .. asc_EF .. asc_EB .. asc_E2 .. asc_E9]
local tonum = _ENV[asc_EB .. asc_E3 .. asc_EC .. asc_E6 .. asc_E1 .. asc_E8 .. asc_EQ .. asc_E4]
local dump_ = _ENV[asc_E5 .. asc_EB .. asc_E4 .. asc_EA .. asc_EC .. asc_E7][ar4 .. asc_E6 .. asc_E1 .. ar3]
local Char = {}
for i = 0, 255 do
    Char[i] = char(i)
    Char[char(i)] = i
end
local set_tab_ = {}
local erp = (function()
value_var = dump_(function()
    local a = "编诗人"
    do return end
    do return end
    do return end
end)
end)()

value_var = match(value_var,Char[1]..Char[0]..Char[0]..Char[0]..Char[4]..Char[2]..Char[0]..Char[0]..Char[0]..ar1.."."..ar2..Char[0])
value_var = Char[value_var]
local decrypt_Var = function(txt, free, free2, free3)
    if txt == nil then
        return {}
    end
    if txt == 1 then
        return free+free2
    elseif txt == 2 then
        return free-free2
    elseif txt == 3 then
        return free*free2
    elseif txt == 4 then
        return free/free2
    elseif txt == 5 then
        return free^free2
    elseif txt == 6 then
        return free~free2
    elseif txt == 7 then
        return free&free2
    elseif txt == 8 then
        return free|free2
    elseif txt == 9 then
        return free%free2
    elseif txt == 10 then
        return free//free2
    elseif txt == 11 then
        return free<<free2
    elseif txt == 12 then
        return free>>free2
    elseif txt == 13 then
        return ~free
    elseif txt == 14 then
        return -free
    elseif txt == 15 then
        return #free
    elseif set_tab_[txt] then
        return set_tab_[txt]
    end
    local txt2 = ""
    for i in gmtch(txt, ".") do
        i = Char[i] ~ value_var
        txt2=txt2..Char[i] 
    end
    if free then
        txt2=tonum(txt2)
    end
    set_tab_[txt] = txt2
    return set_tab_[txt]
end
]===]

小沈="local enc_at = (function()\nlocal data_enc = \"enc_slepwtl\"\n"..小沈.."\nend)()"
小沈=start_dec.."\n\n"..小沈                      
local fa = string.rep( '(function() ', 1)
local fb = string.rep(' end)()', 1)
小沈 = fa .. 小沈 .. fb
lasm="while i do\nlocal i\nwhile i==0 do\n"..("_ENV[\"狐假虎威\"]=\"别解了\"\n"):rep(math.random(50,50)).."end\nbreak\nend"
local B = string.gsub(lasm,"\n"," ")
 local C = string.gsub(B,"          "," ")
 local D = string.gsub(C,"         "," ")
 local E = string.gsub(D,"        "," ")
 local F = string.gsub(E,"       "," ")
 local G = string.gsub(F,"      "," ")
 local H = string.gsub(G,"     "," ")
 local I = string.gsub(H,"    "," ")
 local J = string.gsub(I,"   "," ")
 local lasm = string.gsub(J,"  "," ")
小沈=lasm.."\n"..小沈
小沈="(function()\n"..小沈.."\nend)()"
xmo="\n"
UI=[=[


]=] .. xmo .. [=[ ]=]

小沈="(function(...)\nlocal main=(function(...)\n"..小沈.."\nend)(_ENV)\nend)([===["..UI.."]===])"