Advertisement
Guest User

Untitled

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