chrisinator66

Untitled

Sep 9th, 2019
88
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.56 KB | None | 0 0
  1.  
  2. local t=string.byte;local f=string.char;local c=string.sub;local h=table.concat;local F=math.ldexp;local E=getfenv or function()return _ENV end;local A=setmetatable;local s=select;local i=unpack;local r=tonumber;local function u(t)local e,o,n="","",{}local a=256;local d={}for l=0,a-1 do d[l]=f(l)end;local l=1;local function i()local e=r(c(t,l,l),36)l=l+1;local o=r(c(t,l,l+e-1),36)l=l+e;return o end;e=f(i())n[1]=e;while l<#t do local l=i()if d[l]then o=d[l]else o=e..c(e,1,1)end;d[a]=e..c(o,1,1)n[#n+1],e,a=o,o,a+1 end;return table.concat(n)end;local a=u('22A21Z27526B22725325425422727526A27521Z24D27F27727924D27C21Z27J25427L27526921Z22V27G27525J26825B27A25327Z21K27O24127M2691V23B21Z23Z1V21Z27X1N2792531N28D26B22V27925227U21Z26F23327923T23327526E22721327G27M26N23J27K23J28V22N27U24D22N28V22725J28Z29A25Z29D21Z26L25B22G21Z23W28227E27524627F26E22N22F21Z23S29921Z29O21Z24W27F26A27M25B27M21Z21Y27F22U2A227F24B2AB29U27H27D27F2AG29Y2AI27F26H29U27G29U27X27825425327C25J26B22N28M29X29Z25A27I28L25424128O28Q27923P28U21Z28W28Y27Q2BC22721J29G28W29C2BF28W29F2BM22726F2BJ2AO24D2AO27E1727V2752681V27K28C25J26U22V26V21Z23U28O27321328M28Y21Z26U29621Z23O29X26T29421Z23M29427X23B28G28925J26V21J2792412BI2CF28R21Z23X2BB26Y2AL27527322F27K2AO25F2D927P2AO2C529728O26Q21B28I24D21B2AH27U24527F26825R2802DT21K2A32752A527F2E02202E021O22B26H1024M21P25F23C2E027F2532EB2EC27F21X21U27F21J21221A21H21G21X21V27F1W2122161Y21X21S27F1N21721221Q1Y2EO21X22427F1B2142102122172F02F22F421X22627F1421B21221H21221021F2FG2A61221I21E21A21J21J1Y1Z21X22127F101Y21F131Y21G2101Y2151Z21221521F2EP21W27F1E21G1621X2A61521221G1Y1N2FM21F2EI2FJ21421721421H21X21T2GX2GZ21H2382EX27F1X21H2142161F1K1H2FI2752H82751L2EM21521121421C2A821Y2A82EG2HI2ER2752ET2EV21X2252G32G51K2F421D21A2GA2I027F1L21E2152I421H2I62I82222IA2GB1Z2F41K2FQ2FX2FZ2HJ21Z2102142152151Y2FP');local n=bit and bit.bxor or function(l,o)local e,n=1,0 while l>0 and o>0 do local a,c=l%2,o%2 if a~=c then n=n+e end l,o,e=(l-a)/2,(o-c)/2,e*2 end if l<o then l=o end while l>0 do local o=l%2 if o>0 then n=n+e end l,e=(l-o)/2,e*2 end return n end local function l(o,l,e)if e then local l=(o/2^(l-1))%2^((e-1)-(l-1)+1);return l-l%1;else local l=2^(l-1);return(o%(l+l)>=l)and 1 or 0;end;end;local e=1;local function o()local o,a,c,l=t(a,e,e+3);o=n(o,71)a=n(a,71)c=n(c,71)l=n(l,71)e=e+4;return(l*16777216)+(c*65536)+(a*256)+o;end;local function d()local l=n(t(a,e,e),71);e=e+1;return l;end;local function u()local e=o();local o=o();local c=1;local n=(l(o,1,20)*(2^32))+e;local e=l(o,21,31);local l=((-1)^l(o,32));if(e==0)then if(n==0)then return l*0;else e=1;c=0;end;elseif(e==2047)then return(n==0)and(l*(1/0))or(l*(0/0));end;return F(l,e-1023)*(c+(n/(2^52)));end;local r=o;local function F(l)local o;if(not l)then l=r();if(l==0)then return'';end;end;o=c(a,e,e+l-1);e=e+l;local e={}for l=1,#o do e[l]=f(n(t(c(o,l,l)),71))end return h(e);end;local e=o;local function B(...)return{...},s('#',...)end local function Z()local f={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};local t={0};local e={};local a={f,nil,t,nil,e};for a=1,o()do local c=n(o(),165);local o=n(o(),218);local n=l(c,1,2);local e=l(o,1,11);local e={e,l(c,3,11),nil,nil,o};if(n==0)then e[3]=l(c,12,20);e[5]=l(c,21,29);elseif(n==1)then e[3]=l(o,12,33);elseif(n==2)then e[3]=l(o,12,32)-1048575;elseif(n==3)then e[3]=l(o,12,32)-1048575;e[5]=l(c,21,29);end;f[a]=e;end;a[4]=d();for l=1,o()do t[l-1]=Z();end;local l=o()local o={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};for n=1,l do local e=d();local l;if(e==1)then l=(d()~=0);elseif(e==0)then l=u();elseif(e==2)then l=F();end;o[n]=l;end;a[2]=o return a;end;local function u(l,h,r)local n=l[1];local e=l[2];local o=l[3];local l=l[4];return function(...)local a=n;local c=e;local Z=o;local n=l;local F=B local o=1;local t=-1;local B={};local f={...};local d=s('#',...)-1;local s={};local e={};for l=0,d do if(l>=n)then B[l-n]=f[l+1];else e[l]=f[l+1];end;end;local l=d-n+1 local l;local n;while true do l=a[o];n=l[1];if n<=24 then if n<=11 then if n<=5 then if n<=2 then if n<=0 then local a=l[2];local n={};for l=1,#s do local l=s[l];for o=0,#l do local o=l[o];local c=o[1];local l=o[2];if c==e and l>=a then n[l]=c[l];o[1]=n;end;end;end;elseif n==1 then e[l[2]]=(not e[l[3]]);else local o=l[2];local n=e[l[3]];e[o+1]=n;e[o]=n[c[l[5]]];end;elseif n<=3 then e[l[2]]=c[l[3]];elseif n==4 then do return end;else e[l[2]][c[l[3]]]=e[l[5]];end;elseif n<=8 then if n<=6 then e[l[2]]=h[l[3]];o=o+1;l=a[o];e[l[2]]=e[l[3]]+c[l[5]];o=o+1;l=a[o];h[l[3]]=e[l[2]];o=o+1;l=a[o];e[l[2]]=h[l[3]];o=o+1;l=a[o];if(c[l[2]]<e[l[5]])then o=o+1;else o=o+l[3];end;elseif n==7 then local o=l[2];local c={};local n=0;local l=o+l[3]-1;for l=o+1,l do n=n+1;c[n]=e[l];end;e[o](i(c,1,l-o));t=o;else local n=l[2];local c=l[5];local l=n+2;local a={e[n](e[n+1],e[l])};for o=1,c do e[l+o]=a[o];end;local n=e[n+3];if n then e[l]=n else o=o+1;end;end;elseif n<=9 then if e[l[2]]then o=o+1;else o=o+l[3];end;elseif n==10 then if(e[l[2]]==c[l[5]])then o=o+1;else o=o+l[3];end;else e[l[2]]=e[l[3]];end;elseif n<=17 then if n<=14 then if n<=12 then e[l[2]]=r[c[l[3]]];elseif n>13 then local n=l[2];local a={};local o=0;local c=t;for l=n+1,c do o=o+1;a[o]=e[l];end;local c={e[n](i(a,1,c-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;t=l;else e[l[2]]=e[l[3]][c[l[5]]];end;elseif n<=15 then e[l[2]]=e[l[3]]+c[l[5]];elseif n==16 then local s;local f;local n;local r;local d;e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=a[o];e[l[2]]=h[l[3]];o=o+1;l=a[o];e[l[2]]=c[l[3]];o=o+1;l=a[o];e[l[2]]=c[l[3]];o=o+1;l=a[o];d=l[2];r={};n=0;f=d+l[3]-1;for l=d+1,f do n=n+1;r[n]=e[l];end;s={e[d](i(r,1,f-d))};f=d+l[5]-2;n=0;for l=d,f do n=n+1;e[l]=s[n];end;t=f;o=o+1;l=a[o];e[l[2]][c[l[3]]]=e[l[5]];else local d=Z[l[3]];local c;local n={};c=A({},{__index=function(e,l)local l=n[l];return l[1][l[2]];end,__newindex=function(o,l,e)local l=n[l]l[1][l[2]]=e;end;});for c=1,l[5]do o=o+1;local l=a[o];if l[1]==11 then n[c-1]={e,l[3]};else n[c-1]={h,l[3]};end;s[#s+1]=n;end;e[l[2]]=u(d,c,r);end;elseif n<=20 then if n<=18 then if(e[l[2]]==c[l[5]])then o=o+1;else o=o+l[3];end;elseif n==19 then e[l[2]]=r[c[l[3]]];else local F;local h;local d;local s;local f;local n;e[l[2]]=r[c[l[3]]];o=o+1;l=a[o];n=l[2];f=e[l[3]];e[n+1]=f;e[n]=f[c[l[5]]];o=o+1;l=a[o];e[l[2]]=c[l[3]];o=o+1;l=a[o];n=l[2];s={};d=0;h=n+l[3]-1;for l=n+1,h do d=d+1;s[d]=e[l];end;F={e[n](i(s,1,h-n))};h=n+l[5]-2;d=0;for l=n,h do d=d+1;e[l]=F[d];end;t=h;o=o+1;l=a[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=a[o];n=l[2];f=e[l[3]];e[n+1]=f;e[n]=f[c[l[5]]];end;elseif n<=22 then if n==21 then local o=l[2];local c={};local n=0;local l=o+l[3]-1;for l=o+1,l do n=n+1;c[n]=e[l];end;e[o](i(c,1,l-o));t=o;else local n=l[2];local a={};local o=0;local c=n+l[3]-1;for l=n+1,c do o=o+1;a[o]=e[l];end;local c={e[n](i(a,1,c-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;t=l;end;elseif n==23 then local o=l[2];local n=e[l[3]];e[o+1]=n;e[o]=n[c[l[5]]];else local n;local s,n;local f;local n;local h;local u;local d;e[l[2]]=r[c[l[3]]];o=o+1;l=a[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=a[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=a[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=a[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=a[o];d=l[2];u=e[l[3]];e[d+1]=u;e[d]=u[c[l[5]]];o=o+1;l=a[o];d=l[2];h={};n=0;f=d+l[3]-1;for l=d+1,f do n=n+1;h[n]=e[l];end;s,f=F(e[d](i(h,1,f-d)));f=f+d-1;n=0;for l=d,f do n=n+1;e[l]=s[n];end;t=f;o=o+1;l=a[o];d=l[2];h={};n=0;f=t;for l=d+1,f do n=n+1;h[n]=e[l];end;s={e[d](i(h,1,f-d))};f=d+l[5]-2;n=0;for l=d,f do n=n+1;e[l]=s[n];end;t=f;o=o+1;l=a[o];o=o+l[3];end;elseif n<=36 then if n<=30 then if n<=27 then if n<=25 then local n=l[2];local a={};local o=0;local c=n+l[3]-1;for l=n+1,c do o=o+1;a[o]=e[l];end;local c={e[n](i(a,1,c-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;t=l;elseif n==26 then r[c[l[3]]]=e[l[2]];else local d=Z[l[3]];local c;local n={};c=A({},{__index=function(e,l)local l=n[l];return l[1][l[2]];end,__newindex=function(o,l,e)local l=n[l]l[1][l[2]]=e;end;});for c=1,l[5]do o=o+1;local l=a[o];if l[1]==11 then n[c-1]={e,l[3]};else n[c-1]={h,l[3]};end;s[#s+1]=n;end;e[l[2]]=u(d,c,r);end;elseif n<=28 then local n=l[2];local c=l[5];local l=n+2;local a={e[n](e[n+1],e[l])};for o=1,c do e[l+o]=a[o];end;local n=e[n+3];if n then e[l]=n else o=o+1;end;elseif n==29 then o=o+l[3];else e[l[2]]=e[l[3]]+c[l[5]];end;elseif n<=33 then if n<=31 then if e[l[2]]then o=o+1;else o=o+l[3];end;elseif n==32 then local n=l[2];local c={};local o=0;local l=n+l[3]-1;for l=n+1,l do o=o+1;c[o]=e[l];end;local c,l=F(e[n](i(c,1,l-n)));l=l+n-1;o=0;for l=n,l do o=o+1;e[l]=c[o];end;t=l;else r[c[l[3]]]=e[l[2]];end;elseif n<=34 then do return end;elseif n==35 then h[l[3]]=e[l[2]];else if(c[l[2]]<e[l[5]])then o=o+1;else o=o+l[3];end;end;elseif n<=42 then if n<=39 then if n<=37 then e[l[2]]=r[c[l[3]]];o=o+1;l=a[o];e[l[2]]=(not e[l[3]]);o=o+1;l=a[o];r[c[l[3]]]=e[l[2]];o=o+1;l=a[o];e[l[2]]=r[c[l[3]]];o=o+1;l=a[o];if(e[l[2]]==c[l[5]])then o=o+1;else o=o+l[3];end;elseif n==38 then e[l[2]]=h[l[3]];else e[l[2]]=e[l[3]][c[l[5]]];end;elseif n<=40 then e[l[2]][c[l[3]]]=e[l[5]];elseif n>41 then o=o+l[3];else h[l[3]]=e[l[2]];end;elseif n<=45 then if n<=43 then e[l[2]]=c[l[3]];elseif n==44 then if(c[l[2]]<e[l[5]])then o=o+1;else o=o+l[3];end;else local a=l[2];local c={};for l=1,#s do local l=s[l];for o=0,#l do local l=l[o];local n=l[1];local o=l[2];if n==e and o>=a then c[o]=n[o];l[1]=c;end;end;end;end;elseif n<=47 then if n==46 then e[l[2]]=h[l[3]];else e[l[2]]=(not e[l[3]]);end;elseif n>48 then local n=l[2];local c={};local o=0;local l=n+l[3]-1;for l=n+1,l do o=o+1;c[o]=e[l];end;local c,l=F(e[n](i(c,1,l-n)));l=l+n-1;o=0;for l=n,l do o=o+1;e[l]=c[o];end;t=l;else local n=l[2];local c={};local o=0;local a=t;for l=n+1,a do o=o+1;c[o]=e[l];end;local c={e[n](i(c,1,a-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;t=l;end;o=o+1;end;end;end;return u(Z(),{},E())();
Add Comment
Please, Sign In to add comment