TextBin - Compartilhe Códigos e Textos Online

Novo Texto Importar Arquivo

--[[

____   ___                  _          
        / __ \ / _ \                (_)         
   __ _| |  | | (_) |  ___  ___ _ __ _ _ __ ____
  / _` | |  | |\__, | / __|/ __| '__| | '_ \_  /
 | (_| | |__| |  / /  \__ \ (__| |  | | |_) / / 
  \__,_|\___\_\ /_/   |___/\___|_|  |_| .__/___|
                                      | |       
                                      |_|

https://discord.gg/pP3G3PEfy9
]]

local d=string.byte;local r=string.char;local c=string.sub;local s=table.concat;local l=table.insert;local h=math.ldexp;local N=getfenv or function()return _ENV end;local K=setmetatable;local L=select;local a=unpack or table.unpack;local f=tonumber;local function M(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 i()local e=f(c(d,l,l),36)l=l+1;local n=f(c(d,l,l+e-1),36)l=l+e;return n end;e=r(i())o[1]=e;while l<#d do local l=i()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 **M('23N24D27524F24727524D26P26Q27026X26M26H26N26S26R26Y24F24927926Y27026O26W24F24A27925X26H26H26L26226W26H24F25X27926T27W26L26M24N24Y24Y26N27026I24Z26Y26S26H26T26G27326G26M26W26N27226Q26R26H26W28S24Z28Q26O24Y26D25X26W26L26H27224Y25Y27026J26Q24W25K25W24W25T26S27328C26N26C24Y26O27027I24Y26M26Q26G28P26W24Z26P26G27024F24427926626N26W27028T29F27324F24E27927025O24K27S27925Q26C26R27028727R24B27925V26W26I25L2702A827M27525S29N26R2772AO2AQ25Q26W27226H26S28R29Z2B126I26726G27W2B82AN27529N26O27326Q28124Z2AB25926M26S26O26L26P26W2592BI2BK26H25926Z26Q26J2BP27227H29324X25926626425V25V25U25L2592732BV26X26S26M2AT2BU26X2A927926025Q25P24F2522BO2BQ2BS2BU2592CR25P25926229C25924W2592AH2AJ2AL25925H25928R26P26C25927229S2A328S2DG2B92752AP2AR26Q26Y26Y2BU2DO24D25M27026P26U26M26L26W26W2CO23O2CW2BR2BT2BV26I2DZ2E12E32E52C42C62812A027525W26R26Z25926C26S26W26P2CO2572E82CY2BV2D425W25926I28H26T2DI26Q26O29M26R26X2BP26G2722F427026M25924M26Z2DN2782DP2AQ25Y26W26C27327I2CO2FL24D25L2DS2DU2EY29C24F24Y27927226P26S27226U25928I2BV2FD26Q28N26R2592BU27W28O2G926Q2GK2DT2CZ2EZ25925S25926X26W26Z27026G26P2812AV24D26026R26G26O2AF2752FO26C26626Q2GT24F24C27925S2H624D2A22E528H26M24F2452AB2AD25A24V24V24P24P24F23K28428628828A2CJ26M28Q26N26X28F26Y24Y26L25P24U26224U25P26026Z26C2AE2FU2AC24K2D82C526S26L26F2482792H02B027527B27D27F27H27J27L27N27P27R27T27527V27X27Z28125U2HY27X2I028B28D28F2F328K28M28O28Q28S28U26H28W2F624Y26026D26G26R26C26M24Y2642BR2BY24W25Q2IO29329L2AY2K02K22BL25424V24T2K52EI29V29X27924D2HO27523Z2552792HE2KN2752HE24F2792592KT24D2HE2AA23Z2752AA2H02KQ24D2AA2KK2L92KV2L92HE2KR2KK2LE24D2IU2FU2IX27E27G27I27K2H027O27Q2HH2J827Y28024F2582JD2872892I92FF28T2FR26R2JR28Y28C26I24Y26U26J26N24T26426G25M26F2KK2KM24D2KO2L62KS2KZ24D2LB24D2KX2MP2L02ML2L32LH2L92MP2L82MZ2762MZ2LD2N42KK2IS2762LJ27C2LL2J02LO2J32LR2J624D2LT2JA2LW2LY2JF26L2M226W2M42M62JG2M926026Y26N26226X25O26626J2NL2752852JE2M02NO27F2NQ27I2NS2M824Y25J25N26126K27V24O26J2KK23Y27924B2BG2L72MU2LH23R2792AA2HE2492OU2752462MP23Z25A2OS2KN2402MQ2P82752MT2KV2KV2L127527M2L52N32PH2MP2N32L62N52OY2792L22HE2P32P52ML2P72PC2KW2N32PD2MW2MY2N82KK2KV2PJ2LE2MR2OS2KR2432MN2KZ2LI2792LK2IZ2LN2J22752LQ2J527U2862NK2LX2O42HZ2O72NP2NR28X2NT24Y24R24R27229H2JU26H2MJ2PP2KP2KY2MO2KU2PX2OS2PE2OR2Q52OR2N22PL2LF2PK2RI2QB2HN2792FW2GN26W29C2KK2L523P2N22592512LC2752CV2N32Q92QB24D24M2PP2E72R72Q02R92PA2KY2MV2L22RD2N62N12N22Q72KY2KV2MT2LE2IS2SE2KV2OQ2SE2AA2NH2KL2N02P82592532P82HE2HO2SE27M2EK2Q32MY2SL2MX2KV2782SE2IS2T52OV24D2IS2T82MY2AA2P12SE2AN2412PP27527T2P727623U2SV2L92HX27M2HO2HE2RW2TJ24D2TL2AA2AN2QA2KN2ST24D24227924F2TU2TZ2KK2TX2SV2U02RX27M2AA23X2ML2U524D23W2PP2U92SE2MQ2UE2P92752UH2UF2U12UL2U32UO24D2AN2ON2U824D27T23T2UC2UW2SH25B2MY2V02PF2OR23S2Q02AN23V2TP2V924D2TU2MO2HO2RU2SB2SV2HO2E72MT2HO2HO2OU24B23Q24D2A027M2N524D2TO2N22EV2T42MP2MT2W72SV2TM24D2W42L927M2AN2TI2IS27M2TB2TQ24D23L2MZ2IS27T2TI2AN2WQ2Q02HO2HX2L92AN2HO2SL2RX27T2X023Z2AA2A02742792HO27T2A02LB2U72RJ24D');local o=bit and bit.bxor or function(l,n)local e,o=1,0 while l>0 and n>0 do local c,a=l%2,n%2 if c~=a then o=o+e end l,n,e=(l-c)/2,(n-a)/2,e*2 end if l<n then l=n end while l>0 do local n=l%2 if n>0 then o=o+e end l,e=(l-n)/2,e*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,a,c=d(i,l,l+3);e=o(e,157)n=o(n,157)a=o(a,157)c=o(c,157)l=l+4;return(c*16777216)+(a*65536)+(n*256)+e;end;local function f()local e=o(d(i,l,l),157);l=l+1;return e;end;local function t()local e,n=d(i,l,l+2);e=o(e,157)n=o(n,157)l=l+2;return(n*256)+e;end;local function M()local o=e();local l=e();local c=1;local o=(n(l,1,20)*(2^32))+o;local e=n(l,21,31);local l=((-1)^n(l,32));if(e==0)then if(o==0)then return l*0;else e=1;c=0;end;elseif(e==2047)then return(o==0)and(l*(1/0))or(l*(0/0));end;return h(l,e-1023)*(c+(o/(2^52)));end;local h=e;local function P(e)local n;if(not e)then e=h();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(d(c(n,l,l)),157))end return s(e);end;local l=e;local function s(...)return{...},L('#',...)end local function A()local i={};local c={};local l={};local d={i,c,nil,l};local l=e()local o={}for n=1,l do local e=f();local l;if(e==3)then l=(f()~=0);elseif(e==1)then l=M();elseif(e==2)then l=P();end;o[n]=l;end;for l=1,e()do c[l-1]=A();end;for d=1,e()do local l=f();if(n(l,1,1)==0)then local c=n(l,2,3);local a=n(l,4,6);local l={t(),t(),nil,nil};if(c==0)then l[3]=t();l[4]=t();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]=t();end;if(n(a,1,1)==1)then l[2]=o[l[2]]end if(n(a,2,2)==1)then l[3]=o[l[3]]end if(n(a,3,3)==1)then l[4]=o[l[4]]end i[d]=l;end end;d[3]=f();return d;end;local function f(l,h,d)local n=l[1];local e=l[2];local l=l[3];return function(...)local o=n;local r=e;local c=l;local **s local e=1;local t=-1;local A={};local M={...};local s=L('#',...)-1;local L={};local n={};for l=0,s do if(l>=c)then A[l-c]=M[l+1];else n[l]=M[l+1];end;end;local l=s-c+1 local l;local c;while true do l=o[e];c=l[1];if c<=21 then if c<=10 then if c<=4 then if c<=1 then if c>0 then local f;local L,h;local r;local c;n[l[2]]=d[l[3]];e=e+1;l=o[e];c=l[2];r=n[l[3]];n[c+1]=r;n[c]=r[l[4]];e=e+1;l=o[e];n[l[2]]=l[3];e=e+1;l=o[e];c=l[2]L,h=i(n[c](a(n,c+1,l[3])))t=h+c-1 f=0;for l=c,t do f=f+1;n[l]=L[f];end;e=e+1;l=o[e];c=l[2]n[c]=n[c](a(n,c+1,t))e=e+1;l=o[e];n[l[2]]();e=e+1;l=o[e];e=l[3];else local e=l[2]local o,l=i(n[e](a(n,e+1,l[3])))t=l+e-1 local l=0;for e=e,t do l=l+1;n[e]=o[l];end;end;elseif c<=2 then local l=l[2]n[l](n[l+1])elseif c==3 then n[l[2]]=l[3];else local f;local L,h;local r;local c;n[l[2]]=d[l[3]];e=e+1;l=o[e];n[l[2]]=d[l[3]];e=e+1;l=o[e];c=l[2];r=n[l[3]];n[c+1]=r;n[c]=r[l[4]];e=e+1;l=o[e];n[l[2]]=l[3];e=e+1;l=o[e];c=l[2]L,h=i(n[c](a(n,c+1,l[3])))t=h+c-1 f=0;for l=c,t do f=f+1;n[l]=L[f];end;e=e+1;l=o[e];c=l[2]n[c]=n[c](a(n,c+1,t))e=e+1;l=o[e];n[l[2]]();e=e+1;l=o[e];do return end;end;elseif c<=7 then if c<=5 then local e=l[2]n[e]=n[e](a(n,e+1,l[3]))elseif c>6 then n[l[2]]=d[l[3]];else if not n[l[2]]then e=e+1;else e=l[3];end;end;elseif c<=8 then local e=l[2]n[e]=n[e](a(n,e+1,l[3]))elseif c==9 then n[l[2]]=l[3];else n[l[2]]();end;elseif c<=15 then if c<=12 then if c>11 then n[l[2]]=n[l[3]];else local l=l[2]n[l]=n[l]()end;elseif c<=13 then local f;local L,h;local r;local c;n[l[2]]=d[l[3]];e=e+1;l=o[e];c=l[2];r=n[l[3]];n[c+1]=r;n[c]=r[l[4]];e=e+1;l=o[e];n[l[2]]=l[3];e=e+1;l=o[e];c=l[2]L,h=i(n[c](a(n,c+1,l[3])))t=h+c-1 f=0;for l=c,t do f=f+1;n[l]=L[f];end;e=e+1;l=o[e];c=l[2]n[c]=n[c](a(n,c+1,t))e=e+1;l=o[e];n[l[2]]();elseif c>14 then n[l[2]]();else do return end;end;elseif c<=18 then if c<=16 then n[l[2]]=f(r[l[3]],nil,d);elseif c>17 then do return end;else if not n[l[2]]then e=e+1;else e=l[3];end;end;elseif c<=19 then local e=l[2]local o,l=i(n[e](a(n,e+1,l[3])))t=l+e-1 local l=0;for e=e,t do l=l+1;n[e]=o[l];end;elseif c>20 then local l=l[2]n[l]=n[l](a(n,l+1,t))else local l=l[2]n[l]=n[l](a(n,l+1,t))end;elseif c<=32 then if c<=26 then if c<=23 then if c==22 then local o=l[2];local e=n[l[3]];n[o+1]=e;n[o]=e[l[4]];else n[l[2]]=f(r[l[3]],nil,d);end;elseif c<=24 then n[l[2]]=h[l[3]];elseif c>25 then e=l[3];else local f;local h,L;local r;local c;n[l[2]]=d[l[3]];e=e+1;l=o[e];n[l[2]]=d[l[3]];e=e+1;l=o[e];c=l[2];r=n[l[3]];n[c+1]=r;n[c]=r[l[4]];e=e+1;l=o[e];n[l[2]]=l[3];e=e+1;l=o[e];c=l[2]h,L=i(n[c](a(n,c+1,l[3])))t=L+c-1 f=0;for l=c,t do f=f+1;n[l]=h[f];end;e=e+1;l=o[e];c=l[2]n[c]=n[c](a(n,c+1,t))e=e+1;l=o[e];c=l[2]n[c]=n[c]()e=e+1;l=o[e];n[l[2]]=n[l[3]][l[4]];e=e+1;l=o[e];n[l[2]]=l[3];e=e+1;l=o[e];n[l[2]]=l[3];end;elseif c<=29 then if c<=27 then local **r[l[3]];local t;local c={};t=K({},{__index=function(e,l)local l=c[l];return l[1][l[2]];end,__newindex=function(n,l,e)local l=c[l]l[1][l[2]]=e;end;});for a=1,l[4]do e=e+1;local l=o[e];if l[1]==12 then c[a-1]={n,l[3]};else c[a-1]={h,l[3]};end;L[#L+1]=c;end;n[l[2]]=f(i,t,d);elseif c==28 then local t=r[l[3]];local a;local c={};a=K({},{__index=function(e,l)local l=c[l];return l[1][l[2]];end,__newindex=function(n,l,e)local l=c[l]l[1][l[2]]=e;end;});for a=1,l[4]do e=e+1;local l=o[e];if l[1]==12 then c[a-1]={n,l[3]};else c[a-1]={h,l[3]};end;L[#L+1]=c;end;n[l[2]]=f(t,a,d);else local e=l[2]n[e](a(n,e+1,l[3]))end;elseif c<=30 then e=l[3];elseif c==31 then n[l[2]]=n[l[3]][l[4]];else local e=l[2]n[e](a(n,e+1,l[3]))end;elseif c<=37 then if c<=34 then if c==33 then local f;local h,L;local r;local c;n[l[2]]=d[l[3]];e=e+1;l=o[e];n[l[2]]=d[l[3]];e=e+1;l=o[e];c=l[2];r=n[l[3]];n[c+1]=r;n[c]=r[l[4]];e=e+1;l=o[e];n[l[2]]=l[3];e=e+1;l=o[e];c=l[2]h,L=i(n[c](a(n,c+1,l[3])))t=L+c-1 f=0;for l=c,t do f=f+1;n[l]=h[f];end;e=e+1;l=o[e];c=l[2]n[c]=n[c](a(n,c+1,t))e=e+1;l=o[e];n[l[2]]();e=e+1;l=o[e];do return end;else local t;local c;c=l[2]n[c](a(n,c+1,l[3]))e=e+1;l=o[e];c=l[2];t=n[l[3]];n[c+1]=t;n[c]=t[l[4]];e=e+1;l=o[e];n[l[2]]=l[3];e=e+1;l=o[e];n[l[2]]=l[3];e=e+1;l=o[e];n[l[2]]=d[l[3]];e=e+1;l=o[e];n[l[2]]=n[l[3]][l[4]];e=e+1;l=o[e];n[l[2]]=n[l[3]][l[4]];end;elseif c<=35 then n[l[2]]=d[l[3]];elseif c>36 then n[l[2]]=n[l[3]][l[4]];else local f;local L,h;local r;local c;n[l[2]]=d[l[3]];e=e+1;l=o[e];n[l[2]]=d[l[3]];e=e+1;l=o[e];c=l[2];r=n[l[3]];n[c+1]=r;n[c]=r[l[4]];e=e+1;l=o[e];n[l[2]]=l[3];e=e+1;l=o[e];c=l[2]L,h=i(n[c](a(n,c+1,l[3])))t=h+c-1 f=0;for l=c,t do f=f+1;n[l]=L[f];end;e=e+1;l=o[e];c=l[2]n[c]=n[c](a(n,c+1,t))e=e+1;l=o[e];n[l[2]]();e=e+1;l=o[e];do return end;end;elseif c<=40 then if c<=38 then local t;local c;c=l[2]n[c](a(n,c+1,l[3]))e=e+1;l=o[e];c=l[2];t=n[l[3]];n[c+1]=t;n[c]=t[l[4]];e=e+1;l=o[e];n[l[2]]=l[3];e=e+1;l=o[e];c=l[2]n[c]=n[c](a(n,c+1,l[3]))e=e+1;l=o[e];c=l[2];t=n[l[3]];n[c+1]=t;n[c]=t[l[4]];e=e+1;l=o[e];n[l[2]]=l[3];e=e+1;l=o[e];c=l[2]n[c]=n[c](a(n,c+1,l[3]))e=e+1;l=o[e];c=l[2];t=n[l[3]];n[c+1]=t;n[c]=t[l[4]];e=e+1;l=o[e];n[l[2]]=l[3];e=e+1;l=o[e];c=l[2]n[c]=n[c](a(n,c+1,l[3]))elseif c>39 then local e=l[2];local o=n[l[3]];n[e+1]=o;n[e]=o[l[4]];else local l=l[2]n[l]=n[l]()end;elseif c<=41 then n[l[2]]=h[l[3]];elseif c==42 then local t;local c;c=l[2];t=n[l[3]];n[c+1]=t;n[c]=t[l[4]];e=e+1;l=o[e];n[l[2]]=l[3];e=e+1;l=o[e];c=l[2]n[c]=n[c](a(n,c+1,l[3]))e=e+1;l=o[e];c=l[2];t=n[l[3]];n[c+1]=t;n[c]=t[l[4]];e=e+1;l=o[e];n[l[2]]=l[3];e=e+1;l=o[e];c=l[2]n[c]=n[c](a(n,c+1,l[3]))e=e+1;l=o[e];c=l[2];t=n[l[3]];n[c+1]=t;n[c]=t[l[4]];e=e+1;l=o[e];n[l[2]]=l[3];e=e+1;l=o[e];n[l[2]]=l[3];else local l=l[2]n[l](n[l+1])end;e=e+1;end;end;end;return f(A(),{},N())();

Configurações do Texto

Título do Texto : [Opcional]

Guardar na Pasta : [Opcional]

Syntax Highlighting : [Opcional]

Expiração do Texto : [Opcional]

Status do Texto : [Opcional]

Senha : [Opcional]

Descrição: [Opcional]

Tags: [Opcional]

Criptografar Texto (?)

No momento você não está logado, isso significa que você não pode editar ou excluir nada que você poste. Cadastre-se ou faça o Login

Configurações do Texto

Idiomas do site