Advertisement
Guest User

Untitled

a guest
Jan 29th, 2020
230
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.91 KB | None | 0 0
  1. _G.key = "CrackedHo"
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22. --[[
  23. Obfuscated By Darling Obfuscator Service
  24. ]]
  25.  
  26. local t=string.byte;local r=string.char;local c=string.sub;local u=table.concat;local l=table.insert;local B=math.ldexp;local A=getfenv or function()return _ENV end;local l=setmetatable;local h=select;local f=unpack or table.unpack;local i=tonumber;local function s(d)local e,n,o="","",{}local a=256;local t={}for l=0,a-1 do t[l]=r(l)end;local l=1;local function f()local e=i(c(d,l,l),36)l=l+1;local n=i(c(d,l,l+e-1),36)l=l+e;return n end;e=r(f())o[1]=e;while l<#d do local l=f()if t[l]then n=t[l]else n=e..c(e,1,1)end;t[a]=e..c(n,1,1)o[#o+1],e,a=n,n,a+1 end;return table.concat(o)end;local i=s('22E22M27522K22T27522M21I21621621A21922S23523521P21I21N21P21H21521I21J21621N21E21J21921623423227Y21521N21O21I21D27V21R21A21A23421P21D21F23527O27Q27S27U27W21A21I21A22P21H21N21322R22K22K279111P22K22L27928N21322K22I27921L21R21F21N22K22H2791M27C21A1P21N21622K22F2791927P27R27T27V22K22J27921A21821J21C29G22B2791G21D21623I29K28F29N21622M21Y27922422727922N2A92752AD28S27523I2AF22M2AD28X2792AO2AD2242AK2AH22M2AR22M28S2922AI2762AW22M29Q2792AY2AO2B029228S2262AK28X28S2242AD2AD2B523I2BA2BF2B227529I2AN2AO2992AM2B123C2282AL22M2222BV22G22M22I2BX2752BX2AQ2BK2992752242252B12BZ27929Q2AG2BV2C12792212BV2BE2BV2C72AU2CA28S2742CD2BV28S2AD2C02AC2B6275');local o=bit and bit.bxor or function(l,e)local n,o=1,0 while l>0 and e>0 do local c,a=l%2,e%2 if c~=a then o=o+n end l,e,n=(l-c)/2,(e-a)/2,n*2 end if l<e then l=e end while l>0 do local e=l%2 if e>0 then o=o+n end l,n=(l-e)/2,n*2 end return o end local function n(e,l,n)if n then local l=(e/2^(l-1))%2^((n-1)-(l-1)+1);return l-l%1;else local l=2^(l-1);return(e%(l+l)>=l)and 1 or 0;end;end;local l=1;local function e()local e,n,c,a=t(i,l,l+3);e=o(e,94)n=o(n,94)c=o(c,94)a=o(a,94)l=l+4;return(a*16777216)+(c*65536)+(n*256)+e;end;local function d()local e=o(t(i,l,l),94);l=l+1;return e;end;local function a()local n,e=t(i,l,l+2);n=o(n,94)e=o(e,94)l=l+2;return(e*256)+n;end;local function s()local l=e();local e=e();local c=1;local o=(n(e,1,20)*(2^32))+l;local l=n(e,21,31);local e=((-1)^n(e,32));if(l==0)then if(o==0)then return e*0;else l=1;c=0;end;elseif(l==2047)then return(o==0)and(e*(1/0))or(e*(0/0));end;return B(e,l-1023)*(c+(o/(2^52)));end;local B=e;local function I(e)local n;if(not e)then e=B();if(e==0)then return'';end;end;n=c(i,l,l+e-1);l=l+e;local e={}for l=1,#n do e[l]=r(o(t(c(n,l,l)),94))end return u(e);end;local l=e;local function u(...)return{...},h('#',...)end local function i()local f={};local r={};local l={};local h={f,r,nil,l};local l=e()local o={}for n=1,l do local e=d();local l;if(e==0)then l=(d()~=0);elseif(e==1)then l=s();elseif(e==2)then l=I();end;o[n]=l;end;h[3]=d();for i=1,e()do local l=d();if(n(l,1,1)==0)then local c=n(l,2,3);local t=n(l,4,6);local l={a(),a(),nil,nil};if(c==0)then l[3]=a();l[4]=a();elseif(c==1)then l[3]=e();elseif(c==2)then l[3]=e()-(2^16)elseif(c==3)then l[3]=e()-(2^16)l[4]=a();end;if(n(t,1,1)==1)then l[2]=o[l[2]]end if(n(t,2,2)==1)then l[3]=o[l[3]]end if(n(t,3,3)==1)then l[4]=o[l[4]]end f[i]=l;end end;for l=1,e()do r[l-1]=i();end;return h;end;local function r(l,e,t)local e=l[1];local n=l[2];local l=l[3];return function(...)local c=e;local e=n;local o=l;local l=u local n=1;local l=-1;local i={};local a={...};local d=h('#',...)-1;local l={};local e={};for l=0,d do if(l>=o)then i[l-o]=a[l+1];else e[l]=a[l+1];end;end;local l=d-o+1 local l;local o;while true do l=c[n];o=l[1];if o<=11 then if o<=5 then if o<=2 then if o<=0 then n=l[3];elseif o==1 then e[l[2]]=t[l[3]];else e[l[2]][l[3]]=e[l[4]];end;elseif o<=3 then if(e[l[2]]==l[4])then n=n+1;else n=l[3];end;elseif o>4 then local l=l[2]e[l](e[l+1])else do return end;end;elseif o<=8 then if o<=6 then e[l[2]]=e[l[3]][l[4]];elseif o>7 then local l=l[2]e[l](e[l+1])else local n=l[2]e[n]=e[n](f(e,n+1,l[3]))end;elseif o<=9 then e[l[2]]=e[l[3]];elseif o>10 then e[l[2]]=e[l[3]];else do return end;end;elseif o<=17 then if o<=14 then if o<=12 then e[l[2]]=e[l[3]][l[4]];elseif o==13 then e[l[2]]=t[l[3]];else if(e[l[2]]==l[4])then n=n+1;else n=l[3];end;end;elseif o<=15 then e[l[2]][l[3]]=e[l[4]];elseif o>16 then local o;local d;local a;e[l[2]]=l[3];n=n+1;l=c[n];e[l[2]]=t[l[3]];n=n+1;l=c[n];e[l[2]]=e[l[3]][l[4]];n=n+1;l=c[n];a=l[3];d=e[a]for l=a+1,l[4]do d=d..e[l];end;e[l[2]]=d;n=n+1;l=c[n];e[l[2]]=t[l[3]];n=n+1;l=c[n];e[l[2]]=t[l[3]];n=n+1;l=c[n];o=l[2];a=e[l[3]];e[o+1]=a;e[o]=a[l[4]];n=n+1;l=c[n];e[l[2]]=e[l[3]];n=n+1;l=c[n];o=l[2]e[o]=e[o](f(e,o+1,l[3]))n=n+1;l=c[n];e[l[2]][l[3]]=e[l[4]];else local n=l[2];local o=e[l[3]];e[n+1]=o;e[n]=o[l[4]];end;elseif o<=20 then if o<=18 then local o=l[3];local n=e[o]for l=o+1,l[4]do n=n..e[l];end;e[l[2]]=n;elseif o==19 then e[l[2]]=l[3];else n=l[3];end;elseif o<=22 then if o>21 then local o=l[2];local n=e[l[3]];e[o+1]=n;e[o]=n[l[4]];else e[l[2]]=l[3];end;elseif o==23 then local n=l[2]e[n]=e[n](f(e,n+1,l[3]))else local o=l[3];local n=e[o]for l=o+1,l[4]do n=n..e[l];end;e[l[2]]=n;end;n=n+1;end;end;end;return r(i(),{},A())();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement