Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --[[
- _____ .___ __ _____.___. .__
- / \ __ __ __| _/____ ____ ____ | | __ \__ | |____ | |__ ____ ____
- / \ / \| | \/ __ |/ ___\/ _ \_/ ___\| |/ / / | \__ \ | | \ / _ \_/ __ \
- / Y \ | / /_/ \ \__( <_> ) \___| < \____ |/ __ \| Y ( <_> ) ___/
- \____|__ /____/\____ |\___ >____/ \___ >__|_ \ / ______(____ /___| /\____/ \___ >
- \/ \/ \/ \/ \/ \/ \/ \/ \/
- ]]
- local f=string.byte;local t=string.char;local c=string.sub;local K=table.concat;local C=math.ldexp;local D=getfenv or function()return _ENV end;local G=setmetatable;local s=select;local i=unpack;local r=tonumber;local function h(f)local e,o,d="","",{}local n=256;local a={}for l=0,n-1 do a[l]=t(l)end;local l=1;local function i()local e=r(c(f,l,l),36)l=l+1;local o=r(c(f,l,l+e-1),36)l=l+e;return o end;e=t(i())d[1]=e;while l<#f do local l=i()if a[l]then o=a[l]else o=e..c(e,1,1)end;a[n]=e..c(o,1,1)d[#d+1],e,n=o,o,n+1 end;return table.concat(d)end;local d=h('24025C27524425K21C21R22C25K27524525K26825C23927C25C24625K25S25C23D27C21S24727525C22527527R23S21E21R22523S25E21S24425S27922C27N25C24026027922D26027524125K23K25C22K27J28H27428L28G25K24G28K28M25K24W28T27D25S27G22K28924221K26728K21K21R25B24527T22327T24023K27922928J28A28C21R22K28F25C28H22828X25C24824027922K27429O26029029N28H23429R24C29K29M27524D25S28J2912A825S28O2892A91028K28928H29027J24D25K1G29R2A91W2AJ27523O25429V25427523K21S29V21S27523L26G25S25D22K26G2B526G2682B92BB25C23W22G29V22G27523S29F29L29I23T27J28P25C23X27T22K27T24D25C27N2BX2A828I2B92AN25S2AT2AC25C23O22W29V22W2B02B229L2B425C2B62B82BA2BC24G2BF27523W23C29V23C2BM2BJ29L2BL25C2502BO22K29I2512BS27J23T2BW2BY2C028K27T24C2CC29L2CE29S2A629N24926029Q2A725C23K1029V2AI25C2DK2A02752DK2CL2DJ29Z2B929N23O2CS29L2CU2DO2CW22K2CY23W2D129I23X2D52B525C29027T23W2DI27523X26O2DM26O27525029U29L29X23X29Z28K29N2EN2A322K2EQ25C23S2EL25C23T26W2AB26W2752F828O2FB2F726W2AI22K2FF2EN28W2F22EM26O23K2B92F323T26O2C82F324X2892C925929N2DN25527G28K2G424L2BG2CM2F726O2C12F329A2752C225C24721S21P2CH21P29927J23227J25D27T26127T27728728M27T2312BY28922228924722027922522025C21S23K28627A28923X2G422G2G423L28Z25C23G28923M25K2EQ22I27Q27S27527V2H92472482H62482H923K2682872G42EW27522G29N2HJ27G2HM2752HO2742HR2HW27T2HV27R26G2H62BB2HA26O2872F32B628W2342BG2HF2GF2G42BN29V29I23L2G12I92D827D2EH25C22M27T2HX21R28024829827E2752GP27T27T27J25C25D25G27T24U24L2542502JN27T25025524W24L25D2JL24M25124U24J25024P24V24U2K02JV24V24Z25024Y24P24U24N25D25N27T23L25025024H24J24R23L24U24P24T24Z25D25H27T24K24L24I2512KI25M27T24N24L25025124W25224H24S25124L25F2JJ27T28J29N2JM2JO27525324H24P2JT25J2L62L824Z24L24U2522JU27524N24H24T2JZ2LT27524024S24H25524L24Y2KW2KK2CQ24V24J2LD2M82MA2MC25D25L27T23N24O24H24Y2KP2502MM25I2MP24S24P2LX2JT2MX27523R2L823V24L25525D2L52N42L82432MC25224P24J2JZ25T27T24224L24W2MZ2MI2MV24K24325024V2MT2L725D25O27T23Y2MS2512NU23X24P24N24O2JW2M025C2O12M425D2LH27524U24W24J2NY27T23T2LY24V24R24L2NE24Y2522MM2LN25C24325124Y2JZ2MO2LO2NV24R24Z24W2KP2JZ2OV23Y24023N2KW2M625C23V2KG2KO24Y24V2KA2ER2KC2KE2KG2KI2N325C2KG24W2O32KW2NB25C2N52502PA23N23O24H2KO2PL2PF2Q424H24R2OY24V2OF2LI2JM2P12GH2P32P52P725C');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 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,c,e,o=f(d,l,l+3);a=n(a,192)c=n(c,192)e=n(e,192)o=n(o,192)l=l+4;return(o*16777216)+(e*65536)+(c*256)+a;end;local function a()local e=n(f(d,l,l),192);l=l+1;return e;end;local function r()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 C(e,l-1023)*(c+(o/(2^52)));end;local C=o;local function h(e)local o;if(not e)then e=C();if(e==0)then return'';end;end;o=c(d,l,l+e-1);l=l+e;local e={}for l=1,#o do e[l]=t(n(f(c(o,l,l)),192))end return K(e);end;local l=o;local function C(...)return{...},s('#',...)end local function O()local f={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,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,0,0};local t={0};local l={};local d={f,nil,t,nil,l};for a=1,o()do local c=n(o(),85);local o=n(o(),156);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;f[a]=l;end;for l=1,o()do t[l-1]=O();end;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,0};for n=1,l do local e=a();local l;if(e==2)then l=(a()~=0);elseif(e==3)then l=r();elseif(e==1)then l=h();end;o[n]=l;end;d[2]=o d[4]=a();return d;end;local function N(l,L,h)local n=l[1];local o=l[2];local e=l[3];local l=l[4];return function(...)local c=n;local d=o;local H=e;local n=l;local u=C local e=1;local r=-1;local t={};local a={...};local f=s('#',...)-1;local K={};local o={};for l=0,f do if(l>=n)then t[l-n]=a[l+1];else o[l]=a[l+1];end;end;local l=f-n+1 local l;local t;while true do l=c[e];t=l[1];if t<=25 then if t<=12 then if t<=5 then if t<=2 then if t<=0 then local d=H[l[3]];local a;local n={};a=G({},{__index=function(e,l)local l=n[l];return l[1][l[2]];end,__newindex=function(o,l,e)local l=n[l]l[1][l[2]]=e;end;});for a=1,l[5]do e=e+1;local l=c[e];if l[1]==23 then n[a-1]={o,l[3]};else n[a-1]={L,l[3]};end;K[#K+1]=n;end;o[l[2]]=N(d,a,h);elseif t>1 then local n=l[2];local c=l[5];local l=n+2;local a={o[n](o[n+1],o[l])};for e=1,c do o[l+e]=a[e];end;local n=o[n+3];if n then o[l]=n else e=e+1;end;else if(o[l[2]]~=d[l[5]])then e=e+1;else e=e+l[3];end;end;elseif t<=3 then local l=l[2];local c={};local e=0;local n=r;for l=l+1,n do e=e+1;c[e]=o[l];end;o[l](i(c,1,n-l));r=l;elseif t==4 then o[l[2]]=o[l[3]];else o[l[2]]=o[l[3]][d[l[5]]];end;elseif t<=8 then if t<=6 then if(o[l[2]]~=d[l[5]])then e=e+1;else e=e+l[3];end;elseif t==7 then o[l[2]]=o[l[3]][o[l[5]]];else o[l[2]]=h[d[l[3]]];end;elseif t<=10 then if t>9 then local c=l[2];local n=r;local e={};local l=0;for n=c,n do l=l+1;e[l]=o[n];end;do return i(e,1,l)end;else local s;local f;local n;local t;local a;o[l[2]]=h[d[l[3]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];a=l[2];t={};n=0;f=a+l[3]-1;for l=a+1,f do n=n+1;t[n]=o[l];end;s={o[a](i(t,1,f-a))};f=a+l[5]-2;n=0;for l=a,f do n=n+1;o[l]=s[n];end;r=f;end;elseif t>11 then local l=l[2];local n={};local e=0;local c=r;for l=l+1,c do e=e+1;n[e]=o[l];end;o[l](i(n,1,c-l));r=l;else local e=l[2];local n=o[l[3]];o[e+1]=n;o[e]=n[d[l[5]]];end;elseif t<=18 then if t<=15 then if t<=13 then local L;local M;local T;local B;local J;local n,n;local s;local f;local a;local t;local C;local n;h[d[l[3]]]=o[l[2]];e=e+1;l=c[e];o[l[2]]=h[d[l[3]]];e=e+1;l=c[e];n=l[2];C=o[l[3]];o[n+1]=C;o[n]=C[d[l[5]]];e=e+1;l=c[e];o[l[2]]=d[l[3]];e=e+1;l=c[e];n=l[2];t={};a=0;f=n+l[3]-1;for l=n+1,f do a=a+1;t[a]=o[l];end;s={o[n](i(t,1,f-n))};f=n+l[5]-2;a=0;for l=n,f do a=a+1;o[l]=s[a];end;r=f;e=e+1;l=c[e];o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];o[l[2]]=h[d[l[3]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][o[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];n=l[2];C=o[l[3]];o[n+1]=C;o[n]=C[d[l[5]]];e=e+1;l=c[e];o[l[2]]=d[l[3]];e=e+1;l=c[e];o[l[2]]=h[d[l[3]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];o[l[2]]=h[d[l[3]]];e=e+1;l=c[e];o[l[2]]=h[d[l[3]]];e=e+1;l=c[e];n=l[2];s,f=u(o[n]());r=n-1;f=f+n-1;a=0;for l=n,f do a=a+1;o[l]=s[a];end;r=f;e=e+1;l=c[e];n=l[2];t={};a=0;f=r;for l=n+1,f do a=a+1;t[a]=o[l];end;s,f=u(o[n](i(t,1,f-n)));f=f+n-1;a=0;for l=n,f do a=a+1;o[l]=s[a];end;r=f;e=e+1;l=c[e];n=l[2];t={};a=0;f=r;for l=n+1,f do a=a+1;t[a]=o[l];end;o[n](i(t,1,f-n));r=n;e=e+1;l=c[e];o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];n=l[2];C=o[l[3]];o[n+1]=C;o[n]=C[d[l[5]]];e=e+1;l=c[e];o[l[2]]=d[l[3]];e=e+1;l=c[e];o[l[2]]=h[d[l[3]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];o[l[2]]=d[l[3]];e=e+1;l=c[e];o[l[2]]=h[d[l[3]]];e=e+1;l=c[e];o[l[2]]=h[d[l[3]]];e=e+1;l=c[e];n=l[2];s,f=u(o[n]());r=n-1;f=f+n-1;a=0;for l=n,f do a=a+1;o[l]=s[a];end;r=f;e=e+1;l=c[e];n=l[2];t={};a=0;f=r;for l=n+1,f do a=a+1;t[a]=o[l];end;s,f=u(o[n](i(t,1,f-n)));f=f+n-1;a=0;for l=n,f do a=a+1;o[l]=s[a];end;r=f;e=e+1;l=c[e];n=l[2];t={};a=0;f=r;for l=n+1,f do a=a+1;t[a]=o[l];end;o[n](i(t,1,f-n));r=n;e=e+1;l=c[e];o[l[2]]=d[l[3]];e=e+1;l=c[e];o[l[2]]=h[d[l[3]]];e=e+1;l=c[e];n=l[2];C=o[l[3]];o[n+1]=C;o[n]=C[d[l[5]]];e=e+1;l=c[e];o[l[2]]=d[l[3]];e=e+1;l=c[e];n=l[2];t={};a=0;f=n+l[3]-1;for l=n+1,f do a=a+1;t[a]=o[l];end;s={o[n](i(t,1,f-n))};f=n+l[5]-2;a=0;for l=n,f do a=a+1;o[l]=s[a];end;r=f;e=e+1;l=c[e];o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];o[l[2]]=d[l[3]];e=e+1;l=c[e];o[l[2]]=h[d[l[3]]];e=e+1;l=c[e];o[l[2]]=h[d[l[3]]];e=e+1;l=c[e];n=l[2];s,f=u(o[n]());r=n-1;f=f+n-1;a=0;for l=n,f do a=a+1;o[l]=s[a];end;r=f;e=e+1;l=c[e];n=l[2];t={};a=0;f=r;for l=n+1,f do a=a+1;t[a]=o[l];end;s={o[n](i(t,1,f-n))};f=n+l[5]-2;a=0;for l=n,f do a=a+1;o[l]=s[a];end;r=f;e=e+1;l=c[e];o[l[2]]=h[d[l[3]]];e=e+1;l=c[e];n=l[2];C=o[l[3]];o[n+1]=C;o[n]=C[d[l[5]]];e=e+1;l=c[e];o[l[2]]=d[l[3]];e=e+1;l=c[e];n=l[2];t={};a=0;f=n+l[3]-1;for l=n+1,f do a=a+1;t[a]=o[l];end;s={o[n](i(t,1,f-n))};f=n+l[5]-2;a=0;for l=n,f do a=a+1;o[l]=s[a];end;r=f;e=e+1;l=c[e];o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];o[l[2]]=h[d[l[3]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][o[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];n=l[2];C=o[l[3]];o[n+1]=C;o[n]=C[d[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]];e=e+1;l=c[e];o[l[2]]=o[l[3]];e=e+1;l=c[e];o[l[2]]=o[l[3]];e=e+1;l=c[e];o[l[2]]=o[l[3]];e=e+1;l=c[e];n=l[2];t={};a=0;f=n+l[3]-1;for l=n+1,f do a=a+1;t[a]=o[l];end;o[n](i(t,1,f-n));r=n;e=e+1;l=c[e];n=l[2];J={};for l=1,#K do B=K[l];for l=0,#B do T=B[l];M=T[1];L=T[2];if M==o and L>=n then J[L]=M[L];T[1]=J;end;end;end;e=e+1;l=c[e];e=e+l[3];elseif t>14 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;r=n;else local a=l[2];local c={};for l=1,#K do local l=K[l];for e=0,#l do local l=l[e];local n=l[1];local e=l[2];if n==o and e>=a then c[e]=n[e];l[1]=c;end;end;end;end;elseif t<=16 then local n=l[2];local c={};local e=0;local a=n+l[3]-1;for l=n+1,a do e=e+1;c[e]=o[l];end;local c={o[n](i(c,1,a-n))};local l=n+l[5]-2;e=0;for l=n,l do e=e+1;o[l]=c[e];end;r=l;elseif t>17 then do return end;else e=e+l[3];end;elseif t<=21 then if t<=19 then o[l[2]]=o[l[3]][o[l[5]]];elseif t>20 then local e=l[2];local n={};local l=e+l[3]-1;for l=e+1,l do n[#n+1]=o[l];end;do return o[e](i(n,1,l-e))end;else local l=l[2];local c,e=u(o[l]());r=l-1;e=e+l-1;local n=0;for l=l,e do n=n+1;o[l]=c[n];end;r=e;end;elseif t<=23 then if t>22 then o[l[2]]=o[l[3]];else for l=l[2],l[3]do o[l]=nil;end;end;elseif t==24 then h[d[l[3]]]=o[l[2]];else local n=l[2];local a={};local e=0;local c=r;for l=n+1,c do e=e+1;a[e]=o[l];end;local c={o[n](i(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;r=l;end;elseif t<=38 then if t<=31 then if t<=28 then if t<=26 then local n=l[2];local c=l[5];local l=n+2;local a={o[n](o[n+1],o[l])};for e=1,c do o[l+e]=a[e];end;local n=o[n+3];if n then o[l]=n else e=e+1;end;elseif t==27 then local c=l[2];local n=r;local e={};local l=0;for n=c,n do l=l+1;e[l]=o[n];end;do return i(e,1,l)end;else local e=l[2];local n=o[l[3]];o[e+1]=n;o[e]=n[d[l[5]]];end;elseif t<=29 then local a=l[2];local c={};for l=1,#K do local l=K[l];for e=0,#l do local l=l[e];local n=l[1];local e=l[2];if n==o and e>=a then c[e]=n[e];l[1]=c;end;end;end;elseif t>30 then o[l[2]]=d[l[3]];else local e=l[2];local n={};local l=e+l[3]-1;for l=e+1,l do n[#n+1]=o[l];end;do return o[e](i(n,1,l-e))end;end;elseif t<=34 then if t<=32 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](i(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;r=l;elseif t==33 then o[l[2]]=o[l[3]][d[l[5]]];else if not o[l[2]]then e=e+1;else e=e+l[3];end;end;elseif t<=36 then if t>35 then h[d[l[3]]]=o[l[2]];else local e=l[2];local n={};local l=0;local c=r;for e=e+1,c do l=l+1;n[l]=o[e];end;local c,n=u(o[e](i(n,1,c-e)));n=n+e-1;l=0;for e=e,n do l=l+1;o[e]=c[l];end;r=n;end;elseif t==37 then if not o[l[2]]then e=e+1;else e=e+l[3];end;else local n=l[2];local c={};local e=0;local a=r;for l=n+1,a do e=e+1;c[e]=o[l];end;local c={o[n](i(c,1,a-n))};local l=n+l[5]-2;e=0;for l=n,l do e=e+1;o[l]=c[e];end;r=l;end;elseif t<=45 then if t<=41 then if t<=39 then local e=l[2];local n={};local l=0;local c=r;for e=e+1,c do l=l+1;n[l]=o[e];end;local c,n=u(o[e](i(n,1,c-e)));n=n+e-1;l=0;for e=e,n do l=l+1;o[e]=c[l];end;r=n;elseif t==40 then local d=H[l[3]];local a;local n={};a=G({},{__index=function(e,l)local l=n[l];return l[1][l[2]];end,__newindex=function(o,l,e)local l=n[l]l[1][l[2]]=e;end;});for a=1,l[5]do e=e+1;local l=c[e];if l[1]==23 then n[a-1]={o,l[3]};else n[a-1]={L,l[3]};end;K[#K+1]=n;end;o[l[2]]=N(d,a,h);else 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;r=n;end;elseif t<=43 then if t==42 then 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](i(c,1,l-e));r=e;else local l=l[2];local c,e=u(o[l]());r=l-1;e=e+l-1;local n=0;for l=l,e do n=n+1;o[l]=c[n];end;r=e;end;elseif t==44 then local a;local h;local f;local t;local n;o[l[2]]=o[l[3]][d[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]];e=e+1;l=c[e];o[l[2]]=d[l[3]];e=e+1;l=c[e];n=l[2];t={};f=n+l[3]-1;for l=n+1,f do t[#t+1]=o[l];end;do return o[n](i(t,1,f-n))end;e=e+1;l=c[e];n=l[2];f=r;h={};a=0;for l=n,f do a=a+1;h[a]=o[l];end;do return i(h,1,a)end;else e=e+l[3];end;elseif t<=48 then if t<=46 then o[l[2]]=d[l[3]];elseif t==47 then o[l[2]]=L[l[3]];else o[l[2]]=h[d[l[3]]];end;elseif t<=50 then if t==49 then o[l[2]]=L[l[3]];else do return end;end;elseif t>51 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](i(c,1,l-e));r=e;end;e=e+1;end;end;end;return N(O(),{},D())();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
