for freind

([[This file was protected with MoonSec V3 by Federal#9999]]):gsub('.+', (function(a) _QTujZfcFpFkk = a; end)); return(function(a,...)local r;local s;local d;local o;local f;local t;local e=24915;local n=0;local l={};while n<434 do n=n+1;while n<0x27c and e%0x2212<0x1109 do n=n+1 e=(e-211)%43615 local c=n+e if(e%0x1502)<=0xa81 then e=(e+0x31c)%0x90c while n<0x390 and e%0x28c6<0x1463 do n=n+1 e=(e+396)%41215 local d=n+e if(e%0x26a6)>=0x1353 then e=(e+0x1f9)%0x5f45 local e=59710 if not l[e]then l[e]=0x1 t=getfenv and getfenv();end elseif e%2~=0 then e=(e-0x11c)%0x43ac local e=18960 if not l[e]then l[e]=0x1 o=string;end else e=(e-0xb9)%0x7979 n=n+1 local e=89134 if not l[e]then l[e]=0x1 r={};end end end elseif e%2~=0 then e=(e-0x260)%0x37e6 while n<0x18c and e%0x34fe<0x1a7f do n=n+1 e=(e*540)%5211 local c=n+e if(e%0x1a08)<=0xd04 then e=(e-0x203)%0x242a local e=11276 if not l[e]then l[e]=0x1 d=function(l)local e=0x01 local function n(n)e=e+n return l:sub(e-n,e-0x01)end while true do local l=n(0x01)if(l=="\5")then break end local e=o.byte(n(0x01))local e=n(e)if l=="\2"then e=r.ekVjVLaT(e)elseif l=="\3"then e=e~="\0"elseif l=="\6"then t[e]=function(n,e)return a(8,nil,a,e,n)end elseif l=="\4"then e=t[e]elseif l=="\0"then e=t[e][n(o.byte(n(0x01)))];end local n=n(0x08)r[n]=e end end end elseif e%2~=0 then e=(e+0x12c)%0x7002 local e=83524 if not l[e]then l[e]=0x1 end else e=(e*0x7a)%0x8090 n=n+1 local e=18176 if not l[e]then l[e]=0x1 f="\4\8\116\111\110\117\109\98\101\114\101\107\86\106\86\76\97\84\0\6\115\116\114\105\110\103\4\99\104\97\114\80\66\104\87\98\83\77\77\0\6\115\116\114\105\110\103\3\115\117\98\77\120\95\90\110\105\109\118\0\6\115\116\114\105\110\103\4\98\121\116\101\76\80\111\65\117\90\72\76\0\5\116\97\98\108\101\6\99\111\110\99\97\116\87\114\108\117\98\114\108\99\0\5\116\97\98\108\101\6\105\110\115\101\114\116\109\80\66\113\101\67\69\77\5";end end end else e=(e-0x241)%0xe1d n=n+1 while n<0x134 and e%0x2740<0x13a0 do n=n+1 e=(e*722)%36628 local d=n+e if(e%0x36f0)<0x1b78 then e=(e-0x360)%0x60c0 local e=69894 if not l[e]then l[e]=0x1 t=(not t)and _ENV or t;end elseif e%2~=0 then e=(e*0x253)%0x7334 local e=40882 if not l[e]then l[e]=0x1 end else e=(e-0x7d)%0x1a56 n=n+1 local e=51344 if not l[e]then l[e]=0x1 s=tonumber;end end end end end e=(e*151)%34199 end d(f);local e={};for n=0x0,0xff do local l=r.PBhWbSMM(n);e[n]=l;e[l]=n;end local function c(n)return e[n];end local o=(function(o,a)local f,l=0x01,0x10 local n={{},{},{}}local t=-0x01 local e=0x01 local d=o while true do n[0x03][r.Mx_Znimv(a,e,(function()e=f+e return e-0x01 end)())]=(function()t=t+0x01 return t end)()if t==(0x0f)then t=""l=0x000 break end end local t=#a while e<t+0x01 do n[0x02][l]=r.Mx_Znimv(a,e,(function()e=f+e return e-0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 r.mPBqeCEM(n[0x01],(c((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+d)%0x100)));d=o+d;end end return r.Wrlubrlc(n[0x01])end);d(o(172,"._VuDBX)#m6Gt!zjBm"));d(o(35,"u64We*w%nU;(N_s3__NXf;snNWU%%Ue3NU w3eNU;UnN*e6U4w_3N_U_we!4si4n3n_W((UnesW6E3A*_6;U;6*s34_W6(3;Ns(9UWe36s4e)W(w(*UU*wseN%66s3N;UsnV*w_66ws%_%;Wn*W_434%h4(6N6n%*4s4NW.U_;N;U(6**U4sfN3N_6nsw>ee4wcU)wspUU4;g3*W44Msse(U;*w3*34UV%ssNe(6ne*NWNcUNs(;;U4n:nWe4M3(sUN6;6W3es6w6(_U;6(4w(*(_*(4f4NU;sUweWW36F33snU_ne*ssUN*_;_w;W;y*wwe635o_Nw;e(UewNe_4(>w_;(NU4w(*;WkSn_e;4;W%;3P_46ssnNw;_nWG6e_4W^4_X;3Uew;e393J*_N(N%_*w34_66_3W_4;.%3weWUYeDYswNW%;ew4nN4;+snN%U(%_wfW*3(3U(wU6n3w;e((*Ue_s;_U6w%e4Was;sn;LnW%3*(We6Un6w4;n%UwUW;(e34_*(*U4%4ee633n_(;(%%*(WUN;"));local e=(-12139+(function()local t,n=0,1;(function(e,n)e(e(e,n),e(n,n))end)(function(l,e)if t>181 then return l end t=t+1 n=(n-446)%24430 if(n%942)>471 then return e else return l(l(e,l and l),e(e and e,e))end return e(e(e,e),e(e and e,e and l))end,function(l,e)if t>299 then return e end t=t+1 n=(n+530)%33040 if(n%1938)>969 then return e(e(e,l),e(l,e))else return e end return e end)return n;end)())local u=r.cQpyySBG or r.dlOhbeIE;local ne=(getfenv)or(function()return _ENV end);local f=4;local t=3;local le=1;local d=2;local function y(p,...)local c=o(e,",a!+{6pI:?Cq*F=Y!q!:+*6<p{I*:*C)q{!Y+F6Fp?a:C6{>6{p:={0{a:!:+YaC!++I:3??qIqqFqY!Y:FpaY+Y6a!IpF?9?FIIF+F6=p0raq!Y+Y6q!q{a6{In:+?{C?*a*Y={Y6s=!{+G{{6:Ia:a?FC?qqF6aI0C{p{a66I!?=q?*{?**p*IYp=:+:64p{pI:!C??:C?*=YpF?F=O!!{+!p=6:6::)CCC=*+Y+**a{J!{C+{I+I=:Y?*IY?:FY*RY=a!!Y&:{YpF666=:?qFF+*pY!aC={Y?aYYU6+a:!*{Lq*F*YQ/.aIY!YqvYppp??+6=Cq*a=H=: ?rC+a{+{?pCpY:YC!q**aF=Y:*pXY!Y{aaI{p:6?IC*CF*==+Y*r{a6+p+*6?p6{+?:Ca*{FI=aY?a:=pYCSq6Fp6:a?CpY*{*FYEB+xF!6++666FIq:Y6=qK*F*F:9??C:q*F#+:6F:{?{p:{:paIv:{?:Tl!6{*6*!=a_!?+:{*p;*:=Fa{!{Y6F:Y?K&a{!:?qCaq:=FYpYCaC!q!!p){C:+?I{OpIp:I*?0=I!O+a{+6YIa:C?Ip{Cq*YY!YFa:+Z{+a!!p+C!y{F{:6*I3FaSIaq!=!I{F6YpYIIC*q=*?=!=Y YY:!F+*6_p6:!p?qh*{FpI:?*CQq{*:aYp6II:*?qCFCI*q==Y?a{!*aC{apapFa*+I{{6:p*FIY?9C}{+Y6+p+U*+c+{{:6**+=I3Ca6+.{:g:{:IY:6?*qa*{C!qp*Cq FpF:=*M)pq:?C6*{*F=pY+*}aC+I{=aH6IIq?=C?*{F*I*?IC{q:**!:p:I*:*IIC?**p*::?{C:q*!66I6FI=:=?6q6*aIW:=?:C**n!{+q6{+>II?qq=*?={Y*?*q!*{F:=*6Y6q!:{Y6up{I:FYa{a6+C6 6?I!IY{*?+qIFC=6PDa:!qYCJ=!!):!a+0{{6:*7=6(*a*=YFHYmY:W*!R?pqIF8F==60+!!!a+:6C6F:{!{pY{*pRI{F*){a?+IY:6!p?:7:F6**I*6=qC*aw!p+I6 66pI:*?aC{I{FY=61{)*F:a?{Yp+IppY?6CII:*!q+q{wC+6Yy!C6FI#:6CpC?*:?+qFFa=6Y?F{Y6Y*aA!{C{qq*aF:YaJCaI+I+q6=p6I??p+*6Cp{I::*4*!+!?{ p+I::C?6C=qq:pI*?GC{q:Fq=cY{4:aF+l{{6:I=:*?{C:q*F?={Y:l*+!+q{:6*I(:q?:C**AYCY{Y*ab!{+={*paI{?F?*q{*=F:=*iZaC!:+F6Kp{:8:*C%q{*?F*YAM{!C+a{J6{p:?W?%C{q:F=Y{Y{_:a*+Y{{6:p*?!?*C:q*FN=pY:z*!3{p{Y6*IT:{C+C**sF{=:n!a#!{+:{FpsI{::C=*q*{F:=*apa{!:+*p!ppI::*C)*6*:F*Yz+{aC!*{B6{I!I*C#C{*C**=kY{<:!F+8{{6:?*:*?{C:q*Fp={u{i*+!+p{:6*Ic?6?:C**il{YCY*ak!{+F{*pFI{?C?=qd*{F:YF5Ga{!:p*pap{I::*q+q{FvF*U!aaa:!*{_p6p:I*?uF{*p**=tY{z*a*{!{{pCp*:K?{C:F+Fm={Y:a=!{+{{?6*Ia:{?:C*=_FY=:YFaV!6+:6Cpg:p?H?*q+*{Fq=*K)a{!:6V6&p6I::YCdq{*:F*YYE{a:!*{%6{pCI*?3q?q:**=EY6M:aF+d{{prp*:X?{C?q*FQ={Y:O*!i+{{:");local n=0;r.EKLeTOjJ(function()r.DcWiuMWT()n=n+1 end)local function e(l,e)if e then return n end;n=l+n;end local l,n,h=a(0,a,e,c,r.LPoAuZHL);local function o()local l,n=r.LPoAuZHL(c,e(1,3),e(5,6)+2);e(2);return(n*256)+l;end;local _=true;local _=0 local function m()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 r.PELQWwtP(n,e-1023)*(d+(t/(2^52)));end;local b=n;local function k(n)local l;if(not n)then n=b();if(n==0)then return'';end;end;l=r.Mx_Znimv(c,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+_),#l do e=e..r.Mx_Znimv(l,n,n)end return e;end;local b=#r.cuniXImg(s('\49.\48'))~=1 local e=n;local function g(...)return{...},r.QrMSrqmu('#',...)end local function z()local _={};local s={};local e={};local u={_,s,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==2)then local e=m();if b and r.CXsqCv_M(r.cuniXImg(e),'.(\48+)$')then e=r.geagZIPQ(e);end n=e;elseif(l==0)then n=k();end;c[t]=n;end;for u=1,n()do local e=h();if(l(e,1,1)==0)then local a=l(e,2,3);local r=l(e,4,6);local e={o(),o(),nil,nil};if(a==0)then e[t]=o();e[f]=o();elseif(a==#{1})then e[t]=n();elseif(a==p[2])then e[t]=n()-(2^16)elseif(a==p[3])then e[t]=n()-(2^16)e[f]=o();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[f]=c[e[f]]end _[u]=e;end end;u[3]=h();for e=1,n()do s[e-(#{1})]=z();end;return u;end;local function y(l,n,e)local t=n;local t=e;return s(r.CXsqCv_M(r.CXsqCv_M(({r.EKLeTOjJ(l)})[2],n),e))end local function ee(b,e,c)local function j(...)local o,z,p,y,s,n,h,k,_,m,j,l;local e=0;while-1<e do if e>=3 then if 4>=e then if 2~=e then repeat if e>3 then m=r.QrMSrqmu('#',...)-1;j={};break;end;k={};_={...};until true;else k={};_={...};end else if 4<=e then for n=40,76 do if 6>e then l=a(7);break;end;e=-2;break;end;else e=-2;end end else if 0<e then if-2~=e then repeat if 1<e then n=-41;h=-1;break;end;p=a(6,43,3,35,b);s=g y=0;until true;else p=a(6,43,3,35,b);s=g y=0;end else o=a(6,21,1,60,b);z=a(6,72,2,3,b);end end e=e+1;end;for e=0,m do if(e>=p)then k[e-p]=_[e+1];else l[e]=_[e+1];end;end;local e=m-p+1 local e;local a;local function r(...)while true do end end while true do if n<-40 then n=n+42 end e=o[n];a=e[le];if 13<a then if a>20 then if a<=23 then if 22<=a then if 22<a then local n=e[d]local t,e=s(l[n](u(l,n+1,e[t])))h=e+n-1 local e=0;for n=n,h do e=e+1;l[n]=t[e];end;else c[e[t]]=l[e[d]];end else local n=e[d]local t,e=s(l[n](u(l,n+1,e[t])))h=e+n-1 local e=0;for n=n,h do e=e+1;l[n]=t[e];end;end else if 26<=a then if 24<=a then repeat if 26<a then l[e[d]][e[t]]=e[f];break;end;do return end;until true;else l[e[d]][e[t]]=e[f];end else if 22<a then repeat if 25~=a then l[e[d]]=(e[t]~=0);break;end;l[e[d]]();until true;else l[e[d]]=(e[t]~=0);end end end else if 17<=a then if a>=19 then if a~=15 then for r=43,82 do if a>19 then for a=0,6 do if 3>a then if a>0 then if 0<a then repeat if a<2 then l(e[d],e[t]);n=n+1;e=o[n];break;end;c[e[t]]=l[e[d]];n=n+1;e=o[n];until true;else c[e[t]]=l[e[d]];n=n+1;e=o[n];end else c[e[t]]=l[e[d]];n=n+1;e=o[n];end else if a<5 then if 1<a then for r=23,63 do if 3~=a then c[e[t]]=l[e[d]];n=n+1;e=o[n];break;end;l[e[d]]=(e[t]~=0);n=n+1;e=o[n];break;end;else c[e[t]]=l[e[d]];n=n+1;e=o[n];end else if a~=6 then l[e[d]]=c[e[t]];n=n+1;e=o[n];else l[e[d]][e[t]]=e[f];end end end end break;end;if(l[e[d]]~=e[f])then n=n+1;else n=e[t];end;break;end;else if(l[e[d]]~=e[f])then n=n+1;else n=e[t];end;end else if a>=13 then repeat if 18~=a then n=e[t];break;end;l[e[d]][e[t]]=e[f];until true;else n=e[t];end end else if a>14 then if a>=11 then repeat if 15<a then l[e[d]]=(e[t]~=0);break;end;for a=0,3 do if 1<a then if a~=0 then repeat if 2~=a then if(l[e[d]]~=e[f])then n=n+1;else n=e[t];end;break;end;l[e[d]]=c[e[t]];n=n+1;e=o[n];until true;else l[e[d]]=c[e[t]];n=n+1;e=o[n];end else if a>-2 then for r=19,53 do if 0~=a then c[e[t]]=l[e[d]];n=n+1;e=o[n];break;end;l[e[d]]=(e[t]~=0);n=n+1;e=o[n];break;end;else l[e[d]]=(e[t]~=0);n=n+1;e=o[n];end end end until true;else for a=0,3 do if 1<a then if a~=0 then repeat if 2~=a then if(l[e[d]]~=e[f])then n=n+1;else n=e[t];end;break;end;l[e[d]]=c[e[t]];n=n+1;e=o[n];until true;else l[e[d]]=c[e[t]];n=n+1;e=o[n];end else if a>-2 then for r=19,53 do if 0~=a then c[e[t]]=l[e[d]];n=n+1;e=o[n];break;end;l[e[d]]=(e[t]~=0);n=n+1;e=o[n];break;end;else l[e[d]]=(e[t]~=0);n=n+1;e=o[n];end end end end else l[e[d]]=c[e[t]];end end end else if 6>=a then if 2>=a then if a<=0 then l[e[d]]=c[e[t]];else if a>=-1 then repeat if 2~=a then local r,c,f,a,o;local n=0;while n>-1 do if 3<=n then if n<=4 then if 4==n then o=r[c];else a=r[f];end else if 4<n then for e=15,66 do if 6~=n then l(o,a);break;end;n=-2;break;end;else l(o,a);end end else if 1>n then r=e;else if-3<n then repeat if 1~=n then f=t;break;end;c=d;until true;else f=t;end end end n=n+1 end break;end;if(l[e[d]]~=e[f])then n=n+1;else n=e[t];end;until true;else if(l[e[d]]~=e[f])then n=n+1;else n=e[t];end;end end else if 4<a then if a~=1 then for n=35,80 do if 6~=a then l(e[d],e[t]);break;end;local e=e[d]l[e]=l[e](u(l,e+1,h))break;end;else l(e[d],e[t]);end else if 3<a then local a,p,_,b,r;l[e[d]]=c[e[t]];n=n+1;e=o[n];a=e[d];p=l[e[t]];l[a+1]=p;l[a]=p[e[f]];n=n+1;e=o[n];l(e[d],e[t]);n=n+1;e=o[n];a=e[d]_,b=s(l[a](u(l,a+1,e[t])))h=b+a-1 r=0;for e=a,h do r=r+1;l[e]=_[r];end;n=n+1;e=o[n];a=e[d]l[a]=l[a](u(l,a+1,h))n=n+1;e=o[n];l[e[d]]();n=n+1;e=o[n];do return end;else local e=e[d]l[e]=l[e](u(l,e+1,h))end end end else if 9>=a then if a<8 then local n=e[d];local t=l[e[t]];l[n+1]=t;l[n]=t[e[f]];else if a>5 then repeat if 9>a then do return end;break;end;local n=e[d];local t=l[e[t]];l[n+1]=t;l[n]=t[e[f]];until true;else do return end;end end else if a<12 then if a~=8 then for o=40,68 do if a~=10 then c[e[t]]=l[e[d]];break;end;n=e[t];break;end;else c[e[t]]=l[e[d]];end else if 13==a then l[e[d]]();else for a=0,6 do if 3>a then if a<=0 then l[e[d]][e[t]]=e[f];n=n+1;e=o[n];else if a>1 then l[e[d]][e[t]]=e[f];n=n+1;e=o[n];else l[e[d]]=c[e[t]];n=n+1;e=o[n];end end else if 5>a then if a==4 then l[e[d]][e[t]]=e[f];n=n+1;e=o[n];else l[e[d]]=c[e[t]];n=n+1;e=o[n];end else if 5<a then l[e[d]][e[t]]=e[f];else l[e[d]]=c[e[t]];n=n+1;e=o[n];end end end end end end end end end n=1+n;end;end;return j end;local d=0xff;local c={};local o=(1);local t='';(function(n)local l=n local a=0x00 local e=0x00 l={(function(o)if a>0x28 then return o end a=a+1 e=(e+0x12c4-o)%0x43 return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x3);end return true end)'vBczJ'and l[0x1](0x395+o))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xf7);end return true end)'g_aiP'and l[0x3](o+0x3a0))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x41);t='\37';d={function()d()end};t=t..'\100\43';end return true end)'nrHDA'and l[0x2](o+0x3a3))or o end),(function(f)if a>0x2a then return f end a=a+1 e=(e+0x10bb-f)%0x4e return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x3e);t={t..'\58 a',t};c[o]=z();o=o+((not r.vaIyUfYC)and 1 or 0);t[1]='\58'..t[1];d[2]=0xff;end return true end)'OAhkh'and l[0x2](0x286+f))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x79);d[2]=(d[2]*(y(function()c()end,u(t))-y(d[1],u(t))))+1;c[o]={};d=d[2];o=o+d;end return true end)'MyLFf'and l[0x3](f+0x1da))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x73);end return true end)'XruVQ'and l[0x1](f+0x1fc))or f end),(function(t)if a>0x22 then return t end a=a+1 e=(e+0xc5b-t)%0x42 return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xed);end return true end)'iGsBY'and l[0x1](0x1a1+t))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xf6);c[o]=ne();o=o+d;end return true end)'HQdId'and l[0x2](t+0xfc))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x5b);end return true end)'vyCPr'and l[0x3](t+0x267))or t end)}l[0x1](0x1b2d)end){};local e=ee(u(c));return e(...);end return y((function()local n={}local e=0x01;local l;if r.vaIyUfYC then l=r.vaIyUfYC(y)else l=''end if r.CXsqCv_M(l,r.SEnpFhoO)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,t,d,a)local a;if 3<e then if e>=6 then if 7>e then do return d[l]end;else if e>=6 then repeat if 7~=e then do return l(e,nil,l);end break;end;do return setmetatable({},{['__\99\97\108\108']=function(e,d,l,t,n)if n then return e[n]elseif t then return e else e[d]=l end end})end until true;else do return setmetatable({},{['__\99\97\108\108']=function(e,d,t,l,n)if n then return e[n]elseif l then return e else e[d]=t end end})end end end else if e>=0 then repeat if 4~=e then local e=t;do return function()local n=n(l,e(e,e),e(e,e));e(1);return n;end;end;break;end;local e=t;local d,t,r=d(2);do return function()local o,a,l,n=n(l,e(e,e),e(e,e)+3);e(4);return(n*d)+(l*t)+(a*r)+o;end;end;until true;else local e=t;do return function()local n=n(l,e(e,e),e(e,e));e(1);return n;end;end;end end else if e<=1 then if 1~=e then do return n(1),n(4,d,t,l,n),n(5,d,t,l)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 else if e>=-1 then for a=36,61 do if e~=2 then do return n(1),n(4,d,t,l,n),n(5,d,t,l)end;break;end;do return 16777216,65536,256 end;break;end;else do return 16777216,65536,256 end;end end end end),...)