Advertisement
CriShoux

Untitled

Oct 29th, 2019
9,098
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 14.07 KB | None | 0 0
  1. local t=string.byte;local r=string.char;local c=string.sub;local C=table.concat;local T=math.ldexp;local F=getfenv or function()return _ENV end;local u=setmetatable;local h=select;local f=unpack;local i=tonumber;local function s(f)local e,o,a="","",{}local d=256;local n={}for l=0,d-1 do n[l]=r(l)end;local l=1;local function t()local e=i(c(f,l,l),36)l=l+1;local o=i(c(f,l,l+e-1),36)l=l+e;return o end;e=r(t())a[1]=e;while l<#f do local l=t()if n[l]then o=n[l]else o=e..c(e,1,1)end;n[d]=e..c(o,1,1)a[#a+1],e,d=o,o,d+1 end;return table.concat(a)end;local a=s('22T21T22T27623523124524A1I23127623422T21X22T1U27622T23D23H27A1U23H27E23H27H27P27E22T21127I27K23927924A1U27D22T23823127T28423H22527O22527623827S27I27Q2852311527I28423C22T1L22T21P27K23C23927H1423927623J24D22I22T1624D24A1Q27F27621327K23428421328423428Y22T21329H22O27H22T21M29M27W27A21927X22T22V22L27621829W26D23622D27A21C22D22T26D22T21929R21927622X21H29R21H27622W22D25X22T21J2A522T23322T28Y1627626D23428I21328I22S23H28Y1B28I23622L2A329Z22T1529R28L22T2AD2AF2AH2AJ2AL2AN23328729327D2AU2AW28I23429M21329M2AZ28W28I22O28D22T2162BY29C27621F28422X27K22T22P27K121418102AO27K1Y101H21I101N1J1C162CE22Q27K21H19141S2CL1M22T23227K2151A1614192CT2CV2CL22T23027K21E1A1N1E1M1L142CP22T22W27K2121G1N1N101B1H2122CC2CL1422T28422T2CH1H2141A1G1M2CE23A2CS21J21621D21621I21421021I2191W21J21M2152162101X1W1X22T22Y27K112CI2E51N21M131G1B161H1C1A1B2DA27K1I2DE2DG2DI2DK23J27K1Z1C1B1121H141N1H2161B21J2CV21E1C1H1D21E1D2FV10191C1M1H2BC27K1D1A1A1E2F12F32F52F722U2C722827Z28121R28428628827627M27O28I27S27O29M23G23H2AG27U2762A22822AN2GW27T28I2GW28Q2GZ23G29H1U29H28O27X27J27623622524428222522S26D23022D2A72AM2762GI27621027K2282112HR29T2BJ26C22T1Q2312HN23622T2HK21C22T2HN2HP26T2BH27623324529X2IJ2A023X2A323X2A62IE2IG2DA22L25H28R29W22T22D21P27A1N28S2DA28G1428I23324L29X2J92A02652A32652IQ28421028423022L2J91H2IX22C22D2IF1U2AN22C2192AK1U2AB22T2JU25127I2JY23028G2GZ2291L27O28Q22T2HY2IJ1U29T22C29W22S1U2IX22G22L2392KI2IX2282K528I22D2K82822KA2JU2KD2JY22G2HB29H22G2AG2KI2AG22T22K2L127622K21P2KN1U2J322C2KR2HT2112JR29T2HY21X2KI29T22B23928Y2HC2A623628121C2BM2342AN2162AN23829T21629T28O27H1727K23626524B24A21C2MC29729H1529H2C222T2C427623B2C72C927618142FW2C82G71G122CE22O27K2DI1C1N2CY2MR22T2CB2CD2CF2762E22CK2CM2CO2CQ2CS2CU2CW2N52NB2E12CI2D72NK2N627K2172DW2F92762121D2FN2DJ1H2D922Z2FH2FJ112FI2N52DU2FZ19112MW27621910142OC2352DC2DE2OB21D1A21F1C101I1L2DE1H21H1A2FJ2G52E02OW1M2FV2F62F82CR2C3102F42DE22F22T2GG2761B2OR2IC27K28S22S27K21O2NV22T2MT121B2FV1G2EW2C722T2FG28E27K1S28T27K1327K2382AQ22T1G27K23D28121928423G2BK21J2QD28G21J28I28U28W29H23F152A521D28L2A02J02ME28S26D28O2HV28T2BK21G28N2392HF2HD2392GY29H2HA2762LT2C82H12JS27629L2H829P21127O29T22X2RK28229T2312RO2KE2RG29M1U2GV27K2HG27L2A924A2192JY23G2Q22Q127621I2S727Y27E2842MN2PN2DZ27K1H1A2G41N2FJ1222V2PV2DZ27X2N12NW2NY2NL2DB2ST2NZ2F42D92N72OF2OH22T2P62MM2P82SI1N22E2PC27K2PF1I2SO2SP2PY2762DE1C122FJ2D52F02F22F42P42PV2PX2852PZ2SA2Q32PY28Y2Q82GP2QB2QD2QF2QH27H2QJ2762QL22T28X2762QO2QQ2QS2362QU21C2QW2QY22T2HW2U82R12R32R52U82R727I2R92L92RD27O2AN2RH27I2RJ2RL2AC2RS2RQ2V42RU2RB2RX2RB2R02HV2QD2S62U827K2S92VF2VA2SC2C32842E02SG2762SI2SK2SM2TF2C72RR22T2SS22T2NX2FN2CY2SW2VY2SU2O02T027K2T22OC2T521F2T72DE2TA2PD22T2TD2VT2TG276');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 l(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 e=1;local function o()local c,a,o,l=t(a,e,e+3);c=n(c,101)a=n(a,101)o=n(o,101)l=n(l,101)e=e+4;return(l*16777216)+(o*65536)+(a*256)+c;end;local function d()local l=n(t(a,e,e),101);e=e+1;return l;end;local function i()local e=o();local n=o();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 T(l,e-1023)*(c+(o/(2^52)));end;local T=o;local function s(l)local o;if(not l)then l=T();if(l==0)then return'';end;end;o=c(a,e,e+l-1);e=e+l;local e={}for l=1,#o do e[l]=r(n(t(c(o,l,l)),101))end return C(e);end;local e=o;local function r(...)return{...},h('#',...)end local function K()local f={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 t={0,0,0};local e={};local a={f,nil,t,nil,e};a[4]=d();for a=1,o()do local c=n(o(),21);local o=n(o(),123);local n=l(c,1,2);local e=l(o,1,11);local e={e,l(c,3,11),nil,nil,o};if(n==0)then e[3]=l(c,12,20);e[5]=l(c,21,29);elseif(n==1)then e[3]=l(o,12,33);elseif(n==2)then e[3]=l(o,12,32)-1048575;elseif(n==3)then e[3]=l(o,12,32)-1048575;e[5]=l(c,21,29);end;f[a]=e;end;local l=o()local n={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};for o=1,l do local e=d();local l;if(e==1)then l=(d()~=0);elseif(e==2)then l=i();elseif(e==0)then l=s();end;n[o]=l;end;a[2]=n for l=1,o()do t[l-1]=K();end;return a;end;local function H(l,s,i)local n=l[1];local o=l[2];local e=l[3];local l=l[4];return function(...)local n=n;local a=o;local K=e;local c=l;local C=r local e=1;local d=-1;local D={};local t={...};local r=h('#',...)-1;local A={};local o={};for l=0,r do if(l>=c)then D[l-c]=t[l+1];else o[l]=t[l+1];end;end;local I=r-c+1 local l;local c;while true do l=n[e];c=l[1];if c<=29 then if c<=14 then if c<=6 then if c<=2 then if c<=0 then local c=l[2];local n=d;local e={};local l=0;for n=c,n do l=l+1;e[l]=o[n];end;do return f(e,1,l)end;elseif c==1 then local e=l[2];local c,n={o[e]()};local n=e+l[5]-2;local l=0;for e=e,n do l=l+1;o[e]=c[l];end;d=n;else o[l[2]]={};end;elseif c<=4 then if c>3 then if(o[l[2]]~=o[l[5]])then e=e+1;else e=e+l[3];end;else for l=l[2],l[3]do o[l]=nil;end;end;elseif c>5 then local e=l[2];local n=o[l[3]];o[e+1]=n;o[e]=n[a[l[5]]];else if o[l[2]]then e=e+1;else e=e+l[3];end;end;elseif c<=10 then if c<=8 then if c==7 then o[l[2]]=a[l[3]];else local f=K[l[3]];local d;local c={};d=u({},{__index=function(e,l)local l=c[l];return l[1][l[2]];end,__newindex=function(o,l,e)local l=c[l]l[1][l[2]]=e;end;});for a=1,l[5]do e=e+1;local l=n[e];if l[1]==57 then c[a-1]={o,l[3]};else c[a-1]={s,l[3]};end;A[#A+1]=c;end;o[l[2]]=H(f,d,i);end;elseif c>9 then local T;local s;local c;local t;local h,t;local r;r=l[2];h,t={o[r]()};t=r+l[5]-2;c=0;for l=r,t do c=c+1;o[l]=h[c];end;d=t;e=e+1;l=n[e];o[l[2]]=o[l[3]][a[l[5]]];e=e+1;l=n[e];o[l[2]]=o[l[3]][a[l[5]]];e=e+1;l=n[e];o[l[2]]=o[l[3]];e=e+1;l=n[e];o[l[2]]=i[a[l[3]]];e=e+1;l=n[e];o[l[2]]=o[l[3]][a[l[5]]];e=e+1;l=n[e];o[l[2]]=a[l[3]];e=e+1;l=n[e];o[l[2]]=a[l[3]];e=e+1;l=n[e];o[l[2]]=a[l[3]];e=e+1;l=n[e];r=l[2];s={};c=0;t=r+l[3]-1;for l=r+1,t do c=c+1;s[c]=o[l];end;h,t=C(o[r](f(s,1,t-r)));t=t+r-1;c=0;for l=r,t do c=c+1;o[l]=h[c];end;d=t;e=e+1;l=n[e];r=l[2];t=d;T={};c=0;for l=r,t do c=c+1;T[c]=o[l];end;do return f(T,1,c)end;else o[l[2]]=a[l[3]];end;elseif c<=12 then if c==11 then if(o[l[2]]<o[l[5]])then e=e+1;else e=e+l[3];end;else local T;local r;local t;local s;local h;local c;o[l[2]]=i[a[l[3]]];e=e+1;l=n[e];c=l[2];h=o[l[3]];o[c+1]=h;o[c]=h[a[l[5]]];e=e+1;l=n[e];o[l[2]]=a[l[3]];e=e+1;l=n[e];c=l[2];s={};t=0;r=c+l[3]-1;for l=c+1,r do t=t+1;s[t]=o[l];end;T={o[c](f(s,1,r-c))};r=c+l[5]-2;t=0;for l=c,r do t=t+1;o[l]=T[t];end;d=r;e=e+1;l=n[e];o[l[2]]=o[l[3]][a[l[5]]];e=e+1;l=n[e];o[l[2]]=i[a[l[3]]];e=e+1;l=n[e];c=l[2];h=o[l[3]];o[c+1]=h;o[c]=h[a[l[5]]];e=e+1;l=n[e];o[l[2]]=a[l[3]];e=e+1;l=n[e];c=l[2];s={};t=0;r=c+l[3]-1;for l=c+1,r do t=t+1;s[t]=o[l];end;T={o[c](f(s,1,r-c))};r=c+l[5]-2;t=0;for l=c,r do t=t+1;o[l]=T[t];end;d=r;e=e+1;l=n[e];o[l[2]]=o[l[3]][a[l[5]]];end;elseif c==13 then o[l[2]]=o[l[3]]-o[l[5]];else local l=l[2];local n=o[l];local e=d-l;for e=1,e do n[e]=o[l+e]end;end;elseif c<=21 then if c<=17 then if c<=15 then local T;local r;local t;local h;local C;local c;c=l[2];C=o[l[3]];o[c+1]=C;o[c]=C[a[l[5]]];e=e+1;l=n[e];o[l[2]]=o[l[3]][a[l[5]]];e=e+1;l=n[e];o[l[2]]=o[l[3]][a[l[5]]];e=e+1;l=n[e];o[l[2]]=o[l[3]][a[l[5]]];e=e+1;l=n[e];c=l[2];h={};t=0;r=c+l[3]-1;for l=c+1,r do t=t+1;h[t]=o[l];end;T={o[c](f(h,1,r-c))};r=c+l[5]-2;t=0;for l=c,r do t=t+1;o[l]=T[t];end;d=r;e=e+1;l=n[e];o[l[2]]=i[a[l[3]]];e=e+1;l=n[e];o[l[2]]=o[l[3]][a[l[5]]];e=e+1;l=n[e];o[l[2]]=o[l[3]][a[l[5]]];e=e+1;l=n[e];o[l[2]]=o[l[3]][a[l[5]]];e=e+1;l=n[e];c=l[2];h={};t=0;r=c+l[3]-1;for l=c+1,r do t=t+1;h[t]=o[l];end;T={o[c](f(h,1,r-c))};r=c+l[5]-2;t=0;for l=c,r do t=t+1;o[l]=T[t];end;d=r;e=e+1;l=n[e];o[l[2]]=i[a[l[3]]];e=e+1;l=n[e];o[l[2]]=o[l[3]][a[l[5]]];e=e+1;l=n[e];o[l[2]]=s[l[3]];e=e+1;l=n[e];o[l[2]]=o[l[3]][a[l[5]]];e=e+1;l=n[e];o[l[2]]=s[l[3]];e=e+1;l=n[e];o[l[2]]=o[l[3]][a[l[5]]];e=e+1;l=n[e];c=l[2];h={};t=0;r=c+l[3]-1;for l=c+1,r do t=t+1;h[t]=o[l];end;T={o[c](f(h,1,r-c))};r=c+l[5]-2;t=0;for l=c,r do t=t+1;o[l]=T[t];end;d=r;e=e+1;l=n[e];o[l[2]]=o[l[3]]-o[l[5]];e=e+1;l=n[e];o[l[2]]=o[l[3]][a[l[5]]];e=e+1;l=n[e];if(o[l[2]]<o[l[5]])then e=e+1;else e=e+l[3];end;elseif c>16 then local n=l[2];local a={};local e=0;local c=n+l[3]-1;for l=n+1,c do e=e+1;a[e]=o[l];end;local c={o[n](f(a,1,c-n))};local l=n+l[5]-2;e=0;for l=n,l do e=e+1;o[l]=c[e];end;d=l;else local n=l[2];local c={};local e=0;local a=d;for l=n+1,a do e=e+1;c[e]=o[l];end;local c={o[n](f(c,1,a-n))};local l=n+l[5]-2;e=0;for l=n,l do e=e+1;o[l]=c[e];end;d=l;end;elseif c<=19 then if c>18 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));d=e;else local n=l[2];local a=l[5];local l=n+2;local c={o[n](o[n+1],o[l])};for e=1,a do o[l+e]=c[e];end;local n=o[n+3];if n then o[l]=n else e=e+1;end;end;elseif c>20 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));d=e;else local n=l[2];local c=n+l[3]-2;local e={};local l=0;for n=n,c do l=l+1;e[l]=o[n];end;do return f(e,1,l)end;end;elseif c<=25 then if c<=23 then if c==22 then o[l[2]]={};else local l=l[2];local n=o[l];local e=d-l;for e=1,e do n[e]=o[l+e]end;end;elseif c==24 then local d=K[l[3]];local a;local c={};a=u({},{__index=function(e,l)local l=c[l];return l[1][l[2]];end,__newindex=function(o,l,e)local l=c[l]l[1][l[2]]=e;end;});for a=1,l[5]do e=e+1;local l=n[e];if l[1]==57 then c[a-1]={o,l[3]};else c[a-1]={s,l[3]};end;A[#A+1]=c;end;o[l[2]]=H(d,a,i);else local n=l[2];local a=l[5];local l=n+2;local c={o[n](o[n+1],o[l])};for e=1,a do o[l+e]=c[e];end;local n=o[n+3];if n then o[l]=n else e=e+1;end;end;elseif c<=27 then if c==26 then local n=l[2];local c={};local e=0;local a=n+l[3]-1;for l=n+1,a do e=e+1;c[e]=o[l];end;local c={o[n](f(c,1,a-n))};local l=n+l[5]-2;e=0;for l=n,l do e=e+1;o[l]=c[e];end;d=l;else local e=l[2];local c=e+l[3]-2;local n={};local l=0;for e=e,c do l=l+1;n[l]=o[e];end;do return f(n,1,l)end;end;elseif c==28 then o[l[2]]=s[l[3]];else local l=l[2];d=l+I-1;for e=l,d do local l=D[e-l];o[e]=l;end;end;elseif c<=44 then if c<=36 then if c<=32 then if c<=30 then local n=l[2];local c={};local e=0;local l=n+l[3]-1;for l=n+1,l do e=e+1;c[e]=o[l];end;local c,l=C(o[n](f(c,1,l-n)));l=l+n-1;e=0;for l=n,l do e=e+1;o[l]=c[e];end;d=l;elseif c>31 then o[l[2]]=i[a[l[3]]];else local l=l[2];d=l+I-1;for e=l,d do local l=D[e-l];o[e]=l;end;end;elseif c<=34 then if c>33 then local n=l[2];local c={};local e=0;local l=n+l[3]-1;for l=n+1,l do e=e+1;c[e]=o[l];end;local c,l=C(o[n](f(c,1,l-n)));l=l+n-1;e=0;for l=n,l do e=e+1;o[l]=c[e];end;d=l;else local c,c;local T;local r;local t;local h;local s;local c;o[l[2]]=i[a[l[3]]];e=e+1;l=n[e];o[l[2]]=o[l[3]][a[l[5]]];e=e+1;l=n[e];o[l[2]]=i[a[l[3]]];e=e+1;l=n[e];o[l[2]]=i[a[l[3]]];e=e+1;l=n[e];c=l[2];s=o[l[3]];o[c+1]=s;o[c]=s[a[l[5]]];e=e+1;l=n[e];o[l[2]]=a[l[3]];e=e+1;l=n[e];c=l[2];h={};t=0;r=c+l[3]-1;for l=c+1,r do t=t+1;h[t]=o[l];end;T={o[c](f(h,1,r-c))};r=c+l[5]-2;t=0;for l=c,r do t=t+1;o[l]=T[t];end;d=r;e=e+1;l=n[e];c=l[2];s=o[l[3]];o[c+1]=s;o[c]=s[a[l[5]]];e=e+1;l=n[e];c=l[2];h={};t=0;r=c+l[3]-1;for l=c+1,r do t=t+1;h[t]=o[l];end;T,r=C(o[c](f(h,1,r-c)));r=r+c-1;t=0;for l=c,r do t=t+1;o[l]=T[t];end;d=r;e=e+1;l=n[e];c=l[2];h={};t=0;r=d;for l=c+1,r do t=t+1;h[t]=o[l];end;T={o[c](f(h,1,r-c))};r=c+l[5]-2;t=0;for l=c,r do t=t+1;o[l]=T[t];end;d=r;e=e+1;l=n[e];e=e+l[3];end;elseif c==35 then local n=l[2];local e=o[l[3]];o[n+1]=e;o[n]=e[a[l[5]]];else for l=l[2],l[3]do o[l]=nil;end;end;elseif c<=40 then if c<=38 then if c>37 then local c=l[2];local n=d;local e={};local l=0;for n=c,n do l=l+1;e[l]=o[n];end;do return f(e,1,l)end;else local n=l[2];local c={};local e=0;local a=d;for l=n+1,a do e=e+1;c[e]=o[l];end;local c={o[n](f(c,1,a-n))};local l=n+l[5]-2;e=0;for l=n,l do e=e+1;o[l]=c[e];end;d=l;end;elseif c==39 then local e=l[2];local c,n={o[e]()};local n=e+l[5]-2;local l=0;for e=e,n do l=l+1;o[e]=c[l];end;d=n;else local e=l[2];local l={};local n=d;for e=e+1,n do l[#l+1]=o[e];end;do return o[e](f(l,1,n-e))end;end;elseif c<=42 then if c>41 then local T;local s;local c;local t;local h,t;local r;r=l[2];h,t={o[r]()};t=r+l[5]-2;c=0;for l=r,t do c=c+1;o[l]=h[c];end;d=t;e=e+1;l=n[e];o[l[2]]=o[l[3]][a[l[5]]];e=e+1;l=n[e];o[l[2]]=o[l[3]][a[l[5]]];e=e+1;l=n[e];o[l[2]]=o[l[3]];e=e+1;l=n[e];o[l[2]]=i[a[l[3]]];e=e+1;l=n[e];o[l[2]]=o[l[3]][a[l[5]]];e=e+1;l=n[e];o[l[2]]=a[l[3]];e=e+1;l=n[e];o[l[2]]=a[l[3]];e=e+1;l=n[e];o[l[2]]=a[l[3]];e=e+1;l=n[e];r=l[2];s={};c=0;t=r+l[3]-1;for l=r+1,t do c=c+1;s[c]=o[l];end;h,t=C(o[r](f(s,1,t-r)));t=t+r-1;c=0;for l=r,t do c=c+1;o[l]=h[c];end;d=t;e=e+1;l=n[e];r=l[2];t=d;T={};c=0;for l=r,t do c=c+1;T[c]=o[l];end;do return f(T,1,c)end;else o[l[2]]=o[l[3]][a[l[5]]];end;elseif c==43 then if(o[l[2]]==a[l[5]])then e=e+1;else e=e+l[3];end;else local e=l[2];local n=(l[5]-1)*50;local c=o[e];local l=d-e;for l=1,l do c[n+l]=o[e+l]end;end;elseif c<=51 then if c<=47 then if c<=45 then do return end;elseif c>46 then if(o[l[2]]==a[l[5]])then e=e+1;else e=e+l[3];end;else e=e+l[3];end;elseif c<=49 then if c==48 then do return end;else if(o[l[2]]<o[l[5]])then e=e+1;else e=e+l[3];end;end;elseif c==50 then if o[l[2]]then e=e+1;else e=e+l[3];end;else o[l[2]]=i[a[l[3]]];end;elseif c<=55 then if c<=53 then if c>52 then o[l[2]]=o[l[3]][a[l[5]]];else o[l[2]]=o[l[3]];end;elseif c==54 then e=e+l[3];else local e=l[2];local l={};local n=d;for e=e+1,n do l[#l+1]=o[e];end;do return o[e](f(l,1,n-e))end;end;elseif c<=57 then if c==56 then o[l[2]]=o[l[3]]-o[l[5]];else o[l[2]]=o[l[3]];end;elseif c>58 then if(o[l[2]]~=o[l[5]])then e=e+1;else e=e+l[3];end;else o[l[2]]=s[l[3]];end;e=e+1;end;end;end;return H(K(),{},F())();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement