Untitled

From Rude Capybara, 4 Years ago, written in Plain Text.

Embed

Download Paste or View Raw
Hits: 221

--[[

Made by Megumu#8008

<3

]]

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

Author

Title

Language

Your paste - Paste your paste here

--[[
	Made by Megumu#8008
	&lt;3
]]

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

Private - Private paste aren't shown in recent listings.

Delete After - When should we delete your paste?

Spam protection -

Reply to "Untitled"