0% found this document useful (0 votes)
46 views3 pages

Polaria

Uploaded by

kiszony09plplus
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
0% found this document useful (0 votes)
46 views3 pages

Polaria

Uploaded by

kiszony09plplus
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 3

([[This file was protected with MoonSec V3]]):gsub('.

+', (function(a) _GvVBofTYqKIq


= a; end)); return(function(u,...)local d;local s;local f;local c;local t;local
o;local e=24915;local n=0;local l={};while n<285 do n=n+1;while n<0x322 and e
%0x3768<0x1bb4 do n=n+1 e=(e*1013)%14929 local r=n+e if(e%0x1c62)>=0xe31 then e=(e-
0x3f5)%0x9970 while n<0x2e0 and e%0x8b6<0x45b do n=n+1 e=(e-782)%15782 local d=n+e
if(e%0x3b3a)<0x1d9d then e=(e-0xe2)%0x7c2b local e=36798 if not l[e]then l[e]=0x1
t=(not t)and _ENV or t;end elseif e%2~=0 then e=(e-0x3f1)%0x7696 local e=70779 if
not l[e]then l[e]=0x1 s=tonumber;end else e=(e+0x3bc)%0x628 n=n+1 local e=83434 if
not l[e]then l[e]=0x1 t=getfenv and getfenv();end end end elseif e%2~=0 then
e=(e+0x174)%0x11e8 while n<0xae and e%0x490e<0x2487 do n=n+1 e=(e+419)%29126 local
t=n+e if(e%0x3e46)<0x1f23 then e=(e*0x1fd)%0xba52 local e=84736 if not l[e]then
l[e]=0x1 o={};end elseif e%2~=0 then e=(e+0x36b)%0x9af1 local e=84330 if not
l[e]then l[e]=0x1 f=string;end else e=(e-0x292)%0x806b n=n+1 local e=1453 if not
l[e]then l[e]=0x1 end end end else e=(e*0x185)%0x177d n=n+1 while n<0x372 and e
%0x1562<0xab1 do n=n+1 e=(e-416)%29618 local r=n+e if(e%0x3a12)>0x1d09 then
e=(e*0x2c1)%0x5268 local e=55202 if not l[e]then l[e]=0x1 end elseif e%2~=0 then
e=(e*0x3d7)%0xbbd9 local e=92908 if not l[e]then l[e]=0x1 d=function(d)local e=0x01
local function l(n)e=e+n return d:sub(e-n,e-0x01)end while true do local
n=l(0x01)if(n=="\5")then break end local e=f.byte(l(0x01))local e=l(e)if n=="\
2"then e=o.CKjtniGR(e)elseif n=="\3"then e=e~="\0"elseif n=="\6"then
t[e]=function(n,e)return u(8,nil,u,e,n)end elseif n=="\4"then e=t[e]elseif n=="\
0"then e=t[e][l(f.byte(l(0x01)))];end local n=l(0x08)o[n]=e end end end else
e=(e+0xd5)%0xc70 n=n+1 local e=15285 if not l[e]then l[e]=0x1 c="\
4\8\116\111\110\117\109\98\101\114\67\75\106\116\110\105\71\82\0\6\115\116\114\105\
110\103\4\99\104\97\114\83\98\120\79\80\113\90\65\0\6\115\116\114\105\110\103\3\115
\117\98\82\105\82\119\67\83\85\115\0\6\115\116\114\105\110\103\4\98\121\116\101\65\
109\70\75\71\68\69\98\0\5\116\97\98\108\101\6\99\111\110\99\97\116\112\112\102\82\9
9\76\79\65\0\5\116\97\98\108\101\6\105\110\115\101\114\116\101\88\72\71\76\79\122\1
02\5";end end end end end e=(e-953)%5404 end d(c);local n={};for e=0x0,0xff do
local l=o.SbxOPqZA(e);n[e]=l;n[l]=e;end local function a(e)return n[e];end local
f=(function(c,f)local r,l=0x01,0x10 local n={{},{},{}}local t=-0x01 local e=0x01
local d=c while true do n[0x03][o.RiRwCSUs(f,e,(function()e=r+e return e-0x01 end)
())]=(function()t=t+0x01 return t end)()if t==(0x0f)then t=""l=0x000 break end end
local t=#f while e<t+0x01 do n[0x02][l]=o.RiRwCSUs(f,e,(function()e=r+e return e-
0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 o.eXHGLOzf(n[0x01],(a((((n[0x03]
[n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+d)%0x100)));d=c+d;end
end return o.ppfRcLOA(n[0x01])end);d(f(163,"knPv-;wI8=Le}!
(+wP"));d(f(105,"1c0=G^sN4ew3/T_KeN=G=4TUs^K=4KcK^=GwK04cc3e0c3/
ws4I=4w=cw3K_ese4003N^eKo4=cN3K0w3Ks^cwwPTGsKNciwe4=GTc^4__43z*ec^/TKN3w/
GeGT_^Nwa4wG=Gses4K=eT0=3K^e_/ePKKecG_TwsewsGcGc//NsVc=^==/0^w+Ge=ce/0=//
G4Tc_wT0cNsc^c=e/G0T0sc9N43=^3e^cK040Ee33^e_04sc=4e0TNjtwKYes03T=s^KK^N0^3wG_/
TN3Kwe_0_NN2_c4ee=4Tws^iN4wQ3/T=3/4s83NGTc/TGsxc/wK=_T/^w#0=sTcTGss7cee0_3/^4_44/
K34_G0TTs=c44sTYs/N0Ks4_0K3KKNKT4T0sw_GN_sN3__e^=s_^NKKTe^/
_sNsTKTesc_3N^sK04TYGwTGe/GNGd3=_TsT4NcKKe3=4/_=3/K4/
KTw;^sT_cN3m3G=TT3s3Xdw40K3cGsKw4scT/
c^_4=c_c_we^=T_c0lwwNGcT4N0TwercxwcGsTce^0w^G"));local e=(-6749+(function()local
t,n=0,1;(function(e,n)e(n(e,n),n(e,e))end)(function(e,l)if t>167 then return e end
t=t+1 n=(n*395)%48568 if(n%1610)>=805 then n=(n-674)%10927 return
e(e(e,e),e(l,e)and l(l,e and l))else return l end return l end,function(l,e)if
t>361 then return l end t=t+1 n=(n*738)%43127 if(n%1656)<828 then n=(n-847)%257
return l else return l(e(e and e,l)and e(l,e),e(l,e))end return l(l(l,e)and
e(e,l),e(l,e))end)return n;end)())local z=(getfenv)or(function()return _ENV
end);local r=o.ptTfkOhh or o.iEU_wzab;local a=4;local d=2;local y=1;local t=3;local
function g(b,...)local c=f(e,"RQlHU}816fPNTV-((V-T-lV6V9T6NPN=P8SH(H(}-
H181U8Z}8UTP-P16(666V6U168}8^U(-A(NTPT:N8/KFPaQjQPU-?
VfVlTQ1lN(f(P1UPfh661N18}V}Q}6H(HU-8HHQNQT08NUV1-(-}VPN}NVNQ8Ufj8Hl6lHQlh6(-
HT}-}UU8QHl1lTNjTUfPfz68-U-8VTT-T16U8(8}fT6H6N6l8f8v8fQUHVUlH6-VQ1---
6(NV6NHPfVHfHTTNQNVH-H(l6Q-
QU8fU18TUllUU1HUQ6QHlQ(Q-}KH6Pf11U8P82PHNNNQP86Q6f1V8(}f1Y8U}QUTHNHVm6Q(Qip8(V(TT}-
--UV6}T}lU6H-UHlPlzQ8STQ}(6---UVNVmT8NTTUN1f-fU6P61188T8l8P}UUUHPHklTQTQlp6lU3U-P-
<V8VlTlNfP-P1fPfUfU1T1l868U}UUNUjH8HTllQ6/-i}(P(_-8--V-T6N-NUPTP?f86TfU1f8-
8}}P}QU8HTHlU6HHQU_N0a(1-T-8V6-=V}NPNHP8PQfl661-1U118B}PUTUHH6l-lUQPlTs8(V(l-TV-
VUTPToTfPTPlf66-6U1T1r8811}lU6H-H}lPlQQ8#TQl(6---UVNVYT8NTNl");local
n=0;o.hevJHWud(function()o.hs_ItKAB()n=n+1 end)local function e(e,l)if l then
return n end;n=e+n;end local l,n,h=u(0,u,e,c,o.AmFKGDEb);local function f()local
l,n=o.AmFKGDEb(c,e(1,3),e(5,6)+2);e(2);return(n*256)+l;end;local _=true;local _=0
local function k()local e=n();local n=n();local d=1;local t=(l(n,1,20)*(2^32))
+e;local e=l(n,21,31);local n=((-1)^l(n,32));if(e==0)then if(t==_)then return
n*0;else e=1;d=0;end;elseif(e==2047)then
return(t==0)and(n*(1/0))or(n*(0/0));end;return
o._qTEwqiF(n,e-1023)*(d+(t/(2^52)));end;local p=n;local function m(n)local l;if(not
n)then n=p();if(n==0)then return'';end;end;l=o.RiRwCSUs(c,e(1,3),e(5,6)+n-
1);e(n)local e=""for n=(1+_),#l do e=e..o.RiRwCSUs(l,n,n)end return e;end;local
_=#o.tLHeiXvM(s('\49.\48'))~=1 local e=n;local function
ne(...)return{...},o.dOMj__lr('#',...)end local function g()local e={};local
r={};local u={};local s={u,r,nil,e};local e=n()local c={}for t=1,e do local
l=h();local n;if(l==1)then n=(h()~=#{});elseif(l==0)then local e=k();if _ and
o.kgtLGmbZ(o.tLHeiXvM(e),'.(\48+)$')then e=o.CbKESGtr(e);end n=e;elseif(l==2)then
n=m();end;c[t]=n;end;for e=1,n()do r[e-(#{1})]=g();end;for s=1,n()do local
e=h();if(l(e,1,1)==0)then local o=l(e,2,3);local r=l(e,4,6);local
e={f(),f(),nil,nil};if(o==0)then e[t]=f();e[a]=f();elseif(o==#{1})then
e[t]=n();elseif(o==b[2])then e[t]=n()-(2^16)elseif(o==b[3])then e[t]=n()-
(2^16)e[a]=f();end;if(l(r,1,1)==1)then e[d]=c[e[d]]end if(l(r,2,2)==1)then
e[t]=c[e[t]]end if(l(r,3,3)==1)then e[a]=c[e[a]]end u[s]=e;end end;s[3]=h();return
s;end;local function j(l,e,n)local t=e;local t=n;return
s(o.kgtLGmbZ(o.kgtLGmbZ(({o.hevJHWud(l)})[2],e),n))end local function
ee(m,e,h)local function z(...)local f,g,s,j,b,l,c,k,_,p,z,n;local e=0;while-1<e do
if e>2 then if 4<e then if e>4 then for l=38,65 do if e~=5 then e=-
2;break;end;n=u(7);break;end;else e=-2;end else if 1<e then for n=41,83 do if e>3
then p=o.dOMj__lr('#',...)-1;z={};break;end;k={};_={...};break;end;else
k={};_={...};end end else if e>=1 then if e~=2 then s=u(6,32,3,86,m);b=ne j=0;else
l=-41;c=-1;end else f=u(6,50,1,78,m);g=u(6,41,2,78,m);end end e=e+1;end;for e=0,p
do if(e>=s)then k[e-s]=_[e+1];else n[e]=_[e+1];end;end;local e=p-s+1 local e;local
o;local function u(...)while true do end end while true do if l<-40 then l=l+42 end
e=f[l];o=e[y];if o>11 then if o<=17 then if 14<o then if o<=15 then
n[e[d]]=(e[t]~=0);else if 12~=o then for l=25,53 do if 17~=o then do return
end;break;end;local l=e[d]local t,e=b(n[l](r(n,l+1,e[t])))c=e+l-1 local e=0;for
l=l,c do e=e+1;n[l]=t[e];end;break;end;else local l=e[d]local t,e=b(n[l]
(r(n,l+1,e[t])))c=e+l-1 local e=0;for l=l,c do e=e+1;n[l]=t[e];end;end end else if
o<=12 then n[e[d]]=h[e[t]];else if o~=11 then repeat if 13~=o then
l=e[t];break;end;n[e[d]]=(e[t]~=0);until true;else l=e[t];end end end else if o>20
then if o<22 then n[e[d]]();else if o<23 then if(n[e[d]]~=e[a])then l=l+1;else
l=e[t];end;else l=e[t];end end else if o>18 then if 16<=o then repeat if o~=20 then
for o=0,3 do if o>=2 then if o>2 then if(n[e[d]]~=e[a])then l=l+1;else
l=e[t];end;else n[e[d]]=h[e[t]];l=l+1;e=f[l];end else if o<1 then
n[e[d]]=(e[t]~=0);l=l+1;e=f[l];else h[e[t]]=n[e[d]];l=l+1;e=f[l];end end end
break;end;n(e[d],e[t]);until true;else for o=0,3 do if o>=2 then if o>2 then
if(n[e[d]]~=e[a])then l=l+1;else l=e[t];end;else n[e[d]]=h[e[t]];l=l+1;e=f[l];end
else if o<1 then n[e[d]]=(e[t]~=0);l=l+1;e=f[l];else
h[e[t]]=n[e[d]];l=l+1;e=f[l];end end end end else do return end;end end end else if
o>5 then if o<9 then if 7>o then local d=e[d];local
l=n[e[t]];n[d+1]=l;n[d]=l[e[a]];else if o>6 then for l=35,61 do if 7<o then local
l=e[d]local t,e=b(n[l](r(n,l+1,e[t])))c=e+l-1 local e=0;for l=l,c do
e=e+1;n[l]=t[e];end;break;end;n(e[d],e[t]);break;end;else local l=e[d]local
t,e=b(n[l](r(n,l+1,e[t])))c=e+l-1 local e=0;for l=l,c do e=e+1;n[l]=t[e];end;end
end else if 10<=o then if o==11 then h[e[t]]=n[e[d]];else local e=e[d]n[e]=n[e]
(r(n,e+1,c))end else n[e[d]]();end end else if 2<o then if o<4 then
h[e[t]]=n[e[d]];else if o==5 then local l=e[d];local
t=n[e[t]];n[l+1]=t;n[l]=t[e[a]];else local e=e[d]n[e]=n[e](r(n,e+1,c))end end else
if 1<=o then if o<2 then local o,_,m,k,s;for u=0,6 do if 2<u then if 5<=u then if
u~=4 then repeat if u<6 then o=e[d]n[o]=n[o]
(r(n,o+1,c))l=l+1;e=f[l];break;end;n[e[d]]();until true;else n[e[d]]();end else if
u>=0 then repeat if u<4 then
n[e[d]]=(e[t]~=0);l=l+1;e=f[l];break;end;o=e[d]m,k=b(n[o](r(n,o+1,e[t])))c=k+o-1
s=0;for e=o,c do s=s+1;n[e]=m[s];end;l=l+1;e=f[l];until true;else o=e[d]m,k=b(n[o]
(r(n,o+1,e[t])))c=k+o-1 s=0;for e=o,c do s=s+1;n[e]=m[s];end;l=l+1;e=f[l];end end
else if 1<=u then if u>=-3 then repeat if 1<u then
n(e[d],e[t]);l=l+1;e=f[l];break;end;o=e[d];_=n[e[t]];n[o+1]=_;n[o]=_[e[a]];l=l+1;e=
f[l];until true;else o=e[d];_=n[e[t]];n[o+1]=_;n[o]=_[e[a]];l=l+1;e=f[l];end else
n[e[d]]=h[e[t]];l=l+1;e=f[l];end end end else n[e[d]]=h[e[t]];end else
if(n[e[d]]~=e[a])then l=l+1;else l=e[t];end;end end end end l=1+l;end;end;return z
end;local t=0xff;local a={};local c=(1);local d='';(function(n)local l=n local
f=0x00 local e=0x00 l={(function(o)if f>0x2f then return o
end f=f+1 e=(e+0xb3c-o)%0x39 return(e%0x03==0x2 and(function(l)if not n[l]then
e=e+0x01 n[l]=(0xf8);a[c]=z();c=c+t;end return true end)'PROKU'and l[0x3]
(0xf6+o))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01
n[l]=(0xf2);t[2]=(t[2]*(j(function()a()end,r(d))-j(t[1],r(d))))
+1;a[c]={};t=t[2];c=c+t;end return true end)'ZRRAF'and l[0x2](o+0x226))or(e
%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x3d);end return true
end)'lekch'and l[0x1](o+0x86))or o end),(function(r)if f>0x30 then return r end
f=f+1 e=(e+0xbd2-r)%0x4d return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01
n[l]=(0xc);d={d..'\58 a',d};a[c]=g();c=c+((not o.PBZaeUeH)and 1 or 0);d[1]='\
58'..d[1];t[2]=0xff;end return true end)'OxgFr'and l[0x1](0x169+r))or(e%0x03==0x2
and(function(l)if not n[l]then e=e+0x01 n[l]=(0x7c);end return true end)'BWjnm'and
l[0x3](r+0xda))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01
n[l]=(0x5e);end return true end)'LpmPS'and l[0x2](r+0x35a))or r end),(function(o)if
f>0x23 then return o end f=f+1 e=(e+0xb4a-o)%0x12 return(e%0x03==0x2
and(function(l)if not n[l]then e=e+0x01 n[l]=(0xe7);d='\
37';t={function()t()end};d=d..'\100\43';end return true end)'bvqSO'and l[0x2]
(0x38f+o))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xf7);end
return true end)'aJfwW'and l[0x1](o+0x3b3))or(e%0x03==0x0 and(function(l)if not
n[l]then e=e+0x01 n[l]=(0x1b);end return true end)'thVsX'and l[0x3](o+0x1ac))or o
end)}l[0x3](0x1d54)end){};local e=ee(r(a));return e(...);end return
g((function()local n={}local e=0x01;local l;if o.PBZaeUeH then l=o.PBZaeUeH(g)else
l=''end if o.kgtLGmbZ(l,o.dciGAuaf)then e=e+0;else e=e+1;end n[e]=0x02;n[n[e]
+0x01]=0x03;return n;end)(),...)end)((function(l,e,n,t,d,o)local o;if 3>=l then if
l>1 then if l~=-1 then for o=23,88 do if l~=3 then do return 16777216,65536,256
end;break;end;do return e(1),e(4,d,t,n,e),e(5,d,t,n)end;break;end;else do return
e(1),e(4,d,t,n,e),e(5,d,t,n)end;end else if 0==l then do return
e(1),e(4,d,t,n,e),e(5,d,t,n)end;else do return function(n,e,l)if l then local
e=(n/2^(e-1))%2^((l-1)-(e-1)+1);return e-e%1;else local e=2^(e-1);return(n%
(e+e)>=e)and 1 or 0;end;end;end;end end else if 6>l then if l>=3 then repeat if l<5
then local l=t;local f,d,o=d(2);do return function()local t,e,n,c=e(n,l(l,l),l(l,l)
+3);l(4);return(c*f)+(n*d)+(e*o)+t;end;end;break;end;local l=t;do return
function()local e=e(n,l(l,l),l(l,l));l(1);return e;end;end;until true;else local
l=t;local f,c,o=d(2);do return function()local t,d,n,e=e(n,l(l,l),l(l,l)
+3);l(4);return(e*f)+(n*c)+(d*o)+t;end;end;end else if l>=7 then if 4<l then repeat
if l~=8 then do return setmetatable({},{['__\99\97\108\108']=function(e,t,l,d,n)if
n then return e[n]elseif d then return e else e[t]=l end end})end break;end;do
return n(l,nil,n);end until true;else do return n(l,nil,n);end end else do return
d[n]end;end end end end),...)

You might also like