Advertisement
Guest User

Untitled

a guest
Aug 17th, 2019
119
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.64 KB | None | 0 0
  1. local d=string.byte;local r=string.char;local c=string.sub;local b=table.concat;local s=math.ldexp;local h=getfenv or function()return _ENV end;local l=setmetatable;local u=select;local l=unpack;local f=tonumber;local function H(d)local e,n,a="","",{}local t=256;local o={}for l=0,t-1 do o[l]=r(l)end;local l=1;local function i()local e=f(c(d,l,l),36)l=l+1;local n=f(c(d,l,l+e-1),36)l=l+e;return n end;e=r(i())a[1]=e;while l<#d do local l=i()if o[l]then n=o[l]else n=e..c(e,1,1)end;o[t]=e..c(n,1,1)a[#a+1],e,t=n,n,t+1 end;return table.concat(a)end;local t=H('26F26927526B2752782691H26627727927524H27D27921U27G27825T23O21322G24G27H27F24524H26926D27824623K24323Z26J2781D25L2751F2852691826H1H1U1726H2751426P28C1726P2751026X28J26X2751S25D28J25D2751O25L28J28828428L172881825T28C1E25T2751926H28L1B28F2691D29F1029F27E');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 l(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 e=1;local function n()local c,a,n,l=d(t,e,e+3);c=o(c,225)a=o(a,225)n=o(n,225)l=o(l,225)e=e+4;return(l*16777216)+(n*65536)+(a*256)+c;end;local function a()local l=o(d(t,e,e),225);e=e+1;return l;end;local function H()local e=n();local n=n();local c=1;local o=(l(n,1,20)*(2^32))+e;local e=l(n,21,31);local l=((-1)^l(n,32));if(e==0)then if(o==0)then return l*0;else e=1;c=0;end;elseif(e==2047)then return(o==0)and(l*(1/0))or(l*(0/0));end;return s(l,e-1023)*(c+(o/(2^52)));end;local i=n;local function s(l)local n;if(not l)then l=i();if(l==0)then return'';end;end;n=c(t,e,e+l-1);e=e+l;local e={}for l=1,#n do e[l]=r(o(d(c(n,l,l)),225))end return b(e);end;local e=n;local function i(...)return{...},u('#',...)end local function f()local d={0,0,0,0,0,0,0,0,0,0};local r={};local e={};local t={d,nil,r,nil,e};local e=n()local c={0,0,0,0,0,0};for n=1,e do local e=a();local l;if(e==3)then l=(a()~=0);elseif(e==2)then l=H();elseif(e==0)then l=s();end;c[n]=l;end;t[2]=c for a=1,n()do local c=o(n(),236);local n=o(n(),230);local o=l(c,1,2);local e=l(n,1,11);local e={e,l(c,3,11),nil,nil,n};if(o==0)then e[3]=l(c,12,20);e[5]=l(c,21,29);elseif(o==1)then e[3]=l(n,12,33);elseif(o==2)then e[3]=l(n,12,32)-1048575;elseif(o==3)then e[3]=l(n,12,32)-1048575;e[5]=l(c,21,29);end;d[a]=e;end;for l=1,n()do r[l-1]=f();end;t[4]=a();return t;end;local function s(l,e,t)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 e=o;local o=l;local l=i local e=1;local i=-1;local f={};local d={...};local r=u('#',...)-1;local l={};local n={};for l=0,r do if(l>=o)then f[l-o]=d[l+1];else n[l]=d[l+1];end;end;local l=r-o+1 local l;local o;while true do l=a[e];o=l[1];if o<=5 then if o<=2 then if o<=0 then n[l[2]]=c[l[3]];elseif o>1 then n[l[2]]={unpack({},1,l[3])};else n[l[2]]={unpack({},1,l[3])};end;elseif o<=3 then do return end;elseif o>4 then n[l[2]]();i=A;else local e=l[2];local o=n[e];local l=l[3];for l=1,l do o[l]=n[e+l]end;end;elseif o<=8 then if o<=6 then n[l[2]]=c[l[3]];elseif o>7 then local d;local t;local o;n[l[2]]={unpack({},1,l[3])};e=e+1;l=a[e];n[l[2]]=c[l[3]];e=e+1;l=a[e];n[l[2]]=c[l[3]];e=e+1;l=a[e];n[l[2]]=c[l[3]];e=e+1;l=a[e];n[l[2]]=c[l[3]];e=e+1;l=a[e];n[l[2]]=c[l[3]];e=e+1;l=a[e];o=l[2];t=n[o];d=l[3];for l=1,d do t[l]=n[o+l]end;else do return end;end;elseif o<=10 then if o==9 then n[l[2]]=t[c[l[3]]];else local e=l[2];local o=n[e];local l=l[3];for l=1,l do o[l]=n[e+l]end;end;elseif o==11 then n[l[2]]=t[c[l[3]]];else n[l[2]]();i=A;end;e=e+1;end;end;end;return s(f(),{},h())();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement