Advertisement
iiFlamez

Untitled

Feb 10th, 2020
156
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.01 KB | None | 0 0
  1. --[[
  2. _____ .___ __ _____.___. .__
  3. / \ __ __ __| _/____ ____ ____ | | __ \__ | |____ | |__ ____ ____
  4. / \ / \| | \/ __ |/ ___\/ _ \_/ ___\| |/ / / | \__ \ | | \ / _ \_/ __ \
  5. / Y \ | / /_/ \ \__( <_> ) \___| < \____ |/ __ \| Y ( <_> ) ___/
  6. \____|__ /____/\____ |\___ >____/ \___ >__|_ \ / ______(____ /___| /\____/ \___ >
  7. \/ \/ \/ \/ \/ \/ \/ \/ \/
  8. ]]
  9.  
  10. local d=string.byte;local i=string.char;local c=string.sub;local B=table.concat;local s=math.ldexp;local I=getfenv or function()return _ENV end;local l=setmetatable;local h=select;local f=unpack;local u=tonumber;local function b(d)local e,n,o="","",{}local t=256;local a={}for l=0,t-1 do a[l]=i(l)end;local l=1;local function r()local e=u(c(d,l,l),36)l=l+1;local n=u(c(d,l,l+e-1),36)l=l+e;return n end;e=i(r())o[1]=e;while l<#d do local l=r()if a[l]then n=a[l]else n=e..c(e,1,1)end;a[t]=e..c(n,1,1)o[#o+1],e,t=n,n,t+1 end;return table.concat(o)end;local r=b('23127423122T2752492252252311W27B26L24C23924D24221B23923126L24F27H24221527L23124B22527I21827B23124E23H23H23121628223124C23127I21B27427F27I27J27I1I24E2772311Z28I22X27523327527524D22A28O28P27421923122W2751T1V14131P23122U2751Y1W21622521A21R21821A212214215231');local o=bit and bit.bxor or function(l,e)local n,o=1,0 while l>0 and e>0 do local c,a=l%2,e%2 if c~=a then o=o+n end l,e,n=(l-c)/2,(e-a)/2,n*2 end if l<e then l=e end while l>0 do local e=l%2 if e>0 then o=o+n end l,n=(l-e)/2,n*2 end return o end local function e(n,l,e)if e then local l=(n/2^(l-1))%2^((e-1)-(l-1)+1);return l-l%1;else local l=2^(l-1);return(n%(l+l)>=l)and 1 or 0;end;end;local l=1;local function n()local a,n,c,e=d(r,l,l+3);a=o(a,109)n=o(n,109)c=o(c,109)e=o(e,109)l=l+4;return(e*16777216)+(c*65536)+(n*256)+a;end;local function t()local e=o(d(r,l,l),109);l=l+1;return e;end;local function b()local l=n();local n=n();local c=1;local o=(e(n,1,20)*(2^32))+l;local l=e(n,21,31);local e=((-1)^e(n,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 s(e,l-1023)*(c+(o/(2^52)));end;local a=n;local function u(e)local n;if(not e)then e=a();if(e==0)then return'';end;end;n=c(r,l,l+e-1);l=l+e;local e={}for l=1,#n do e[l]=i(o(d(c(n,l,l)),109))end return B(e);end;local l=n;local function r(...)return{...},h('#',...)end local function i()local d={0,0,0,0,0,0,0,0};local l={};local c={};local a={d,nil,l,nil,c};for e=1,n()do l[e-1]=i();end;for a=1,n()do local c=o(n(),243);local n=o(n(),70);local o=e(c,1,2);local l=e(n,1,11);local l={l,e(c,3,11),nil,nil,n};if(o==0)then l[3]=e(c,12,20);l[5]=e(c,21,29);elseif(o==1)then l[3]=e(n,12,33);elseif(o==2)then l[3]=e(n,12,32)-1048575;elseif(o==3)then l[3]=e(n,12,32)-1048575;l[5]=e(c,21,29);end;d[a]=l;end;local l=n()local n={0,0,0,0};for o=1,l do local e=t();local l;if(e==3)then l=(t()~=0);elseif(e==2)then l=b();elseif(e==0)then l=u();end;n[o]=l;end;a[2]=n a[4]=t();return a;end;local function u(l,e,a)local e=l[1];local n=l[2];local o=l[3];local l=l[4];return function(...)local u=e;local c=n;local e=o;local n=l;local l=r local e=1;local t=-1;local i={};local d={...};local r=h('#',...)-1;local l={};local o={};for l=0,r do if(l>=n)then i[l-n]=d[l+1];else o[l]=d[l+1];end;end;local l=r-n+1 local l;local n;while true do l=u[e];n=l[1];if n<=5 then if n<=2 then if n<=0 then e=e+l[3];elseif n==1 then local e=l[2];local c={};local n=0;local l=e+l[3]-1;for l=e+1,l do n=n+1;c[n]=o[l];end;o[e](f(c,1,l-e));t=e;else o[l[2]]=a[c[l[3]]];end;elseif n<=3 then o[l[2]]=a[c[l[3]]];elseif n>4 then local e=l[2];local c={};local n=0;local l=e+l[3]-1;for l=e+1,l do n=n+1;c[n]=o[l];end;o[e](f(c,1,l-e));t=e;else e=e+l[3];end;elseif n<=8 then if n<=6 then o[l[2]]=c[l[3]];elseif n>7 then do return end;else o[l[2]]=c[l[3]];end;elseif n<=9 then if(c[l[2]]==c[l[5]])then e=e+1;else e=e+l[3];end;elseif n>10 then if(c[l[2]]==c[l[5]])then e=e+1;else e=e+l[3];end;else do return end;end;e=e+1;end;end;end;return u(i(),{},I())();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement