SHARE
TWEET

Untitled

a guest Apr 18th, 2019 98 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. --[[
  2.                   Obfuscated by ElyProtect v1.5                  
  3. --]]
  4.  
  5. local a1=string.char;local a=select;local b=string.byte;local c=string.sub;local d=table.insert;local e=table.foreach;local f=getfenv()local g=8186484168865098;local h=4887;local i;local j;if bit and bit.bxor then j=bit.bxor else j=function(b,c)local d,e,f,g=0,1,2,{[0]={[0]=0,[1]=1},[1]={[0]=1,[1]=0},n=4}while b~=0 and c~=0 do local h,i=b%f,c%f;d=d+g[h][i]*e;b=(b-h)/f;c=(c-i)/f;e=e*f end;d=d+(b+c)*e;return d end;end;local k={{b='83e63a54ce3c',c='83e63a54ceb0'},{b='83e63a54ce87',c='83e63a54ceb0'},{b='83e63a54ce65',c='83e63a54ce65'},{b='83e63a54ce3c',c='83e63a54ceb0'},{b='83e63a54ce65',c='83e63a54ceb0'},{b='83e63a54ce87',c='83e63a54ceb0'},{b='83e63a54ce3c',c='83e63a54ce87'},{b='83e63a54ce87',c='83e63a54ceb0'},{b='83e63a54ce65',c='83e63a54ceb0'},{b='83e63a54ce87',c='83e63a54ce87'},{b='83e63a54ce65',c='83e63a54ce65'},{b='83e63a54ce3c',c='83e63a54ce87'},{b='83e63a54ce87',c='83e63a54ce87'},{b='83e63a54ce87',c='83e63a54ce87'},{b='83e63a54ce87',c='83e63a54ce87'},{b='83e63a54ce87',c='83e63a54ce87'},{b='83e63a54ce87',c='83e63a54ce87'},{b='83e63a54ce87',c='83e63a54ce87'},{b='83e63a54ce3c',c='83e63a54ceb0'},{b='83e63a54ce3c',c='83e63a54ceb0'},{b='83e63a54ce3c',c='83e63a54ceb0'},{b='83e63a54ce3c',c='83e63a54ce3c'},{b='83e63a54ce3c',c='83e63a54ceb0'},{b='83e63a54ce87',c='83e63a54ce87'},{b='83e63a54ce87',c='83e63a54ce87'},{b='83e63a54ce87',c='83e63a54ce87'},{b='83e63a54ce3c',c='83e63a54ce65'},{b='83e63a54ce3c',c='83e63a54ce65'},{b='83e63a54ce65',c='83e63a54ce65'},{b='83e63a54ce65',c='83e63a54ce65'},{b='83e63a54ce65',c='83e63a54ceb0'},{b='83e63a54ce3c',c='83e63a54ceb0'},{b='83e63a54ce3c',c='83e63a54ceb0'},{b='83e63a54ceb0',c='83e63a54ce65'},{b='83e63a54ce65',c='83e63a54ce65'},{b='83e63a54ceb0',c='83e63a54ceb0'},{b='83e63a54ce65',c='83e63a54ceb0'},{b='83e63a54ce65',c='83e63a54ceb0'}}local l={'7d04cc','7d04e9','7d04cc','7d04cc','7d04cc','7d04e9','7d04cc','7d04e9','7d04cc','7d04cc','7d04cc','7d04cc','7d04cc','7d04cc','7d04cc','7d04cc','7d04cc','7d04cc','7d04cc','7d04cc','7d04cc','7d04cc','7d8b83ae','7d04cc','7d04cc','7d04cc','7d04cc','7d04cc','7d04cc','7d04cc','7d04cc','7d8b83ae','7d8b83ae','7d04cc','7d04cc','7d04cc','7d04e9','7d04cc'}local function m(n)local o,p=g,16384+h;return n:gsub('%x%x',function(q)local r=o%274877906944;local s=(o-r)/274877906944;local t=s%128;q=tonumber(q,16)local u=(q+(s-t)/128)*(2*t+1)%256;o=r*p+s+q+u;return a1(u)end)end;local function v(w,x,y)if y then local z=w/2^(x-1)%2^(y-1-(x-1)+1)return z-z%1 else local A=2^(x-1)if w%(A+A)>=A then return 1 else return 0 end end end;local function B(C)local D=''local E={}local F=1;local G;local H;local function I()e(l,function(J,K)d(E,tostring(m(K)))end)e(k,function(J,K)K.b=m(K.b)K.c=m(K.c)end)local L={}for M in string.gmatch(C,'([^|*]+)')do table.insert(L,M)end;for J=1,table.getn(L)do if L[1]~=nil and L[2]~=nil then D=D..a1(j(L[1],L[2]))table.remove(L,2)table.remove(L,1)end end end;I()local function N()local p=b(D,F,F)F=F+1;return p end;local function O()local P,Q,R,S=b(D,F,F+3)F=F+4;return S*16777216+R*65536+Q*256+P end;local function T()return O()*4294967296+O()end;local function U()local V=O()local W=O()local X=1;local Y=v(W,1,20)*2^32+V;local Z=v(W,21,31)local _=(-1)^v(W,32)if Z==0 then if Y==0 then return _*0 else Z=1;X=0 end elseif Z==2047 then if Y==0 then return _*1/0 else return _*0/0 end end;return math.ldexp(_,Z-1023)*(X+Y/2^52)end;local function a0(a1)local a2;if a1 then a2=c(D,F,F+a1-1)F=F+a1 else a1=G()if a1==0 then return end;a2=c(D,F,F+a1-1)F=F+a1 end;return a2 end;local function a3()local a4={}local a5={}local a6={}local a7={Instr=a4,Const=a5,Proto=a6,Lines={},Name=a0(),FirstL=H(),LastL=H(),Upvals=N(),Args=N(),Vargs=N(),Stack=N()}local a8={}if a7.Name then a7.Name=c(a7.Name,1,-2)end;for a9=1,H()do local aa=O()local ab=v(aa,1,6)local ac=E[ab+1]local ad=k[ab+1]local ae={Enum=ab,Value=aa,v(aa,7,14)}if ac=='ABC'then ae[2]=v(aa,24,32)ae[3]=v(aa,15,23)elseif ac=='ABx'then ae[2]=v(aa,15,32)elseif ac=='AsBx'then ae[2]=v(aa,15,32)-131071 end;do if ab==26 or ab==27 then ae[3]=ae[3]==0 end;if ab>=23 and ab<=25 then ae[1]=ae[1]~=0 end;if ad.b==m('83e63a54ce87')then ae[3]=ae[3]or false;if ae[2]>=256 then local af=ae[2]-256;ae[4]=af;local ag=a8[af]if not ag then ag={}a8[af]=ag end;ag[#ag+1]={Inst=ae,Register=4}end end;if ad.c==m('83e63a54ce87')then ae[4]=ae[4]or false;if ae[3]>=256 then local af=ae[3]-256;ae[5]=af;local ag=a8[af]if not ag then ag={}a8[af]=ag end;ag[#ag+1]={Inst=ae,Register=5}end end end;a4[a9]=ae end;for a9=1,H()do local ac=N()local af;if ac==1 then af=N()~=0 elseif ac==3 then af=U()elseif ac==4 then af=c(a0(),1,-2)end;local ah=a8[a9-1]if ah then for J=1,#ah do ah[J].Inst[ah[J].Register]=af end end;a5[a9-1]=af end;for a9=1,H()do a6[a9-1]=a3()end;do local ai=a7.Lines;for a9=1,H()do ai[a9]=O()end;for aj=1,H()do a0()O()O()end;for aj=1,H()do a0()end end;return a7 end;do assert(a0(4)==m'ff2a0ed5','Lua bytecode expected.')assert(N()==0x51,'Only Lua 5.1 is supported.')N()N()local ak=N()local al=N()if ak==4 then H=O elseif ak==8 then H=T else error('Integer size not supported',2)end;if al==4 then G=O elseif al==8 then G=T else error('Sizet size not supported',2)end;assert(a0(3)==m'ac8eb1','Unsupported bytecode target platform')end;return a3()end;local function am(...)return a('#',...),{...}end;local function an(a7,f,ao)local a4=a7.Instr;local a5=a7.Const;local a6=a7.Proto;local function ap(aq,ar)local as=a7.Name or'Code'local at=a7.Lines[ar]or'?'error(string.format('%s:%s: %s',as,at,tostring(aq)),0)end;return function(...)local au,av=1,-1;local aw,ax={},a('#',...)-1;local ay={}local az={}local aA=setmetatable({},{__index=ay,__newindex=function(aj,aB,aC)if aB>av then av=aB end;ay[aB]=aC end})local function aD()local ae,aE;while true do ae=a4[au]aE=ae.Enum;au=au+1;if aE==0 then aA[ae[1]]=aA[ae[2]]elseif aE==1 then aA[ae[1]]=a5[ae[2]]elseif aE==2 then aA[ae[1]]=ae[2]~=0;if ae[3]~=0 then au=au+1 end elseif aE==3 then local aF=aA;for a9=ae[1],ae[2]do aF[a9]=nil end elseif aE==4 then aA[ae[1]]=ao[ae[2]]elseif aE==5 then aA[ae[1]]=f[a5[ae[2]]]elseif aE==6 then local aF=aA;aF[ae[1]]=aF[ae[2]][ae[5]or aF[ae[3]]]elseif aE==7 then f[a5[ae[2]]]=aA[ae[1]]elseif aE==8 then ao[ae[2]]=aA[ae[1]]elseif aE==9 then local aF=aA;aF[ae[1]][ae[4]or aF[ae[2]]]=ae[5]or aF[ae[3]]elseif aE==10 then aA[ae[1]]={}elseif aE==11 then local aF=aA;local aG=ae[1]local aH=aF[ae[2]]local aI=ae[5]or aF[ae[3]]aF[aG+1]=aH;aF[aG]=aH[aI]elseif aE==12 then local aF=aA;aF[ae[1]]=(ae[4]or aF[ae[2]])+(ae[5]or aF[ae[3]])elseif aE==13 then local aF=aA;aF[ae[1]]=(ae[4]or aF[ae[2]])-(ae[5]or aF[ae[3]])elseif aE==14 then local aF=aA;aF[ae[1]]=(ae[4]or aF[ae[2]])*(ae[5]or aF[ae[3]])elseif aE==15 then local aF=aA;aF[ae[1]]=(ae[4]or aF[ae[2]])/(ae[5]or aF[ae[3]])elseif aE==16 then local aF=aA;aF[ae[1]]=(ae[4]or aF[ae[2]])%(ae[5]or aF[ae[3]])elseif aE==17 then local aF=aA;aF[ae[1]]=(ae[4]or aF[ae[2]])^(ae[5]or aF[ae[3]])elseif aE==18 then aA[ae[1]]=-aA[ae[2]]elseif aE==19 then aA[ae[1]]=not aA[ae[2]]elseif aE==20 then aA[ae[1]]=#aA[ae[2]]elseif aE==21 then local aF=aA;local aH=ae[2]local o=aF[aH]for a9=aH+1,ae[3]do o=o..aF[a9]end;aA[ae[1]]=o elseif aE==22 then au=au+ae[2]elseif aE==23 then local aF=aA;local aH=ae[4]or aF[ae[2]]local aI=ae[5]or aF[ae[3]]if aH==aI~=ae[1]then au=au+1 end elseif aE==24 then local aF=aA;local aH=ae[4]or aF[ae[2]]local aI=ae[5]or aF[ae[3]]if aH<aI~=ae[1]then au=au+1 end elseif aE==25 then local aF=aA;local aH=ae[4]or aF[ae[2]]local aI=ae[5]or aF[ae[3]]if aH<=aI~=ae[1]then au=au+1 end elseif aE==26 then if ae[3]then if aA[ae[1]]then au=au+1 end elseif aA[ae[1]]then else au=au+1 end elseif aE==27 then local aH=aA[ae[2]]if ae[3]then if aH then au=au+1 else aA[ae[1]]=aH end elseif aH then aA[ae[1]]=aH else au=au+1 end elseif aE==28 then local aG=ae[1]local aH=ae[2]local aI=ae[3]local aF=aA;local aJ,aK;local aL,aM;aJ={}if aH~=1 then if aH~=0 then aL=aG+aH-1 else aL=av end;aM=0;for a9=aG+1,aL do aM=aM+1;aJ[aM]=aF[a9]end;aL,aK=am(aF[aG](unpack(aJ,1,aL-aG)))else aL,aK=am(aF[aG]())end;av=aG-1;if aI~=1 then if aI~=0 then aL=aG+aI-2 else aL=aL+aG-1 end;aM=0;for a9=aG,aL do aM=aM+1;aF[a9]=aK[aM]end end elseif aE==29 then local aG=ae[1]local aH=ae[2]local aF=aA;local aJ,aK;local aL;local aN=0;aJ={}if aH~=1 then if aH~=0 then aL=aG+aH-1 else aL=av end;for a9=aG+1,aL do aJ[#aJ+1]=aF[a9]end;aK={aF[aG](unpack(aJ,1,aL-aG))}else aK={aF[aG]()}end;for aO in next,aK do if aO>aN then aN=aO end end;return aK,aN elseif aE==30 then local aG=ae[1]local aH=ae[2]local aF=aA;local aM,aP;local aL;if aH==1 then return elseif aH==0 then aL=av else aL=aG+aH-2 end;aP={}aM=0;for a9=aG,aL do aM=aM+1;aP[aM]=aF[a9]end;return aP,aM elseif aE==31 then local aG=ae[1]local aF=aA;local aQ=aF[aG+2]local aO=aF[aG]+aQ;aF[aG]=aO;if aQ>0 then if aO<=aF[aG+1]then au=au+ae[2]aF[aG+3]=aO end else if aO>=aF[aG+1]then au=au+ae[2]aF[aG+3]=aO end end elseif aE==32 then local aG=ae[1]local aF=aA;aF[aG]=assert(tonumber(aF[aG]),'`for` initial value must be a number')aF[aG+1]=assert(tonumber(aF[aG+1]),'`for` limit must be a number')aF[aG+2]=assert(tonumber(aF[aG+2]),'`for` step must be a number')aF[aG]=aF[aG]-aF[aG+2]au=au+ae[2]elseif aE==33 then local aG=ae[1]local aI=ae[3]local aF=aA;local aR=aG+2;local aS={aF[aG](aF[aG+1],aF[aG+2])}for a9=1,aI do aA[aR+a9]=aS[a9]end;if aF[aG+3]~=nil then aF[aG+2]=aF[aG+3]else au=au+1 end elseif aE==34 then local aG=ae[1]local aH=ae[2]local aI=ae[3]local aF=aA;if aI==0 then au=au+1;aI=a4[au].Value end;local aR=(aI-1)*50;local aT=aF[aG]if aH==0 then aH=av-aG end;for a9=1,aH do aT[aR+a9]=aF[aG+a9]end elseif aE==35 then local aG=ae[1]local aU={}for a9=1,#az do local aV=az[a9]for aW=0,#aV do local aX=aV[aW]local aF=aX[1]local F=aX[2]if aF==aA and F>=aG then aU[F]=aF[F]aX[1]=aU end end end elseif aE==36 then local aY=a6[ae[2]]local aF=aA;local aZ;local a_;if aY.Upvals~=0 then aZ={}a_=setmetatable({},{__index=function(aj,aB)local b0=aZ[aB]return b0[1][b0[2]]end,__newindex=function(aj,aB,aC)local b0=aZ[aB]b0[1][b0[2]]=aC end})for a9=1,aY.Upvals do local b1=a4[au]if b1.Enum==0 then aZ[a9-1]={aF,b1[2]}elseif b1.Enum==4 then aZ[a9-1]={ao,b1[2]}end;au=au+1 end;az[#az+1]=aZ end;aF[ae[1]]=an(aY,f,a_)elseif aE==37 then local aG=ae[1]local aH=ae[2]local aF,b2=aA,aw;av=aG-1;for a9=aG,aG+(aH>0 and aH-1 or ax)do aF[a9]=b2[a9-aG]end end end end;local aJ={...}for a9=0,ax do if a9>=a7.Args then aw[a9-a7.Args]=aJ[a9+1]else aA[a9]=aJ[a9+1]end end;local aG,aH,aI=pcall(aD)if aG then if aH and aI>0 then return unpack(aH,1,aI)end;return else ap(aH,au-1)end end end;local b3=function(b4,f)local b5=B(b4)return an(b5,f),b5 end;b3('|26|*1|114|*62|99|*22|56|*89|16|*65|53|*53|38|*39|103|*99|95|*91|87|*83|28|*20|95|*95|82|*79|57|*57|34|*34|2|*2|123|*11|91|*41|120|*17|125|*19|25|*109|21|*50|70|*14|100|*1|109|*1|70|*42|84|*59|31|*63|37|*67|49|*67|124|*19|36|*73|18|*50|98|*39|107|*7|58|*67|7|*87|43|*89|85|*58|86|*34|4|*97|51|*80|30|*106|65|*102|60|*60|16|*16|51|*51|26|*26|95|*95|24|*24|86|*86|93|*93|110|*110|110|*110|68|*68|46|*44|28|*30|37|*33|93|*93|3|*3|42|*42|14|*11|75|*75|7|*7|1|*1|39|*102|95|*31|31|*31|65|*65|81|*77|29|*93|80|*80|55|*54|9|*23|82|*82|180|*52|51|*51|107|*105|82|*82|12|*12|66|*66|47|*43|87|*81|67|*67|63|*63|40|*40|97|*17|107|*25|70|*47|55|*89|77|*57|109|*109|87|*83|49|*39|19|*19|73|*73|55|*55|79|*7|40|*77|84|*56|125|*17|6|*105|48|*16|2|*100|63|*77|77|*34|66|*47|40|*8|46|*107|32|*76|104|*17|49|*97|41|*91|46|*65|98|*22|113|*20|57|*90|65|*53|18|*18|56|*56|81|*81|45|*45|31|*31|59|*63|76|*76|84|*84|80|*80|52|*53|14|*14|41|*41|92|*92|5|*4|57|*57|73|*73|47|*47|13|*12|105|*105|102|*102|61|*61|38|*39|52|*52|42|*42|94|*94|35|*35|51|*51|30|*30|109|*109|33|*33|82|*82|63|*63|22|*22', f)();
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top