Demon Slayer: Burning Ashes | TP Bypass

--[[
    Made by Megumu
    <3
]]

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