Advertisement
prom8

Untitled

Feb 24th, 2020
621
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.26 KB | None | 0 0
  1. --[[
  2. IronBrew:tm: obfuscation; Version 2.7.2
  3. ]]
  4. local g=string.byte;local n=string.char;local j=string.sub;local o=table.concat;local a=table.insert;local l=math.ldexp;local m=getfenv or function()return _ENV end;local a=setmetatable;local k=select;local h=unpack or table.unpack;local a=tonumber;local i='\235\236\236\236\236\232\236\236\236\155\141\133\152\238\236\236\236\236\236\236\248\172\236\232\236\236\236\139\141\129\137\236\230\236\236\236\171\137\152\191\137\158\154\133\143\137\236\230\236\236\236\190\153\130\191\137\158\154\133\143\137\236\225\236\236\236\190\137\130\136\137\158\191\152\137\156\156\137\136\236\235\236\236\236\143\131\130\130\137\143\152\237\236\236\236\239\236\236\236\236\232\236\236\236\139\141\129\137\236\253\236\236\236\163\156\137\130\186\133\136\137\131\159\170\131\128\136\137\158\236\236\249\236\236\236\163\156\137\130\191\143\158\137\137\130\159\132\131\152\170\131\128\136\137\158\236\236\236\236\236\229\236\236\236\254\238\236\236\236\237\236\236\236\204\236\236\236\236\236\236\238\236\254\236\236\237\236\237\236\236\236\236\236\236\236\236\238\236\237\236\254\236\236\236\236\237\236\236\236\204\236\236\236\236\236\236\239\236\254\236\236\237\236\237\236\236\236\236\236\236\236\236\238\236\237\236\236\236\236\236\236\237\236\236\236\236\224\236\236\236\254\231\236\236\236\237\236\236\236\254\236\236\237\236\238\236\236\236\236\236\236\236\236\238\236\237\236\254\236\236\236\236\239\236\236\236\204\236\236\236\236\236\236\232\236\254\236\236\238\236\233\236\236\236\236\236\236\236\236\238\236\238\236\204\236\236\236\236\236\236\234\236\204\236\236\236\236\236\236\235\236\238\236\236\238\236\236\236\236\236\236\229\236\236\236\238\236\237\236\236\239\236\236\236\237\236\236\236\236';local a=bit32 or require('bit');local d=a and a.bxor or function(a,c)local b,d=1,0 while a>0 and c>0 do local e,f=a%2,c%2 if e~=f then d=d+b end a,c,b=(a-e)/2,(c-f)/2,b*2 end if a<c then a=c end while a>0 do local c=a%2 if c>0 then d=d+b end a,b=(a-c)/2,b*2 end return d end local function c(b,a,c)if c then local a=(b/2^(a-1))%2^((c-1)-(a-1)+1);return a-a%1;else local a=2^(a-1);return(b%(a+a)>=a)and 1 or 0;end;end;local a=1;local function b()local b,e,c,f=g(i,a,a+3);b=d(b,236)e=d(e,236)c=d(c,236)f=d(f,236)a=a+4;return(f*16777216)+(c*65536)+(e*256)+b;end;local function f()local b=d(g(i,a,a),236);a=a+1;return b;end;local function e()local b,c=g(i,a,a+2);b=d(b,236)c=d(c,236)a=a+2;return(c*256)+b;end;local function p()local d=b();local a=b();local e=1;local d=(c(a,1,20)*(2^32))+d;local b=c(a,21,31);local a=((-1)^c(a,32));if(b==0)then if(d==0)then return a*0;else b=1;e=0;end;elseif(b==2047)then return(d==0)and(a*(1/0))or(a*(0/0));end;return l(a,b-1023)*(e+(d/(2^52)));end;local l=b;local function q(b)local c;if(not b)then b=l();if(b==0)then return'';end;end;c=j(i,a,a+b-1);a=a+b;local b={}for a=1,#c do b[a]=n(d(g(j(c,a,a)),236))end return o(b);end;local a=b;local function n(...)return{...},k('#',...)end local function l()local i={};local d={};local a={};local h={i,d,nil,a};local a=b()local g={}for c=1,a do local b=f();local a;if(b==1)then a=(f()~=0);elseif(b==2)then a=p();elseif(b==0)then a=q();end;g[c]=a;end;for a=1,b()do d[a-1]=l();end;for h=1,b()do local a=f();if(c(a,1,1)==0)then local d=c(a,2,3);local f=c(a,4,6);local a={e(),e(),nil,nil};if(d==0)then a[3]=e();a[4]=e();elseif(d==1)then a[3]=b();elseif(d==2)then a[3]=b()-(2^16)elseif(d==3)then a[3]=b()-(2^16)a[4]=e();end;if(c(f,1,1)==1)then a[2]=g[a[2]]end if(c(f,2,2)==1)then a[3]=g[a[3]]end if(c(f,3,3)==1)then a[4]=g[a[4]]end i[h]=a;end end;h[3]=f();return h;end;local function i(a,b,f)local c=a[1];local b=a[2];local a=a[3];return function(...)local e=c;local j=b;local d=a;local a=n local c=1;local a=-1;local l={};local g={...};local k=k('#',...)-1;local a={};local b={};for a=0,k do if(a>=d)then l[a-d]=g[a+1];else b[a]=g[a+1];end;end;local a=k-d+1 local a;local d;while true do a=e[c];d=a[1];if d<=9 then if d<=4 then if d<=1 then if d>0 then b[a[2]]=f[a[3]];else b[a[2]]=i(j[a[3]],nil,f);end;elseif d<=2 then local d;b[a[2]]=f[a[3]];c=c+1;a=e[c];b[a[2]]=b[a[3]][a[4]];c=c+1;a=e[c];b[a[2]]=f[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]]=f[a[3]];c=c+1;a=e[c];b[a[2]]=b[a[3]][a[4]];c=c+1;a=e[c];b[a[2]]=f[a[3]];c=c+1;a=e[c];d=a[2]b[d](b[d+1])c=c+1;a=e[c];do return end;elseif d==3 then do return end;else b[a[2]]=f[a[3]];end;elseif d<=6 then if d==5 then b[a[2]]=i(j[a[3]],nil,f);else local c=a[2];local d=b[a[3]];b[c+1]=d;b[c]=d[a[4]];end;elseif d<=7 then local c=a[2]b[c]=b[c](h(b,c+1,a[3]))elseif d>8 then local c=a[2]b[c](h(b,c+1,a[3]))else do return end;end;elseif d<=14 then if d<=11 then if d==10 then local d=a[2];local c=b[a[3]];b[d+1]=c;b[d]=c[a[4]];else local g;local d;b[a[2]]=f[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]]=f[a[3]];c=c+1;a=e[c];d=a[2];g=b[a[3]];b[d+1]=g;b[d]=g[a[4]];c=c+1;a=e[c];b[a[2]]=a[3];c=c+1;a=e[c];d=a[2]b[d]=b[d](h(b,d+1,a[3]))c=c+1;a=e[c];b[a[2]]=b[a[3]][a[4]];c=c+1;a=e[c];d=a[2];g=b[a[3]];b[d+1]=g;b[d]=g[a[4]];end;elseif d<=12 then local c=a[2]b[c](h(b,c+1,a[3]))elseif d==13 then b[a[2]]=b[a[3]][a[4]];else b[a[2]]=b[a[3]][a[4]];end;elseif d<=16 then if d>15 then local a=a[2]b[a](b[a+1])else local c=a[2]b[c]=b[c](h(b,c+1,a[3]))end;elseif d<=17 then b[a[2]]=a[3];elseif d>18 then local a=a[2]b[a](b[a+1])else b[a[2]]=a[3];end;c=c+1;end;end;end;return i(l(),{},m())();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement