Advertisement
Guest User

Untitled

a guest
Dec 9th, 2019
99
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.60 KB | None | 0 0
  1. local d=string.byte;local f=string.char;local c=string.sub;local s=table.concat;local C=math.ldexp;local D=getfenv or function()return _ENV end;local l=setmetatable;local u=select;local h=unpack;local i=tonumber;local function B(d)local e,o,n="","",{}local t=256;local a={}for l=0,t-1 do a[l]=f(l)end;local l=1;local function r()local e=i(c(d,l,l),36)l=l+1;local o=i(c(d,l,l+e-1),36)l=l+e;return o end;e=f(r())n[1]=e;while l<#d do local l=r()if a[l]then o=a[l]else o=e..c(e,1,1)end;a[t]=e..c(o,1,1)n[#n+1],e,t=o,o,t+1 end;return table.concat(n)end;local a=B('25125027527625025224W2761Z25024K25022Q27621N25827522O27J2501Z24S27E23824S27521727M23727M27427627A27527326525Z26725027S27521625821W22323D27M2172502442502372761Y24S28B23728721724S28H28O27521B25026S28I28K28A22327W2751Z24K26C28I27E25021M23O28N23O27521Q23W28N23W27521R24C21G28I24C27521N24429623F28H27N28R25022V28721225028B2362761W24421025022Z28H21G21528M22323J27S21G21M26C28B23929625021Q27028B23A27029P24K27Q2982AC28B2AF25021G21N28722O28721R27M27L27521E26K2AQ26K29P27P25027R27T27V27M25B27728025025V25X26125T25025A27626R25T25C26F25T25I25E2832BS24Z27626C26025X25P2C025J2502BL27526W26325Z25X2602C72C92C025025427627025C25C25G2BW25C26T25J25P26225Z25024D2762642CS25G25J23Y24B24B25X25I26026324A25Z26326326024B25F26426525C25T26026525J25C24B26X25X26526224A25G26425G23V27325T25P23T27827626J26R2502532762E525P2CD27626B2DN2DP2DR2DT25T25S25024X27625G25I2DY25C25024J2762712D026325I25I25T25Z25C2442EK2DO2DQ2DS2F82EG');local n=bit and bit.bxor or function(l,e)local o,n=1,0 while l>0 and e>0 do local c,a=l%2,e%2 if c~=a then n=n+o end l,e,o=(l-c)/2,(e-a)/2,o*2 end if l<e then l=e end while l>0 do local e=l%2 if e>0 then n=n+o end l,o=(l-e)/2,o*2 end return n end local function e(e,l,o)if o then local l=(e/2^(l-1))%2^((o-1)-(l-1)+1);return l-l%1;else local l=2^(l-1);return(e%(l+l)>=l)and 1 or 0;end;end;local l=1;local function o()local a,c,e,o=d(a,l,l+3);a=n(a,180)c=n(c,180)e=n(e,180)o=n(o,180)l=l+4;return(o*16777216)+(e*65536)+(c*256)+a;end;local function t()local e=n(d(a,l,l),180);l=l+1;return e;end;local function r()local l=o();local o=o();local c=1;local n=(e(o,1,20)*(2^32))+l;local l=e(o,21,31);local e=((-1)^e(o,32));if(l==0)then if(n==0)then return e*0;else l=1;c=0;end;elseif(l==2047)then return(n==0)and(e*(1/0))or(e*(0/0));end;return C(e,l-1023)*(c+(n/(2^52)));end;local i=o;local function C(e)local o;if(not e)then e=i();if(e==0)then return'';end;end;o=c(a,l,l+e-1);l=l+e;local e={}for l=1,#o do e[l]=f(n(d(c(o,l,l)),180))end return s(e);end;local l=o;local function f(...)return{...},u('#',...)end local function B()local d={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 l={0};local c={};local a={d,nil,l,nil,c};for e=1,o()do l[e-1]=B();end;a[4]=t();for a=1,o()do local c=n(o(),159);local o=n(o(),199);local n=e(c,1,2);local l=e(o,1,11);local l={l,e(c,3,11),nil,nil,o};if(n==0)then l[3]=e(c,12,20);l[5]=e(c,21,29);elseif(n==1)then l[3]=e(o,12,33);elseif(n==2)then l[3]=e(o,12,32)-1048575;elseif(n==3)then l[3]=e(o,12,32)-1048575;l[5]=e(c,21,29);end;d[a]=l;end;local l=o()local o={0,0,0,0,0,0,0,0,0,0,0};for n=1,l do local e=t();local l;if(e==3)then l=(t()~=0);elseif(e==2)then l=r();elseif(e==0)then l=C();end;o[n]=l;end;a[2]=o return a;end;local function s(l,e,d)local e=l[1];local n=l[2];local o=l[3];local l=l[4];return function(...)local a=e;local c=n;local C=o;local n=l;local l=f local o=1;local r=-1;local i={};local t={...};local f=u('#',...)-1;local l={};local e={};for l=0,f do if(l>=n)then i[l-n]=t[l+1];else e[l]=t[l+1];end;end;local l=f-n+1 local l;local n;while true do l=a[o];n=l[1];if n<=11 then if n<=5 then if n<=2 then if n<=0 then do return end;elseif n==1 then e[l[2]]=s(C[l[3]],nil,d);else e[l[2]]=e[l[3]][c[l[5]]];end;elseif n<=3 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](h(c,1,l-o));r=o;elseif n==4 then e[l[2]]=e[l[3]];else e[l[2]]=c[l[3]];end;elseif n<=8 then if n<=6 then e[l[2]]=d[c[l[3]]];elseif n>7 then local n=l[3];local o=e[n]for l=n+1,l[5]do o=o..e[l];end;e[l[2]]=o;else 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](h(c,1,l-o));r=o;end;elseif n<=9 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](h(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;r=l;elseif n==10 then local u;local i;local t;local s;local f;local n;e[l[2]]=d[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={};t=0;i=n+l[3]-1;for l=n+1,i do t=t+1;s[t]=e[l];end;u={e[n](h(s,1,i-n))};i=n+l[5]-2;t=0;for l=n,i do t=t+1;e[l]=u[t];end;r=i;o=o+1;l=a[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=a[o];e[l[2]]=d[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];e[l[2]]=d[c[l[3]]];o=o+1;l=a[o];e[l[2]]=e[l[3]][c[l[5]]];else e[l[2]]=d[c[l[3]]];end;elseif n<=17 then if n<=14 then if n<=12 then o=o+l[3];elseif n==13 then local n=l[3];local o=e[n]for l=n+1,l[5]do o=o..e[l];end;e[l[2]]=o;else local o=l[2];local n=e[l[3]];e[o+1]=n;e[o]=n[c[l[5]]];end;elseif n<=15 then do return end;elseif n==16 then e[l[2]]=e[l[3]][c[l[5]]];else local o=l[2];local n=e[l[3]];e[o+1]=n;e[o]=n[c[l[5]]];end;elseif n<=20 then if n<=18 then e[l[2]]=c[l[3]];elseif n>19 then local n=l[2];local c={};local o=0;local a=n+l[3]-1;for l=n+1,a do o=o+1;c[o]=e[l];end;local c={e[n](h(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;r=l;else e[l[2]]=e[l[3]];end;elseif n<=22 then if n>21 then e[l[2]]=s(C[l[3]],nil,d);else if(e[l[2]]==c[l[5]])then o=o+1;else o=o+l[3];end;end;elseif n>23 then if(e[l[2]]==c[l[5]])then o=o+1;else o=o+l[3];end;else o=o+l[3];end;o=o+1;end;end;end;return s(B(),{},D())();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement