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

purna

The document appears to contain obfuscated code that is likely related to a software or script. It includes various functions, loops, and operations that manipulate data, but the specific purpose and functionality are unclear due to the complexity and obscurity of the code. Overall, it seems to be a technical document focused on programming or scripting tasks.

Uploaded by

nihildezai
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)
12 views3 pages

purna

The document appears to contain obfuscated code that is likely related to a software or script. It includes various functions, loops, and operations that manipulate data, but the specific purpose and functionality are unclear due to the complexity and obscurity of the code. Overall, it seems to be a technical document focused on programming or scripting tasks.

Uploaded by

nihildezai
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 by Federal#9999]]):gsub('.

+',
(function(a) lhTzQTOEcUjZ = a; end)); return(function(u,...)local o;local
f;local ;local d;local t;local r;local e=24915;local n=0;local l={};while n<761 do
n=n+1;while n<0x10e and e%0x1ea8<0xf54 do n=n+1 e=(e769)%40707 local a=n+e if(e
%0x1cbe)>0xe5f then e=(e-0x2d2)%0x2ea7 while n<0x282 and e%0x20e0<0x1070 do n=n+1
e=(e+541)%46802 local d=n+e if(e%0xbcc)<=0x5e6 then e=(e+0x14e)%0xb3a7 local
e=76728 if not l[e]then l[e]=0x1 t={};end elseif e%2~=0 then e=(e+0x21c)%0x9cc8
local e=41999 if not l[e]then l[e]=0x1 f="\
4\8\116\111\110\117\109\98\101\114\65\67\121\72\84\107\85\110\0\6\115\116\114\105\1
10\103\4\99\104\97\114\108\97\112\72\86\76\80\69\0\6\115\116\114\105\110\103\3\115\
117\98\86\66\98\75\83\98\66\104\0\6\115\116\114\105\110\103\4\98\121\116\101\80\82\
66\84\75\122\69\72\0\5\116\97\98\108\101\6\99\111\110\99\97\116\97\117\67\119\81\12
2\81\70\0\5\116\97\98\108\101\6\105\110\115\101\114\116\112\97\114\80\83\122\117\80
\5";end else e=(e0xf)%0xbc57 n=n+1 local e=48208 if not l[e]then l[e]=0x1
=tonumber;end end end elseif e%2~=0 then e=(e0x291)%0xa474 while n<0x8f and e
%0x4062<0x2031 do n=n+1 e=(e-538)%28400 local f=n+e if(e%0x1efe)>0xf7f then
e=(e+0x23e)%0x9c2a local e=56562 if not l[e]then l[e]=0x1 end elseif e%2~=0 then
e=(e-0x232)%0x2c93 local e=74196 if not l[e]then l[e]=0x1 o=function(o)local e=0x01
local function l(n)e=e+n return o:sub(e-n,e-0x01)end while true do local
n=l(0x01)if(n=="\5")then break end local e=r.byte(l(0x01))local e=l(e)if n=="\
2"then e=t.ACyHTkUn(e)elseif n=="\3"then e=e~="\0"elseif n=="\6"then
d[e]=function(n,e)return u(8,nil,u,e,n)end elseif n=="\4"then e=d[e]elseif n=="\
0"then e=d[e][l(r.byte(l(0x01)))];end local n=l(0x08)t[n]=e end end end else
e=(e0x396)%0x68e n=n+1 local e=7379 if not l[e]then l[e]=0x1 end end end else
e=(e0x149)%0x2d35 n=n+1 while n<0x343 and e%0x3138<0x189c do n=n+1 e=(e+961)%46502
local o=n+e if(e%0x27b8)>0x13dc then e=(e0x200)%0x5a04 local e=45078 if not
l[e]then l[e]=0x1 d=(not d)and ENV or d;end elseif e%2~=0 then e=(e0x326)%0xfbf
local e=64351 if not l[e]then l[e]=0x1 r=string;end else e=(e+0xeb)%0xaf74 n=n+1
local e=54762 if not l[e]then l[e]=0x1 d=getfenv and getfenv();end end end end end
e=(e322)%2737 end o(f);local n={};for e=0x0,0xff do local
l=t.lapHVLPE(e);n[e]=l;n[l]=e;end local function c(e)return n[e];end local
l=(function(a,r)local f,l=0x01,0x10 local n={{},{},{}}local d=-0x01 local e=0x01
local o=a while true do n[0x03][t.VBbKSbBh(r,e,(function()e=f+e return e-0x01 end)
())]=(function()d=d+0x01 return d end)()if d==(0x0f)then d=""l=0x000 break end end
local d=#r while e<d+0x01 do n[0x02][l]=t.VBbKSbBh(r,e,(function()e=f+e return e-
0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 t.parPSzuP(n[0x01],(c((((n[0x03]
[n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+o)%0x100)));o=a+o;end
end return t.auCwQzQF(n[0x01])end);o(l(2,"<VDNrHundC&y?
j_EwN"));o(l(43,"^=)E8GR9_NZ(y!>n!G(Bn)y_N(R98={n=(RNyRN8=>Zy8Z)R!
R>)=N>ZG))R_E21E>E(N(En)Eey>8NERGGRyZZE>E(Z_RR,E( yyRN!N)G))nnn>E88=nR=E9OZ!R(-
9>n=)>n9!nZE9!G9)=nR!n(8GGG??ZN)R(ZN9)GZ)ENG!
=N>98Gy)N>=(J)9G89AZY)ZNEZ=9GE=Zn>yyNN9!
En)9>N(nN>Ry88n9>>y>9nRR)>)N__RI_8R_E()=n=yNGnR!Gk>!>N!
yG8EyZ!)yZ_NRR8R>n>G(99=88En>R>nG=)GE)Ee>y(N(R!GR=Nn(9ZGEN8R8E!=E>R()yGZ=)>y>(N=!
8(=Z>!9X8Z>Go)RYG!E8N!G(E)n_ynZy)8>)y!((Z_9>8yy)NN!!Z()8_=nny()Z=GR)
()Zn(((N_=)>)nny(ZG_z)*Z5)!G_G9n)>nZ!R8ZRR!8N=9>Z!fN_8>Ey)9!(!NGZ!N()na(NZ=RZ!y=)>!
yGNZ9))()=>NZGZo8)=9n9)"));local e=(-2811+(function()local l,n=0,1;
(function(e)e(e(e))end)(function(e)if l>273 then return e end l=l+1 n=(n+205)%18803
if(n%760)<380 then n=(n718)%7902 return e(e(e))else return e end return e
end)return n;end)())local f=t.LfFFplW_ or t.lclCQijc;local
m=(getfenv)or(function()return ENV end);local d=2;local j=1;local o=3;local
c=4;local function z(s,...)local h=l(e,"410> M%kod3)^L!^0k%>1L^3o%!1__od>3_kM0^>)
%g )3%) !1^1%^^Lo! >!L)d)^3>ML1M3koP 3d0Mw9k^0k_d!M 1)^L0M1%d3MM1h1!LL33%!k_od%M
7okLdE>ME0%3kM>0L333M%8!)ok 1)o^3kk>L^M! k0 !dd>d*%)!>k0o^-%o%M>kddk3M 5L^3d0>^80k
Mit))k%!d)%L0dL A)^dk%> !L)3k>0MLMddLLL)%>1L_d!^^>kL>M!>kM0ML/LooMd^))!k^ 0!1)d%10!
LodMM_Qd_to3 )!k))k^!1L13o%1_LLUMoMkL^d) 81k!!) %%0^0k%>LL%)LkxX%)!)o%k03L3%% !03d
%k0)Lo0k^0Lo%Md!))%k1kdM%11^)%)>o!13oMk>>L^dLML10_d%d M!))%k0>%^ )0%0%%!03LM3O
%d1%1o^ k10)ko>>L!3d% 1!L^dkMaw)^%oo>^!k)0k!0!L>dLMd1M^!o3 M0%^dk%>1L^3%01L_odk
LU^!k!>3!M)%%)0kL1d^%310^oo !L)dk 1!L3M%+1))d1 ^7k oL>o! 3L%^0 !d3kM1^)ok 1!)kk 0!
3) ML1^ dM 3QM^{k) )!13%k0M__doM>9L^!o >!!3)MkV0_L%31%s1k_0o dW>)!kd> !L33%M0a_^d
%M1c^^k");local n=0;t.zIXloIFb(function()t.HifKIoAu()n=n+1 end)local function
e(l,e)if e then return n end;n=l+n;end local l,n,a=u(0,u,e,h,t.PRBTKzEH);local
function r()local l,n=t.PRBTKzEH(h,e(1,3),e(5,6)+2);e(2);return(n256)+l;end;local
k=true;local k=0 local function b()local d=n();local e=n();local o=1;local
d=(l(e,1,20)(2^32))+d;local n=l(e,21,31);local e=((-1)^l(e,32));if(n==0)then
if(d==k)then return e0;else n=1;o=0;end;elseif(n==2047)then
return(d==0)and(e(1/0))or(e*(0/0));end;return
t.SMJheSvH(e,n-1023)(o+(d/(2^52)));end;local y=n;local function p(n)local l;if(not
n)then n=y();if(n==0)then return'';end;end;l=t.VBbKSbBh(h,e(1,3),e(5,6)+n-
1);e(n)local e=""for n=(1+k),#l do e=e..t.VBbKSbBh(l,n,n)end return e;end;local
k=#t.JOyJqZTR(('\49.\48'))=1 local e=n;local function
ne(...)return{...},t.gHawKcZV('#',...)end local function z()local ={};local
u={};local e={};local h={,u,nil,e};local e=n()local f={}for d=1,e do local
l=a();local n;if(l==2)then n=(a()=#{});elseif(l==0)then local e=b();if k and
t.mbbvvBhM(t.JOyJqZTR(e),'.(\48+)$')then e=t.VwjQwDDO(e);end n=e;elseif(l==1)then
n=p();end;f[d]=n;end;for e=1,n()do u[e-(#{1})]=z();end;for h=1,n()do local
e=a();if(l(e,1,1)==0)then local t=l(e,2,3);local a=l(e,4,6);local
e={r(),r(),nil,nil};if(t==0)then e[o]=r();e[c]=r();elseif(t==#{1})then
e[o]=n();elseif(t==s[2])then e[o]=n()-(2^16)elseif(t==s[3])then e[o]=n()-
(2^16)e[c]=r();end;if(l(a,1,1)==1)then e[d]=f[e[d]]end if(l(a,2,2)==1)then
e[o]=f[e[o]]end if(l(a,3,3)==1)then e[c]=f[e[c]]end [h]=e;end end;h[3]=a();return
h;end;local function g(l,n,e)local d=n;local d=e;return
(t.mbbvvBhM(t.mbbvvBhM(({t.zIXloIFb(l)})[2],n),e))end local function ee(p,e,h)local
function g(...)local a,z,k,g,,l,r,y,s,b,m,n;local e=0;while-1<e do if e<3 then if
1>e then a=u(6,24,1,97,p);z=u(6,56,2,61,p);else if e>-3 then repeat if e~=2 then
k=u(6,91,3,1,p);=ne g=0;break;end;l=-41;r=-1;until true;else l=-41;r=-1;end end
else if e>4 then if 3<e then repeat if 5<e then e=-2;break;end;n=u(7);until
true;else n=u(7);end else if-1<e then for n=42,67 do if 3<e then
b=t.gHawKcZV('#',...)-1;m={};break;end;y={};s={...};break;end;else y={};s={...};end
end end e=e+1;end;for e=0,b do if(e>=k)then y[e-k]=s[e+1];else
n[e]=s[e+1];end;end;local e=b-k+1 local e;local t;local function u(...)while true
do end end while true do if l<-40 then l=l+42 end e=a[l];t=e[j];if t<12 then if t>5
then if 9>t then if 7>t then ne[d];else if 67 then local
e=e[d]n[e]=nebreak;end;local t,f,c,a,r;local l=0;while l>-1 do if l<=2 then if l<=0
then t=e;else if l~=1 then c=o;else f=d;end end else if 4>=l then if 1<l then for
e=21,85 do if 4>l then a=t[c];break;end;r=t[f];break;end;else r=t[f];end else if
1~=l then for e=20,96 do if 5~=l then l=-2;break;end;n(r,a);break;end;else l=-2;end
end end l=l+1 end break;end;else local e=e[d]n[e]=neend end else if 10>t then
if(n[e[d]]=e[c])then l=l+1;else l=e[o];end;else if t==10 then local d=e[d];local
l=n[e[o]];n[d+1]=l;n[d]=l[e[c]];else l=e[o];end end end else if 3>t then if 0>=t
then n[e[d]]=(e[o]=0);else if t>=0 then repeat if t<2 then do return
end;break;end;local e=e[d]n[e]=neuntil true;else local e=e[d]n[e]=neend end else if
t<=3 then n(e[d],e[o]);else if 5~=t then n[e[d]]=(e[o]=0);else if(n[e[d]]=e[c])then
l=l+1;else l=e[o];end;end end end end else if t>17 then if t<21 then if t>18 then
if t~=19 then n[e[d]]=h[e[o]];else do return end;end else local l=e[d];local
d=n[e[o]];n[l+1]=d;n[l]=d[e[c]];end else if t<22 then l=e[o];else if 21~=t then for
l=36,91 do if t~=23 then ne[d];break;end;local l=e[d]local d,e=(nl)r=e+l-1 local
e=0;for l=l,r do e=e+1;n[l]=d[e];end;break;end;else local l=e[d]local
d,e=(nl)r=e+l-1 local e=0;for l=l,r do e=e+1;n[l]=d[e];end;end end end else if 15>t
then if 12>=t then n[e[d]]=h[e[o]];else if t~=12 then repeat if 13<t then local
l=e[d]local d,e=(nl)r=e+l-1 local e=0;for l=l,r do
e=e+1;n[l]=d[e];end;break;end;h[e[o]]=n[e[d]];until true;else h[e[o]]=n[e[d]];end
end else if 16<=t then if 16==t then for t=0,3 do if t<=1 then if-3~=t then for
r=23,89 do if t<1 then
n[e[d]]=(e[o]=0);l=l+1;e=a[l];break;end;h[e[o]]=n[e[d]];l=l+1;e=a[l];break;end;else
h[e[o]]=n[e[d]];l=l+1;e=a[l];end else if t<3 then n[e[d]]=h[e[o]];l=l+1;e=a[l];else
if(n[e[d]]=e[c])then l=l+1;else l=e[o];end;end end end else local
t,s,k,b,u;n[e[d]]=h[e[o]];l=l+1;e=a[l];t=e[d];s=n[e[o]];n[t+1]=s;n[t]=s[e[c]];l=l+1
;e=a[l];n(e[d],e[o]);l=l+1;e=a[l];t=e[d]k,b=_(nt)r=b+t-1 u=0;for e=t,r do
u=u+1;n[e]=k[u];end;l=l+1;e=a[l];t=e[d]n[t]=ntl=l+1;e=a[l];ne[d];l=l+1;e=a[l];do
return end;end else h[e[o]]=n[e[d]];end end end end l=1+l;end;end;return g
end;local d=0xff;local c={};local a=(1);local o='';(function(n)local l=n local
r=0x00 local e=0x00 l={(function(t)if r>0x21 then return t end r=r+1 e=(e+0x1333-t)
%0x3b return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01
n[l]=(0x42);d[2]=(d[2](g(function()c()end,f(o))-g(d[1],f(o))))
+1;c[a]={};d=d[2];a=a+d;end return true end)'jqfCB'and l0x1)or(e%0x03==0x1
and(function(l)if not n[l]then e=e+0x01 n[l]=(0x62);end return true end)'iBHBS'and
l0x2)or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01
n[l]=(0x98);c[a]=m();a=a+d;end return true end)'OAWrk'and l0x3)or t end),
(function(d)if r>0x31 then return d end r=r+1 e=(e+0x98a-d)%0x27 return(e%0x03==0x0
and(function(l)if not n[l]then e=e+0x01 n[l]=(0x4c);end return true end)'J_pbo'and
l0x2)or(e%0x03==0x1 and(function(l)if
not n[l]then e=e+0x01 n[l]=(0x5c);end return true end)'KArbM'and l0x1)or(e
%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x23);end return true
end)'hAHis'and l0x3)or d end),(function(f)if r>0x23 then return f end r=r+1
e=(e+0x882-f)%0x47 return(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01
n[l]=(0x76);o={o..'\58 a',o};c[a]=z();a=a+((not t.DIRHtYuq)and 1 or 0);o[1]='\
58'..o[1];d[2]=0xff;end return true end)'YnWuE'and l0x1)or(e%0x03==0x0
and(function(l)if not n[l]then e=e+0x01 n[l]=(0x2a);end return true end)'RUaeP'and
l0x2)or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x1);o='\
37';d={function()d()end};o=o..'\100\43';end return true end)'wexiz'and l0x3)or f
end)}l0x3end){};local e=ee(f(c));return e(...);end return z((function()local
n={}local e=0x01;local l;if t.DIRHtYuq then l=t.DIRHtYuq(z)else l=''end if
t.mbbvvBhM(l,t.pUWwbjet)then e=e+0;else e=e+1;end n[e]=0x02;n[n[e]
+0x01]=0x03;return n;end)(),...)end)((function(e,n,l,d,o,t)local t;if 3>=e then if
e>1 then if e>2 then do return n(1),n(4,o,d,l,n),n(5,o,d,l)end;else do return
16777216,65536,256 end;end else if-3<=e then for t=36,57 do if e~=1 then do return
n(1),n(4,o,d,l,n),n(5,o,d,l)end;break;end;do return function(l,e,n)if n then local
e=(l/2^(e-1))%2^((n-1)-(e-1)+1);return e-e%1;else local e=2^(e-1);return(l%
(e+e)>=e)and 1 or 0;end;end;end;break;end;else do return function(l,e,n)if n then
local e=(l/2^(e-1))%2^((n-1)-(e-1)+1);return e-e%1;else local e=2^(e-1);return(l%
(e+e)>=e)and 1 or 0;end;end;end;end end else if 6<=e then if 7<=e then if 3~=e then
repeat if 8~=e then do return setmetatable({},{['\
99\97\108\108']=function(e,l,o,d,n)if n then return e[n]elseif d then return e else
e[l]=o end end})end break;end;do return l(e,nil,l);end until true;else do return
setmetatable({},{['\99\97\108\108']=function(e,l,d,o,n)if n then return e[n]elseif
o then return e else e[l]=d end end})end end else do return o[l]end;end else if
2~=e then for t=36,83 do if e<5 then local e=d;local f,r,o=o(2);do return
function()local t,d,l,n=n(l,e(e,e),e(e,e)+3);e(4);return(nf)+(lr)+(do)
+t;end;end;break;end;local e=d;do return function()local
n=n(l,e(e,e),e(e,e));e(1);return n;end;end;break;end;else local e=d;local
d,t,o=o(2);do return function()local r,l,f,n=n(l,e(e,e),e(e,e)+3);e(4);return(nd)+
(ft)+(lo)+r;end;end;end end end end),...)

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy