Advertisement
Guest User

gae!!

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