tomoneko

Untitled

May 17th, 2024 (edited)
92
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.58 KB | None | 0 0
  1. local v0=tonumber;local v1=string.byte;local v2=string.char;local v3=string.sub;local v4=string.gsub;local v5=string.rep;local v6=table.concat;local v7=table.insert;local v8=math.ldexp;local v9=getfenv or function() return _ENV;end ;local v10=setmetatable;local v11=pcall;local v12=select;local v13=unpack or table.unpack ;local v14=tonumber;local function v15(v16,v17,...) local v18=0;local v19;local v20;local v21;local v22;local v23;local v24;local v25;local v26;local v27;local v28;local v29;local v30;while true do if (v18==5) then v27=v24;v28=nil;function v28(...) return {...},v12("#",...);end v18=6;end if (v18==1) then v21=nil;function v21(v31,v32,v33) if v33 then local v69=(v31/((5 -3)^(v32-(928 -((931 -717) + 713)))))%((1 + 1)^(((v33-(2 -1)) -(v32-(1 -0))) + (2 -1))) ;return v69-(v69%(620 -(555 + 64))) ;else local v70=1637 -((1640 -(32 + 85)) + 114) ;local v71;while true do if (v70==(931 -(840 + 17 + 74))) then v71=(1 + 1 + 0)^(v32-((958 -(892 + 65)) -(0 -0))) ;return (((v31%(v71 + v71))>=v71) and (1066 -(68 + (1842 -845)))) or (1270 -(226 + 1044)) ;end end end end v22=nil;v18=2;end if (v18==3) then v24=nil;function v24() local v34,v35,v36,v37=v1(v16,v19,v19 + (4 -1) );v19=v19 + (354 -(87 + 263)) ;return (v37 * ((12338973 + 4438423) -((266 -199) + 113))) + (v36 * (48056 + 17480)) + (v35 * ((1580 -(802 + 150)) -(1001 -629))) + v34 ;end v25=nil;v18=4;end if (v18==6) then v29=nil;function v29() local v38=0;local v39;local v40;local v41;local v42;local v43;local v44;local v45;while true do if ((2 -0)==v38) then v43=nil;v44=nil;v38=8 -5 ;end if (v38==3) then v45=nil;while true do local v77=0;while true do if (v77==(1 + 0)) then if (v39~=(6 -3)) then else local v102=0;while true do if (v102~=0) then else for v138=1,v24() do v41[v138-1 ]=v29();end return v43;end end end if (v39==(14 -(9 + 5))) then v40={};v41={};v42={};v39=1;end break;end if (v77~=0) then else if (v39==(378 -(85 + 291))) then for v106=1266 -(243 + 1022) ,v44 do local v107=0 -0 ;local v108;local v109;local v110;while true do if (0==v107) then v108=0;v109=nil;v107=1;end if (v107~=(1 + 0)) then else v110=nil;while true do if (1~=v108) then else if (v109==1) then v110=v22()~=(1180 -(1123 + 57)) ;elseif (v109==(2 + 0)) then v110=v25();elseif (v109==3) then v110=v26();end v45[v106]=v110;break;end if (v108==(254 -(163 + 91))) then v109=v22();v110=nil;v108=1;end end break;end end end v43[1933 -(1869 + 61) ]=v22();for v111=1 + 0 ,v24() do local v112=0;local v113;local v114;while true do if ((3 -2)==v112) then while true do if ((0 -0)~=v113) then else v114=v22();if (v21(v114,1 + 0 ,1 -0 )==(0 + 0)) then local v165=0;local v166;local v167;local v168;local v169;while true do if (v165==0) then local v172=1474 -(1329 + 145) ;while true do if (v172==0) then v166=971 -(140 + 831) ;v167=nil;v172=1851 -(1409 + 441) ;end if (v172==1) then v165=1;break;end end end if (v165~=(719 -(15 + 703))) then else local v173=0;while true do if (v173==(0 + 0)) then v168=nil;v169=nil;v173=1;end if (v173==(439 -(262 + 176))) then v165=1723 -(345 + 1376) ;break;end end end if (v165==(690 -(198 + 490))) then while true do if ((0 -0)~=v166) then else local v174=0;while true do if (v174==0) then v167=v21(v114,4 -2 ,3);v168=v21(v114,1210 -(696 + 510) ,6);v174=1 -0 ;end if (v174==1) then v166=1;break;end end end if ((1264 -(1091 + 171))==v166) then local v175=0 + 0 ;local v176;while true do if (v175~=0) then else v176=0 -0 ;while true do if (v176==0) then local v183=0;while true do if (v183==(0 -0)) then if (v21(v168,375 -(123 + 251) ,4 -3 )~=(699 -(208 + 490))) then else v169[1 + 1 ]=v45[v169[2]];end if (v21(v168,2,1 + 1 )~=(837 -(660 + 176))) then else v169[3]=v45[v169[1 + 2 ]];end v183=1;end if ((203 -(14 + 188))==v183) then v176=1;break;end end end if (v176~=1) then else v166=678 -(534 + 141) ;break;end end break;end end end if (v166==3) then if (v21(v168,3,2 + 1 )==(1 + 0)) then v169[4]=v45[v169[4]];end v40[v111]=v169;break;end if (v166==1) then local v178=0;while true do if ((1 + 0)==v178) then v166=3 -1 ;break;end if (v178==(0 -0)) then local v181=0;local v182;while true do if (v181~=0) then else v182=0;while true do if (v182==0) then v169={v23(),v23(),nil,nil};if (v167==(396 -(115 + 281))) then local v188=0;local v189;while true do if (v188~=0) then else v189=0 -0 ;while true do if (v189==(0 + 0)) then v169[7 -4 ]=v23();v169[14 -10 ]=v23();break;end end break;end end elseif (v167==(868 -(550 + 317))) then v169[3 -0 ]=v24();elseif (v167==(2 -0)) then v169[8 -5 ]=v24() -(2^(301 -(134 + 151))) ;elseif (v167==(1668 -(970 + 695))) then local v194=0;while true do if (v194~=(0 -0)) then else v169[1993 -(582 + 1408) ]=v24() -(2^(55 -39)) ;v169[4]=v23();break;end end end v182=1 -0 ;end if (v182==1) then v178=1;break;end end break;end end end end end end break;end end end break;end end break;end if (v112~=(0 -0)) then else v113=1824 -(1195 + 629) ;v114=nil;v112=1 -0 ;end end end v39=244 -(187 + 54) ;end if (v39==1) then local v104=0;local v105;while true do if (v104==0) then v105=0;while true do if ((780 -(162 + 618))==v105) then local v159=0 + 0 ;while true do if (v159~=1) then else v105=1 + 0 ;break;end if (0==v159) then v43={v40,v41,nil,v42};v44=v24();v159=1637 -(1373 + 263) ;end end end if (v105~=(1001 -(451 + 549))) then else v45={};v39=1 + 1 ;break;end end break;end end end v77=1 -0 ;end end end break;end if (v38==0) then v39=0;v40=nil;v38=1;end if (v38~=1) then else v41=nil;v42=nil;v38=2;end end end v30=nil;v18=7;end if (v18==4) then function v25() local v46=v24();local v47=v24();local v48=1 -0 ;local v49=(v21(v47,(80 + 1305) -(746 + 638) ,20) * ((1 + 1)^(47 -(1039 -(706 + 318))))) + v46 ;local v50=v21(v47,362 -(218 + 123) ,1612 -(1535 + 46) );local v51=((v21(v47,32 + 0 )==(1 + 0)) and -((1812 -(721 + 530)) -(306 + 254))) or 1 ;if (v50==(1271 -(945 + 326))) then if (v49==(0 + 0)) then return v51 * (0 -(0 -0)) ;else local v78=1467 -(899 + 568) ;while true do if (v78==(0 + 0 + 0)) then v50=2 -1 ;v48=603 -(268 + 335) ;break;end end end elseif (v50==(2337 -(60 + 230))) then return ((v49==(572 -(426 + 146))) and (v51 * ((1 + 0)/(1456 -(282 + 1174))))) or (v51 * NaN) ;end return v8(v51,v50-(1723 -(271 + 429)) ) * (v48 + (v49/((813 -(569 + 242))^(149 -97)))) ;end v26=nil;function v26(v52) local v53;if not v52 then v52=v24();if (v52==(0 + 0)) then return "";end end v53=v3(v16,v19,(v19 + v52) -1 );v19=v19 + v52 ;local v54={};for v67=1501 -(1408 + 92) , #v53 do v54[v67]=v2(v1(v3(v53,v67,v67)));end return v6(v54);end v18=5;end if (v18==2) then function v22() local v55=v1(v16,v19,v19);v19=v19 + 1 ;return v55;end v23=nil;function v23() local v56=1086 -(135 + 326 + 625) ;local v57;local v58;while true do if (v56==((326 + 963) -(993 + 295))) then return (v58 * 256) + v57 ;end if ((0 + 0)==v56) then v57,v58=v1(v16,v19,v19 + (1173 -(418 + 753)) );v19=v19 + 1 + 1 ;v56=1 + 0 ;end end end v18=3;end if (v18==0) then v19=1;v20=nil;v16=v4(v3(v16,5),"..",function(v59) if (v1(v59,2)==79) then local v72=0;while true do if (v72==0) then v20=v0(v3(v59,1,1));return "";end end else local v73=v2(v0(v59,16));if v20 then local v79=0;local v80;while true do if (v79==1) then return v80;end if (v79==0) then v80=v5(v73,v20);v20=nil;v79=1;end end else return v73;end end end);v18=1;end if (v18==7) then function v30(v60,v61,v62) local v63=0;local v64;local v65;local v66;while true do if (v63==0) then v64=v60[1];v65=v60[2];v63=1;end if (v63==1) then v66=v60[3];return function(...) local v81=v64;local v82=v65;local v83=v66;local v84=v28;local v85=1;local v86= -1;local v87={};local v88={...};local v89=v12("#",...) -1 ;local v90={};local v91={};for v95=0,v89 do if (v95>=v83) then v87[v95-v83 ]=v88[v95 + 1 ];else v91[v95]=v88[v95 + 1 ];end end local v92=(v89-v83) + 1 ;local v93;local v94;while true do v93=v81[v85];v94=v93[1];if (v94<=3) then if (v94<=1) then if (v94==0) then local v115=0;local v116;local v117;local v118;local v119;local v120;while true do if (v115==5) then v91[v93[2]]();v85=v85 + 1 ;v93=v81[v85];do return;end break;end if (v115==3) then v93=v81[v85];v120=v93[2];v117,v118=v84(v91[v120](v13(v91,v120 + 1 ,v93[3])));v86=(v118 + v120) -1 ;v116=0;for v160=v120,v86 do local v161=0;while true do if (v161==0) then v116=v116 + 1 ;v91[v160]=v117[v116];break;end end end v115=4;end if (v115==0) then v116=nil;v117,v118=nil;v119=nil;v120=nil;v91[v93[2]]=v62[v93[3]];v85=v85 + 1 ;v115=1;end if (v115==1) then v93=v81[v85];v91[v93[2]]=v62[v93[3]];v85=v85 + 1 ;v93=v81[v85];v120=v93[2];v119=v91[v93[3]];v115=2;end if (v115==2) then v91[v120 + 1 ]=v119;v91[v120]=v119[v93[4]];v85=v85 + 1 ;v93=v81[v85];v91[v93[2]]=v93[3];v85=v85 + 1 ;v115=3;end if (v115==4) then v85=v85 + 1 ;v93=v81[v85];v120=v93[2];v91[v120]=v91[v120](v13(v91,v120 + 1 ,v86));v85=v85 + 1 ;v93=v81[v85];v115=5;end end else v91[v93[2]]=v93[3];end elseif (v94==2) then local v123=v93[2];local v124,v125=v84(v91[v123](v13(v91,v123 + 1 ,v93[3])));v86=(v125 + v123) -1 ;local v126=0;for v136=v123,v86 do local v137=0;while true do if (v137==0) then v126=v126 + 1 ;v91[v136]=v124[v126];break;end end end else v91[v93[2]]=v62[v93[3]];end elseif (v94<=5) then if (v94>4) then local v129=v93[2];local v130=v91[v93[3]];v91[v129 + 1 ]=v130;v91[v129]=v130[v93[4]];else local v134=v93[2];v91[v134]=v91[v134](v13(v91,v134 + 1 ,v86));end elseif (v94==6) then do return;end else v91[v93[2]]();end v85=v85 + 1 ;end end;end end end return v30(v29(),{},v17)(...);end end end return v15("LOL!043O00030A3O006C6F6164737472696E6703043O0067616D6503073O00482O747047657403793O00682O7470733A2O2F7261772E67697468756275736572636F6E74656E742E636F6D2F746F6D6F6E656B6F4O322F627970612O737072656D69756D2F6D61696E2F7363726970743F746F6B656E3D4748534154306O41432O5137413645344E4550414D574D4550534D4A344C415A532O4858334100083O00124O00013O00122O000100023O00202O00010001000300122O000300046O000100039O0000026O000100016O00017O00",v9(),...);
Advertisement
Add Comment
Please, Sign In to add comment