Advertisement
karobloxYT

Untitled

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