local __a=select;local a_a=string.byte;local b_a=string.sub local c_a={{b='OpArgR',c='OpArgN'},{b='OpArgK',c='OpArgN'},{b='OpArgU',c='OpArgU'},{b='OpArgR',c='OpArgN'},{b='OpArgU',c='OpArgN'},{b='OpArgK',c='OpArgN'},{b='OpArgR',c='OpArgK'},{b='OpArgK',c='OpArgN'},{b='OpArgU',c='OpArgN'},{b='OpArgK',c='OpArgK'},{b='OpArgU',c='OpArgU'},{b='OpArgR',c='OpArgK'},{b='OpArgK',c='OpArgK'},{b='OpArgK',c='OpArgK'},{b='OpArgK',c='OpArgK'},{b='OpArgK',c='OpArgK'},{b='OpArgK',c='OpArgK'},{b='OpArgK',c='OpArgK'},{b='OpArgR',c='OpArgN'},{b='OpArgR',c='OpArgN'},{b='OpArgR',c='OpArgN'},{b='OpArgR',c='OpArgR'},{b='OpArgR',c='OpArgN'},{b='OpArgK',c='OpArgK'},{b='OpArgK',c='OpArgK'},{b='OpArgK',c='OpArgK'},{b='OpArgR',c='OpArgU'},{b='OpArgR',c='OpArgU'},{b='OpArgU',c='OpArgU'},{b='OpArgU',c='OpArgU'},{b='OpArgU',c='OpArgN'},{b='OpArgR',c='OpArgN'},{b='OpArgR',c='OpArgN'},{b='OpArgN',c='OpArgU'},{b='OpArgU',c='OpArgU'},{b='OpArgN',c='OpArgN'},{b='OpArgU',c='OpArgN'},{b='OpArgU',c='OpArgN'}} local d_a={'ABC','ABx','ABC','ABC','ABC','ABx','ABC','ABx','ABC','ABC','ABC','ABC','ABC','ABC','ABC','ABC','ABC','ABC','ABC','ABC','ABC','ABC','AsBx','ABC','ABC','ABC','ABC','ABC','ABC','ABC','ABC','AsBx','AsBx','ABC','ABC','ABC','ABx','ABC'} local function _aa(_da,ada,bda) if bda then local cda=_da/2 ^ (ada-1)%2 ^ (bda-1 - (ada-1)+1)return cda-cda%1 else local cda=2 ^ (ada-1)if _da% (cda+cda)>=cda then return 1 else return 0 end end end local function aaa(_da)local ada=1;local bda;local cda local function dda()local _ab=a_a(_da,ada,ada)ada=ada+1;return _ab end local function __b()local _ab,aab,bab,cab=a_a(_da,ada,ada+3)ada=ada+4;return cab*16777216 +bab*65536 +aab*256 +_ab end;local function a_b()return __b()*4294967296 +__b()end local function b_b() local _ab=__b()local aab=__b()local bab=1;local cab=_aa(aab,1,20)*2 ^32 +_ab local dab=_aa(aab,21,31)local _bb=(-1)^_aa(aab,32) if dab==0 then if cab==0 then return _bb*0 else dab=1;bab=0 end elseif dab==2047 then if cab==0 then return _bb*1 /0 else return _bb*0 /0 end end return math.ldexp(_bb,dab-1023)* (bab+cab/2 ^52)end local function c_b(_ab)local aab if _ab then aab=b_a(_da,ada,ada+_ab-1)ada=ada+_ab else _ab=bda()if _ab==0 then return end;aab=b_a(_da,ada,ada+_ab-1)ada=ada+_ab end;return aab end local function d_b()local _ab={}local aab={}local bab={} local cab={Instr=_ab,Const=aab,Proto=bab,Lines={},Name=c_b(),FirstL=cda(),LastL=cda(),Upvals=dda(),Args=dda(),Vargs=dda(),Stack=dda()}local dab={}if cab.Name then cab.Name=b_a(cab.Name,1,-2)end for P=1,cda() do local _bb=__b()local abb=_aa(_bb,1,6)local bbb=d_a[abb+1]local cbb=c_a[abb+1] local dbb={Enum=abb,Value=_bb,_aa(_bb,7,14)} if bbb=='ABC'then dbb[2]=_aa(_bb,24,32)dbb[3]=_aa(_bb,15,23)elseif bbb=='ABx'then dbb[2]=_aa(_bb,15,32)elseif bbb=='AsBx'then dbb[2]=_aa(_bb,15,32)-131071 end do if abb==26 or abb==27 then dbb[3]=dbb[3]==0 end;if abb>=23 and abb<= 25 then dbb[1]=dbb[1]~=0 end if cbb.b=='OpArgK'then dbb[3]=dbb[3]or false;if dbb[2]>=256 then local _cb=dbb[2]-256;dbb[4]=_cb local acb=dab[_cb]if not acb then acb={}dab[_cb]=acb end acb[#acb+1]={Inst=dbb,Register=4}end end if cbb.c=='OpArgK'then dbb[4]=dbb[4]or false if dbb[3]>=256 then local _cb=dbb[3]-256;dbb[5]=_cb;local acb=dab[_cb]if not acb then acb={}dab[_cb]=acb end;acb[ #acb+1]={Inst=dbb,Register=5}end end end;_ab[P]=dbb end for P=1,cda()do local _bb=dda()local abb;if _bb==1 then abb=dda()~=0 elseif _bb==3 then abb=b_b()elseif _bb==4 then abb=b_a(c_b(),1,-2)end;local bbb=dab[P-1]if bbb then for Y=1,#bbb do bbb[Y].Inst[bbb[Y].Register]=abb end end aab[P-1]=abb end;for P=1,cda()do bab[P-1]=d_b()end do local _bb=cab.Lines for P=1,cda()do _bb[P]=__b()end;for _=1,cda()do c_b()__b()__b()end;for _=1,cda()do c_b()end end;return cab end do assert(c_b(4)=="\27Lua","Lua bytecode expected.") assert(dda()==0x51,"Only Lua 5.1 is supported.")dda()dda()local _ab=dda()local aab=dda()if _ab==4 then cda=__b elseif _ab==8 then cda=a_b else error('Integer size not supported',2)end;if aab==4 then bda=__b elseif aab==8 then bda=a_b else error('Sizet size not supported',2)end assert(c_b(3)=="\4\8\0","Unsupported bytecode target platform")end;return d_b()end;local function baa(...)return __a('#',...),{...}end local function caa(_da,ada,bda)local cda=_da.Instr local dda=_da.Const;local __b=_da.Proto;local function a_b(b_b,c_b)local d_b=_da.Name or'Code' local _ab=_da.Lines[c_b]or'?' error(string.format('%s:%s: %s',d_b,_ab,tostring(b_b)),0)end return function(...) local b_b,c_b=1,-1;local d_b,_ab={},__a('#',...)-1;local aab={}local bab={} local cab=setmetatable({},{__index=aab,__newindex=function(dbb,_cb,acb) if _cb>c_b then c_b=_cb end;aab[_cb]=acb end}) local function dab()local dbb,_cb while true do dbb=cda[b_b]_cb=dbb.Enum;b_b=b_b+1 if _cb==0 then cab[dbb[1]]=cab[dbb[2]]elseif _cb==1 then cab[dbb[1]]=dda[dbb[2]]elseif _cb==2 then cab[dbb[1]]=dbb[2]~=0;if dbb[3]~=0 then b_b=b_b+1 end elseif _cb==3 then local acb=cab for P=dbb[1],dbb[2]do acb[P]=nil end elseif _cb==4 then cab[dbb[1]]=bda[dbb[2]]elseif _cb==5 then cab[dbb[1]]=ada[dda[dbb[2]]]elseif _cb==6 then local acb=cab acb[dbb[1]]=acb[dbb[2]][dbb[5]or acb[dbb[3]]]elseif _cb==7 then ada[dda[dbb[2]]]=cab[dbb[1]]elseif _cb==8 then bda[dbb[2]]=cab[dbb[1]]elseif _cb==9 then local acb=cab;acb[dbb[1]][dbb[4]or acb[dbb[2]]]=dbb[5]or acb[dbb[3]]elseif _cb==10 then cab[dbb[1]]={}elseif _cb==11 then local acb=cab;local bcb=dbb[1]local ccb=acb[dbb[2]] local dcb=dbb[5]or acb[dbb[3]]acb[bcb+1]=ccb;acb[bcb]=ccb[dcb]elseif _cb==12 then local acb=cab acb[dbb[1]]=(dbb[4]or acb[dbb[2]])+ (dbb[5]or acb[dbb[3]])elseif _cb==13 then local acb=cab;acb[dbb[1]]=(dbb[4]or acb[dbb[2]])- (dbb[5]or acb[dbb[3]])elseif _cb==14 then local acb=cab acb[dbb[1]]=( dbb[4]or acb[dbb[2]])* (dbb[5]or acb[dbb[3]])elseif _cb==15 then local acb=cab;acb[dbb[1]]=(dbb[4]or acb[dbb[2]])/ (dbb[5]or acb[dbb[3]])elseif _cb==16 then local acb=cab acb[dbb[1]]=( dbb[4]or acb[dbb[2]])% (dbb[5]or acb[dbb[3]])elseif _cb==17 then local acb=cab;acb[dbb[1]]=(dbb[4]or acb[dbb[2]])^ (dbb[5]or acb[dbb[3]])elseif _cb==18 then cab[dbb[1]]=- cab[dbb[2]]elseif _cb==19 then cab[dbb[1]]=not cab[dbb[2]]elseif _cb==20 then cab[dbb[1]]=#cab[dbb[2]]elseif _cb==21 then local acb=cab;local bcb=dbb[2] local ccb=acb[bcb]for P=bcb+1,dbb[3]do ccb=ccb..acb[P]end;cab[dbb[1]]=ccb elseif _cb==22 then b_b=b_b+dbb[2]elseif _cb==23 then local acb=cab local bcb=dbb[4]or acb[dbb[2]]local ccb=dbb[5]or acb[dbb[3]] if bcb==ccb~=dbb[1]then b_b=b_b+1 end elseif _cb==24 then local acb=cab;local bcb=dbb[4]or acb[dbb[2]] local ccb=dbb[5]or acb[dbb[3]]if bcb<ccb~=dbb[1]then b_b=b_b+1 end elseif _cb==25 then local acb=cab;local bcb=dbb[4]or acb[dbb[2]]local ccb=dbb[5]or acb[dbb[3]]if bcb<=ccb~= dbb[1]then b_b=b_b+1 end elseif _cb==26 then if dbb[3]then if cab[dbb[1]]then b_b=b_b+1 end elseif cab[dbb[1]]then else b_b=b_b+1 end elseif _cb==27 then local acb=cab[dbb[2]]if dbb[3]then if acb then b_b=b_b+1 else cab[dbb[1]]=acb end elseif acb then cab[dbb[1]]=acb else b_b=b_b+1 end elseif _cb==28 then local acb=dbb[1]local bcb=dbb[2]local ccb=dbb[3]local dcb=cab;local _db,adb;local bdb,cdb;_db={} if bcb~=1 then if bcb~=0 then bdb=acb+bcb-1 else bdb=c_b end;cdb=0 for P=acb+1,bdb do cdb=cdb+1;_db[cdb]=dcb[P]end bdb,adb=baa(dcb[acb](unpack(_db,1,bdb-acb)))else bdb,adb=baa(dcb[acb]())end;c_b=acb-1 if ccb~=1 then if ccb~=0 then bdb=acb+ccb-2 else bdb=bdb+acb-1 end;cdb=0;for P=acb,bdb do cdb=cdb+1;dcb[P]=adb[cdb]end end elseif _cb==29 then local acb=dbb[1]local bcb=dbb[2]local ccb=cab;local dcb,_db;local adb;local bdb=0;dcb={} if bcb~=1 then if bcb~=0 then adb= acb+bcb-1 else adb=c_b end;for P=acb+1,adb do dcb[#dcb+1]=ccb[P]end _db={ccb[acb](unpack(dcb,1,adb-acb))}else _db={ccb[acb]()}end;for cdb in next,_db do if cdb>bdb then bdb=cdb end end;return _db,bdb elseif _cb==30 then local acb=dbb[1]local bcb=dbb[2]local ccb=cab;local dcb,_db;local adb if bcb==1 then return elseif bcb==0 then adb=c_b else adb=acb+bcb-2 end;_db={}dcb=0;for P=acb,adb do dcb=dcb+1;_db[dcb]=ccb[P]end return _db,dcb elseif _cb==31 then local acb=dbb[1]local bcb=cab;local ccb=bcb[acb+2]local dcb=bcb[acb]+ccb bcb[acb]=dcb;if ccb>0 then if dcb<=bcb[acb+1]then b_b=b_b+dbb[2]bcb[acb+3]=dcb end else if dcb>=bcb[acb+1]then b_b=b_b+dbb[2]bcb[acb+3]=dcb end end elseif _cb==32 then local acb=dbb[1]local bcb=cab bcb[acb]=assert(tonumber(bcb[acb]),'`for` initial value must be a number') bcb[acb+1]=assert(tonumber(bcb[acb+1]),'`for` limit must be a number') bcb[acb+2]=assert(tonumber(bcb[acb+2]),'`for` step must be a number')bcb[acb]=bcb[acb]-bcb[acb+2]b_b=b_b+dbb[2]elseif _cb==33 then local acb=dbb[1]local bcb=dbb[3]local ccb=cab;local dcb=acb+2 local _db={ccb[acb](ccb[acb+1],ccb[acb+2])}for P=1,bcb do cab[dcb+P]=_db[P]end;if ccb[acb+3]~=nil then ccb[acb+2]=ccb[ acb+3]else b_b=b_b+1 end elseif _cb==34 then local acb=dbb[1]local bcb=dbb[2]local ccb=dbb[3]local dcb=cab if ccb==0 then b_b=b_b+1;ccb=cda[b_b].Value end;local _db=(ccb-1)*50;local adb=dcb[acb]if bcb==0 then bcb=c_b-acb end;for P=1,bcb do adb[ _db+P]=dcb[acb+P]end elseif _cb==35 then local acb=dbb[1] local bcb={} for P=1,#bab do local ccb=bab[P] for aE=0,#ccb do local dcb=ccb[aE]local _db=dcb[1]local adb=dcb[2]if _db==cab and adb>=acb then bcb[adb]=_db[adb]dcb[1]=bcb end end end elseif _cb==36 then local acb=__b[dbb[2]]local bcb=cab;local ccb;local dcb if acb.Upvals~=0 then ccb={} dcb=setmetatable({},{__index=function(_db,adb) local bdb=ccb[adb]return bdb[1][bdb[2]]end,__newindex=function(_db,adb,bdb)local cdb=ccb[adb] cdb[1][cdb[2]]=bdb end}) for P=1,acb.Upvals do local _db=cda[b_b] if _db.Enum==0 then ccb[P-1]={bcb,_db[2]}elseif _db.Enum==4 then ccb[P-1]={bda,_db[2]}end;b_b=b_b+1 end;bab[#bab+1]=ccb end;bcb[dbb[1]]=caa(acb,ada,dcb)elseif _cb==37 then local acb=dbb[1]local bcb=dbb[2] local ccb,dcb=cab,d_b;c_b=acb-1;for P=acb,acb+ (bcb>0 and bcb-1 or _ab)do ccb[P]=dcb[P-acb]end end end end;local _bb={...} for P=0,_ab do if P>=_da.Args then d_b[P-_da.Args]=_bb[P+1]else cab[P]=_bb[P+1]end end;local abb,bbb,cbb=pcall(dab)if abb then if bbb and cbb>0 then return unpack(bbb,1,cbb)end;return else a_b(bbb,b_b-1)end end end function f(_da,ada)local bda=aaa(_da)return caa(bda,ada or getfenv(0)),bda end;local function daa(_da)math.randomseed(_da) return string.char(math.random(97,122))end;local _ba=23;local aba=daa(_ba) local function bba(_da)return (_da:gsub('..',function(ada)return string.char(tonumber(ada,16))end))end local cba="Z91nG54EQ59Y91I59Lj58hW91u53w53ZK59H91Q61eD59ZX91bb60kH53kK91Cx62D91J53te91RY56w91sw56Qg91K56v91xu60s91OI62b91I62t91b62O91E62dx91gs62O91hf62fk91rQ62O91wm62hD91dn62hE91Fc62Zu91r62W91A62bT91he62X91c62QT91v62j91On54oW91m54l91gr56hE91YK62z91Ll62Z91cG62e91Ci57Z91d62Zj91tK62jR91bJ62H91O58y57J91oO58B56Ok91AA62h91h62V91A54g60V91Qv58ol56JC91QZ62S91x53zF91C55P62Vo91OD62uk91vt53y54WM60VH91z62JA91v54k91yZ62p91Ge62V91jY62w91p56fs91SY58Rz91Z62b91S62DF91AE62v91TK53b53fY54V91z53hr53w56P91EN53R62Fp57UJ91p53D53O62Y91sG53P53Xn58Ne91ww62Y91uV56sp91vX58Mx91jV62m91r62FF91T62Ki91Gu53IG62M56BZ91Rb53k62f53m91iB53XL62M60oi91q53IF62R60F91v53lQ53Rh53Aw91gx62O91BU62us91eS62f91xi62O91ct62d91fr62t91P62r91o62J91vU62lI91sG62bT91No62pn91x62NZ91X62oX91C62wL91I62i91zC62x91K62"math.randomseed(os.time()) function __init__() local _da="abcdefghijklmnopqrstuvwxyz"local ada="1234567890-=_+!@&#$%^*():\";',./<>?[]{}\\ \32\t\n~`|" local bda={{"","0"}}for char=1,#_da do table.insert(bda,{string.sub(_da,char,char),0 +char})end;for char=1,#_da do table.insert(bda,{string.sub(_da,char,char):upper(), 26 +char})end;for char=1,#ada do table.insert(bda,{string.sub(ada,char,char), 52 +char})end;return bda end local function dba(_da) local ada,bda=pcall(function()return tonumber(_da)end) if not ada then return _da else local cda=bda;math.randomseed(os.time())local dda=0 local __b=math.random(993,82090)local a_b=__b;local b_b=math.random(620,8850) local c_b=math.random(620,9999)local d_b=math.random(7737,18684)local _ab=12 local aab=math.random(cda-10,cda+120) return cda+b_b.. " + (".. __b.. " - "..a_b-cda.. ") - "..cda-aab.. " - "..b_b.. " - 12 ".." + ".. c_b.." - ".. c_b.." + 12 * 2".." - ".. d_b.." + ".. d_b-12 *2 +_ab-"5".." + 5 - "..aab end end local function _ca(_da) local ada,bda=pcall(function()return tonumber(_da)end) if not ada then return _da else local cda=bda;math.randomseed(os.time())local dda=0 local __b=math.random(993,82090)local a_b=__b;local b_b=math.random(620,8850) local c_b=math.random(620,9999)local d_b=math.random(7737,18684)local _ab=12 local aab=math.random(cda-10,cda+120) return cda+b_b.. " - ("..tostring(b_b/2).." + ".. tostring(b_b/2)-c_b..")-"..c_b end end;local aca=__init__() function Convert(_da) local function ada(cda)for dda,__b in pairs(__init__())do if cda==__b[1]then return __b[2]end end;return false end;local bda="" _da:gsub(".",function(cda)local dda=""for i=1,math.random(1,2)do if math.random(0,1)==1 then dda=dda.. string.char(math.random(98,122))else dda=dda.. string.char(math.random(65,90))end end local __b=ada(cda)if __b==false then print("Unknown character "..cda)else bda=bda.. dda..__b end end)return bda end function Decode(_da)local function ada(dda)for __b,a_b in pairs(__init__())do if tonumber(dda)==tonumber(a_b[2])then return a_b[1]end end;return false end local bda=""local cda="%d+" _da:gsub(cda,function(dda)local __b=ada(dda) if __b==false then else bda=bda..__b end end) return{bda:sub(1,_da:len()),bda:sub(_da:len(),1)}end;local function bca()return Decode(cba)[1]end local function cca()local _da=string.format local ada=bca()local bda={} ada:gsub("%d+",function(cda)table.insert(bda,cda)end)return bda end local function dca()local _da=cca()local ada=string.format;local bda=string.char;local cda=""for x=1,#_da do cda=ada("%s%s%s",cda,bda(92),_da[x])end end;dca()