Aztupbrew Sample

-- Public bc i need to get some unlisted pastes back
--[[
AztupBrew(Fork of IronBrew2): obfuscation; Version 2.7.2
]]
return(function(Hi_h,Hi_a,Hi_a)local Hi_j=string.char;local Hi_e=string.sub;local Hi_n=table.concat;local Hi_m=math.ldexp;local Hi_p=getfenv or function()return _ENV end;local Hi_k=select;local Hi_o=unpack or table.unpack;local Hi_i=tonumber;local function Hi_l(Hi_h)local Hi_b,Hi_c,Hi_f="","",{}local Hi_d=256;local Hi_g={}for Hi_a=0,Hi_d-1 do Hi_g[Hi_a]=Hi_j(Hi_a)end;local Hi_a=1;local function Hi_k()local Hi_b=Hi_i(Hi_e(Hi_h,Hi_a,Hi_a),36)Hi_a=Hi_a+1;local Hi_c=Hi_i(Hi_e(Hi_h,Hi_a,Hi_a+Hi_b-1),36)Hi_a=Hi_a+Hi_b;return Hi_c end;Hi_b=Hi_j(Hi_k())Hi_f[1]=Hi_b;while Hi_a<#Hi_h do local Hi_a=Hi_k()if Hi_g[Hi_a]then Hi_c=Hi_g[Hi_a]else Hi_c=Hi_b..Hi_e(Hi_b,1,1)end;Hi_g[Hi_d]=Hi_b..Hi_e(Hi_c,1,1)Hi_f[#Hi_f+1],Hi_b,Hi_d=Hi_c,Hi_c,Hi_d+1 end;return table.concat(Hi_f)end;local Hi_i=Hi_l('1Y1W2751Z2112751W22822A22122622C1Z21727922W21X2242242271022F22722A22421W21027921E1X27927X27521E27827X27427928527427Z2841W27Z28527527U27528B28G27Y279');local Hi_a=(bit or bit32);local Hi_d=Hi_a and Hi_a.bxor or function(Hi_a,Hi_c)local Hi_b,Hi_d,Hi_e=1,0,10 while Hi_a>0 and Hi_c>0 do local Hi_e,Hi_f=Hi_a%2,Hi_c%2 if Hi_e~=Hi_f then Hi_d=Hi_d+Hi_b end Hi_a,Hi_c,Hi_b=(Hi_a-Hi_e)/2,(Hi_c-Hi_f)/2,Hi_b*2 end if Hi_a<Hi_c then Hi_a=Hi_c end while Hi_a>0 do local Hi_c=Hi_a%2 if Hi_c>0 then Hi_d=Hi_d+Hi_b end Hi_a,Hi_b=(Hi_a-Hi_c)/2,Hi_b*2 end return Hi_d end local function Hi_c(Hi_b,Hi_a,Hi_c)if Hi_c then local Hi_a=(Hi_b/2^(Hi_a-1))%2^((Hi_c-1)-(Hi_a-1)+1);return Hi_a-Hi_a%1;else local Hi_a=2^(Hi_a-1);return(Hi_b%(Hi_a+Hi_a)>=Hi_a)and 1 or 0;end;end;local Hi_a=1;local function Hi_b()local Hi_e,Hi_f,Hi_c,Hi_b=Hi_h(Hi_i,Hi_a,Hi_a+3);Hi_e=Hi_d(Hi_e,32)Hi_f=Hi_d(Hi_f,32)Hi_c=Hi_d(Hi_c,32)Hi_b=Hi_d(Hi_b,32)Hi_a=Hi_a+4;return(Hi_b*16777216)+(Hi_c*65536)+(Hi_f*256)+Hi_e;end;local function Hi_g()local Hi_b=Hi_d(Hi_h(Hi_i,Hi_a,Hi_a),32);Hi_a=Hi_a+1;return Hi_b;end;local function Hi_f()local Hi_b,Hi_c=Hi_h(Hi_i,Hi_a,Hi_a+2);Hi_b=Hi_d(Hi_b,32)Hi_c=Hi_d(Hi_c,32)Hi_a=Hi_a+2;return(Hi_c*256)+Hi_b;end;local function Hi_q()local Hi_a=Hi_b();local Hi_b=Hi_b();local Hi_e=1;local Hi_d=(Hi_c(Hi_b,1,20)*(2^32))+Hi_a;local Hi_a=Hi_c(Hi_b,21,31);local Hi_b=((-1)^Hi_c(Hi_b,32));if(Hi_a==0)then if(Hi_d==0)then return Hi_b*0;else Hi_a=1;Hi_e=0;end;elseif(Hi_a==2047)then return(Hi_d==0)and(Hi_b*(1/0))or(Hi_b*(0/0));end;return Hi_m(Hi_b,Hi_a-1023)*(Hi_e+(Hi_d/(2^52)));end;local Hi_l=Hi_b;local function Hi_m(Hi_b)local Hi_c;if(not Hi_b)then Hi_b=Hi_l();if(Hi_b==0)then return'';end;end;Hi_c=Hi_e(Hi_i,Hi_a,Hi_a+Hi_b-1);Hi_a=Hi_a+Hi_b;local Hi_b={}for Hi_a=1,#Hi_c do Hi_b[Hi_a]=Hi_j(Hi_d(Hi_h(Hi_e(Hi_c,Hi_a,Hi_a)),32))end return Hi_n(Hi_b);end;local Hi_a=Hi_b;local function Hi_l(...)return{...},Hi_k('#',...)end local function Hi_j()local Hi_h={};local Hi_k={};local Hi_l={};local Hi_i={[#{"1 + 1 = 111";"1 + 1 = 111";}]=Hi_k,[#{"1 + 1 = 111";{987;579;518;502};{786;841;167;442};}]=nil,[#{"1 + 1 = 111";{215;570;615;988};{343;850;991;306};"1 + 1 = 111";}]=Hi_l,[#{"1 + 1 = 111";}]=Hi_h,};local Hi_a=Hi_b()local Hi_e={}for Hi_c=1,Hi_a do local Hi_b=Hi_g();local Hi_a;if(Hi_b==0)then Hi_a=(Hi_g()~=0);elseif(Hi_b==1)then Hi_a=Hi_q();elseif(Hi_b==3)then Hi_a=Hi_m();end;Hi_e[Hi_c]=Hi_a;end;for Hi_i=1,Hi_b()do local Hi_a=Hi_g();if(Hi_c(Hi_a,1,1)==0)then local Hi_d=Hi_c(Hi_a,2,3);local Hi_g=Hi_c(Hi_a,4,6);local Hi_a={Hi_f(),Hi_f(),nil,nil};if(Hi_d==0)then Hi_a[3]=Hi_f();Hi_a[4]=Hi_f();elseif(Hi_d==1)then Hi_a[3]=Hi_b();elseif(Hi_d==2)then Hi_a[3]=Hi_b()-(2^16)elseif(Hi_d==3)then Hi_a[3]=Hi_b()-(2^16)Hi_a[4]=Hi_f();end;if(Hi_c(Hi_g,1,1)==1)then Hi_a[2]=Hi_e[Hi_a[2]]end if(Hi_c(Hi_g,2,2)==1)then Hi_a[3]=Hi_e[Hi_a[3]]end if(Hi_c(Hi_g,3,3)==1)then Hi_a[4]=Hi_e[Hi_a[4]]end Hi_h[Hi_i]=Hi_a;end end;Hi_i[3]=Hi_g();for Hi_a=1,Hi_b()do Hi_k[Hi_a-1]=Hi_j();end;for Hi_a=1,Hi_b()do Hi_l[Hi_a]=Hi_b();end;return Hi_i;end;local Hi_n=pcall local function Hi_m(Hi_d,Hi_a,Hi_f)Hi_d=(Hi_d==true and Hi_j())or Hi_d;return(function(...)local Hi_e=1;local Hi_a=-1;local Hi_g={...};local Hi_h=Hi_k('#',...)-1;local Hi_i=Hi_d[#{{802;498;544;352};}];local Hi_c=Hi_d[#{"1 + 1 = 111";"1 + 1 = 111";{608;802;627;259};}];local Hi_a=Hi_d[#{"1 + 1 = 111";"1 + 1 = 111";}];local function Hi_j()local Hi_a=Hi_l local Hi_d={};local Hi_a={};local Hi_b={};for Hi_a=0,Hi_h do if(Hi_a>=Hi_c)then Hi_d[Hi_a-Hi_c]=Hi_g[Hi_a+1];else Hi_b[Hi_a]=Hi_g[Hi_a+1];end;end;local Hi_a=Hi_h-Hi_c+1 local Hi_a;local Hi_c;while true do Hi_a=Hi_i[Hi_e];Hi_c=Hi_a[1];if Hi_c<=3 then if Hi_c<=1 then if Hi_c==0 then local Hi_a=Hi_a[2]Hi_b[Hi_a](Hi_b[Hi_a+1])else Hi_b[Hi_a[2]]=Hi_f[Hi_a[3]];end;elseif Hi_c==2 then do return end;else Hi_b[Hi_a[2]]=Hi_f[Hi_a[3]];end;elseif Hi_c<=5 then if Hi_c==4 then do return end;else Hi_b[Hi_a[2]]=Hi_a[3];end;elseif Hi_c==6 then Hi_b[Hi_a[2]]=Hi_a[3];else local Hi_a=Hi_a[2]Hi_b[Hi_a](Hi_b[Hi_a+1])end;Hi_e=Hi_e+1;end;end;A,B=Hi_l(Hi_n(Hi_j))if not A[1]then local Hi_a=Hi_d[4][Hi_e]or'?';error('ERROR IN IRONBREW SCRIPT [LINE '..Hi_a..']:'..A[2]);wait(9e9);else return Hi_o(A,2,B);end;end);end;return Hi_m(true,{},Hi_p())();end)(string.byte,table.insert,setmetatable);