Advertisement
chrisinator66

Untitled

Sep 9th, 2019
154
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 11.20 KB | None | 0 0
  1. local f=string.byte;local i=string.char;local c=string.sub;local B=table.concat;local s=math.ldexp;local F=getfenv or function()return _ENV end;local J=setmetatable;local h=select;local r=unpack;local t=tonumber;local function A(f)local o,e,a="","",{}local n=256;local d={}for l=0,n-1 do d[l]=i(l)end;local l=1;local function r()local o=t(c(f,l,l),36)l=l+1;local e=t(c(f,l,l+o-1),36)l=l+o;return e end;o=i(r())a[1]=o;while l<#f do local l=r()if d[l]then e=d[l]else e=o..c(o,1,1)end;d[n]=o..c(e,1,1)a[#a+1],o,n=e,e,n+1 end;return table.concat(a)end;local d=A('22922B27527627522F2761M27625W27A22B21V22B26Q27A21V27G26627G22B1M22J27525D27Q22B22A27622A22C2761N21I1W2131X21O21627722B22E27Z22J24J24S26327T1J21V28C25Y27N1U27625Y27A22327G25Y22327527P27525Y27T27427522A2892751Z21C21E21R21R27X2761X21I1Y21221M29A22B1O28A28C25C27T27B23722B28N2751V22328I28S27O28P29O29U1N23728I29N22B1J23F28I23F28T27K29O27N1N28B24S28W28T22B21F29O27E1Z2AJ2AG25V27H27629R29T28T29W28R27529Z2A12752A42A62A828Q2AB2AD2AF27O2AH2AM2B72AL29P2B725F2B927B26R2BF2A927M2AW2AD26229L2B82BC27B2BB27E2BE2BQ1B24329O1B2BL28I2BO23N2BF22B24Z2C42BH2BQ2A928J2C024S2642BO24J22B26527E27U2BQ27F22A2C929N2CB22B1I22B2C82761I2CA27N1J2B527T1I22J2372CN2D122J2BB2D62BU2D622R22A26Q2D12A926U2CY26R28I2BH22B1V2D02751U21V132CN27N1721728I2172DP2232CP29U2DQ21V2DT2DP27N2CQ2CS1J2B91K2A02AE29N25V1F26B28C26426B2751924R22422B25I24R24S2181M2A722B25K2EW1E2BJ27N1627625U2CV22B29N25N2761K24324S24S26T2FC2181J2DJ2CD2DL2DN28C25G27T2DQ1Z2E522B2DQ28V27N2E92EB2ED25Y2EF1F2432EJ2BX22B1927F2EQ27525V2EV2752EY2752F027L2F22F42F62F82FA2FC2FE2FG28U22B27S27529U27U27927521G21E21Q21I22A27T22B1021N21221321J21O21021P22A2202761721O21K21I21P2371I2H721N2HJ21321M2942HQ21O2HK1L21E21M21R21I21J22A2GW22B2102HX21328727524J2302982751321R21E21621I1X1W22A22G2AQ21O29421R2IE2IG2II2I22761O2HR21K22A22I2761G21N21E1X21E21C2132IT27Y2AW28128328522A22D276132J42HP22822A21U2761121I1Z21R2HR21E2J821J1021321O2J521G2H122H2761T21I2132102JZ21K21M21P21G2IZ276142K91W1Z2J62K22J12J32J52J72II2IK2IM2751K2K62J22HY21J29A2HC2JG2ID2IF2IH1X2IL2761H29A21E21K1P21O2KB2132IK29122B2KJ29E2IK2K32KT2K6102II2112HR2H12LH29329529722L2FA2K62801W21C2HJ21J21E21P2LF2902762KI21E2HB');local n=bit and bit.bxor or function(l,o)local e,n=1,0 while l>0 and o>0 do local a,c=l%2,o%2 if a~=c then n=n+e end l,o,e=(l-a)/2,(o-c)/2,e*2 end if l<o then l=o end while l>0 do local o=l%2 if o>0 then n=n+e end l,e=(l-o)/2,e*2 end return n end local function o(e,l,o)if o then local l=(e/2^(l-1))%2^((o-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,o,c,a=f(d,l,l+3);e=n(e,83)o=n(o,83)c=n(c,83)a=n(a,83)l=l+4;return(a*16777216)+(c*65536)+(o*256)+e;end;local function t()local o=n(f(d,l,l),83);l=l+1;return o;end;local function A()local l=e();local n=e();local c=1;local e=(o(n,1,20)*(2^32))+l;local l=o(n,21,31);local o=((-1)^o(n,32));if(l==0)then if(e==0)then return o*0;else l=1;c=0;end;elseif(l==2047)then return(e==0)and(o*(1/0))or(o*(0/0));end;return s(o,l-1023)*(c+(e/(2^52)));end;local a=e;local function s(o)local e;if(not o)then o=a();if(o==0)then return'';end;end;e=c(d,l,l+o-1);l=l+o;local o={}for l=1,#e do o[l]=i(n(f(c(e,l,l)),83))end return B(o);end;local l=e;local function f(...)return{...},h('#',...)end local function C()local d={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};local l={0,0};local c={};local a={d,nil,l,nil,c};for o=1,e()do l[o-1]=C();end;a[4]=t();for a=1,e()do local c=n(e(),69);local e=n(e(),133);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;d[a]=l;end;local l=e()local e={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};for n=1,l do local o=t();local l;if(o==2)then l=(t()~=0);elseif(o==0)then l=A();elseif(o==1)then l=s();end;e[n]=l;end;a[2]=e return a;end;local function I(l,A,i)local n=l[1];local o=l[2];local e=l[3];local l=l[4];return function(...)local n=n;local c=o;local E=e;local a=l;local u=f local o=1;local f=-1;local s={};local t={...};local d=h('#',...)-1;local B={};local e={};for l=0,d do if(l>=a)then s[l-a]=t[l+1];else e[l]=t[l+1];end;end;local l=d-a+1 local l;local a;while true do l=n[o];a=l[1];if a<=18 then if a<=8 then if a<=3 then if a<=1 then if a==0 then local B;local h;local d;local t;local a;e[l[2]]=c[l[3]];o=o+1;l=n[o];a=l[2];t={};d=0;h=a+l[3]-1;for l=a+1,h do d=d+1;t[d]=e[l];end;e[a](r(t,1,h-a));f=a;o=o+1;l=n[o];e[l[2]]=i[c[l[3]]];o=o+1;l=n[o];e[l[2]]=c[l[3]];o=o+1;l=n[o];a=l[2];t={};d=0;h=a+l[3]-1;for l=a+1,h do d=d+1;t[d]=e[l];end;e[a](r(t,1,h-a));f=a;o=o+1;l=n[o];e[l[2]]=i[c[l[3]]];o=o+1;l=n[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=n[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=n[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=n[o];a=l[2];B=e[l[3]];e[a+1]=B;e[a]=B[c[l[5]]];else local n=l[2];local a={};local o=0;local c=n+l[3]-1;for l=n+1,c do o=o+1;a[o]=e[l];end;local c={e[n](r(a,1,c-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;f=l;end;elseif a==2 then e[l[2]]=A[l[3]];else e[l[2]]=e[l[3]][c[l[5]]];end;elseif a<=5 then if a>4 then local n=l[2];local a=l[5];local l=n+2;local c={e[n](e[n+1],e[l])};for o=1,a do e[l+o]=c[o];end;local n=e[n+3];if n then e[l]=n else o=o+1;end;else local a=l[2];local c={};for l=1,#B do local l=B[l];for o=0,#l do local l=l[o];local n=l[1];local o=l[2];if n==e and o>=a then c[o]=n[o];l[1]=c;end;end;end;end;elseif a<=6 then o=o+l[3];elseif a>7 then local o=l[2];local c={};local n=0;local l=o+l[3]-1;for l=o+1,l do n=n+1;c[n]=e[l];end;e[o](r(c,1,l-o));f=o;else local n=l[2];local c={};local o=0;local l=n+l[3]-1;for l=n+1,l do o=o+1;c[o]=e[l];end;local c,l=u(e[n](r(c,1,l-n)));l=l+n-1;o=0;for l=n,l do o=o+1;e[l]=c[o];end;f=l;end;elseif a<=13 then if a<=10 then if a>9 then e[l[2]]=i[c[l[3]]];else e[l[2]]=A[l[3]];end;elseif a<=11 then local s;local t;local d;local B;local h;local a;e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=n[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=n[o];a=l[2];h=e[l[3]];e[a+1]=h;e[a]=h[c[l[5]]];o=o+1;l=n[o];a=l[2];B={};d=0;t=a+l[3]-1;for l=a+1,t do d=d+1;B[d]=e[l];end;s={e[a](r(B,1,t-a))};t=a+l[5]-2;d=0;for l=a,t do d=d+1;e[l]=s[d];end;f=t;o=o+1;l=n[o];a=l[2];h=e[l[3]];e[a+1]=h;e[a]=h[c[l[5]]];o=o+1;l=n[o];a=l[2];B={};d=0;t=a+l[3]-1;for l=a+1,t do d=d+1;B[d]=e[l];end;e[a](r(B,1,t-a));f=a;o=o+1;l=n[o];e[l[2]]=i[c[l[3]]];o=o+1;l=n[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=n[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=n[o];e[l[2]]=e[l[3]][c[l[5]]];elseif a>12 then local h;local d;local t;local a;e[l[2]]=i[c[l[3]]];o=o+1;l=n[o];e[l[2]]=i[c[l[3]]];o=o+1;l=n[o];e[l[2]]=A[l[3]];o=o+1;l=n[o];a=l[2];t={};d=0;h=a+l[3]-1;for l=a+1,h do d=d+1;t[d]=e[l];end;e[a](r(t,1,h-a));f=a;o=o+1;l=n[o];do return end;else local h;local d;local t;local B;local a;e[l[2]]=i[c[l[3]]];o=o+1;l=n[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=n[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=n[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=n[o];e[l[2]][c[l[3]]]=c[l[5]];o=o+1;l=n[o];e[l[2]]=i[c[l[3]]];o=o+1;l=n[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=n[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=n[o];a=l[2];B=e[l[3]];e[a+1]=B;e[a]=B[c[l[5]]];o=o+1;l=n[o];a=l[2];t={};d=0;h=a+l[3]-1;for l=a+1,h do d=d+1;t[d]=e[l];end;e[a](r(t,1,h-a));f=a;end;elseif a<=15 then if a>14 then local a=l[2];local c={};for l=1,#B do local l=B[l];for o=0,#l do local l=l[o];local n=l[1];local o=l[2];if n==e and o>=a then c[o]=n[o];l[1]=c;end;end;end;else local n=l[2];local c={};local o=0;local a=n+l[3]-1;for l=n+1,a do o=o+1;c[o]=e[l];end;local c={e[n](r(c,1,a-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;f=l;end;elseif a<=16 then local f=E[l[3]];local d;local c={};d=J({},{__index=function(o,l)local l=c[l];return l[1][l[2]];end,__newindex=function(e,l,o)local l=c[l]l[1][l[2]]=o;end;});for a=1,l[5]do o=o+1;local l=n[o];if l[1]==30 then c[a-1]={e,l[3]};else c[a-1]={A,l[3]};end;B[#B+1]=c;end;e[l[2]]=I(f,d,i);elseif a>17 then local a;local B,a;local t;local d;local h;local s;local a;e[l[2]]=i[c[l[3]]];o=o+1;l=n[o];a=l[2];s=e[l[3]];e[a+1]=s;e[a]=s[c[l[5]]];o=o+1;l=n[o];a=l[2];h={};d=0;t=a+l[3]-1;for l=a+1,t do d=d+1;h[d]=e[l];end;B,t=u(e[a](r(h,1,t-a)));t=t+a-1;d=0;for l=a,t do d=d+1;e[l]=B[d];end;f=t;o=o+1;l=n[o];a=l[2];h={};d=0;t=f;for l=a+1,t do d=d+1;h[d]=e[l];end;B={e[a](r(h,1,t-a))};t=a+l[5]-2;d=0;for l=a,t do d=d+1;e[l]=B[d];end;f=t;o=o+1;l=n[o];o=o+l[3];else e[l[2]]=c[l[3]];end;elseif a<=27 then if a<=22 then if a<=20 then if a>19 then e[l[2]][c[l[3]]]=c[l[5]];else do return end;end;elseif a>21 then local h;local d;local t;local B;local a;e[l[2]]=i[c[l[3]]];o=o+1;l=n[o];a=l[2];B=e[l[3]];e[a+1]=B;e[a]=B[c[l[5]]];o=o+1;l=n[o];e[l[2]]=c[l[3]];o=o+1;l=n[o];a=l[2];t={};d=0;h=a+l[3]-1;for l=a+1,h do d=d+1;t[d]=e[l];end;e[a](r(t,1,h-a));f=a;o=o+1;l=n[o];e[l[2]]=i[c[l[3]]];o=o+1;l=n[o];e[l[2]]=c[l[3]];o=o+1;l=n[o];a=l[2];t={};d=0;h=a+l[3]-1;for l=a+1,h do d=d+1;t[d]=e[l];end;e[a](r(t,1,h-a));f=a;o=o+1;l=n[o];e[l[2]]=i[c[l[3]]];o=o+1;l=n[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=n[o];e[l[2]]=e[l[3]][c[l[5]]];else e[l[2]]=c[l[3]];end;elseif a<=24 then if a==23 then do return end;else local o=l[2];local c={};local n=0;local l=o+l[3]-1;for l=o+1,l do n=n+1;c[n]=e[l];end;e[o](r(c,1,l-o));f=o;end;elseif a<=25 then local n=l[2];local o=e[l[3]];e[n+1]=o;e[n]=o[c[l[5]]];elseif a==26 then e[l[2]][c[l[3]]]=c[l[5]];else local n=l[2];local c={};local o=0;local a=f;for l=n+1,a do o=o+1;c[o]=e[l];end;local c={e[n](r(c,1,a-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;f=l;end;elseif a<=32 then if a<=29 then if a>28 then local n=l[2];local c=l[5];local l=n+2;local a={e[n](e[n+1],e[l])};for o=1,c do e[l+o]=a[o];end;local n=e[n+3];if n then e[l]=n else o=o+1;end;else local n=l[2];local c={};local o=0;local l=n+l[3]-1;for l=n+1,l do o=o+1;c[o]=e[l];end;local c,l=u(e[n](r(c,1,l-n)));l=l+n-1;o=0;for l=n,l do o=o+1;e[l]=c[o];end;f=l;end;elseif a<=30 then e[l[2]]=e[l[3]];elseif a==31 then local n=l[2];local a={};local o=0;local c=f;for l=n+1,c do o=o+1;a[o]=e[l];end;local c={e[n](r(a,1,c-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;f=l;else local a,a;local B;local s;local t;local d;local h;local a;a=l[2];h={};d=0;t=a+l[3]-1;for l=a+1,t do d=d+1;h[d]=e[l];end;e[a](r(h,1,t-a));f=a;o=o+1;l=n[o];e[l[2]]=i[c[l[3]]];o=o+1;l=n[o];e[l[2]]=i[c[l[3]]];o=o+1;l=n[o];a=l[2];s=e[l[3]];e[a+1]=s;e[a]=s[c[l[5]]];o=o+1;l=n[o];e[l[2]]=c[l[3]];o=o+1;l=n[o];a=l[2];h={};d=0;t=a+l[3]-1;for l=a+1,t do d=d+1;h[d]=e[l];end;B={e[a](r(h,1,t-a))};t=a+l[5]-2;d=0;for l=a,t do d=d+1;e[l]=B[d];end;f=t;o=o+1;l=n[o];a=l[2];s=e[l[3]];e[a+1]=s;e[a]=s[c[l[5]]];o=o+1;l=n[o];a=l[2];h={};d=0;t=a+l[3]-1;for l=a+1,t do d=d+1;h[d]=e[l];end;B,t=u(e[a](r(h,1,t-a)));t=t+a-1;d=0;for l=a,t do d=d+1;e[l]=B[d];end;f=t;o=o+1;l=n[o];a=l[2];h={};d=0;t=f;for l=a+1,t do d=d+1;h[d]=e[l];end;B={e[a](r(h,1,t-a))};t=a+l[5]-2;d=0;for l=a,t do d=d+1;e[l]=B[d];end;f=t;o=o+1;l=n[o];o=o+l[3];end;elseif a<=34 then if a>33 then e[l[2]]=i[c[l[3]]];else e[l[2]]=e[l[3]][c[l[5]]];end;elseif a<=35 then o=o+l[3];elseif a==36 then local n=l[2];local o=e[l[3]];e[n+1]=o;e[n]=o[c[l[5]]];else local d=E[l[3]];local a;local c={};a=J({},{__index=function(o,l)local l=c[l];return l[1][l[2]];end,__newindex=function(e,l,o)local l=c[l]l[1][l[2]]=o;end;});for a=1,l[5]do o=o+1;local l=n[o];if l[1]==30 then c[a-1]={e,l[3]};else c[a-1]={A,l[3]};end;B[#B+1]=c;end;e[l[2]]=I(d,a,i);end;o=o+1;end;end;end;return I(C(),{},F())();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement