Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- local function t(o)local l,F,n="","",{}local D=256;local B={}for e=0,D-1 do B[e]=string.char(e)end;local e=1;local C=tonumber;local function E()local l=C(o:sub(e,e),16)e=e+1;local F=C(o:sub(e,e+l-1),16)e=e+l;return F end;l=string.char(E())n[1]=l;while e<#o do local e=E()if B[e]then F=B[e]else F=l..l:sub(1,1)end;B[D]=l..F:sub(1,1)n[#n+1],l,D=F,F,D+1 end;return table.concat(n)end;local o=t('26E24F310124E249310124F22B22A22D23A22824E24A3105227310A22A24E244310522322022E22B23C23B23D226221310B310D310122822E22231113113310122222E23731193122311C22E24E246310521C23B22A22E223311C310B243310522822A23B23A23F239313423A22A23C24E31383120313B23D22A228226311923D236312E310523A23C22A23D22B22E23B312D311F24F22823C23A22D24C310531052161F24E2473105315223D23922622C311122C310527F27627B27723627622722A27D27B22422A22B27422323B22527B22127E22723622A229310A22422327C23F22023A27F22B22727C27F262276314123B22022222722023D22822527622627B222229318F27C27A22A26222022522027F226227221319427F27A27B22727F23C31A222527F2283191277318D22531AD27623B22B22523A23627B314222B3164310521F22322E318423D3143315923B23623F3111315923822E23D22124E275310E23B23B23F23C2752602603135221311822A2363199311926122C319726021C22C311B23F23B23C26021D1D1722022022426123F22723F2701431E727221D22D21C22431F131CA3143312524F1E31DD311B310931323143248310521931403142310C3105312723B22731123166313B313D313F223314131C83101312A222312C314431051322022C313431CA31CC3153314F3101318622122C23B22622031D9314524F322F31CD3131315631433104310123F311B22123B3218310111312231D4310522122A237324724D3105261323224F1022322B3131313322324E315F310121018322424F1731DD23F18313B24E25F3139314722E23831233157315722D22322A325E24F324224F24E32133225311A3136324824F22C22731D724E24B310522D2263247315922D237319A327E22D2363132327531052BF270316024E24F320B2E424F2B72B031052EB2E524B31652CC31012332E8247329B327824F2AB2E924725724F24C32962B32ED24F26F24F2423101152ED247326A24A32962532F025B329B2CB32522A32E931452C732962432E5310526B310127332CA310126C31012F32E1328424F2C931012E3312F31023277310731093137326B313C313E321631CF31051B3108314332DA31063108318C323522A327824E25E316631323134313632DD32EC316B321D3225321F32E2322231113275326032553257325932F32233160327832F131012E0329A329C310124D2E124F3165325E32C9310532AD24F2C12E132BA24F32BC24F267330F326A325E2BB2E124332B42D532962632E125B33243252227329932A731012A3329F27F24F32A224F2D92E9331431011D2EC32A62B024B32962232F13105325224F2DF2E525F316525932522752E4253329B2CF315F277329F1F33333101275329F31652D631012E532D4310132D724F2E5327532913101329333623105336524F3353334224F26431052E8330B32D52AF2EC24B32C1310117335C24F2C531012772E3237329B24E24024F25232D43165337924F2D12E323B329B2CE241327F3341326A25C32D22F524B326A2DC3101211334626724F251325229B2E3227337E32B62202ED243326A2D832962472F932B324F25A335D2F9257326A25E315F2D92FD24B33992DA32D82FD253326A2DE315F2DF32AB326A25432962F92E525331012CD315F2A92E1331524D315F2872E317337E312F2B8330F316525031012132E31B338A31652A433772CD31012D9337733851F2E3273338A321321A338E24F339024F21D32D432B4338527D2E327B338A310423E33A333A532962792F533AA33AC24F2A32F525B33BB32522E533BF24F33C124F28B332833C6325225F2E326F337E328433F7316532B332961D3377335E2652E32F7321324E2B82B02BB2E32FB32132CE2B92B02CB2E32DF341D2BD2B02DF339E341D2A22B022B3422342434262E52E329334242B42B029D2E328B3424329B33CE2E7341D2BA2B0251310128D31052E0333C24132962F12E4243334E329622F329F2B724F2C2310122B2EC1F329B32A031012F132D52D333E0334632BB3252293336E332E24F29732AB333232AF33ED333B32A732962213406331B1D33A331012C83296112F0223334E32B62F12F5341424D32961533AE3101248315F2492E323F2B52B024E1124F2AA2C427732A732132872C932B424F24D32842252C53319331B2BD2E126B33532C43284342822F348D24E1324F23C2ED3499349B24F26533EA32DA2E72E321734A91424F2B82F02CF32A7326A25B2F531452CD329621D2F1349F32962CF3341316525231012D333CF34A91624F27C2F022B334E31382192F427F345D310422B34C633483484341831012C73460173457310126D2F823F345D338C2392FC330B338C24F2CD2F125F346524F2BD2F4333C32A82A32F9326A349A325227D348132BB32962973392335831012152F434512B02CF329625D3401217345732522192FC33F43427310421934C1326A2CA329628334012FF3333325226D2F933C524F2C8315F2CB2C0347D350B32B62912C4330B31052A32C526B277333332842D12C524B32AD2C331012892E32BF2B6348E27124F2B62D43494329C32132F72D93332349A3104132D534C724F2192E127B2F724F2C431042BD2E32AF354024E27333AB2D4352F31012272D527B33322CC310411354A330D31042E3354F350224F25B2D927B28F333331042712D9310525B31012E92E3287355C27624F2B42F93573357524F2452FD354B24D31042B92E328F355C353428A2C124F326A32DA34CE2F335402CE27824F29A3529347E24F2CB2C525B29F352034F62C525734E525F315F29535322C7353524F2792C9339924F248310D2572E32E7355C27A336B2E52632E724F2EE310D2112E32EB359827B359B2D535A235A421D2D52572273593315F265356435AD356734F62D526321F24F2EA310D2812E32DB359827D24F2EC35C835A32CC32522FF35CC35CE35A924F2DD35D235852DF2D813334E312F2252D92773311321335EC26323F24F2ED310D275359235943101285337C355C26024F2CA2C034D5350B3138223352E34692C735322EF35AE2D32C9352433C732D62CC22F345D313828B2D133CB315F2532C534FD247325222335923165338024F2152C132CC35253284132C8352A2CF32B629B32A234692132CD26335342CC310D2A72CD353924F353B358633D9359833992262DC354635B324F2E32A13534349A32132A52DD355028F2E127335552C43213338727B359826924F26C339534692B72DD27335663213253364D330D321328D3652356F2712A12732DF333332132132A1357931012932E3253359832D123C2C13670367236412C5364E24D321325B32D7360124F2252E325F355C26D24F2D03498330D328422B2CC35F1350B312F2C5363932A1310D29F2C921B35102DD24524F11369535F224F259369A3333310D2272C925F351025D32522732CC360A2CF31382FF2D0356124F21B2D127F361224C31042432D5362D363F34F62D833D0333D312F2372DD35B224D310D2492D13623351233DF362831012DB2CD354B24831042A92D4363232B62D92D836B91735F5353424C32132AB2D9364036422EB358D337E32AD2E62A8364932132BD2AD1B33C633482A9355029F2E1173555244312F2272E32FF337E25924F2E42A836B9152A917346D312F27136F436F624F2E736F8356F21F2AD17339924C312F2C12AD367624F2172E32D7337E33902BE2CD371732AE312F2E32D136F534F1316523F2D5359324F32DA343D2C3338A32F12582D4337D329C33802F335642A7358535CB3310338131011B2E334BD348E326A2E2373832A7338025F2D523B36A0338C152D433E6350B321325936E0346924935F536BE32132ED2DD358931042F52A032C0342732522A72A433732B0359224F2872E126333C6310D2B92D936D124F293372F36D424F1B34E124F2612E32D3310D2CE2FC2B028B3720310D24E3782342123337802E02B023F2E32F337802F82B023D2E31F310424E287329C33E531042CE2882B02A92E32773797379E368A273379C379E2512E32BB37802F12B02B13745379729F2B0348A22B379C2832B024D337C37972802B02313795379737992D72E32A737972922B02C72E32AB379C2932B0371F2AF379737CC2AB35C3379C29B2B028D2E32233424343129F342F327834312952E322B34242A32B0358C267341D2AA2B02EF2E32EF341D2BB37E5');local e=select;local D=string.byte;local a=string.char;local C=string.sub;local f=table.concat;local t=math.ldexp;local i=getfenv;local E=unpack;local e=pcall;local e=tonumber;local n=bit and bit.bxor or function(e,l)local F,n=1,0 while e>0 and l>0 do local B,D=e%2,l%2 if B~=D then n=n+F end e,l,F=(e-B)/2,(l-D)/2,F*2 end if e<l then e=l end while e>0 do local l=e%2 if l>0 then n=n+F end e,F=(e-l)/2,F*2 end return n end local function F(l,e,F)if F then local e=(l/2^(e-1))%2^((F-1)-(e-1)+1);return e-e%1;else local e=2^(e-1);return(l%(e+e)>=e)and 1 or 0;end;end;local e=1;local function l()local B,F,l,D=D(o,e,e+3);B=n(B,79)F=n(F,79)l=n(l,79)D=n(D,79)e=e+4;return(D*16777216)+(l*65536)+(F*256)+B;end;local function B()return l()*4294967296+l();end;local function B()local l=n(D(o,e,e),79);e=e+1;return l;end;local function A()local e=l();local l=l();local D=1;local n=(F(l,1,20)*(2^32))+e;local e=F(l,21,31);local l=((-1)^F(l,32));if(e==0)then if(n==0)then return l*0;else e=1;D=0;end;elseif(e==2047)then return(n==0)and(l*(1/0))or(l*(0/0));end;return t(l,e-1023)*(D+(n/(2^52)));end;local t=l;local function c(l)local F;if(not l)then l=t();if(l==0)then return;end;end;F=C(o,e,e+l-2);e=e+l-1;local l={}for e=1,#F do l[e]=a(n(D(C(F,e,e)),79))end return f(l);end;local e=l;local function f()local E={};local t={};local o={};local e={};local D={};D[1]=E;D[2]=o;D[3]=t;D[7]=e;for F=1,l()do local l=B();local e;if(l==0)then e=(B()~=0);elseif(l==3)then e=A();elseif(l==1)then e=C(c(),1,-1);end;o[F-1]=e;end;for e=1,l()do t[e-1]=f();end;D[6]=B();D[5]=B();for B=1,l()do local D=n(l(),174);local l=n(l(),1);local n=F(D,1,2);local o=F(l,1,7);local e={};e[1]=o;e[5]=l;e[2]=F(D,3,10);if(n==0)then e[3]=F(D,11,19);e[4]=F(D,20,28);elseif(n==1)then e[3]=F(l,8,25);elseif(n==2)then e[3]=F(l,8,25)-131071;end;E[B]=e;end;return D;end;local function C(...)local e={...};return#e,e end;local function a(e,c,A)local t=e[1];local B=e[2];local d=e[3];local F=e[6];return function(...)local D=1;local n=-1;local i={};local o={...};local e=#o-1;local f={};local l={};for e=0,e do if(e>=F)then i[e-F]=o[e+1];else l[e]=o[e+1];end;end;local e;local F;while true do e=t[D];F=e[1];if F<=18 then if F<=8 then if F<=3 then if F<=1 then if F==0 then D=D+e[3];elseif F==1 then local F=e[2];if F>n then n=F end;l[F]=A[B[e[3]]];end;elseif F==2 then local F=e[2];if F>n then n=F end;l[F]=l[e[3]][B[e[4]]];elseif F==3 then local F=e[2];if F>n then n=F end;l[F]=l[e[3]];end;elseif F<=5 then if F==4 then local t;local B=e[2];local o={};local F=0;local D=B+e[3]-1;for e=B+1,D do F=F+1;o[F]=l[e];end;D,t=C(l[B](E(o,1,D-B)));D=B+e[4]-2;F=0;for e=B,D do F=F+1;l[e]=t[F];end;n=D;elseif F==5 then local F=e[2];if F>n then n=F end;l[F]=B[e[3]];end;elseif F<=6 then if F==6 then for e=e[2],e[3]do l[e]=nil;end;end;elseif F==7 then return;elseif F==8 then local F=e[2];local B=e[4];local e=F+2;local n={l[F](l[F+1],l[e])};for F=1,B do l[e+F]=n[F];end;local F=l[F+3];if F then l[e]=F else D=D+1;end;end;elseif F<=13 then if F<=10 then if F==9 then local o;local D=e[2];local B={};local F=0;local e=D+e[3]-1;for e=D+1,e do F=F+1;B[F]=l[e];end;e,o=C(l[D](E(B,1,e-D)));e=e+D-1;F=0;for e=D,e do F=F+1;l[e]=o[F];end;n=e;elseif F==10 then if(l[e[3]]==B[e[4]])then D=D+1;end;end;elseif F<=11 then if F==11 then if(B[e[3]]<l[e[4]])then D=D+1;end;end;elseif F==12 then local F=e[2];local D=l[e[3]];l[F+1]=D;l[F]=D[B[e[4]]];if F+1>n then n=F+1 end;elseif F==13 then local F=e[2];local D,B=C(l[F]());D=F+e[4]-2;local e=0;for F=F,D do e=e+1;l[F]=B[e];end;n=D;end;elseif F<=15 then if F==14 then local o;local e=e[2];local B={};local D=0;local F=n;for e=e+1,F do D=D+1;B[D]=l[e];end;F,o=C(l[e](E(B,1,F-e)));n=e-1;elseif F==15 then local n=d[e[3]];local B;if n[5]~=0 then local e={};B=setmetatable({},{__index=function(F,l)local e=e[l];return e[1][e[2]];end,__newindex=function(n,F,l)local e=e[F]e[1][e[2]]=l;end;});for n=1,n[5]do D=D+1;local F=t[D];if F[1]==3 then e[n-1]={l,F[3]};elseif F[1]==25 then e[n-1]={c,F[3]};end;f[#f+1]=e;end;end;l[e[2]]=a(n,B,A);end;elseif F<=16 then if F==16 then local F=e[2];if F>n then n=F end;l[F]=l[e[3]]/B[e[4]];end;elseif F==17 then local F=e[2];if F>n then n=F end;l[F]=l[e[3]][l[e[4]]];elseif F==18 then local F=e[2];if F>n then n=F end;l[F]=l[e[3]]%B[e[4]];end;elseif F<=27 then if F<=22 then if F<=20 then if F==19 then l[e[2]][B[e[3]]]=l[e[4]];elseif F==20 then local F=e[2];if F>n then n=F end;l[F]=l[e[3]]-l[e[4]];end;elseif F==21 then if l[e[2]]then D=D+1;end;elseif F==22 then local F=e[2];if F>n then n=F end;l[F]=l[e[3]]+l[e[4]];end;elseif F<=24 then if F==23 then local o;local F=e[2];local B={};local D=0;local e=F+e[3]-1;for e=F+1,e do D=D+1;B[D]=l[e];end;e,o=C(l[F](E(B,1,e-F)));n=F-1;elseif F==24 then local e=e[2];local l,l=C(l[e]());n=e-1;end;elseif F<=25 then if F==25 then local F=e[2];if F>n then n=F end;l[F]=c[e[3]];end;elseif F==26 then local F=e[2];if F>n then n=F end;l[F]=l[e[3]]*B[e[4]];elseif F==27 then l[e[2]][B[e[3]]]=B[e[4]];end;elseif F<=32 then if F<=29 then if F==28 then if not l[e[2]]then D=D+1;end;elseif F==29 then local F=e[2];if F>n then n=F end;l[F]=(e[3]~=0);end;elseif F<=30 then if F==30 then if(l[e[3]]<l[e[4]])then D=D+1;end;end;elseif F==31 then if(l[e[3]]~=l[e[4]])then D=D+1;end;elseif F==32 then if(l[e[3]]~=B[e[4]])then D=D+1;end;end;elseif F<=34 then if F==33 then local F=e[2];local D=F+e[3]-2;local n={};local e=0;for F=F,D do e=e+1;n[e]=l[F];end;return E(n,1,e);elseif F==34 then local D=e[2];local n=n;local F={};local e=0;for n=D,n do e=e+1;F[e]=l[n];end;return E(F,1,e);end;elseif F<=35 then if F==35 then l[e[2]][l[e[3]]]=l[e[4]];end;elseif F==36 then l[e[2]][l[e[3]]]=B[e[4]];elseif F==37 then local e=e[2];o={};local F=n;for e=e+1,F do o[#o+1]=l[e];end;return l[e](E(o,1,F-e));end;D=D+1;end;end;end;return a(f(),{},i())();
- end)
Add Comment
Please, Sign In to add comment