JustPaste.it

Obfuscate Lua Script (WaveLife)

return(function(i,a,a)local k=string.char;local e=string.sub;local m=table.concat;local n=math.ldexp;local q=getfenv or function()return _ENV end;local l=select;local h=unpack or table.unpack;local j=tonumber;local function o(h)local b,c,f="","",{}local d=256;local g={}for a=0,d-1 do g[a]=k(a)end;local a=1;local function i()local b=j(e(h,a,a),36)a=a+1;local c=j(e(h,a,a+b-1),36)a=a+b;return c end;b=k(i())f[1]=b;while a<#h do local a=i()if g[a]then c=g[a]else c=b..e(b,1,1)end;g[d]=b..e(c,1,1)f[#f+1],b,d=c,c,d+1 end;return table.concat(f)end;local j=o('24H24K27524M24J27524K26F25P25S25P26625D25M24M24O27926F25Y25D25H25S25D26O25O27M25H25C24M25027926U25D25F25P25Z27P25Y26I25D25S26925U27G25S24M23O27925F25H25Y25H25F25D26Z25N25M26Z25S25N25W24E25S28I25M25Z25E25D25Y25J25K25P28B25J25N25C25D24M24R27926D25C25C28928B26K25H25M25C25K28Z24K27J27525224Y27924L27928E27927624K24M24Q24K29T29W29N27924M2A124K25229W24N2792A92A724G2A32A52A72AD27527429P27529T2AF2762A02A62A227524I2AH2A22AL2A729X2AK2A524Z27928625S25V25N25Y25R26L25Z26V25D25Z25Z25P28N26V25S28H27P27V2AP24K26R25H27C2AB2AG29Y2AJ26O25Y25P25F28K25Y2BD25Y28A25Y29F25M28C25B28F28H28J28L28N28P28R24E28K25S2912932C829529724K24P2AC29R2AN29W25A29S29Y24K24I2542792742AT24G24X2D22AE2D627524T2AI2CT2CY29P2512A72BT27527829X2AO2D92CX29Q2792BO2522DG29T2AY24K2DK2CY2AX2CX2AG2A62762AV27525H2BF28Z28C2BO25K25N27U24L2DX2522A929T2AT2AD2A62E22AA2BU2CY2DI2E02DE2CU2EI2AG2AT29W');local a=(bit or bit32);local d=a and a.bxor or function(a,b)local c,d,e=1,0,10 while a>0 and b>0 do local e,f=a%2,b%2 if e~=f then d=d+c end a,b,c=(a-e)/2,(b-f)/2,c*2 end if a<b then a=b end while a>0 do local b=a%2 if b>0 then d=d+c end a,c=(a-b)/2,c*2 end return d end local function c(c,a,b)if b then local a=(c/2^(a-1))%2^((b-1)-(a-1)+1);return a-a%1;else local a=2^(a-1);return(c%(a+a)>=a)and 1 or 0;end;end;local a=1;local function b()local b,e,f,c=i(j,a,a+3);b=d(b,164)e=d(e,164)f=d(f,164)c=d(c,164)a=a+4;return(c*16777216)+(f*65536)+(e*256)+b;end;local function g()local b=d(i(j,a,a),164);a=a+1;return b;end;local function f()local c,b=i(j,a,a+2);c=d(c,164)b=d(b,164)a=a+2;return(b*256)+c;end;local function p()local a=b();local b=b();local e=1;local d=(c(b,1,20)*(2^32))+a;local a=c(b,21,31);local b=((-1)^c(b,32));if(a==0)then if(d==0)then return b*0;else a=1;e=0;end;elseif(a==2047)then return(d==0)and(b*(1/0))or(b*(0/0));end;return n(b,a-1023)*(e+(d/(2^52)));end;local n=b;local function o(b)local c;if(not b)then b=n();if(b==0)then return'';end;end;c=e(j,a,a+b-1);a=a+b;local b={}for a=1,#c do b[a]=k(d(i(e(c,a,a)),164))end return m(b);end;local a=b;local function n(...)return{...},l('#',...)end local function k()local j={};local i={};local a={};local h={[#{"1 + 1 = 111";"1 + 1 = 111";}]=i,[#{{774;336;456;602};{135;680;857;763};"1 + 1 = 111";}]=nil,[#{{954;42;37;895};"1 + 1 = 111";{610;138;136;487};{531;327;638;992};}]=a,[#{"1 + 1 = 111";}]=j,};local a=b()local d={}for c=1,a do local b=g();local a;if(b==0)then a=(g()~=0);elseif(b==3)then a=p();elseif(b==2)then a=o();end;d[c]=a;end;h[3]=g();for h=1,b()do local a=g();if(c(a,1,1)==0)then local e=c(a,2,3);local g=c(a,4,6);local a={f(),f(),nil,nil};if(e==0)then a[3]=f();a[4]=f();elseif(e==1)then a[3]=b();elseif(e==2)then a[3]=b()-(2^16)elseif(e==3)then a[3]=b()-(2^16)a[4]=f();end;if(c(g,1,1)==1)then a[2]=d[a[2]]end if(c(g,2,2)==1)then a[3]=d[a[3]]end if(c(g,3,3)==1)then a[4]=d[a[4]]end j[h]=a;end end;for a=1,b()do i[a-1]=k();end;return h;end;local function j(a,b,g)a=(a==true and k())or a;return(function(...)local e=a[1];local d=a[3];local m=a[2];local k=n local c=1;local f=-1;local n={};local i={...};local l=l('#',...)-1;local a={};local b={};for a=0,l do if(a>=d)then n[a-d]=i[a+1];else b[a]=i[a+#{{55;697;920;868};}];end;end;local a=l-d+1 local a;local d;while true do a=e[c];d=a[1];if d<=14 then if d<=6 then if d<=2 then if d<=0 then b[a[2]]=b[a[3]][a[4]];elseif d==1 then local a=a[2]b[a]=b[a]()else b[a[2]]=b[a[3]];end;elseif d<=4 then if d==3 then b[a[2]]=a[3];else b[a[2]]();end;elseif d>5 then local c=a[2]b[c](h(b,c+1,a[3]))else do return end;end;elseif d<=10 then if d<=8 then if d>7 then local a=a[2]b[a](b[a+1])else local a=a[2]b[a](b[a+1])end;elseif d==9 then do return end;else local c=a[2]b[c](h(b,c+1,a[3]))end;elseif d<=12 then if d>11 then local d;d=a[2]b[d](b[d+1])c=c+1;a=e[c];b[a[2]]=g[a[3]];c=c+1;a=e[c];b[a[2]]=a[3];c=c+1;a=e[c];d=a[2]b[d](b[d+1])c=c+1;a=e[c];b[a[2]]=g[a[3]];c=c+1;a=e[c];b[a[2]]=a[3];else b[a[2]]();end;elseif d==13 then b[a[2]]=b[a[3]][a[4]];else b[a[2]]=j(m[a[3]],nil,g);end;elseif d<=21 then if d<=17 then if d<=15 then local a=a[2]b[a]=b[a](h(b,a+1,f))elseif d==16 then local a=a[2]local d,c=k(b[a](b[a+1]))f=c+a-1 local c=0;for a=a,f do c=c+1;b[a]=d[c];end;else b[a[2]]=a[3];end;elseif d<=19 then if d==18 then local i;local j,l;local d;b[a[2]]=g[a[3]];c=c+1;a=e[c];b[a[2]]=g[a[3]];c=c+1;a=e[c];b[a[2]]=b[a[3]];c=c+1;a=e[c];d=a[2]j,l=k(b[d](b[d+1]))f=l+d-1 i=0;for a=d,f do i=i+1;b[a]=j[i];end;c=c+1;a=e[c];d=a[2]b[d]=b[d](h(b,d+1,f))c=c+1;a=e[c];b[a[2]]();c=c+1;a=e[c];do return end;else local a=a[2]b[a]=b[a](h(b,a+1,f))end;elseif d==20 then b[a[2]]=g[a[3]];else c=a[3];end;elseif d<=25 then if d<=23 then if d>22 then b[a[2]]=j(m[a[3]],nil,g);else b[a[2]]=g[a[3]];end;elseif d==24 then c=a[3];else if b[a[2]]then c=c+1;else c=a[3];end;end;elseif d<=27 then if d>26 then b[a[2]]=b[a[3]];else local a=a[2]b[a]=b[a]()end;elseif d==28 then if b[a[2]]then c=c+1;else c=a[3];end;else local a=a[2]local d,c=k(b[a](b[a+1]))f=c+a-1 local c=0;for a=a,f do c=c+1;b[a]=d[c];end;end;c=c+1;end;end);end;return j(true,{},q())();end)(string.byte,table.insert,setmetatable);