BEAR | Coin Farm

--clvbrew:tm: obfuscation, fork of Ironbrew; Version v2.7.5c

return(function(l,b,o,e,r,C)local h=unpack or table.unpack;local l=setmetatable;local d=string.sub;local J=select;local N=getfenv or function()return _ENV end;local i=e;local e=table.getn or function(e)return#e end;local E=table.insert;local D=string.byte;local B=table.concat;local f=pairs;local s=string.char;local u={}for e=0,255 do u[e]=s(e)end;local function G(c)local l,n,a="","",{}local t=r;local e=o;local function f()local l=i(d(c,e,e),36)e=e+o;local n=i(d(c,e,e+l-o),36)e=e+l;return n end;l=s(f())a[o]=l;while e<#c do local e=f()if u[e]then n=u[e]else n=l..d(l,o,1)end;u[t]=l..d(n,o,1)a[#a+o],l,t=n,n,t+o end;return B(a)end;local i=G('23523D23523723A23527922V22N21W22S23623825C23723B27923523623G22D23523422R23723C27K21Y22D22D23F23223A24224F23W23723927U22J22622S27727K22P22E21Y22X23C23823K23722P27K23D22722227622X24A24825725924W25826D26726126823723627K22N22N22823723827K22O22722623822V27K29F27928A27923622D22123I23C22T23R23723F27K23622A22623G23D21Z24724823W25227S29T22A21Y22Q23G29P24924B29G27922N21D28427K23I22G21X22X23723E27K23H22D21W27922E24F24D24025324T2AH2AT22J22228522C29F22R27921D2352AO2792B727P29J27K22927923429F23J2352BH2BE28L2352BD2342BJ28K2792BN2BS2BE2982BW2BJ2BJ23I2BM2BI2372BE23H2C427P2C62C62AO2BW2CB23529S2AN27928529G2982762352852BJ22R29S2342C62CK27923G29H2BE2C623B22W2CY27O2BJ2CJ2BN2792D42BM2CP2C62BJ2C822929E2CT2CN27J2CE2CN2C62BU2D52CF2BR2CU2AD2CN2C12C92DH2DD2DV2CF2DJ2C52DL2BQ2BI2922D52DV29229227822R22O2CJ23527T2BC22Z2792982CX2BC27K27J2EF29G29227J2C629F2CF2922DN2CY2C62DQ2CO2DS2DC2BE2CV2792C82D529227K2E628K21H21H21D21H22P21G21D21G21L2FJ22R22R21G21K22P2E627L2762782CJ22N22C22S23322X23U29R27K22R22722121V28G23P24523U2532B023522E2B22392372EK2BQ22N22123828G24G23S23W24I24V24T25T2GD21Y28728929S27923A22N22B2G72382G92GB2342BB27922S2B82BA2G32BI2BJ2F82DV2DU27J2BR2922ES29G2HH2CN2C02F32HJ2BY2HP2DT2HU2BI2HW2F22AD2FR27K');local t=(bit or bit32)and(bit or bit32).bxor or function(e,n)local l,o=o,0 while e>0 and n>0 do local c,a=e%2,n%2 if c~=a then o=o+l end e,n,l=(e-c)/2,(n-a)/2,l*2 end if e<n then e=n end while e>0 do local n=e%2 if n>0 then o=o+l end e,l=(e-n)/2,l*2 end return o end local function a(n,e,l)if l then local e=(n/2^(e-o))%2^((l-o)-(e-o)+o);return e-e%o;else local e=2^(e-o);return(n%(e+e)>=e)and o or 0;end;end;local e=o;local G=0;local function n()local l,n,o,a=D(i,e,e+3);l=t(l,113)n=t(n,113)o=t(o,113)a=t(a,113)e=e+4;return(a*16777216)+(o*b)+(n*r)+l;end;local function c()local n,l=D(i,e,e+2);n=t(n,113)l=t(l,113)e=e+2;return(l*r)+n;end;local function B()local l=t(D(i,e,e),113);e=e+o;return l;end;local function F(...)return{...},J('#',...)end local function K()local l={};local h={};local s={};local r={[C]=s,[2]=nil,[o]=h,[8]={},[3]=l,[4]=nil,};local l={}local f={}local l={}for r=o,B()==0 and c()*2 or n()do local l=B();while 2 do if(l==2)then local a,c,n='',n();if(c==0)then l=a;break;end;n=d(i,e,e+c-o);n={D(n,o,#n)}e=e+c;for e=o,#n do a=a..u[t(n[e],113)]end l=a break;end if(l==0)then local n,e=n(),n();local c,n,e,a=o,(a(e,o,20)*(2^32))+n,a(e,21,31),((-o)^a(e,32));if e==0 then if n==0 then l=a*0 break;else e=o;c=0;end;elseif(e==2047)then l=(a*((n==0 and o or 0)/0))break;end;l=(a*(2^(e-1023)))*(c+(n/(2^52)));break;end if(l==3)then l=(B()~=0);break;end if(l==4)then local n=n();l=d(i,e,e+n-o);e=e+n;break;end l=nil break;end f[r]=l;end;r[4]=B();for u=o,n()do local e=B();if(a(e,o,o)==0)then local d=a(e,4,6);local l=a(e,2,3);local e,i,h,t=c(),B()==o,c(),{};local B={}local e={[8]=i,[6]=nil,[4]=h,[C]=e,};if(l==2)then e[8]=n()-b end if(l==0)then e[8],e[6]=c(),c()end if(l==3)then e[8],e[6]=n()-b,c()end if(l==o)then e[8]=n()end if(a(d,3,3)==o)then t[6]=6 e[6]=f[e[6]]end if(a(d,2,2)==o)then t[8]=8 e[8]=f[e[8]]end if(a(d,o,o)==o)then t[4]=4 e[4]=f[e[4]]end if i then E(r[8],e)e[3]=t end s[u]=e;end end;if G<o then G=o local l=c()r[6]=d(i,e,e+l-o)e=e+l end for e=o,n()do h[e-o]=K();end;return r;end;local function D(e,l,d,l)local l=e[2];local a=e[C];local G=0;local K=e[4];local B=e[8];local e=e[o];return function(...)local b=e;local l={};local i=J('#',...)-o;local e={};local u={...};local e=-o;local J={};local n=o;local c=a;local a=K;local e=F for e=0,i do if(e>=a)then J[e-a]=u[e+o];else l[e]=u[e+o];end;end;local e;local a=i-a+o local a;while true do e=c[n];a=e[C];if G>0 then l[e[4]]=e[8];end if a<=17 then if a<=8 then if a<=3 then if a<=o then if a==0 then local e=e[4]l[e]=l[e]()else do return end;end;elseif a>2 then do return end;else local a=e[4];local n=l[e[8]];l[a+o]=n;l[a]=n[e[6]];end;elseif a<=C then if a==4 then l[e[4]]=l[e[8]][e[6]];else local n=e[4]l[n](h(l,n+o,e[8]))end;elseif a<=6 then l[e[4]][e[8]]=l[e[6]];elseif a>7 then local n=e[4]l[n]=l[n](h(l,n+o,e[8]))else l[e[4]]();end;elseif a<=12 then if a<=10 then if a>9 then l[e[4]]=d[e[8]];else for n,l in f(B)do for n,a in f(l[3])do local c,e,n,d={l[a]:byte(o,#l[a])},'',e[4],e[8]for o=o,#c do e,n=e..s(t(c[o],n)),(n+d)%r end l[a],l[3]=e,{};end end;end;elseif a>11 then local e=e[4]l[e](l[e+o])else l[e[4]]=D(b[e[8]],nil,d);end;elseif a<=14 then if a>13 then local n=e[4]l[n](h(l,n+o,e[8]))else local e=e[4]l[e]=l[e]()end;elseif a<=15 then l[e[4]]();elseif a>16 then l[e[4]]=e[8];else l[e[4]][e[8]]=l[e[6]];end;elseif a<=26 then if a<=21 then if a<=19 then if a==18 then local u;local h;local C,i,a,D;for n,l in f(B)do for c,n in f(l[3])do C,i,a,D={l[n]:byte(o,#l[n])},'',e[4],e[8]for e=o,#C do i,a=i..s(t(C[e],a)),(a+D)%r end l[n],l[3]=i,{};end end;n=n+o;e=c[n];l[e[4]]=d[e[8]];n=n+o;e=c[n];l[e[4]]=l[e[8]][e[6]];n=n+o;e=c[n];l[e[4]]=l[e[8]][e[6]];n=n+o;e=c[n];l[e[4]]=d[e[8]];n=n+o;e=c[n];l[e[4]]=l[e[8]][e[6]];n=n+o;e=c[n];l[e[4]]=l[e[8]][e[6]];n=n+o;e=c[n];l[e[4]]=l[e[8]][e[6]];n=n+o;e=c[n];l[e[4]]=l[e[8]][e[6]];n=n+o;e=c[n];h=e[4];u=l[e[8]];l[h+o]=u;l[h]=u[e[6]];else local n=e[4]l[n]=l[n](h(l,n+o,e[8]))end;elseif a==20 then local n=e[4];local a=l[e[8]];l[n+o]=a;l[n]=a[e[6]];else local i;local a;local D,u,C,b;for n,l in f(B)do for a,n in f(l[3])do D,u,C,b={l[n]:byte(o,#l[n])},'',e[4],e[8]for e=o,#D do u,C=u..s(t(D[e],C)),(C+b)%r end l[n],l[3]=u,{};end end;n=n+o;e=c[n];l[e[4]]=d[e[8]];n=n+o;e=c[n];a=e[4];i=l[e[8]];l[a+o]=i;l[a]=i[e[6]];n=n+o;e=c[n];l[e[4]]=e[8];n=n+o;e=c[n];a=e[4]l[a]=l[a](h(l,a+o,e[8]))n=n+o;e=c[n];l[e[4]]=l[e[8]][e[6]];n=n+o;e=c[n];a=e[4];i=l[e[8]];l[a+o]=i;l[a]=i[e[6]];n=n+o;e=c[n];a=e[4]l[a](l[a+o])n=n+o;e=c[n];a=e[4];i=l[e[8]];l[a+o]=i;l[a]=i[e[6]];n=n+o;e=c[n];a=e[4]l[a](l[a+o])n=n+o;e=c[n];do return end;end;elseif a<=23 then if a==22 then l[e[4]]=l[e[8]][e[6]];n=n+o;e=c[n];l[e[4]]=l[e[8]][e[6]];n=n+o;e=c[n];l[e[4]][e[8]]=l[e[6]];n=n+o;e=c[n];l[e[4]]=d[e[8]];n=n+o;e=c[n];l[e[4]]();n=n+o;e=c[n];l[e[4]]=l[e[8]][e[6]];n=n+o;e=c[n];l[e[4]]=l[e[8]][e[6]];n=n+o;e=c[n];l[e[4]]=l[e[8]][e[6]];n=n+o;e=c[n];l[e[4]]=d[e[8]];n=n+o;e=c[n];l[e[4]]=l[e[8]][e[6]];else local e=e[4]l[e](l[e+o])end;elseif a<=24 then for n,l in f(B)do for a,n in f(l[3])do local c,e,a,d={l[n]:byte(o,#l[n])},'',e[4],e[8]for n=o,#c do e,a=e..s(t(c[n],a)),(a+d)%r end l[n],l[3]=e,{};end end;elseif a==25 then n=l[e[4]]and n+o or e[8];else local a;l[e[4]]=e[8];n=n+o;e=c[n];l[e[4]]=e[8];n=n+o;e=c[n];a=e[4]l[a]=l[a](h(l,a+o,e[8]))n=n+o;e=c[n];l[e[4]]=l[e[8]]+l[e[6]];n=n+o;e=c[n];l[e[4]][e[8]]=l[e[6]];n=n+o;e=c[n];l[e[4]]=d[e[8]];n=n+o;e=c[n];l[e[4]]();n=n+o;e=c[n];n=e[8];end;elseif a<=30 then if a<=28 then if a==27 then l[e[4]]=e[8];else n=e[8];end;elseif a==29 then l[e[4]]=l[e[8]]+l[e[6]];else l[e[4]]=l[e[8]][e[6]];end;elseif a<=32 then if a>31 then n=e[8];else n=l[e[4]]and n+o or e[8];end;elseif a<=33 then l[e[4]]=l[e[8]]+l[e[6]];elseif a==34 then l[e[4]]=D(b[e[8]],nil,d);else l[e[4]]=d[e[8]];end;n=n+o;end;end;end;return h({D(K(),{},N())()})or nil;end)({},65536,1,tonumber,256,5)