Advertisement
LocalDuds

Untitled

Sep 14th, 2019
133
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 13.70 KB | None | 0 0
  1. local a='\27\76\117\97\81\0\1\4\4\4\8\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\2\70\131\0\0\0\5\0\0\0\6\64\64\0\69\128\0\0\133\192\0\0\197\0\1\0\3\1\0\2\69\65\1\0\133\129\1\0\194\1\128\0\5\194\1\0\69\2\2\0\130\2\0\0\197\66\2\0\5\131\2\0\69\195\2\0\133\3\3\0\197\67\3\0\5\132\3\0\69\196\3\0\133\4\4\0\202\4\128\18\1\133\4\0\65\197\4\0\129\5\5\0\193\69\5\0\1\134\5\0\65\198\5\0\129\6\6\0\193\70\6\0\1\135\6\0\65\199\6\0\129\7\7\0\193\71\7\0\1\136\7\0\65\200\7\0\129\8\8\0\193\72\8\0\1\137\8\0\65\201\8\0\129\9\9\0\193\73\9\0\1\138\9\0\65\202\9\0\129\10\10\0\193\74\10\0\1\139\10\0\65\203\10\0\129\11\11\0\193\75\11\0\1\140\11\0\65\204\11\0\129\12\12\0\193\76\12\0\1\141\12\0\65\205\12\0\129\13\13\0\193\77\13\0\1\142\13\0\65\206\13\0\129\14\14\0\193\78\14\0\1\143\14\0\65\207\14\0\129\15\15\0\193\79\15\0\1\144\15\0\65\208\15\0\129\16\16\0\193\80\16\0\1\145\16\0\65\209\16\0\226\68\0\25\1\5\17\0\65\69\17\0\129\133\17\0\193\197\17\0\1\6\18\0\65\70\18\0\129\134\18\0\193\198\18\0\1\7\19\0\65\71\19\0\129\135\19\0\193\199\19\0\1\8\20\0\65\72\20\0\129\136\20\0\193\200\20\0\1\9\21\0\65\73\21\0\129\137\21\0\193\201\21\0\1\10\22\0\65\74\22\0\129\138\22\0\193\202\22\0\1\11\23\0\65\75\23\0\129\139\23\0\193\203\23\0\1\12\24\0\65\76\24\0\129\140\24\0\193\204\24\0\1\13\25\0\65\77\25\0\129\141\25\0\193\205\25\0\1\14\26\0\65\78\26\0\129\142\26\0\193\206\26\0\1\15\27\0\65\79\27\0\129\143\27\0\193\207\27\0\1\16\28\0\65\16\24\0\129\80\28\0\226\132\128\23\199\68\4\0\228\4\0\0\0\0\0\4\0\0\128\7\199\132\28\0\192\4\128\1\5\133\28\0\65\197\28\0\28\5\0\1\220\68\0\0\30\0\128\0\116\0\0\0\4\7\0\0\0\115\116\114\105\110\103\0\4\5\0\0\0\99\104\97\114\0\4\8\0\0\0\103\101\116\103\101\110\118\0\4\3\0\0\0\95\71\0\4\6\0\0\0\112\114\105\110\116\0\4\8\0\0\0\103\101\116\115\101\110\118\0\4\8\0\0\0\103\101\116\102\101\110\118\0\4\6\0\0\0\112\97\105\114\115\0\4\5\0\0\0\110\101\120\116\0\4\11\0\0\0\108\111\97\100\115\116\114\105\110\103\0\4\14\0\0\0\112\114\105\110\116\105\100\101\110\116\105\116\121\0\4\4\0\0\0\98\105\116\0\4\6\0\0\0\100\101\98\117\103\0\4\9\0\0\0\116\111\115\116\114\105\110\103\0\4\16\0\0\0\103\101\116\114\97\119\109\101\116\97\116\97\98\108\101\0\4\13\0\0\0\103\101\116\109\101\116\97\116\97\98\108\101\0\4\8\0\0\0\103\101\116\114\101\110\118\0\4\11\0\0\0\99\104\97\114\97\99\116\101\114\115\0\4\2\0\0\0\65\0\4\2\0\0\0\66\0\4\2\0\0\0\67\0\4\2\0\0\0\68\0\4\2\0\0\0\69\0\4\2\0\0\0\70\0\4\2\0\0\0\71\0\4\2\0\0\0\72\0\4\2\0\0\0\73\0\4\2\0\0\0\74\0\4\2\0\0\0\75\0\4\2\0\0\0\76\0\4\2\0\0\0\77\0\4\2\0\0\0\78\0\4\2\0\0\0\79\0\4\2\0\0\0\80\0\4\2\0\0\0\81\0\4\2\0\0\0\82\0\4\2\0\0\0\83\0\4\2\0\0\0\84\0\4\2\0\0\0\85\0\4\2\0\0\0\86\0\4\2\0\0\0\87\0\4\2\0\0\0\88\0\4\2\0\0\0\89\0\4\2\0\0\0\90\0\4\2\0\0\0\97\0\4\2\0\0\0\98\0\4\2\0\0\0\99\0\4\2\0\0\0\100\0\4\2\0\0\0\101\0\4\2\0\0\0\102\0\4\2\0\0\0\103\0\4\2\0\0\0\104\0\4\2\0\0\0\105\0\4\2\0\0\0\106\0\4\2\0\0\0\107\0\4\2\0\0\0\108\0\4\2\0\0\0\109\0\4\2\0\0\0\110\0\4\2\0\0\0\111\0\4\2\0\0\0\112\0\4\2\0\0\0\113\0\4\2\0\0\0\114\0\4\2\0\0\0\115\0\4\2\0\0\0\116\0\4\2\0\0\0\117\0\4\2\0\0\0\118\0\4\2\0\0\0\119\0\4\2\0\0\0\120\0\4\2\0\0\0\121\0\4\2\0\0\0\122\0\4\2\0\0\0\49\0\4\2\0\0\0\50\0\4\2\0\0\0\51\0\4\2\0\0\0\52\0\4\2\0\0\0\53\0\4\2\0\0\0\54\0\4\2\0\0\0\55\0\4\2\0\0\0\56\0\4\2\0\0\0\57\0\4\2\0\0\0\48\0\4\2\0\0\0\96\0\4\2\0\0\0\126\0\4\2\0\0\0\33\0\4\2\0\0\0\64\0\4\2\0\0\0\35\0\4\2\0\0\0\36\0\4\2\0\0\0\37\0\4\2\0\0\0\94\0\4\2\0\0\0\38\0\4\2\0\0\0\42\0\4\2\0\0\0\40\0\4\2\0\0\0\41\0\4\2\0\0\0\45\0\4\2\0\0\0\61\0\4\2\0\0\0\95\0\4\2\0\0\0\43\0\4\2\0\0\0\32\0\4\2\0\0\0\91\0\4\2\0\0\0\123\0\4\2\0\0\0\93\0\4\2\0\0\0\125\0\4\2\0\0\0\92\0\4\2\0\0\0\124\0\4\2\0\0\0\39\0\4\2\0\0\0\34\0\4\2\0\0\0\59\0\4\2\0\0\0\58\0\4\2\0\0\0\44\0\4\2\0\0\0\60\0\4\2\0\0\0\46\0\4\2\0\0\0\62\0\4\2\0\0\0\47\0\4\2\0\0\0\63\0\4\2\0\0\0\10\0\4\116\0\0\0\65\66\66\65\120\66\65\120\65\65\66\65\66\66\65\120\66\66\120\65\66\66\65\66\66\65\65\65\66\65\66\120\65\120\65\120\65\65\120\66\66\65\65\65\65\65\65\65\66\65\66\120\120\65\66\66\66\66\65\66\66\120\66\120\120\120\65\66\120\66\65\65\66\66\65\66\66\65\66\66\65\65\65\65\66\65\66\65\66\66\120\65\66\120\65\65\65\66\66\65\49\73\108\73\49\73\108\73\49\49\73\108\73\49\73\0\4\79\0\0\0\55\47\51\54\52\47\51\50\50\47\51\50\57\47\50\57\52\47\53\53\51\47\54\55\50\47\50\52\53\47\51\49\53\47\53\53\51\47\54\55\50\47\49\57\54\47\50\52\53\47\50\51\49\47\53\53\51\47\54\55\50\47\50\51\56\47\50\56\55\47\50\55\51\47\50\56\55\47\0\1\0\0\0\0\0\0\0\1\0\0\0\1\0\0\0\2\1\0\18\46\0\0\0\65\0\0\0\138\0\0\0\197\64\0\0\198\128\192\1\0\1\0\0\65\193\0\0\220\0\129\1\22\0\1\128\197\1\1\0\198\65\193\3\0\2\0\1\64\2\0\3\220\65\128\1\225\64\0\0\22\0\254\127\193\128\1\0\4\1\0\0\64\1\0\1\28\1\1\1\22\64\5\128\69\194\1\0\143\66\0\4\92\130\0\1\133\66\0\0\134\130\64\5\196\2\128\0\0\3\128\4\220\130\0\1\1\3\2\0\156\2\129\1\22\0\2\128\87\64\194\6\22\128\1\128\128\3\128\1\197\131\2\0\5\196\1\0\64\4\128\6\28\132\0\1\198\3\132\7\213\192\3\7\161\66\0\0\22\0\253\127\33\129\0\0\22\192\249\127\222\0\0\1\30\0\128\0\11\0\0\0\3\0\0\0\0\0\0\28\64\4\7\0\0\0\115\116\114\105\110\103\0\4\7\0\0\0\103\109\97\116\99\104\0\4\8\0\0\0\40\91\94\47\93\43\41\0\4\6\0\0\0\116\97\98\108\101\0\4\7\0\0\0\105\110\115\101\114\116\0\4\1\0\0\0\0\4\9\0\0\0\116\111\110\117\109\98\101\114\0\4\7\0\0\0\91\94\37\46\93\43\0\4\2\0\0\0\48\0\4\11\0\0\0\99\104\97\114\97\99\116\101\114\115\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 b;local c;local d;local e={"ABC","ABx","ABC","ABC","ABC","ABx","ABC","ABx","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","AsBx","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","AsBx","AsBx","ABC","ABC","ABC","ABx","ABC"}local f={"MOVE","LOADK","LOADBOOL","LOADNIL","GETUPVAL","GETGLOBAL","GETTABLE","SETGLOBAL","SETUPVAL","SETTABLE","NEWTABLE","SELF","ADD","SUB","MUL","DIV","MOD","POW","UNM","NOT","LEN","CONCAT","JMP","EQ","LT","LE","TEST","TESTSET","CALL","TAILCALL","RETURN","FORLOOP","FORPREP","TFORLOOP","SETLIST","CLOSE","CLOSURE","VARARG"}local function f(g,h,i)if i then local j=0;local k=0;for l=h,i do j=j+2^k*f(g,l)k=k+1 end;return j else local m=2^(h-1)return g%(m+m)>=m and 1 or 0 end end;local function n(o)local p=1;local q=false;local r;local s;local t,u;local v,w,x,y,z;do function v()local A=o:byte(p,p)p=p+1;return A end;function w()local A,B,C,D=o:byte(p,p+3)p=p+4;return D*16777216+C*65536+B*256+A end;function x()local A=w()local B=w()return B*4294967296+A end;function y()local A=w()local B=w()return(-2*f(B,32)+1)*2^(f(B,21,31)-1023)*((f(B,1,20)*2^32+A)/2^52+1)end;function z(E)local F;if E then F=o:sub(p,p+E-1)p=p+E else E=u()if E==0 then return end;F=o:sub(p,p+E-1)p=p+E end;return F end end;local function G()local H;local I={}local J={}local K={}local L={lines={}}H={instructions=I,constants=J,prototypes=K,debug=L}local M;H.name=z()H.first_line=t()H.last_line=t()if H.name then H.name=H.name:sub(1,-2)end;H.upvalues=v()H.arguments=v()H.varg=v()H.stack=v()do M=t()for l=1,M do local N={}local O=w()local P=f(O,1,6)local type=e[P+1]N.opcode=P;N.type=type;N.A=f(O,7,14)if type=="ABC"then N.B=f(O,24,32)N.C=f(O,15,23)elseif type=="ABx"then N.Bx=f(O,15,32)elseif type=="AsBx"then N.sBx=f(O,15,32)-131071 end;I[l]=N end end;do M=t()for l=1,M do local Q={}local type=v()Q.type=type;if type==1 then Q.data=v()~=0 elseif type==3 then Q.data=y()elseif type==4 then Q.data=z():sub(1,-2)end;J[l-1]=Q end end;do M=t()for l=1,M do K[l-1]=G()end end;do local O=L.lines;M=t()for l=1,M do O[l]=w()end;M=t()for l=1,M do z():sub(1,-2)w()w()end;M=t()for l=1,M do z()end end;return H end;do assert(z(4)=="\27Lua","Lua bytecode expected.")assert(v()==0x51,"Only Lua 5.1 is supported.")v()q=v()==0;r=v()s=v()if r==4 then t=w elseif r==8 then t=x else error("Unsupported bytecode target platform")end;if s==4 then u=w elseif s==8 then u=x else error("Unsupported bytecode target platform")end;assert(z(3)=="\4\8\0","Unsupported bytecode target platform")end;return G()end;local function R(...)local C=select("#",...)local S={...}return C,S end;local function T(U,V)local I=U.instructions;local J=U.constants;local K=U.prototypes;local W,X;local Y;local Z=1;local _,a0;local a1={[0]=function(N)W[N.A]=W[N.B]end,[1]=function(N)W[N.A]=J[N.Bx].data end,[2]=function(N)W[N.A]=N.B~=0;if N.C~=0 then Z=Z+1 end end,[3]=function(N)local W=W;for l=N.A,N.B do W[l]=nil end end,[4]=function(N)W[N.A]=V[N.B]end,[5]=function(N)local a2=J[N.Bx].data;W[N.A]=Y[a2]end,[6]=function(N)local a3=N.C;local W=W;a3=a3>255 and J[a3-256].data or W[a3]W[N.A]=W[N.B][a3]end,[7]=function(N)local a2=J[N.Bx].data;Y[a2]=W[N.A]end,[8]=function(N)V[N.B]=W[N.A]end,[9]=function(N)local a4=N.B;local a3=N.C;local W,J=W,J;a4=a4>255 and J[a4-256].data or W[a4]a3=a3>255 and J[a3-256].data or W[a3]W[N.A][a4]=a3 end,[10]=function(N)W[N.A]={}end,[11]=function(N)local a5=N.A;local a4=N.B;local a3=N.C;local W=W;a4=W[a4]a3=a3>255 and J[a3-256].data or W[a3]W[a5+1]=a4;W[a5]=a4[a3]end,[12]=function(N)local a4=N.B;local a3=N.C;local W,J=W,J;a4=a4>255 and J[a4-256].data or W[a4]a3=a3>255 and J[a3-256].data or W[a3]W[N.A]=a4+a3 end,[13]=function(N)local a4=N.B;local a3=N.C;local W,J=W,J;a4=a4>255 and J[a4-256].data or W[a4]a3=a3>255 and J[a3-256].data or W[a3]W[N.A]=a4-a3 end,[14]=function(N)local a4=N.B;local a3=N.C;local W,J=W,J;a4=a4>255 and J[a4-256].data or W[a4]a3=a3>255 and J[a3-256].data or W[a3]W[N.A]=a4*a3 end,[15]=function(N)local a4=N.B;local a3=N.C;local W,J=W,J;a4=a4>255 and J[a4-256].data or W[a4]a3=a3>255 and J[a3-256].data or W[a3]W[N.A]=a4/a3 end,[16]=function(N)local a4=N.B;local a3=N.C;local W,J=W,J;a4=a4>255 and J[a4-256].data or W[a4]a3=a3>255 and J[a3-256].data or W[a3]W[N.A]=a4%a3 end,[17]=function(N)local a4=N.B;local a3=N.C;local W,J=W,J;a4=a4>255 and J[a4-256].data or W[a4]a3=a3>255 and J[a3-256].data or W[a3]W[N.A]=a4^a3 end,[18]=function(N)W[N.A]=-W[N.B]end,[19]=function(N)W[N.A]=not W[N.B]end,[20]=function(N)W[N.A]=#W[N.B]end,[21]=function(N)local a4=N.B;local a6=W[a4]for l=a4+1,N.C do a6=a6 ..W[l]end;W[N.A]=a6 end,[22]=function(N)Z=Z+N.sBx end,[23]=function(N)local a5=N.A;local a4=N.B;local a3=N.C;local W,J=W,J;a5=a5~=0;a4=a4>255 and J[a4-256].data or W[a4]a3=a3>255 and J[a3-256].data or W[a3]if a4==a3~=a5 then Z=Z+1 end end,[24]=function(N)local a5=N.A;local a4=N.B;local a3=N.C;local W,J=W,J;a5=a5~=0;a4=a4>255 and J[a4-256].data or W[a4]a3=a3>255 and J[a3-256].data or W[a3]if a4<a3~=a5 then Z=Z+1 end end,[25]=function(N)local a5=N.A;local a4=N.B;local a3=N.C;local W,J=W,J;a5=a5~=0;a4=a4>255 and J[a4-256].data or W[a4]a3=a3>255 and J[a3-256].data or W[a3]if a4<=a3~=a5 then Z=Z+1 end end,[26]=function(N)if not not W[N.A]==(N.C==0)then Z=Z+1 end end,[27]=function(N)local W=W;local a4=W[N.B]if not not a4==(N.C==0)then Z=Z+1 else W[N.A]=a4 end end,[28]=function(N)local a5=N.A;local a4=N.B;local a3=N.C;local W=W;local a7,a8;local a9,aa;a7={}if a4~=1 then if a4~=0 then a9=a5+a4-1 else a9=X end;aa=0;for l=a5+1,a9 do aa=aa+1;a7[aa]=W[l]end;a9,a8=R(W[a5](unpack(a7,1,a9-a5)))else a9,a8=R(W[a5]())end;X=a5-1;if a3~=1 then if a3~=0 then a9=a5+a3-2 else a9=a9+a5 end;aa=0;for l=a5,a9 do aa=aa+1;W[l]=a8[aa]end end end,[29]=function(N)local a5=N.A;local a4=N.B;local a3=N.C;local W=W;local a7,a8;local X,a9,aa=X;a7={}if a4~=1 then if a4~=0 then a9=a5+a4-1 else a9=X end;aa=0;for l=a5+1,a9 do aa=aa+1;a7[#a7+1]=W[l]end;a8={W[a5](unpack(a7,1,a9-a5))}else a8={W[a5]()}end;return true,a8 end,[30]=function(N)local a5=N.A;local a4=N.B;local W=W;local a9;local aa,ab;if a4==1 then return true end;if a4==0 then a9=X else a9=a5+a4-2 end;ab={}local aa=0;for l=a5,a9 do aa=aa+1;ab[aa]=W[l]end;return true,ab end,[31]=function(N)local a5=N.A;local W=W;local ac=W[a5+2]local p=W[a5]+ac;W[a5]=p;if ac>0 then if p<=W[a5+1]then Z=Z+N.sBx;W[a5+3]=p end else if p>=W[a5+1]then Z=Z+N.sBx;W[a5+3]=p end end end,[32]=function(N)local a5=N.A;local W=W;W[a5]=W[a5]-W[a5+2]Z=Z+N.sBx end,[33]=function(N)local a5=N.A;local a4=N.B;local a3=N.C;local W=W;local ad=a5+2;local a6={W[a5](W[a5+1],W[a5+2])}for l=1,a3 do W[ad+l]=a6[l]end;if W[a5+3]~=nil then W[a5+2]=W[a5+3]else Z=Z+1 end end,[34]=function(N)local a5=N.A;local a4=N.B;local a3=N.C;local W=W;if a3==0 then error("NYI: extended SETLIST")else local ad=(a3-1)*50;local S=W[a5]if a4==0 then a4=X end;for l=1,a4 do S[ad+l]=W[a5+l]end end end,[35]=function(N)end,[36]=function(N)local ae=K[N.Bx]local I=I;local W=W;local af={}local ag=setmetatable({},{__index=function(S,ah)local ai=af[ah]return ai.segment[ai.offset]end,__newindex=function(S,ah,aj)local ai=af[ah]ai.segment[ai.offset]=aj end})for l=1,ae.upvalues do local ak=I[Z]if ak.opcode==0 then af[l-1]={segment=W,offset=ak.B}elseif I[Z].opcode==4 then af[l-1]={segment=V,offset=ak.B}end;Z=Z+1 end;local al,am=T(ae,ag)W[N.A]=am end,[37]=function(N)local a5=N.A;local a4=N.B;local W,_=W,_;for l=a5,a5+(a4>0 and a4-1 or a0)do W[l]=_[l-a5]end end}local function an(B)local ao=U.name;local ap=U.debug.lines[Z]local aq=B:match("^.+:(.+)")or B;local ab="Error: "if ao then ab=ao end;if ap then ab=ab.." - Line: "..ap end;if B and type(B)=="string"then ab=ab.." - Error: "..aq end;if d then d(tostring(ap)..":"..tostring(aq))else error(tostring(ap)..":"..tostring(aq),3)end end;local function aa()local I=I;local N,A,B,ar;while true do N=I[Z]Z=Z+1;ar,A,B=pcall(function()return a1[N.opcode](N)end)if not ar then an(A)break elseif A then return B end end end;local as={get_stack=function()return W end,get_IP=function()return Z end}local function am(...)local at={}local au={}X=-1;W=setmetatable(at,{__index=au,__newindex=function(S,ah,aj)if ah>X and aj then X=ah end;au[ah]=aj end})local a7={...}_={}a0=select("#",...)-1;for l=0,a0 do at[l]=a7[l+1]_[l]=a7[l+1]end;Y=c or getfenv()Z=1;local av=coroutine.create(aa)local A,B=coroutine.resume(av)if A then if B then return unpack(B)end;return else if b then else an(B)end end end;return as,am end;AABABBxxAxxBxxBABABxBABAxxxBBBABBAAAABAAxAAABAAABAABBxxBBBBABBxBBBBBxBAxxBABBAABABBBAABABAABxABxAABB=function(o,aw,ax)c=aw or getfenv(2)d=ax;local U=n(o)local al,am=T(U)return am end;AABABBxxAxxBxxBABABxBABAxxxBBBABBAAAABAAxAAABAAABAABBxxBBBBABBxBBBBBxBAxxBABBAABABBBAABABAABxABxAABB(a,getfenv())()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement