Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ([[This file was protected with MoonSec V3 by Federal#9999]]):gsub('.+', (function(a) _VEJAEgetofAB = a; end)); return(function(o,...)local b;local r;local t;local a;local f;local d;local e=24915;local n=0;local l={};while n<384 do n=n+1;while n<0x1f9 and e%0x4b6c<0x25b6 do n=n+1 e=(e*479)%37004 local c=n+e if(e%0xa80)<0x540 then e=(e*0xb3)%0x43d8 while n<0x114 and e%0x2c9c<0x164e do n=n+1 e=(e+460)%44151 local r=n+e if(e%0x1fac)>=0xfd6 then e=(e-0x17c)%0x41c5 local e=85207 if not l[e]then l[e]=0x1 d={};end elseif e%2~=0 then e=(e-0x44)%0x486b local e=48503 if not l[e]then l[e]=0x1 f=string;end else e=(e+0x205)%0x8b6e n=n+1 local e=15418 if not l[e]then l[e]=0x1 t=function(l)local e=0x01 local function n(n)e=e+n return l:sub(e-n,e-0x01)end while true do local l=n(0x01)if(l=="\5")then break end local e=f.byte(n(0x01))local e=n(e)if l=="\2"then e=d.BHTdoAuJ(e)elseif l=="\3"then e=e~="\0"elseif l=="\6"then a[e]=function(n,e)return o(8,nil,o,e,n)end elseif l=="\4"then e=a[e]elseif l=="\0"then e=a[e][n(f.byte(n(0x01)))];end local n=n(0x08)d[n]=e end end end end end elseif e%2~=0 then e=(e+0x268)%0x1f31 while n<0x3b5 and e%0x1a1e<0xd0f do n=n+1 e=(e*203)%27828 local t=n+e if(e%0x21b2)>0x10d9 then e=(e*0x255)%0x4810 local e=47133 if not l[e]then l[e]=0x1 end elseif e%2~=0 then e=(e+0x153)%0x7565 local e=43242 if not l[e]then l[e]=0x1 end else e=(e*0x234)%0xbf34 n=n+1 local e=54877 if not l[e]then l[e]=0x1 a=getfenv and getfenv();end end end else e=(e-0x147)%0x2b38 n=n+1 while n<0x2d4 and e%0x4e1a<0x270d do n=n+1 e=(e*625)%36290 local t=n+e if(e%0x3796)>0x1bcb then e=(e*0x2b0)%0x10b3 local e=79713 if not l[e]then l[e]=0x1 r="\4\8\116\111\110\117\109\98\101\114\66\72\84\100\111\65\117\74\0\6\115\116\114\105\110\103\4\99\104\97\114\87\118\109\118\90\98\79\77\0\6\115\116\114\105\110\103\3\115\117\98\120\76\95\101\84\74\105\74\0\6\115\116\114\105\110\103\4\98\121\116\101\70\66\101\83\86\71\75\110\0\5\116\97\98\108\101\6\99\111\110\99\97\116\117\74\118\122\68\106\97\90\0\5\116\97\98\108\101\6\105\110\115\101\114\116\117\122\79\119\109\106\98\74\5";end elseif e%2~=0 then e=(e-0x302)%0x26f3 local e=33286 if not l[e]then l[e]=0x1 a=(not a)and _ENV or a;end else e=(e*0x31f)%0xb114 n=n+1 local e=70586 if not l[e]then l[e]=0x1 b=tonumber;end end end end end e=(e*597)%27067 end t(r);local n={};for e=0x0,0xff do local l=d.WvmvZbOM(e);n[e]=l;n[l]=e;end local function c(e)return n[e];end local f=(function(r,o)local f,l=0x01,0x10 local n={{},{},{}}local a=-0x01 local e=0x01 local t=r while true do n[0x03][d.xL_eTJiJ(o,e,(function()e=f+e return e-0x01 end)())]=(function()a=a+0x01 return a end)()if a==(0x0f)then a=""l=0x000 break end end local a=#o while e<a+0x01 do n[0x02][l]=d.xL_eTJiJ(o,e,(function()e=f+e return e-0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 d.uzOwmjbJ(n[0x01],(c((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+t)%0x100)));t=r+t;end end return d.uJvzDjaZ(n[0x01])end);t(f(183,"mf*QyI;FM lBkTq8yq"));t(f(6,"_93aEyM.}fxqo()SSxSxM9yoyEEyEEa.o)3}aa3y333MSS)a))(}(}Sf(3}A.q)co(oyoxoExEq(qSfxfqfM..fy3a39}M}3.a.3.3E.axafa33E3SaoEEo}o}3S3x339a93kyf(SS)(Sx)a)3o9o9qaq}xEf(ofxqEEE3xyfax!})3y}M.}.a}-.3E9Mxy}aMy)yyEaaa(s(3aa9S3}9qr(9MS(+xS9)oS/)aqq(S(M(Eofx)o(x3EoEff3fqfaf)faf;EqMMM).(.3E.a(yqy))M)sE(a9aaa}a934L3=3S}93()S)f;}fqqoEo.oEqq(Eo.o)xyy#E)qExfx.x3fx}q}x.(.a.xMMyyE(ySMaE.)^(SE}3S3x3)39qo3y9}9ESSSqS(+ESy)a)%)9qQq.xyM:yooyq}qEfSfqf(f3}qMSM3M.yxM9MyT1SqM0yoE(EoEo3f7(3x:SQS393y9SxMx3IfSySM)f)9)oqyoMo)oxoxxyxaqsE3Ebxaf9f)}o3a.).).q.y.3y9MyyEa.afy3Eoa)oS"));local e=(-205+(function()local l,n=0,1;(function(e)e(e(e and e))end)(function(e)if l>109 then return e end l=l+1 n=(n*805)%616 if(n%886)<=443 then return e(e(e)and e(e))else return e end return e end)return n;end)())local ee=(getfenv)or(function()return _ENV end);local u=d.feOHSLYc or d.xocfmBOC;local r=4;local ne=1;local a=2;local t=3;local function _(s,...)local h=f(e,"(%KbOgwSCx5=MaL*KOKCbMgBwSS*CM5E=OK*O%wOw=Sax5=wgSSKSMxq5OKOb=O%gCS=xX5K5aMwabCb5a5C=MaQb%wSS=CLCS5a=*M*aSIM%LKxOKO*w*gCCaxM=vMgLKMx%!KObwa=*bH1%OKCxb=gMwM *=u*%*M=%b*TjO%CCr5C=aa=xM*w+aKOb%_Gw=wxC*g0=OM5a=*O*xQ=bXbgOC%CCbCx5C=^SM=a*b0S%5%bbxO=%MwwgSgC5LaxxOMLc%%OKxO5OawMbSw%SgCxxaS=xM5+=OMCKxwKOSC5xg5a=aawaa*M*wKSKLOMwbC-%*S=OOgCwMLClC%MKMOb%LKSb=xKxg=*C5aSLa_M%Obgbwgaw*Sgxwx===MLLCLaj5KO*Kb=g=waObxO5==bMgLO**DbKwb%OMwOSSOSxM=KMbaKL%*b%CK=*=OaggS%C5g*=S==aLLxdO%MK***g-wSwaCOxx=5g*S5COxC5M%gOKgOw=SbC*CC=%aOLSC=5D=oMOaCgbw%C%Cab*gbwOSCCMLxeOKSa**arO%CKMx*555aMwa%Lx%*b%gOwbwLgaSKOwgxw*CCxO5C=M%LOag=SSwLxg=gM%SbC=xC5MM+%MgMScCJw=xaMWwbS=CCxM=2%=baOLOMSaxw5SgbaaSCCM5R%MbMgGw0SSgKg=w*=Ca%L**b%bK5b.mLgSSSCxg*5gMCag5*V=6a%LbCgbwSSSxbwbSxCM5C=ga%L%*CE5%MbOOxgCS%SMx85w=5a%LN*bKgbhO%w5wLC===5S5ML%*%*x%KObggwLxKgawaxM=M*OoOLxKSKaOMb=gRw%CO5a=%=wMKlwaLL*bCbbwSgSC%5x=b5%=aLC**<LKbKSwEwgwSxCx*xgMb5S*g*LLK*5OLwKwbC!KCbMg#wOxgCM5H=OMCa**lVO%CKaOWgOwCCLx*5O=CMMLb*O,C%MOKg%gCwMCBx*5C=MaeG5%blMKqbOOLgMS%COxa5MMOa=LC*M% K5bCOaw SOx%xM=EMOaxLM2P%Ob5OMgnwOSCCa5y=OMCaMtw O%CKMO%gOw5SMMW=z=CMMLtt%lCKKbygww<wMC1xO5x=MaFLO*C%gKqbOOCgaS:CwxCaMMaaOLC*M%OKOOOOMSKC5CCxM=oMgaCLMN2%OKMbMgTwOSxCM5K=O*C*g*;yO%Cb=OzwOwCCLxK5O=CMML%*O1C%MbZgLgCwMCfxg5C=La&%O_SmMK,bOgEgMSMCO55=LM8aOLC*a%pKObCOMSMSOCCxM=%MOa5LMbkKxKCbMgVwLSCxC56MwaaaM*6!O%5KMOEgOS5CMxj5g=CagLI*OnCbMOgOOgxwMC%xO=w=MLKLS*C6*Knb=OCgMSlCO=O5MM%aOL=*M%2KObCgawXSOCCxM=IMwaCLMWO%OKCbMg%wOSxCM5jM=MCaM*#jg%CKMO:gO");local n=0;d.RqyZabIm(function()d.shPVRrDj()n=n+1 end)local function e(l,e)if e then return n end;n=l+n;end local l,n,c=o(0,o,e,h,d.FBeSVGKn);local function f()local l,n=d.FBeSVGKn(h,e(1,3),e(5,6)+2);e(2);return(n*256)+l;end;local g=true;local g=0 local function k()local a=n();local e=n();local t=1;local a=(l(e,1,20)*(2^32))+a;local n=l(e,21,31);local e=((-1)^l(e,32));if(n==0)then if(a==g)then return e*0;else n=1;t=0;end;elseif(n==2047)then return(a==0)and(e*(1/0))or(e*(0/0));end;return d.EthLzwka(e,n-1023)*(t+(a/(2^52)));end;local y=n;local function p(n)local l;if(not n)then n=y();if(n==0)then return'';end;end;l=d.xL_eTJiJ(h,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+g),#l do e=e..d.xL_eTJiJ(l,n,n)end return e;end;local g=#d.cpbWUmwa(b('\49.\48'))~=1 local e=n;local function z(...)return{...},d.CZhjpQUh('#',...)end local function m()local u={};local h={};local e={};local b={h,u,nil,e};local e=n()local o={}for a=1,e do local l=c();local n;if(l==2)then n=(c()~=#{});elseif(l==0)then local e=k();if g and d.MSKVHGya(d.cpbWUmwa(e),'.(\48+)$')then e=d.WqfOWvvn(e);end n=e;elseif(l==3)then n=p();end;o[a]=n;end;for e=1,n()do u[e-(#{1})]=m();end;for u=1,n()do local e=c();if(l(e,1,1)==0)then local d=l(e,2,3);local c=l(e,4,6);local e={f(),f(),nil,nil};if(d==0)then e[t]=f();e[r]=f();elseif(d==#{1})then e[t]=n();elseif(d==s[2])then e[t]=n()-(2^16)elseif(d==s[3])then e[t]=n()-(2^16)e[r]=f();end;if(l(c,1,1)==1)then e[a]=o[e[a]]end if(l(c,2,2)==1)then e[t]=o[e[t]]end if(l(c,3,3)==1)then e[r]=o[e[r]]end h[u]=e;end end;b[3]=c();return b;end;local function _(l,e,n)local a=e;local a=n;return b(d.MSKVHGya(d.MSKVHGya(({d.RqyZabIm(l)})[2],e),n))end local function j(y,e,h)local function _(...)local f,j,s,m,b,n,c,k,g,p,_,l;local e=0;while-1<e do if e<=2 then if e>=1 then if 1~=e then n=-41;c=-1;else s=o(6,33,3,70,y);b=z m=0;end else f=o(6,92,1,3,y);j=o(6,45,2,68,y);end else if 4>=e then if 0<e then for n=21,70 do if 3<e then p=d.CZhjpQUh('#',...)-1;_={};break;end;k={};g={...};break;end;else k={};g={...};end else if e<6 then l=o(7);else e=-2;end end end e=e+1;end;for e=0,p do if(e>=s)then k[e-s]=g[e+1];else l[e]=g[e+1];end;end;local e=p-s+1 local e;local o;local function d(...)while true do end end while true do if n<-40 then n=n+42 end e=f[n];o=e[ne];if o<15 then if o>6 then if 10>=o then if o<9 then if o~=5 then for d=18,53 do if 7<o then if(l[e[a]]~=e[r])then n=n+1;else n=e[t];end;break;end;n=e[t];break;end;else n=e[t];end else if 8~=o then for n=13,55 do if o<10 then do return end;break;end;l[e[a]]=h[e[t]];break;end;else l[e[a]]=h[e[t]];end end else if 13<=o then if 11~=o then for d=36,54 do if o~=13 then if(l[e[a]]~=e[r])then n=n+1;else n=e[t];end;break;end;local n=e[a]local a,e=b(l[n](u(l,n+1,e[t])))c=e+n-1 local e=0;for n=n,c do e=e+1;l[n]=a[e];end;break;end;else if(l[e[a]]~=e[r])then n=n+1;else n=e[t];end;end else if o~=11 then l[e[a]]=(e[t]~=0);else local e=e[a]l[e]=l[e]()end end end else if o<=2 then if o>0 then if o>=0 then repeat if o>1 then local o;for d=0,6 do if 2>=d then if d<1 then l[e[a]]=h[e[t]];n=n+1;e=f[n];else if-3<=d then for c=39,73 do if d<2 then o=e[a]l[o]=l[o]()n=n+1;e=f[n];break;end;l[e[a]][e[t]]=e[r];n=n+1;e=f[n];break;end;else o=e[a]l[o]=l[o]()n=n+1;e=f[n];end end else if d<=4 then if 4>d then l[e[a]]=h[e[t]];n=n+1;e=f[n];else o=e[a]l[o]=l[o]()n=n+1;e=f[n];end else if 3<=d then for o=40,58 do if 5~=d then l[e[a]]=h[e[t]];break;end;l[e[a]][e[t]]=e[r];n=n+1;e=f[n];break;end;else l[e[a]][e[t]]=e[r];n=n+1;e=f[n];end end end end break;end;n=e[t];until true;else n=e[t];end else l[e[a]][e[t]]=e[r];end else if 4>=o then if-1<=o then for d=28,87 do if 3<o then l[e[a]]();break;end;for o=0,3 do if o<=1 then if o<1 then l[e[a]]=(e[t]~=0);n=n+1;e=f[n];else h[e[t]]=l[e[a]];n=n+1;e=f[n];end else if 3~=o then l[e[a]]=h[e[t]];n=n+1;e=f[n];else if(l[e[a]]~=e[r])then n=n+1;else n=e[t];end;end end end break;end;else l[e[a]]();end else if o>=4 then for n=14,83 do if 5~=o then local o,r,d,f,c;local n=0;while n>-1 do if 2<n then if 5<=n then if 1~=n then for e=21,55 do if n<6 then l(c,f);break;end;n=-2;break;end;else n=-2;end else if n>1 then repeat if n>3 then c=o[r];break;end;f=o[d];until true;else f=o[d];end end else if 1<=n then if-3<n then repeat if 1<n then d=t;break;end;r=a;until true;else d=t;end else o=e;end end n=n+1 end break;end;l[e[a]]();break;end;else l[e[a]]();end end end end else if 22<=o then if o>25 then if 28>o then if o~=23 then for n=45,64 do if 26<o then local n=e[a]local a,e=b(l[n](u(l,n+1,e[t])))c=e+n-1 local e=0;for n=n,c do e=e+1;l[n]=a[e];end;break;end;local e=e[a]l[e]=l[e](u(l,e+1,c))break;end;else local n=e[a]local a,e=b(l[n](u(l,n+1,e[t])))c=e+n-1 local e=0;for n=n,c do e=e+1;l[n]=a[e];end;end else if o>25 then repeat if 28~=o then local n=e[a];local a=l[e[t]];l[n+1]=a;l[n]=a[e[r]];break;end;h[e[t]]=l[e[a]];until true;else local a=e[a];local n=l[e[t]];l[a+1]=n;l[a]=n[e[r]];end end else if o<24 then if 22~=o then local e=e[a]l[e]=l[e](u(l,e+1,c))else local o;for d=0,6 do if d>=3 then if d<5 then if 4==d then l[e[a]][e[t]]=e[r];n=n+1;e=f[n];else o=e[a]l[o]=l[o]()n=n+1;e=f[n];end else if 4<=d then for r=31,58 do if 6~=d then l[e[a]]=h[e[t]];n=n+1;e=f[n];break;end;o=e[a]l[o]=l[o]()break;end;else l[e[a]]=h[e[t]];n=n+1;e=f[n];end end else if d<=0 then o=e[a]l[o]=l[o]()n=n+1;e=f[n];else if d>=0 then repeat if 1<d then l[e[a]]=h[e[t]];n=n+1;e=f[n];break;end;l[e[a]][e[t]]=e[r];n=n+1;e=f[n];until true;else l[e[a]]=h[e[t]];n=n+1;e=f[n];end end end end end else if o>24 then l[e[a]][e[t]]=e[r];else h[e[t]]=l[e[a]];end end end else if 18<=o then if 20>o then if o~=15 then repeat if 19>o then local e=e[a]l[e]=l[e]()break;end;local a=e[a];local n=l[e[t]];l[a+1]=n;l[a]=n[e[r]];until true;else local e=e[a]l[e]=l[e]()end else if o>=18 then repeat if o>20 then local o,h,s,g,d;o=e[a];h=l[e[t]];l[o+1]=h;l[o]=h[e[r]];n=n+1;e=f[n];l(e[a],e[t]);n=n+1;e=f[n];o=e[a]s,g=b(l[o](u(l,o+1,e[t])))c=g+o-1 d=0;for e=o,c do d=d+1;l[e]=s[d];end;n=n+1;e=f[n];o=e[a]l[o]=l[o](u(l,o+1,c))n=n+1;e=f[n];l[e[a]]();n=n+1;e=f[n];do return end;break;end;l[e[a]]=(e[t]~=0);until true;else local o,h,g,s,d;o=e[a];h=l[e[t]];l[o+1]=h;l[o]=h[e[r]];n=n+1;e=f[n];l(e[a],e[t]);n=n+1;e=f[n];o=e[a]g,s=b(l[o](u(l,o+1,e[t])))c=s+o-1 d=0;for e=o,c do d=d+1;l[e]=g[d];end;n=n+1;e=f[n];o=e[a]l[o]=l[o](u(l,o+1,c))n=n+1;e=f[n];l[e[a]]();n=n+1;e=f[n];do return end;end end else if 15<o then if 15<o then repeat if 16<o then l(e[a],e[t]);break;end;l[e[a]]=h[e[t]];until true;else l(e[a],e[t]);end else do return end;end end end end n=1+n;end;end;return _ end;local t=0xff;local c={};local o=(1);local a='';(function(n)local l=n local f=0x00 local e=0x00 l={(function(a)if f>0x2e then return a end f=f+1 e=(e+0xa8f-a)%0x4f return(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x3d);end return true end)'rLCet'and l[0x1](0xa3+a))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x33);end return true end)'MFqDY'and l[0x2](a+0x1cc))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x84);end return true end)'MAZjm'and l[0x3](a+0x369))or a end),(function(r)if f>0x1f then return r end f=f+1 e=(e+0x6b9-r)%0x4e return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xcd);t[2]=(t[2]*(_(function()c()end,u(a))-_(t[1],u(a))))+1;c[o]={};t=t[2];o=o+t;end return true end)'LulfM'and l[0x2](0x115+r))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x61);end return true end)'Yi_fF'and l[0x1](r+0x232))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x59);a={a..'\58 a',a};c[o]=m();o=o+((not d.zYCTDJqP)and 1 or 0);a[1]='\58'..a[1];t[2]=0xff;end return true end)'hLH_w'and l[0x3](r+0x338))or r end),(function(d)if f>0x23 then return d end f=f+1 e=(e+0xbd5-d)%0x1a return(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x82);a='\37';t={function()t()end};a=a..'\100\43';end return true end)'iPfAQ'and l[0x2](0x1fa+d))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xe);c[o]=ee();o=o+t;end return true end)'wmWpe'and l[0x3](d+0xf2))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xf);end return true end)'LfQqU'and l[0x1](d+0x201))or d end)}l[0x3](0x18b7)end){};local e=j(u(c));return e(...);end return _((function()local n={}local e=0x01;local l;if d.zYCTDJqP then l=d.zYCTDJqP(_)else l=''end if d.MSKVHGya(l,d.OHMLDUhv)then e=e+0;else e=e+1;end n[e]=0x02;n[n[e]+0x01]=0x03;return n;end)(),...)end)((function(l,e,n,a,t,o)local o;if l<4 then if 1>=l then if l>=-4 then repeat if 1>l then do return e(1),e(4,t,a,n,e),e(5,t,a,n)end;break;end;do return function(l,e,n)if n then local e=(l/2^(e-1))%2^((n-1)-(e-1)+1);return e-e%1;else local e=2^(e-1);return(l%(e+e)>=e)and 1 or 0;end;end;end;until true;else do return e(1),e(4,t,a,n,e),e(5,t,a,n)end;end else if 1<l then repeat if 3~=l then do return 16777216,65536,256 end;break;end;do return e(1),e(4,t,a,n,e),e(5,t,a,n)end;until true;else do return e(1),e(4,t,a,n,e),e(5,t,a,n)end;end end else if l<=5 then if l>=1 then for o=39,87 do if 4<l then local l=a;do return function()local e=e(n,l(l,l),l(l,l));l(1);return e;end;end;break;end;local l=a;local a,d,t=t(2);do return function()local f,e,o,n=e(n,l(l,l),l(l,l)+3);l(4);return(n*a)+(o*d)+(e*t)+f;end;end;break;end;else local l=a;do return function()local e=e(n,l(l,l),l(l,l));l(1);return e;end;end;end else if l>=7 then if 3<l then repeat if 7~=l then do return n(l,nil,n);end break;end;do return setmetatable({},{['__\99\97\108\108']=function(e,t,a,l,n)if n then return e[n]elseif l then return e else e[t]=a end end})end until true;else do return setmetatable({},{['__\99\97\108\108']=function(e,a,l,t,n)if n then return e[n]elseif t then return e else e[a]=l end end})end end else do return t[n]end;end end end end),...)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement