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) _BOnEpiUAuUvv = a; end)); return(function(s,...)local d;local a;local r;local h;local t;local o;local e=24915;local n=0;local l={};while n<245 do n=n+1;while n<0x200 and e%0x2836<0x141b do n=n+1 e=(e+212)%21374 local f=n+e if(e%0xeda)>=0x76d then e=(e*0x360)%0x92c9 while n<0x12a and e%0x3d26<0x1e93 do n=n+1 e=(e-599)%23975 local o=n+e if(e%0x17ca)<0xbe5 then e=(e*0x12)%0x9ea0 local e=16804 if not l[e]then l[e]=0x1 t=(not t)and _ENV or t;end elseif e%2~=0 then e=(e+0x2e)%0xb27e local e=30801 if not l[e]then l[e]=0x1 h=tonumber;end else e=(e*0x1f0)%0x7067 n=n+1 local e=96050 if not l[e]then l[e]=0x1 a={};end end end elseif e%2~=0 then e=(e*0x226)%0x56a3 while n<0x315 and e%0x3200<0x1900 do n=n+1 e=(e*279)%28446 local r=n+e if(e%0x3a4a)<=0x1d25 then e=(e+0x156)%0x3ef6 local e=3014 if not l[e]then l[e]=0x1 o=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=d.byte(n(0x01))local e=n(e)if l=="\2"then e=a.RQJZPOGl(e)elseif l=="\3"then e=e~="\0"elseif l=="\6"then t[e]=function(e,n)return s(8,nil,s,n,e)end elseif l=="\4"then e=t[e]elseif l=="\0"then e=t[e][n(d.byte(n(0x01)))];end local n=n(0x08)a[n]=e end end end elseif e%2~=0 then e=(e+0x99)%0x83d6 local e=88195 if not l[e]then l[e]=0x1 end else e=(e-0x364)%0xb625 n=n+1 local e=26287 if not l[e]then l[e]=0x1 end end end else e=(e-0x22a)%0x9492 n=n+1 while n<0x2d9 and e%0x314a<0x18a5 do n=n+1 e=(e+415)%40095 local o=n+e if(e%0x182c)>=0xc16 then e=(e+0xc7)%0x8ffb local e=5479 if not l[e]then l[e]=0x1 d=string;end elseif e%2~=0 then e=(e*0x284)%0x913f local e=12164 if not l[e]then l[e]=0x1 t=getfenv and getfenv();end else e=(e+0x12c)%0x2fa3 n=n+1 local e=3536 if not l[e]then l[e]=0x1 r="\4\8\116\111\110\117\109\98\101\114\82\81\74\90\80\79\71\108\0\6\115\116\114\105\110\103\4\99\104\97\114\86\103\80\80\97\102\87\103\0\6\115\116\114\105\110\103\3\115\117\98\104\122\80\88\104\80\82\97\0\6\115\116\114\105\110\103\4\98\121\116\101\70\73\76\79\87\84\95\77\0\5\116\97\98\108\101\6\99\111\110\99\97\116\117\98\111\87\81\85\109\116\0\5\116\97\98\108\101\6\105\110\115\101\114\116\100\84\90\73\106\81\108\77\5";end end end end end e=(e-1016)%15299 end o(r);local n={};for e=0x0,0xff do local l=a.VgPPafWg(e);n[e]=l;n[l]=e;end local function c(e)return n[e];end local r=(function(r,o)local f,l=0x01,0x10 local n={{},{},{}}local t=-0x01 local e=0x01 local d=r while true do n[0x03][a.hzPXhPRa(o,e,(function()e=f+e return e-0x01 end)())]=(function()t=t+0x01 return t end)()if t==(0x0f)then t=""l=0x000 break end end local t=#o while e<t+0x01 do n[0x02][l]=a.hzPXhPRa(o,e,(function()e=f+e return e-0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 a.dTZIjQlM(n[0x01],(c((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+d)%0x100)));d=r+d;end end return a.uboWQUmt(n[0x01])end);o(r(91,"BQ3r*_t!g0u7q8D}uu"));o(r(127,"0E6P&h5D1LBc7CV_1E 1_5D1_D5__h5_1C5VOWDL_CD&3PDEVc1c_V1hC_EBL711_7DceD11E&D6kUD6_B51_51DB56cEDLBE6L1E_Lh6E1&n5LB_BLL6DP&ccBL6cBB66B166&E6BL_PPBP6Lc565cCE1L561c&97&B7_cL6V76PDhhPCc5P177&hcBP_cE&EC6PVcPP756VcCP&5C5hr7LhL7Dhc7L&cC5h2ch&5CBP7VPhL7&5DD1_777h7Cc5CVL5CB_PVV75BVP5C7VhhVCKL1BDVVLD6_VDc_Bh_C_hc_BDL_LEhLh&V?71ueLD7V51PVDDPB66DE&L.EhLDE51VE&1V_&5BEPDPEBBDTDL1c8P565L&E5BEEcPC6CBD6BL7E_B1Ehc1PB156C1VE&c77B&CPCcDPBB76_c1&EB66LL7&DBCELB7CBh7&17c&P7LheB6&7C1hB7#&1c7655LV7CB&CCh&_7V5qC_&EVPP57&h_cCh7Dh_BV&hLVC561R56VL5CVVD6_EDBC1h77C5_YS&V1V"));local e=(-1684+(function()local d,n=0,1;(function(n,l,e,t)n(n(e,l,t,e),e(e and e,l and e,e,t),n(e,l,e,n),n(e,l,n,e)and l(t,n,l and n,e))end)(function(o,t,l,e)if d>484 then return e end d=d+1 n=(n*194)%1999 if(n%1388)>=694 then n=(n-922)%15386 return l else return o(o(t,t,l,t),e(l,l,l,e),o(e,l,t,t)and l(t and o,l,e,t),e(o,l,e,l and e))end return l(e(l,e,t,o),e(e,e,e,e),l(o,o,o,o),t(t,e,t,l)and t(e,e,l,l))end,function(t,o,e,l)if d>396 then return l end d=d+1 n=(n-455)%44566 if(n%1956)<978 then n=(n*18)%24951 return o else return e(e(l,e,e,e)and e(e,o,o,e),o(t,t,o,e),e(e,l,e,t),l(l,o,t,e))end return e(o(l,e,o,t)and l(l,e,l,o),l(t,o,o and e,o and l),l(t,t,l,t),l(e,e and l,t,t and o)and t(e,l and l,t,l))end,function(e,l,t,o)if d>327 then return l end d=d+1 n=(n+292)%44750 if(n%356)>178 then n=(n-444)%2355 return l else return t(l(e,l and e,e,o),e(t,l and e,l,e),e(t,t,t,l),t(e,o,t,t and e)and t(l,o,t,l))end return e(e(o,l,e,o)and l(e and l,l and t,l,o and e),e(l,o,o,t and e),e(e,l,e,e),l(t,t and o,t,l)and e(t,e and e,o,o))end,function(t,e,o,l)if d>236 then return o end d=d+1 n=(n+920)%12068 if(n%1816)>908 then return t else return t(t(o,l,e,e),t(l and l,t,l,e),l(e,l,e,l)and e(e,l,e,l),l(t,t,t and e,o))end return l(t(e and e,t,e,o and t),e(o,e,e and l,l)and l(e,e,l,e),e(e,l,t,e and o),o(l,t,l,l))end)return n;end)())local u=a.sSYKuZEW or a.WyzEkKPw;local ee=(getfenv)or(function()return _ENV end);local t=2;local y=1;local o=3;local f=4;local function k(z,...)local c=r(e,"#{oTIp!3KgvO;z?M;?KII!%K;;gTI?{Dzoz;;vK;Iv?T;TgI?IvM!!oK?v??vM3ITgMgO;3?I!{{;{K{WI;?K!IKDvTKMzO{3!I3jv;vKTIvwp!ooM?Iv!!KKgo?Mzz?33!I{M;z3O3{{TM!OK.!m;KKIv%;T!8I;!KIIgzoKgIOpF.{zgpoIz{{z?gI!T{o?3v3pOovzzvO!;TI?3Oo3vM!?zOO3OMM?U;gK{TzMY;M!{Ig{!zzppTOtzz?g3!Yo!?3!KoK?;v?!z!zoT?zOIT3o?9{O?3pTvMpOgKTz;vTp?oA?o/O;Og;p{{{z;v!MIOK3!TKMvoTzMvz!3;3K!IKKvOO?PM?Mv{pgK3{{vz;g?vzg{pT{IOOKMIMSz;Tv!!!{M?!v{!M2!?gv!!KoOM!KOKYIoQopIIOz!gKpv3iI!GgzpIII;{{z!g{6?o3zTv3{!oK?;vO3oop?pOK!Oo;vv;T33IIMv3I!TI37g;v3{IptpKI3;{O;v;?v3{wMKzggvpzo;zzvvoTMOOz3MI{;;v!I?{dzo?z;pKzI;zz;{KTTUjpzTKzT?{I;MvITg{g?vvOI3{z?3v;!ITTM?IvoI;;K?px!OITNO;vpOTMw{;Mg3po{vO{K?To{z?o3IppoI?TKT!vTI?gO!!g;!KKIvL;;?vIpo{Iz!gK!o{;z?vE!ToI?!vK3;I1??O 3oTzM!OK3vI?MM;NKoII>v;KKvI;TI?3gopI{!z?gvpz{??vvo!KTg?Kvv!;TIM)OT3IT!MKOv3;T?*{;oKII!{vz!K;I?{PzKgIp!{Kzvvop?or?ovp!!ov?vz;KvT)MoOIK{TKM;O;g2pIao;IK!I?%v;;K?pB{gzIg!pK{Oz;vL!lpoM;v!!KovMKv?3KTo>!OO3KTvM;;{KSIo_IzKK?Iv9z;?g3po{Iz!OK3I{;zMv1!ToI?3vK3;T!??OT3oTgM!OK3vT;{I;cKTIIVg;KKvI;5??pgopI{!zKgvp?{??=vO!Io!?KvO!;oMMiOo3MT!MKOv3zT?S&;o");local n=0;a.wTaRYFSc(function()a.pnRQLjhg()n=n+1 end)local function e(l,e)if e then return n end;n=l+n;end local l,n,r=s(0,s,e,c,a.FILOWT_M);local function d()local n,l=a.FILOWT_M(c,e(1,3),e(5,6)+2);e(2);return(l*256)+n;end;local g=true;local g=0 local function b()local e=n();local n=n();local o=1;local t=(l(n,1,20)*(2^32))+e;local e=l(n,21,31);local n=((-1)^l(n,32));if(e==0)then if(t==g)then return n*0;else e=1;o=0;end;elseif(e==2047)then return(t==0)and(n*(1/0))or(n*(0/0));end;return a.dhYhxcW_(n,e-1023)*(o+(t/(2^52)));end;local _=n;local function p(n)local l;if(not n)then n=_();if(n==0)then return'';end;end;l=a.hzPXhPRa(c,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+g),#l do e=e..a.hzPXhPRa(l,n,n)end return e;end;local g=#a.LAiHnzYi(h('\49.\48'))~=1 local e=n;local function m(...)return{...},a.rStFSmJh('#',...)end local function k()local h={};local e={};local s={};local u={s,h,nil,e};local e=n()local c={}for t=1,e do local l=r();local e;if(l==1)then e=(r()~=#{});elseif(l==3)then local n=b();if g and a.tcySPalC(a.LAiHnzYi(n),'.(\48+)$')then n=a.pxUXHiyF(n);end e=n;elseif(l==2)then e=p();end;c[t]=e;end;u[3]=r();for e=1,n()do h[e-(#{1})]=k();end;for h=1,n()do local e=r();if(l(e,1,1)==0)then local a=l(e,2,3);local r=l(e,4,6);local e={d(),d(),nil,nil};if(a==0)then e[o]=d();e[f]=d();elseif(a==#{1})then e[o]=n();elseif(a==z[2])then e[o]=n()-(2^16)elseif(a==z[3])then e[o]=n()-(2^16)e[f]=d();end;if(l(r,1,1)==1)then e[t]=c[e[t]]end if(l(r,2,2)==1)then e[o]=c[e[o]]end if(l(r,3,3)==1)then e[f]=c[e[f]]end s[h]=e;end end;return u;end;local function b(l,e,n)local t=e;local t=n;return h(a.tcySPalC(a.tcySPalC(({a.wTaRYFSc(l)})[2],e),n))end local function j(g,e,h)local function k(...)local r,j,d,ee,z,l,c,b,_,p,k,n;local e=0;while-1<e do if e<=2 then if e>=1 then if e>=0 then for n=31,82 do if e<2 then d=s(6,83,3,28,g);z=m ee=0;break;end;l=-41;c=-1;break;end;else l=-41;c=-1;end else r=s(6,36,1,69,g);j=s(6,79,2,7,g);end else if 5<=e then if 2<e then for l=45,54 do if e>5 then e=-2;break;end;n=s(7);break;end;else e=-2;end else if 4>e then b={};_={...};else p=a.rStFSmJh('#',...)-1;k={};end end end e=e+1;end;for e=0,p do if(e>=d)then b[e-d]=_[e+1];else n[e]=_[e+1];end;end;local e=p-d+1 local e;local d;local function a(...)while true do end end while true do if l<-40 then l=l+42 end e=r[l];d=e[y];if 13>=d then if d<=6 then if d>2 then if d<=4 then if d>0 then repeat if 4>d then if(n[e[t]]~=e[f])then l=l+1;else l=e[o];end;break;end;n[e[t]]();until true;else if(n[e[t]]~=e[f])then l=l+1;else l=e[o];end;end else if 1<=d then for a=22,72 do if 6~=d then local e=e[t]n[e]=n[e]()break;end;local a;for d=0,6 do if d<=2 then if 1>d then a=e[t]n[a]=n[a]()l=l+1;e=r[l];else if 1<d then n[e[t]]=h[e[o]];l=l+1;e=r[l];else n[e[t]][e[o]]=e[f];l=l+1;e=r[l];end end else if d<5 then if 3<d then n[e[t]][e[o]]=e[f];l=l+1;e=r[l];else a=e[t]n[a]=n[a]()l=l+1;e=r[l];end else if d~=5 then n[e[t]]=h[e[o]];else n[e[t]]=h[e[o]];l=l+1;e=r[l];end end end end break;end;else local e=e[t]n[e]=n[e]()end end else if 1<=d then if d>1 then local e=e[t]n[e]=n[e]()else local l=e[t]local t,e=z(n[l](u(n,l+1,e[o])))c=e+l-1 local e=0;for l=l,c do e=e+1;n[l]=t[e];end;end else do return end;end end else if d>9 then if d>11 then if 10<d then for l=25,78 do if d<13 then n[e[t]]=h[e[o]];break;end;n[e[t]][e[o]]=e[f];break;end;else n[e[t]]=h[e[o]];end else if 11~=d then local d,f,h,a;n(e[t],e[o]);l=l+1;e=r[l];d=e[t]f,h=z(n[d](u(n,d+1,e[o])))c=h+d-1 a=0;for e=d,c do a=a+1;n[e]=f[a];end;l=l+1;e=r[l];d=e[t]n[d]=n[d](u(n,d+1,c))l=l+1;e=r[l];n[e[t]]();l=l+1;e=r[l];do return end;else local e=e[t]n[e]=n[e](u(n,e+1,c))end end else if 8>d then n(e[t],e[o]);else if 4~=d then for a=13,70 do if d~=9 then for d=0,3 do if d>=2 then if 2~=d then if(n[e[t]]~=e[f])then l=l+1;else l=e[o];end;else n[e[t]]=h[e[o]];l=l+1;e=r[l];end else if d>=-4 then repeat if 1~=d then n[e[t]]=(e[o]~=0);l=l+1;e=r[l];break;end;h[e[o]]=n[e[t]];l=l+1;e=r[l];until true;else n[e[t]]=(e[o]~=0);l=l+1;e=r[l];end end end break;end;if(n[e[t]]~=e[f])then l=l+1;else l=e[o];end;break;end;else if(n[e[t]]~=e[f])then l=l+1;else l=e[o];end;end end end end else if d<21 then if 17>d then if 14>=d then n(e[t],e[o]);else if 13<=d then repeat if d>15 then n[e[t]]=h[e[o]];break;end;l=e[o];until true;else l=e[o];end end else if d>=19 then if d>=16 then for a=36,79 do if d~=19 then local l=e[t];local t=n[e[o]];n[l+1]=t;n[l]=t[e[f]];break;end;l=e[o];break;end;else l=e[o];end else if d~=16 then for l=48,76 do if d>17 then do return end;break;end;h[e[o]]=n[e[t]];break;end;else h[e[o]]=n[e[t]];end end end else if 24>=d then if 22<d then if d>=19 then repeat if 24~=d then h[e[o]]=n[e[t]];break;end;n[e[t]]=(e[o]~=0);until true;else h[e[o]]=n[e[t]];end else if d~=22 then local e=e[t]n[e]=n[e](u(n,e+1,c))else n[e[t]]();end end else if 26<d then if 24<d then repeat if 28~=d then n[e[t]]=(e[o]~=0);break;end;local l=e[t]local t,e=z(n[l](u(n,l+1,e[o])))c=e+l-1 local e=0;for l=l,c do e=e+1;n[l]=t[e];end;until true;else local l=e[t]local t,e=z(n[l](u(n,l+1,e[o])))c=e+l-1 local e=0;for l=l,c do e=e+1;n[l]=t[e];end;end else if d<26 then n[e[t]][e[o]]=e[f];else local l=e[t];local t=n[e[o]];n[l+1]=t;n[l]=t[e[f]];end end end end end l=1+l;end;end;return k end;local o=0xff;local c={};local d=(1);local t='';(function(n)local l=n local r=0x00 local e=0x00 l={(function(f)if r>0x2d then return f end r=r+1 e=(e+0x900-f)%0x13 return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x83);t={t..'\58 a',t};c[d]=k();d=d+((not a.ftaZykqJ)and 1 or 0);t[1]='\58'..t[1];o[2]=0xff;end return true end)'jSGvc'and l[0x2](0x8e+f))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x75);end return true end)'stKzm'and l[0x1](f+0xa3))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xdc);end return true end)'rhCkQ'and l[0x3](f+0x18b))or f end),(function(a)if r>0x2e then return a end r=r+1 e=(e+0x837-a)%0x36 return(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xa1);t='\37';o={function()o()end};t=t..'\100\43';end return true end)'OZdOI'and l[0x1](0x32b+a))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x2a);end return true end)'_pKgs'and l[0x2](a+0x328))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x60);o[2]=(o[2]*(b(function()c()end,u(t))-b(o[1],u(t))))+1;c[d]={};o=o[2];d=d+o;end return true end)'esdkD'and l[0x3](a+0x2d1))or a end),(function(t)if r>0x2f then return t end r=r+1 e=(e+0x4e0-t)%0x24 return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xa7);c[d]=ee();d=d+o;end return true end)'nJXgF'and l[0x3](0x86+t))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x78);end return true end)'qQYpS'and l[0x1](t+0x1f5))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xd1);end return true end)'jimYm'and l[0x2](t+0x3e4))or t end)}l[0x2](0x1e44)end){};local e=j(u(c));return e(...);end return k((function()local n={}local e=0x01;local l;if a.ftaZykqJ then l=a.ftaZykqJ(k)else l=''end if a.tcySPalC(l,a.itVWjIgt)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,t,o,d)local d;if 4<=l then if 5>=l then if l>=0 then for d=43,93 do if l~=4 then local l=t;do return function()local e=e(n,l(l,l),l(l,l));l(1);return e;end;end;break;end;local l=t;local o,t,d=o(2);do return function()local e,a,n,r=e(n,l(l,l),l(l,l)+3);l(4);return(r*o)+(n*t)+(a*d)+e;end;end;break;end;else local l=t;do return function()local e=e(n,l(l,l),l(l,l));l(1);return e;end;end;end else if l<=6 then do return o[n]end;else if 5~=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,o,t,l,n)if n then return e[n]elseif l then return e else e[o]=t end end})end until true;else do return setmetatable({},{['__\99\97\108\108']=function(e,l,o,t,n)if n then return e[n]elseif t then return e else e[l]=o end end})end end end end else if l<=1 then if l~=-2 then repeat if l>0 then 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;break;end;do return e(1),e(4,o,t,n,e),e(5,o,t,n)end;until true;else do return e(1),e(4,o,t,n,e),e(5,o,t,n)end;end else if l~=3 then do return 16777216,65536,256 end;else do return e(1),e(4,o,t,n,e),e(5,o,t,n)end;end end end end),...)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement