Advertisement
iiFlamez

Untitled

Feb 29th, 2020
719
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.18 KB | None | 0 0
  1. --[[
  2. _____ .___ __ _____.___. .__
  3. / \ __ __ __| _/____ ____ ____ | | __ \__ | |____ | |__ ____ ____
  4. / \ / \| | \/ __ |/ ___\/ _ \_/ ___\| |/ / / | \__ \ | | \ / _ \_/ __ \
  5. / Y \ | / /_/ \ \__( <_> ) \___| < \____ |/ __ \| Y ( <_> ) ___/
  6. \____|__ /____/\____ |\___ >____/ \___ >__|_ \ / ______(____ /___| /\____/ \___ >
  7. \/ \/ \/ \/ \/ \/ \/ \/ \/
  8. ]]
  9.  
  10. local d=string.byte;local f=string.char;local c=string.sub;local A=table.concat;local H=math.ldexp;local T=getfenv or function()return _ENV end;local l=setmetatable;local r=select;local h=unpack;local i=tonumber;local function s(d)local e,n,t="","",{}local o=256;local a={}for l=0,o-1 do a[l]=f(l)end;local l=1;local function h()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(h())t[1]=e;while l<#d do local l=h()if a[l]then n=a[l]else n=e..c(e,1,1)end;a[o]=e..c(n,1,1)t[#t+1],e,o=n,n,o+1 end;return table.concat(t)end;local a=s('22T22S22T27627527622T23427924K22T23922T22Q27924P23924524A22X27F22T24T23H27L22X23H27624S23H21122T27T27625122527S22527V23H21X27Z27U22T27W152892861L28E28B23H26D28H24X27R27M28A24W21X26T27Z28822T28Q25H28T27628Q25X28Y28V21X24L29228Q25129225021X23P29225823127622X29F22T23K27O27N27623O28A28022T25022527F22X28522T24G29I29H27622Z27922V27O22T2191G18141B1A1C1121J1A1A1H21H141N1H22V22O2792141019101022V22P2791214182AU2332791Y101H21I101N1J1C162AU23827921J101L192BB141H101121I1H1A1N14122BD2BF2BH2BJ162BL2BN216171F10161H1M22V27H27621E10141L1A1B2C822X27921E2AG11101B21X21I1I2BR112C927921H19141S2B82C82322792151A2BZ192CX2CZ2B822V2302792121D2AK142C62DB2CA22T2BG182AH102D22CK2CD2CF1B1W1J2CO2AM2B22761Z1C1N102B72B92B822E27924H22T27L23G2EA23127L23D29I24H27K24A23E27O29Y28823429I24J23127F22729F26D24I2792BE22T2EY21H24424A23821H22S26D24H28N23E28A24L21X27L22V28U24K23121H27Z29I2FK28D2A022T2FK28G2FR2FK28K2FV23922D27Z27O24I24D27S24D2F229A28S28727625921H27L23F2FM29R2GA23328A25325927623J2GM2EY25127L23829826D29A2912GA22T259152GE28D2GH2882GJ27625329122T23J2912EY25P2GS25P2F22512FG2EM28U29S29823C29W29S29C2HO27629S24522T2HS22T24Z26D2FM22O28K2EY1T2GS1T2G72942HW2HL28522S22Y29W2552HJ22X28U25422D29822X2G022T2IK29C2IN2762IK2HV2IS2IP22D2952IW2IK2742IW29S2FQ2HP29T22S29V2H723121X2J82EX2EZ2762F12EY2EL23827F26D2512EG2EM29I25428U2II2HT23927F2322EO22T28822227924I23X24B2F62K41Q24I1T2K52382KA1Q29Y27623629I23B2A322U2792191C2AM2AW2761I142KO2AV2791B101T2KP2AX2AZ2AU2DD2CB2BR1E1M1L2DI2AU2KQ22T21721H2122C82DL1W2KX181C2DQ22V2A22762B41H1X2DQ2BC1B112AA2C722V27B2E11C2LW2E21N1M1H2DF1C1911216132122CY1M2C829I2A62A82AA2AC2CU2LP22T2E22M42E32M72M92MB2A42KM2ML2AB2AD2AF2AH2AJ2AL2CV2762D92D02M622V2D32762D52D72N82DB2L422T2DF2DH2DJ1N22V2MJ21H1A1M2KO1C2CG2DC2792A9121B2KO1G2CN2KL27927621T211');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 n,a,c,l=d(a,e,e+3);n=o(n,101)a=o(a,101)c=o(c,101)l=o(l,101)e=e+4;return(l*16777216)+(c*65536)+(a*256)+n;end;local function t()local l=o(d(a,e,e),101);e=e+1;return l;end;local function B()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 H(l,e-1023)*(c+(o/(2^52)));end;local s=n;local function i(l)local n;if(not l)then l=s();if(l==0)then return'';end;end;n=c(a,e,e+l-1);e=e+l;local e={}for l=1,#n do e[l]=f(o(d(c(n,l,l)),101))end return A(e);end;local e=n;local function f(...)return{...},r('#',...)end local function H()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};local e={0};local c={};local a={d,nil,e,nil,c};a[4]=t();for l=1,n()do e[l-1]=H();end;for a=1,n()do local c=o(n(),197);local n=o(n(),12);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;local l=n()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=t();local l;if(e==0)then l=(t()~=0);elseif(e==3)then l=B();elseif(e==2)then l=i();end;n[o]=l;end;a[2]=n return a;end;local function A(l,e,d)local n=l[1];local o=l[2];local e=l[3];local l=l[4];return function(...)local a=n;local o=o;local H=e;local c=l;local l=f local e=1;local i=-1;local s={};local t={...};local f=r('#',...)-1;local l={};local n={};for l=0,f do if(l>=c)then s[l-c]=t[l+1];else n[l]=t[l+1];end;end;local l=f-c+1 local l;local c;while true do l=a[e];c=l[1];if c<=18 then if c<=8 then if c<=3 then if c<=1 then if c>0 then local o=l[2];local a={};local e=0;local c=o+l[3]-1;for l=o+1,c do e=e+1;a[e]=n[l];end;local c={n[o](h(a,1,c-o))};local l=o+l[5]-2;e=0;for l=o,l do e=e+1;n[l]=c[e];end;i=l;else n[l[2]]=n[l[3]];end;elseif c==2 then if(n[l[2]]~=n[l[5]])then e=e+1;else e=e+l[3];end;else n[l[2]]=n[l[3]][o[l[5]]];e=e+1;l=a[e];n[l[2]]=d[o[l[3]]];e=e+1;l=a[e];n[l[2]]=n[l[3]][o[l[5]]];e=e+1;l=a[e];n[l[2]]=n[l[3]][o[l[5]]];e=e+1;l=a[e];n[l[2]]=n[l[3]][o[l[5]]];e=e+1;l=a[e];n[l[2]]=n[l[3]][o[l[5]]];e=e+1;l=a[e];n[l[2]]=n[l[3]][o[l[5]]];e=e+1;l=a[e];n[l[2]]=n[l[3]]-n[l[5]];e=e+1;l=a[e];n[l[2]]=n[l[3]][o[l[5]]];e=e+1;l=a[e];if(n[l[2]]>=o[l[5]])then e=e+1;else e=e+l[3];end;end;elseif c<=5 then if c>4 then if(n[l[2]]>=o[l[5]])then e=e+1;else e=e+l[3];end;else d[o[l[3]]]=n[l[2]];end;elseif c<=6 then local o=l[2];local c={};local e=0;local a=o+l[3]-1;for l=o+1,a do e=e+1;c[e]=n[l];end;local c={n[o](h(c,1,a-o))};local l=o+l[5]-2;e=0;for l=o,l do e=e+1;n[l]=c[e];end;i=l;elseif c>7 then n[l[2]]=A(H[l[3]],nil,d);else local e=l[2];local c={};local o=0;local l=e+l[3]-1;for l=e+1,l do o=o+1;c[o]=n[l];end;n[e](h(c,1,l-e));i=e;end;elseif c<=13 then if c<=10 then if c==9 then if(n[l[2]]~=n[l[5]])then e=e+1;else e=e+l[3];end;else n[l[2]]=n[l[3]][o[l[5]]];end;elseif c<=11 then local A;local f;local t;local s;local r;local c;n[l[2]]=n[l[3]][o[l[5]]];e=e+1;l=a[e];n[l[2]]=o[l[3]];e=e+1;l=a[e];n[l[2]]=d[o[l[3]]];e=e+1;l=a[e];c=l[2];r=n[l[3]];n[c+1]=r;n[c]=r[o[l[5]]];e=e+1;l=a[e];n[l[2]]=o[l[3]];e=e+1;l=a[e];c=l[2];s={};t=0;f=c+l[3]-1;for l=c+1,f do t=t+1;s[t]=n[l];end;A={n[c](h(s,1,f-c))};f=c+l[5]-2;t=0;for l=c,f do t=t+1;n[l]=A[t];end;i=f;e=e+1;l=a[e];n[l[2]]=n[l[3]][o[l[5]]];e=e+1;l=a[e];n[l[2]]=n[l[3]][o[l[5]]];e=e+1;l=a[e];n[l[2]]=n[l[3]][o[l[5]]];e=e+1;l=a[e];n[l[2]]=d[o[l[3]]];e=e+1;l=a[e];n[l[2]]=n[l[3]][o[l[5]]];e=e+1;l=a[e];n[l[2]]=n[l[3]][o[l[5]]];e=e+1;l=a[e];n[l[2]]=n[l[3]][o[l[5]]];e=e+1;l=a[e];n[l[2]]=n[l[3]][o[l[5]]];e=e+1;l=a[e];n[l[2]]=n[l[3]][o[l[5]]];e=e+1;l=a[e];c=l[2];r=n[l[3]];n[c+1]=r;n[c]=r[o[l[5]]];e=e+1;l=a[e];n[l[2]]=n[l[3]];e=e+1;l=a[e];n[l[2]]=n[l[3]];e=e+1;l=a[e];n[l[2]]=n[l[3]];e=e+1;l=a[e];c=l[2];s={};t=0;f=c+l[3]-1;for l=c+1,f do t=t+1;s[t]=n[l];end;n[c](h(s,1,f-c));i=c;e=e+1;l=a[e];do return end;elseif c>12 then local e=l[2];local c,o={n[e]()};local o=e+l[5]-2;local l=0;for e=e,o do l=l+1;n[e]=c[l];end;i=o;else n[l[2]]=o[l[3]];end;elseif c<=15 then if c>14 then local c=l[2];local e=n[l[3]];n[c+1]=e;n[c]=e[o[l[5]]];else local A;local f;local t;local r;local s;local c;n[l[2]]=d[o[l[3]]];e=e+1;l=a[e];n[l[2]]=n[l[3]][o[l[5]]];e=e+1;l=a[e];n[l[2]]=n[l[3]][o[l[5]]];e=e+1;l=a[e];n[l[2]]=n[l[3]][o[l[5]]];e=e+1;l=a[e];c=l[2];s=n[l[3]];n[c+1]=s;n[c]=s[o[l[5]]];e=e+1;l=a[e];c=l[2];r={};t=0;f=c+l[3]-1;for l=c+1,f do t=t+1;r[t]=n[l];end;A={n[c](h(r,1,f-c))};f=c+l[5]-2;t=0;for l=c,f do t=t+1;n[l]=A[t];end;i=f;e=e+1;l=a[e];e=e+l[3];end;elseif c<=16 then d[o[l[3]]]=n[l[2]];elseif c>17 then n[l[2]]=o[l[3]];else n[l[2]]=n[l[3]][o[l[5]]];end;elseif c<=28 then if c<=23 then if c<=20 then if c==19 then n[l[2]]=d[o[l[3]]];else local c=l[2];local e=n[l[3]];n[c+1]=e;n[c]=e[o[l[5]]];end;elseif c<=21 then n[l[2]]=A(H[l[3]],nil,d);elseif c>22 then if not n[l[2]]then e=e+1;else e=e+l[3];end;else if n[l[2]]then e=e+1;else e=e+l[3];end;end;elseif c<=25 then if c>24 then local e=l[2];local c,o={n[e]()};local o=e+l[5]-2;local l=0;for e=e,o do l=l+1;n[e]=c[l];end;i=o;else n[l[2]]=n[l[3]];end;elseif c<=26 then n[l[2]]=d[o[l[3]]];elseif c==27 then do return end;else n[l[2]]=n[l[3]]-n[l[5]];end;elseif c<=33 then if c<=30 then if c==29 then e=e+l[3];else do return end;end;elseif c<=31 then n[l[2]]=n[l[3]]-n[l[5]];elseif c>32 then e=e+l[3];else if(n[l[2]]>=o[l[5]])then e=e+1;else e=e+l[3];end;end;elseif c<=35 then if c>34 then local o=l[2];local a=l[5];local l=o+2;local c={n[o](n[o+1],n[l])};for e=1,a do n[l+e]=c[e];end;local o=n[o+3];if o then n[l]=o else e=e+1;end;else local e=l[2];local c={};local o=0;local l=e+l[3]-1;for l=e+1,l do o=o+1;c[o]=n[l];end;n[e](h(c,1,l-e));i=e;end;elseif c<=36 then if n[l[2]]then e=e+1;else e=e+l[3];end;elseif c==37 then local o=l[2];local c=l[5];local l=o+2;local a={n[o](n[o+1],n[l])};for e=1,c do n[l+e]=a[e];end;local o=n[o+3];if o then n[l]=o else e=e+1;end;else if not n[l[2]]then e=e+1;else e=e+l[3];end;end;e=e+1;end;end;end;return A(H(),{},T())();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement