-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathPetS99Script
More file actions
1 lines (1 loc) · 12.8 KB
/
Copy pathPetS99Script
File metadata and controls
1 lines (1 loc) · 12.8 KB
1
([[This file was protected with MoonSec V3]]):gsub('.+', (function(a) _FaqjJhlIkfDT = a; end)); return(function(u,...)local d;local c;local b;local t;local r;local o;local e=24915;local n=0;local l={};while n<444 do n=n+1;while n<0x3ce and e%0x2bae<0x15d7 do n=n+1 e=(e-697)%39267 local f=n+e if(e%0x4b32)>=0x2599 then e=(e+0x207)%0x2367 while n<0x344 and e%0x3b2c<0x1d96 do n=n+1 e=(e+477)%28947 local c=n+e if(e%0xae6)>0x573 then e=(e-0x3f)%0x21cb local e=68078 if not l[e]then l[e]=0x1 end elseif e%2~=0 then e=(e*0x197)%0xacea local e=98721 if not l[e]then l[e]=0x1 end else e=(e*0x2c0)%0x1777 n=n+1 local e=37397 if not l[e]then l[e]=0x1 o=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=r.byte(n(0x01))local e=n(e)if l=="\2"then e=d.KDmdFlFw(e)elseif l=="\3"then e=e~="\0"elseif l=="\6"then t[e]=function(e,n)return u(8,nil,u,n,e)end elseif l=="\4"then e=t[e]elseif l=="\0"then e=t[e][n(r.byte(n(0x01)))];end local n=n(0x08)d[n]=e end end end end end elseif e%2~=0 then e=(e*0xe)%0x7ab while n<0x201 and e%0x3382<0x19c1 do n=n+1 e=(e*459)%11457 local o=n+e if(e%0x1b94)>=0xdca then e=(e+0x5e)%0x2ee2 local e=59937 if not l[e]then l[e]=0x1 r=string;end elseif e%2~=0 then e=(e*0xdd)%0x809e local e=44198 if not l[e]then l[e]=0x1 t=getfenv and getfenv();end else e=(e-0x199)%0x1574 n=n+1 local e=7877 if not l[e]then l[e]=0x1 d={};end end end else e=(e*0x22c)%0x489b n=n+1 while n<0x21b and e%0x3444<0x1a22 do n=n+1 e=(e+188)%30949 local o=n+e if(e%0x353c)<0x1a9e then e=(e-0x54)%0x2e6d local e=64980 if not l[e]then l[e]=0x1 t=(not t)and _ENV or t;end elseif e%2~=0 then e=(e+0x241)%0x108c local e=88600 if not l[e]then l[e]=0x1 b=tonumber;end else e=(e*0x252)%0xac1c n=n+1 local e=31954 if not l[e]then l[e]=0x1 c="\4\8\116\111\110\117\109\98\101\114\75\68\109\100\70\108\70\119\0\6\115\116\114\105\110\103\4\99\104\97\114\102\102\104\74\112\115\107\67\0\6\115\116\114\105\110\103\3\115\117\98\97\88\118\107\80\119\121\112\0\6\115\116\114\105\110\103\4\98\121\116\101\81\95\90\114\103\97\103\122\0\5\116\97\98\108\101\6\99\111\110\99\97\116\121\113\70\99\85\101\112\111\0\5\116\97\98\108\101\6\105\110\115\101\114\116\74\87\66\100\108\89\79\99\5";end end end end end e=(e*285)%12626 end o(c);local n={};for e=0x0,0xff do local l=d.ffhJpskC(e);n[e]=l;n[l]=e;end local function a(e)return n[e];end local r=(function(c,o)local f,l=0x01,0x10 local n={{},{},{}}local t=-0x01 local e=0x01 local r=c while true do n[0x03][d.aXvkPwyp(o,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=#o while e<t+0x01 do n[0x02][l]=d.aXvkPwyp(o,e,(function()e=f+e return e-0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 d.JWBdlYOc(n[0x01],(a((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+r)%0x100)));r=c+r;end end return d.yqFcUepo(n[0x01])end);o(r(225,")cJ0nxpubOsE_dS>Jn"));o(r(66,"do*9tK8cJIOM lr&MrJ*Ol8 *JllO}KcM*liI&KKo8lO8 9crMloK&*O&rKJoct+&oOlc89trJOK8J*l oJ;8OPOcc9I8***lcIOKr&JMlIK*c&KO&Io*rIJK Jct8v*MccO9oJlM98K98r9O8tMo rKOm9&otrtJor OrlKJcKJYO8KJOtD&&leJ8tJlrIIJcorlII*tl JJrM9899!rcIl8OoKr8IoKPoJ &J*tK&o l8O9lrKI&o lrfJ oJ9t*&rM9c8*lr8IccoZK JO_KOwlct9c8t:& rI8tlO lII5KP&&M&JK*Kr&O(JctcloIoK J MIc09;l&I&8K*lMJI to*t lO*K&O 8MItKtaI IE*KrlO&Kc9c&tIlK& rJrMI8I*rrKOocs99lIOr9lo9rcJKKMOO8 I9tKo8 J*9t*:8 cJKt8?hOtc&tKlHOOKc*cJc"));local e=(-4527+(function()local t,e=0,1;(function(n,e)n(e(e,e and e),e(e,e))end)(function(n,l)if t>497 then return n end t=t+1 e=(e*322)%5275 if(e%464)<232 then e=(e*597)%16642 return n(n(l,n),n(n,l))else return n end return n end,function(l,n)if t>109 then return n end t=t+1 e=(e+355)%30398 if(e%496)>248 then e=(e-25)%29145 return n else return n(n(n,n),l(l,n))end return l(l(n,n),l(n,l)and l(l,n))end)return e;end)())local h=d.uBhOt_vu or d.MYLuwCER;local j=(getfenv)or(function()return _ENV end);local ee=1;local o=3;local t=2;local c=4;local function g(s,...)local a=r(e,"sG(*KWeb,w&Lmq+4.&4e4G+m+b4Lqqq,q*GL*,**(q}qG&G*Y&4wGW2+r}=l4K4LmL+bqqq,qKq,&eqKm4m,WGWWKbK(*q,q&ew*wLw(,Z,bb&K(8L(q_G4m4bKeWWWGWe4+*4*q*L(4+W*bGm(wqGGmGwGGGG4q4ej(+++,w44Gq++Kq*,e&+mLmemZ&k&q&eW+,4eb*n(&(W(<GLwewW(&K,i(8K4,4*++K>KwKGK(KK*4*eme*&LmLbL(GWGmGbg+Rmm+L+Lw+w+w++qw+dq+mLwrmSmbm bq&&LK&,ew&mwW,q,+wO,L,(,W*m*w*W*W(4(L(3GLGbG,G(Zb7W?j5U4w4*+m+w+(q,4(G,4G4eq,4LqmqeqWmWLWmbqqq,wWmmL+weL,&K,*b4b+&(b(WK,*eGW&,wbLWebLbee&(W*G*GGeKK(w*&*wXW**GGG(G,4&4b4bqeG*4*+,4,4(m,qLqGq(q4qm&GmLL(q*wLW)WWKeKG*m,KwLwLwGwdw*,eeeWUW&NW5w4L4e4G*be WGW:K3*mK,KG*mL4mGLWL}&L++GWG%Cbqw4(4m,*,ebwbKe4L4q,mWmqmKL(Lw&mK(,L*,**(+wGw,w*,&,,K&*&*Wb*Wqe+(uWKWGWbKeK+*eKK*q(&*(G+(WG4(i;mG.GGme4e4q4eL*m(+w+,qqqKmwLKL4mwLLLqLmLeLGe,,K,(e*W+K4,qbLbbb4*ee&e(WwWbeGG,WGKPK*K*44GLGw4&4W+W(e(WGm&*&(wwwK,44G+e+q+7beb+emebe(Lmw+LKL4L*,+&b&eb+wLwGe&bWGm(GG(^q),e4eqW&W,e(W+WbKwKw*qqGqbmbm(LqpmG,GmG*Gw4+4*H&Aw+m?},Gbmbbb(eqb4e*W+WwWKWGK&KWK3*m*e*G(m*w*qGqG,G*A4)woK44rm}K4_+L+e++qmqbq(4*q%m*L+LwL&&4&L&W&*wLw&&*,m,b,(,*b,bKe+eqbeW4W&WWWbKLKbKG*mKW*((q(,(KG+GwGK(G(!;WE74L4+4G+m+b4K4Kq,q*m+q*mKL4L&mbm*&L&e&G&Lwbw(,qw&,,b+bwbKbGe&eWeEeqeGWGKmKbK,*q*,**KY*w(KG4G&G&G2<LdeG*4q4b4(+q+m+*q+qw+eq&m&mWmnm(LeLG&mLw&&wqw,w*wm,w,Kb4,m,KbRemeeeqWmWbW(eqK+K**4*w*W(4**(W*((qGeGKamG(<(4q4,4*4,+w+Wq4qqqWq)mLmemKLmLbL(&q&,&Ww+ww&L,4,&,W,GbLbbbGembde(WqW,WKK+KwKK");local n=0;d.bafmCDpR(function()n=n+1 end)local function e(e,l)if l then return n end;n=e+n;end local l,n,f=u(0,u,e,a,d.Q_Zrgagz);local function r()local n,l=d.Q_Zrgagz(a,e(1,3),e(5,6)+2);e(2);return(l*256)+n;end;local m=true;local m=0 local function p()local t=n();local e=n();local o=1;local t=(l(e,1,20)*(2^32))+t;local n=l(e,21,31);local e=((-1)^l(e,32));if(n==0)then if(t==m)then return e*0;else n=1;o=0;end;elseif(n==2047)then return(t==0)and(e*(1/0))or(e*(0/0));end;return d.tLIyROJG(e,n-1023)*(o+(t/(2^52)));end;local y=n;local function k(n)local l;if(not n)then n=y();if(n==0)then return'';end;end;l=d.aXvkPwyp(a,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+m),#l do e=e..d.aXvkPwyp(l,n,n)end return e;end;local m=#d.bUqGLfbW(b('\49.\48'))~=1 local e=n;local function g(...)return{...},d.yaxIawWo('#',...)end local function _()local h={};local u={};local e={};local b={u,h,nil,e};local e=n()local a={}for t=1,e do local l=f();local e;if(l==3)then e=(f()~=#{});elseif(l==1)then local n=p();if m and d.ObmjKbtS(d.bUqGLfbW(n),'.(\48+)$')then n=d.nTqyFbQc(n);end e=n;elseif(l==0)then e=k();end;a[t]=e;end;for e=1,n()do h[e-(#{1})]=_();end;b[3]=f();for h=1,n()do local e=f();if(l(e,1,1)==0)then local d=l(e,2,3);local f=l(e,4,6);local e={r(),r(),nil,nil};if(d==0)then e[o]=r();e[c]=r();elseif(d==#{1})then e[o]=n();elseif(d==s[2])then e[o]=n()-(2^16)elseif(d==s[3])then e[o]=n()-(2^16)e[c]=r();end;if(l(f,1,1)==1)then e[t]=a[e[t]]end if(l(f,2,2)==1)then e[o]=a[e[o]]end if(l(f,3,3)==1)then e[c]=a[e[c]]end u[h]=e;end end;return b;end;local function y(l,n,e)local t=n;local t=e;return b(d.ObmjKbtS(d.ObmjKbtS(({d.bafmCDpR(l)})[2],n),e))end local function z(s,e,f)local function j(...)local r,z,b,j,m,n,a,y,p,k,_,l;local e=0;while-1<e do if 3<=e then if 5<=e then if e~=3 then for n=15,56 do if e<6 then l=u(7);break;end;e=-2;break;end;else l=u(7);end else if 4>e then y={};p={...};else k=d.yaxIawWo('#',...)-1;_={};end end else if e<=0 then r=u(6,42,1,91,s);z=u(6,32,2,27,s);else if-1~=e then repeat if e~=2 then b=u(6,79,3,97,s);m=g j=0;break;end;n=-41;a=-1;until true;else n=-41;a=-1;end end end e=e+1;end;for e=0,k do if(e>=b)then y[e-b]=p[e+1];else l[e]=p[e+1];end;end;local e=k-b+1 local e;local d;local function u(...)while true do end end while true do if n<-40 then n=n+42 end e=r[n];d=e[ee];if 12<=d then if 18<=d then if d<21 then if d>18 then if d==19 then l[e[t]]=(e[o]~=0);else l[e[t]]();end else n=e[o];end else if 23<=d then if d>23 then local e=e[t]l[e]=l[e](h(l,e+1,a))else for d=0,6 do if d>=3 then if d>=5 then if d>5 then f[e[o]]=l[e[t]];else l(e[t],e[o]);n=n+1;e=r[n];end else if 0<d then repeat if d~=4 then l(e[t],e[o]);n=n+1;e=r[n];break;end;f[e[o]]=l[e[t]];n=n+1;e=r[n];until true;else l(e[t],e[o]);n=n+1;e=r[n];end end else if 0<d then if d>=0 then repeat if 2>d then l(e[t],e[o]);n=n+1;e=r[n];break;end;f[e[o]]=l[e[t]];n=n+1;e=r[n];until true;else l(e[t],e[o]);n=n+1;e=r[n];end else f[e[o]]=l[e[t]];n=n+1;e=r[n];end end end end else if 22~=d then l[e[t]]=(e[o]~=0);else l(e[t],e[o]);end end end else if 15<=d then if d<16 then local d,b,k,s,u;l[e[t]]=f[e[o]];n=n+1;e=r[n];d=e[t];b=l[e[o]];l[d+1]=b;l[d]=b[e[c]];n=n+1;e=r[n];l(e[t],e[o]);n=n+1;e=r[n];d=e[t]k,s=m(l[d](h(l,d+1,e[o])))a=s+d-1 u=0;for e=d,a do u=u+1;l[e]=k[u];end;n=n+1;e=r[n];d=e[t]l[d]=l[d](h(l,d+1,a))n=n+1;e=r[n];l[e[t]]();n=n+1;e=r[n];do return end;else if d==17 then do return end;else l[e[t]]=f[e[o]];end end else if d<13 then local r,f,a,d,c;local n=0;while n>-1 do if n>2 then if 4<n then if 1<=n then repeat if n~=5 then n=-2;break;end;l(c,d);until true;else l(c,d);end else if n~=4 then d=r[a];else c=r[f];end end else if n>=1 then if n>=0 then repeat if 2~=n then f=t;break;end;a=o;until true;else f=t;end else r=e;end end n=n+1 end else if 14==d then do return end;else local e=e[t]l[e]=l[e](h(l,e+1,a))end end end end else if d>5 then if 9<=d then if d>9 then if 7~=d then for r=37,61 do if 10<d then if(l[e[t]]==e[c])then n=n+1;else n=e[o];end;break;end;n=e[o];break;end;else if(l[e[t]]==e[c])then n=n+1;else n=e[o];end;end else local n=e[t]local t,e=m(l[n](h(l,n+1,e[o])))a=e+n-1 local e=0;for n=n,a do e=e+1;l[n]=t[e];end;end else if 6<d then if d>7 then l[e[t]]=f[e[o]];else local t=e[t];local n=l[e[o]];l[t+1]=n;l[t]=n[e[c]];end else f[e[o]]=l[e[t]];end end else if 3<=d then if 4>d then local n=e[t]local t,e=m(l[n](h(l,n+1,e[o])))a=e+n-1 local e=0;for n=n,a do e=e+1;l[n]=t[e];end;else if 2<=d then for n=12,74 do if 5>d then f[e[o]]=l[e[t]];break;end;l[e[t]]();break;end;else l[e[t]]();end end else if d<=0 then if(l[e[t]]==e[c])then n=n+1;else n=e[o];end;else if d>-3 then for a=38,78 do if d<2 then local t=e[t];local n=l[e[o]];l[t+1]=n;l[t]=n[e[c]];break;end;for d=0,3 do if 1>=d then if d~=1 then l[e[t]]=(e[o]~=0);n=n+1;e=r[n];else f[e[o]]=l[e[t]];n=n+1;e=r[n];end else if 2<d then if(l[e[t]]==e[c])then n=n+1;else n=e[o];end;else l[e[t]]=f[e[o]];n=n+1;e=r[n];end end end break;end;else local t=e[t];local n=l[e[o]];l[t+1]=n;l[t]=n[e[c]];end end end end end n=1+n;end;end;return j end;local o=0xff;local f={};local r=(1);local t='';(function(n)local l=n local d=0x00 local e=0x00 l={(function(t)if d>0x28 then return t end d=d+1 e=(e+0x98d-t)%0x4c return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x1f);end return true end)'uMPUB'and l[0x1](0x321+t))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x3d);end return true end)'mXaFh'and l[0x3](t+0x24f))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x8);end return true end)'MKxUA'and l[0x2](t+0x31d))or t end),(function(c)if d>0x2c then return c end d=d+1 e=(e+0xcb2-c)%0x2d return(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xb0);end return true end)'PAoLX'and l[0x1](0xd8+c))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x9);end return true end)'UErXg'and l[0x2](c+0xa7))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x60);t={t..'\58 a',t};f[r]=_();r=r+(1);t[1]='\58'..t[1];o[2]=0xff;end return true end)'UFLji'and l[0x3](c+0x2a8))or c end),(function(c)if d>0x30 then return c end d=d+1 e=(e+0x40c-c)%0x30 return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x46);t='\37';o={function()o()end};t=t..'\100\43';end return true end)'OgJCI'and l[0x2](0x36e+c))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xda);o[2]=(o[2]*(y(function()f()end,h(t))-y(o[1],h(t))))+1;f[r]={};o=o[2];r=r+o;end return true end)'xPych'and l[0x3](c+0x219))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xf1);f[r]=j();r=r+o;end return true end)'yDIv_'and l[0x1](c+0x3a3))or c end)}l[0x3](0x11b9)end){};local e=z(h(f));return e(...);end return g((function()local n={}local e=0x01;local l;if d.vJWMuERh then l=d.vJWMuERh(g)else l=''end if d.ObmjKbtS(l,d.PWqEUQuT)then e=e+0;else e=e+1;end n[e]=0x02;n[n[e]+0x01]=0x03;return n;end)(),...)end)((function(e,l,n,t,o,d)local d;if e>3 then if e>=6 then if e<7 then do return o[n]end;else if 6<=e then for l=37,57 do if e>7 then do return n(e,nil,n);end break;end;do return setmetatable({},{['__\99\97\108\108']=function(e,l,o,t,n)if n then return e[n]elseif t then return e else e[l]=o end end})end break;end;else do return n(e,nil,n);end end end else if 5>e then local e=t;local c,d,r=o(2);do return function()local o,t,l,n=l(n,e(e,e),e(e,e)+3);e(4);return(n*c)+(l*d)+(t*r)+o;end;end;else local e=t;do return function()local n=l(n,e(e,e),e(e,e));e(1);return n;end;end;end end else if e>1 then if-2<e then for d=21,62 do if e>2 then do return l(1),l(4,o,t,n,l),l(5,o,t,n)end;break;end;do return 16777216,65536,256 end;break;end;else do return 16777216,65536,256 end;end else if e==0 then do return l(1),l(4,o,t,n,l),l(5,o,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 end end),...)