Advertisement
hammercoolness

Untitled

Oct 11th, 2024 (edited)
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.09 KB | None | 0 0
  1. ([[This file was protected with MoonSec V3]]):gsub('.+', (function(a) _KLVMzmdhueHU = a; end)); return(function(h,...)local o;local r;local l;local s;local d;local f;local e=24915;local n=0;local t={};while n<476 do n=n+1;while n<0x1ad and e%0x2002<0x1001 do n=n+1 e=(e*561)%5755 local a=n+e if(e%0x234e)>0x11a7 then e=(e*0x326)%0x8a8d while n<0x3d6 and e%0x1c42<0xe21 do n=n+1 e=(e*888)%17359 local a=n+e if(e%0x1106)>=0x883 then e=(e+0x179)%0x4b9d local e=30585 if not t[e]then t[e]=0x1 f="\4\8\116\111\110\117\109\98\101\114\72\84\99\75\120\65\69\122\0\6\115\116\114\105\110\103\4\99\104\97\114\76\65\70\76\97\67\86\121\0\6\115\116\114\105\110\103\3\115\117\98\100\68\117\103\108\72\103\82\0\6\115\116\114\105\110\103\4\98\121\116\101\118\79\115\116\83\72\98\107\0\5\116\97\98\108\101\6\99\111\110\99\97\116\82\109\76\122\117\104\79\102\0\5\116\97\98\108\101\6\105\110\115\101\114\116\109\106\99\80\102\90\105\99\5";end elseif e%2~=0 then e=(e*0x31a)%0x2554 local e=81868 if not t[e]then t[e]=0x1 d=function(d)local e=0x01 local function t(n)e=e+n return d:sub(e-n,e-0x01)end while true do local n=t(0x01)if(n=="\5")then break end local e=r.byte(t(0x01))local e=t(e)if n=="\2"then e=o.HTcKxAEz(e)elseif n=="\3"then e=e~="\0"elseif n=="\6"then l[e]=function(e,n)return h(8,nil,h,n,e)end elseif n=="\4"then e=l[e]elseif n=="\0"then e=l[e][t(r.byte(t(0x01)))];end local n=t(0x08)o[n]=e end end end else e=(e+0x7c)%0x8d04 n=n+1 local e=69846 if not t[e]then t[e]=0x1 l=getfenv and getfenv();end end end elseif e%2~=0 then e=(e*0x1b0)%0x672b while n<0x1ab and e%0xce8<0x674 do n=n+1 e=(e-336)%12390 local l=n+e if(e%0x3c22)<=0x1e11 then e=(e+0x94)%0x4126 local e=15903 if not t[e]then t[e]=0x1 o={};end elseif e%2~=0 then e=(e-0xec)%0xbc91 local e=95322 if not t[e]then t[e]=0x1 r=string;end else e=(e+0x2d)%0x53aa n=n+1 local e=69761 if not t[e]then t[e]=0x1 end end end else e=(e*0x129)%0x85e6 n=n+1 while n<0x87 and e%0x2c78<0x163c do n=n+1 e=(e*55)%29304 local d=n+e if(e%0x3aba)<=0x1d5d then e=(e+0xd6)%0xba99 local e=67290 if not t[e]then t[e]=0x1 s=tonumber;end elseif e%2~=0 then e=(e*0x34b)%0x2126 local e=80175 if not t[e]then t[e]=0x1 end else e=(e*0x136)%0x8b5e n=n+1 local e=27352 if not t[e]then t[e]=0x1 l=(not l)and _ENV or l;end end end end end e=(e*949)%46709 end d(f);local e={};for n=0x0,0xff do local t=o.LAFLaCVy(n);e[n]=t;e[t]=n;end local function c(n)return e[n];end local r=(function(f,d)local a,t=0x01,0x10 local n={{},{},{}}local l=-0x01 local e=0x01 local r=f while true do n[0x03][o.dDuglHgR(d,e,(function()e=a+e return e-0x01 end)())]=(function()l=l+0x01 return l end)()if l==(0x0f)then l=""t=0x000 break end end local l=#d while e<l+0x01 do n[0x02][t]=o.dDuglHgR(d,e,(function()e=a+e return e-0x01 end)())t=t+0x01 if t%0x02==0x00 then t=0x00 o.mjcPfZic(n[0x01],(c((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+r)%0x100)));r=f+r;end end return o.RmLzuhOf(n[0x01])end);d(r(213,"XU}<EQt),4_1!Iv*<z"));d(r(224,"P6%Aj{iB&wIu^0;b%Lji0Abj6%%wj;iB%jIj0{;06SAw%{j%w&wAuI;Arj^j;{BH&AI6^^;^;bYIABi{ibw6^6b{I6^{{kB%&wI;0jb{HA%^jbi0waIAuj&oIiAA{jB%&wI;^B&{t0%6{jiA&&u{uj^I:w6&{IBI&;j#ij;036Ajj&1{&^Ij^{b&6v6iA&i{BBu60{0b3w^j;^BA&{uj^0;{6j%6{ji6&%I^^{b&;j%0{B{wB6wI0%&jIB6ij{iAwjIb0%uAQ&zI%Aj{&&&u0A^^Ij^j{Bi6&wujI0b{bI%BA5{%&;u6i%&60w10Aiiui{wb0{;&bc^j;&Bj&buA0jb%Cw%;jBjAi0&w^0b&6{%%AB3<%{uj^6;%S^%{;iB{&;u3^6;A:u6{AijABfIw^B;j6&^j;iB{&;u_^6;AZu66jj{i&ww6IB;0;b^j;{Bdw%Iw^;bj8^%0%{iIi&&j^i^BIj^i{Ai{&^I{^Abj6B!%%0{&wBIA^;bBI2^jj0i6wjI&i{;iV^%bjbB%iwu&I%;b;%6%jbju%{"));local e=(-17103+(function()local l,t=0,1;(function(n,t,e)e(n(e and e,e,e),n(e,t,e),t(n and n,n,n))end)(function(n,d,e)if l>165 then return e end l=l+1 t=(t-167)%49156 if(t%330)<165 then return n(e(n,n and e,e),d(n and e,e,d)and n(e,e,d),n(e,d,e))else return n end return d end,function(e,n,d)if l>262 then return n end l=l+1 t=(t*973)%31144 if(t%1962)>981 then return d else return n(d(e,d,e),e(e and d,e,d),d(n,n,n))end return e(n(e,n,n),d(e,e,n),n(d,e,e and e))end,function(d,e,n)if l>149 then return e end l=l+1 t=(t+478)%49659 if(t%1898)<949 then return e else return e(e(e,n and d,n)and d(e,n and d,n),e(e and n,n,n),e(n and d,e,e and d))end return n(e(n,n,d),e(d,d,d),n(e,e,n))end)return t;end)())local y=(getfenv)or(function()return _ENV end);local a=o.QdViQGmO or o.UVCPigdx;local d=3;local l=2;local c=4;local ne=1;local function p(j,...)local f=r(e,"!z1st?%2:iP en+8Pss:nt2/7+nett+w2e:H1:et?e8 ?++8: ?n8 i8s+nz%8z?P8siP1:szePit2+?t 8T %1: +%L8Pi%18nziPstP1%n7:2%rePitiz%28ze+P?s8s:%%V0?:neP2nAjies:1zn82 z%i2t?n82292et?+8zi112e8t38nits9en21+z Vte+%z1 %t:+t:6::12 ??t88ies%ei%P88s%82%e;:Ptittt+z:2n> 1?z8u:?nee8??jstes:n%%8zXins2+t2zae%t?2+?:eze27si82is1+P8?n82?F11i m%P2sen:2t?:1_ e?te2:z1e?%8t:e1:ete2?nG?iin12id:PttJs es%Zp%ii%18z:t1ten?in::ze:%tKCies:+t2DJeP:tt+s2ez: t?z+e::1tn1%P8:itsre+%:ftPwt+nP2tzTPet8+t:Gzen+%186:e1:eP%V8ni:s:nS2I.:PttGne2+zt zte+e:t1R e?:8 iX1ne:%trnies:nt2z^eP:tt81:1z: t?W+8::1teL%+)%itszee%+ytPrse8:: z&Pnt:+?:41z :%%,1:e1 et%z8ei:stn6%+X:P:tInn2:zt =te8P:t1z e?e8tir1ee::vRBies:nt2WE+P:tt8s2ez: t?z+e:i1teK%i8:itsHen%:/tP-");local n=0;o.OJWeOQau(function()o.MuZgPRnq()n=n+1 end)local function e(t,e)if e then return n end;n=t+n;end local t,n,u=h(0,h,e,f,o.vOstSHbk);local function r()local t,n=o.vOstSHbk(f,e(1,3),e(5,6)+2);e(2);return(n*256)+t;end;local b=true;local b=0 local function g()local e=n();local n=n();local d=1;local l=(t(n,1,20)*(2^32))+e;local e=t(n,21,31);local n=((-1)^t(n,32));if(e==0)then if(l==b)then return n*0;else e=1;d=0;end;elseif(e==2047)then return(l==0)and(n*(1/0))or(n*(0/0));end;return o.VXeWqu_i(n,e-1023)*(d+(l/(2^52)));end;local k=n;local function z(n)local t;if(not n)then n=k();if(n==0)then return'';end;end;t=o.dDuglHgR(f,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+b),#t do e=e..o.dDuglHgR(t,n,n)end return e;end;local b=#o.CMImxubW(s('\49.\48'))~=1 local e=n;local function _(...)return{...},o.wBMXwcnw('#',...)end local function p()local e={};local a={};local h={};local s={h,a,nil,e};local e=n()local f={}for l=1,e do local t=u();local e;if(t==1)then e=(u()~=#{});elseif(t==3)then local n=g();if b and o.uTJiXzzn(o.CMImxubW(n),'.(\48+)$')then n=o.IxBoBRoK(n);end e=n;elseif(t==2)then e=z();end;f[l]=e;end;for e=1,n()do a[e-(#{1})]=p();end;s[3]=u();for s=1,n()do local e=u();if(t(e,1,1)==0)then local o=t(e,2,3);local a=t(e,4,6);local e={r(),r(),nil,nil};if(o==0)then e[d]=r();e[c]=r();elseif(o==#{1})then e[d]=n();elseif(o==j[2])then e[d]=n()-(2^16)elseif(o==j[3])then e[d]=n()-(2^16)e[c]=r();end;if(t(a,1,1)==1)then e[l]=f[e[l]]end if(t(a,2,2)==1)then e[d]=f[e[d]]end if(t(a,3,3)==1)then e[c]=f[e[c]]end h[s]=e;end end;return s;end;local function m(t,n,e)local l=n;local l=e;return s(o.uTJiXzzn(o.uTJiXzzn(({o.OJWeOQau(t)})[2],n),e))end local function ee(z,e,u)local function y(...)local r,y,b,m,s,n,f,k,j,g,p,t;local e=0;while-1<e do if e>2 then if 4<e then if e==5 then t=h(7);else e=-2;end else if 2<=e then repeat if e<4 then k={};j={...};break;end;g=o.wBMXwcnw('#',...)-1;p={};until true;else k={};j={...};end end else if 1<=e then if e>1 then n=-41;f=-1;else b=h(6,89,3,83,z);s=_ m=0;end else r=h(6,15,1,36,z);y=h(6,46,2,10,z);end end e=e+1;end;for e=0,g do if(e>=b)then k[e-b]=j[e+1];else t[e]=j[e+1];end;end;local e=g-b+1 local e;local o;local function h(...)while true do end end while true do if n<-40 then n=n+42 end e=r[n];o=e[ne];if o>=12 then if o<=17 then if o>=15 then if 15>=o then u[e[d]]=t[e[l]];else if o==17 then local n=e[l]local l,e=s(t[n](a(t,n+1,e[d])))f=e+n-1 local e=0;for n=n,f do e=e+1;t[n]=l[e];end;else local o,c,f,r,a;local n=0;while n>-1 do if n<=2 then if n>=1 then if 2==n then f=d;else c=l;end else o=e;end else if 5>n then if 1~=n then repeat if n<4 then r=o[f];break;end;a=o[c];until true;else r=o[f];end else if n>3 then repeat if n~=5 then n=-2;break;end;t(a,r);until true;else n=-2;end end end n=n+1 end end end else if 12>=o then local e=e[l]t[e]=t[e](a(t,e+1,f))else if o>=10 then for h=17,52 do if 13~=o then local o,j,k,z,b;for h=0,6 do if h<=2 then if 1>h then t[e[l]]=u[e[d]];n=n+1;e=r[n];else if 2==h then t(e[l],e[d]);n=n+1;e=r[n];else o=e[l];j=t[e[d]];t[o+1]=j;t[o]=j[e[c]];n=n+1;e=r[n];end end else if 5>h then if h<4 then t[e[l]]=(e[d]~=0);n=n+1;e=r[n];else o=e[l]k,z=s(t[o](a(t,o+1,e[d])))f=z+o-1 b=0;for e=o,f do b=b+1;t[e]=k[b];end;n=n+1;e=r[n];end else if 5==h then o=e[l]t[o]=t[o](a(t,o+1,f))n=n+1;e=r[n];else t[e[l]]();end end end end break;end;do return end;break;end;else local o,j,z,k,b;for h=0,6 do if h<=2 then if 1>h then t[e[l]]=u[e[d]];n=n+1;e=r[n];else if 2==h then t(e[l],e[d]);n=n+1;e=r[n];else o=e[l];j=t[e[d]];t[o+1]=j;t[o]=j[e[c]];n=n+1;e=r[n];end end else if 5>h then if h<4 then t[e[l]]=(e[d]~=0);n=n+1;e=r[n];else o=e[l]z,k=s(t[o](a(t,o+1,e[d])))f=k+o-1 b=0;for e=o,f do b=b+1;t[e]=z[b];end;n=n+1;e=r[n];end else if 5==h then o=e[l]t[o]=t[o](a(t,o+1,f))n=n+1;e=r[n];else t[e[l]]();end end end end end end end else if 20>=o then if o>=19 then if 16~=o then repeat if o>19 then u[e[d]]=t[e[l]];break;end;t[e[l]]();until true;else t[e[l]]();end else if(t[e[l]]==e[c])then n=n+1;else n=e[d];end;end else if o<=21 then local e=e[l]t[e]=t[e](a(t,e+1,f))else if 20~=o then repeat if 22<o then n=e[d];break;end;local n=e[l];local l=t[e[d]];t[n+1]=l;t[n]=l[e[c]];until true;else n=e[d];end end end end else if 6>o then if 2<o then if o>=4 then if o>=3 then for n=29,54 do if o<5 then local n=e[l];local l=t[e[d]];t[n+1]=l;t[n]=l[e[c]];break;end;local n=e[l]local l,e=s(t[n](a(t,n+1,e[d])))f=e+n-1 local e=0;for n=n,f do e=e+1;t[n]=l[e];end;break;end;else local n=e[l]local l,e=s(t[n](a(t,n+1,e[d])))f=e+n-1 local e=0;for n=n,f do e=e+1;t[n]=l[e];end;end else for o=0,3 do if o<=1 then if o~=-3 then for f=27,63 do if 1~=o then t[e[l]]=(e[d]~=0);n=n+1;e=r[n];break;end;u[e[d]]=t[e[l]];n=n+1;e=r[n];break;end;else u[e[d]]=t[e[l]];n=n+1;e=r[n];end else if o>=-1 then for f=34,97 do if 3~=o then t[e[l]]=u[e[d]];n=n+1;e=r[n];break;end;if(t[e[l]]==e[c])then n=n+1;else n=e[d];end;break;end;else t[e[l]]=u[e[d]];n=n+1;e=r[n];end end end end else if o<=0 then n=e[d];else if-2<=o then repeat if 1~=o then do return end;break;end;t[e[l]]=(e[d]~=0);until true;else do return end;end end end else if o>8 then if 9>=o then t[e[l]]=(e[d]~=0);else if 6<=o then for n=17,67 do if o~=10 then t(e[l],e[d]);break;end;t[e[l]]();break;end;else t[e[l]]();end end else if o<=6 then t[e[l]]=u[e[d]];else if 7~=o then t[e[l]]=u[e[d]];else if(t[e[l]]==e[c])then n=n+1;else n=e[d];end;end end end end end n=1+n;end;end;return y end;local l=0xff;local c={};local f=(1);local d='';(function(n)local t=n local r=0x00 local e=0x00 t={(function(o)if r>0x29 then return o end r=r+1 e=(e+0xbf0-o)%0x27 return(e%0x03==0x2 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x4e);l[2]=(l[2]*(m(function()c()end,a(d))-m(l[1],a(d))))+1;c[f]={};l=l[2];f=f+l;end return true end)'mMyfT'and t[0x1](0x2c7+o))or(e%0x03==0x0 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x9c);d='\37';l={function()l()end};d=d..'\100\43';end return true end)'hippV'and t[0x3](o+0x99))or(e%0x03==0x1 and(function(t)if not n[t]then e=e+0x01 n[t]=(0xa7);c[f]=y();f=f+l;end return true end)'PBBrL'and t[0x2](o+0x39c))or o end),(function(l)if r>0x29 then return l end r=r+1 e=(e+0xfa7-l)%0x43 return(e%0x03==0x0 and(function(t)if not n[t]then e=e+0x01 n[t]=(0xd4);end return true end)'uxxju'and t[0x2](0x24a+l))or(e%0x03==0x1 and(function(t)if not n[t]then e=e+0x01 n[t]=(0xa2);end return true end)'yYZiP'and t[0x1](l+0x3a8))or(e%0x03==0x2 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x50);end return true end)'XMSXu'and t[0x3](l+0x328))or l end),(function(a)if r>0x30 then return a end r=r+1 e=(e+0x818-a)%0x2f return(e%0x03==0x2 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x61);end return true end)'IREmO'and t[0x3](0x1c7+a))or(e%0x03==0x0 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x78);d={d..'\58 a',d};c[f]=p();f=f+((not o.yEBxSZcd)and 1 or 0);d[1]='\58'..d[1];l[2]=0xff;end return true end)'nGWMC'and t[0x1](a+0x36b))or(e%0x03==0x1 and(function(t)if not n[t]then e=e+0x01 n[t]=(0xbe);end return true end)'yqqyA'and t[0x2](a+0xfe))or a end)}t[0x1](0x1721)end){};local e=ee(a(c));return e(...);end return p((function()local n={}local e=0x01;local t;if o.yEBxSZcd then t=o.yEBxSZcd(p)else t=''end if o.uTJiXzzn(t,o.uclompcT)then e=e+0;else e=e+1;end n[e]=0x02;n[n[e]+0x01]=0x03;return n;end)(),...)end)((function(e,n,t,d,l,o)local o;if e>3 then if 6>e then if 2<=e then for o=48,54 do if 4~=e then local e=d;do return function()local n=n(t,e(e,e),e(e,e));e(1);return n;end;end;break;end;local e=d;local o,l,d=l(2);do return function()local n,r,t,f=n(t,e(e,e),e(e,e)+3);e(4);return(f*o)+(t*l)+(r*d)+n;end;end;break;end;else local e=d;local f,r,d=l(2);do return function()local l,o,t,n=n(t,e(e,e),e(e,e)+3);e(4);return(n*f)+(t*r)+(o*d)+l;end;end;end else if e>6 then if e==8 then do return t(e,nil,t);end else do return setmetatable({},{['__\99\97\108\108']=function(e,l,d,t,n)if n then return e[n]elseif t then return e else e[l]=d end end})end end else do return l[t]end;end end else if e>1 then if 1~=e then repeat if e<3 then do return 16777216,65536,256 end;break;end;do return n(1),n(4,l,d,t,n),n(5,l,d,t)end;until true;else do return 16777216,65536,256 end;end else if e==1 then do return function(t,e,n)if n then local e=(t/2^(e-1))%2^((n-1)-(e-1)+1);return e-e%1;else local e=2^(e-1);return(t%(e+e)>=e)and 1 or 0;end;end;end;else do return n(1),n(4,l,d,t,n),n(5,l,d,t)end;end end end end),...)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement