Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- do local StrToNumber=tonumber;local Byte=string.byte;local Char=string.char;local Sub=string.sub;local Subg=string.gsub;local Rep=string.rep;local Concat=table.concat;local Insert=table.insert;local LDExp=math.ldexp;local GetFEnv=getfenv or function()return _ENV;end ;local Setmetatable=setmetatable;local PCall=pcall;local Select=select;local Unpack=unpack or table.unpack ;local ToNumber=tonumber;local function VMCall(ByteString,vmenv,...)local DIP=1;local repeatNext;ByteString=Subg(Sub(ByteString,5),"..",function(byte)if (Byte(byte,2)==79) then repeatNext=StrToNumber(Sub(byte,1,1));return "";else local a=Char(StrToNumber(byte,16));if repeatNext then local b=Rep(a,repeatNext);repeatNext=nil;return b;else return a;end end end);local function gBit(Bit,Start,End)if End then local Res=(Bit/(2^(Start-1)))%(2^(((End-1) -(Start-1)) + 1)) ;return Res-(Res%1) ;else local Plc=2^(Start-1) ;return (((Bit%(Plc + Plc))>=Plc) and 1) or 0 ;end end local function gBits8()local a=Byte(ByteString,DIP,DIP);DIP=DIP + 1 ;return a;end local function gBits16()local a,b=Byte(ByteString,DIP,DIP + 2 );DIP=DIP + 2 ;return (b * 256) + a ;end local function gBits32()local a,b,c,d=Byte(ByteString,DIP,DIP + 3 );DIP=DIP + 4 ;return (d * 16777216) + (c * 65536) + (b * 256) + a ;end local function gFloat()local Left=gBits32();local Right=gBits32();local IsNormal=1;local Mantissa=(gBit(Right,1,20) * (2^32)) + Left ;local Exponent=gBit(Right,21,31);local Sign=((gBit(Right,32)==1) and -1) or 1 ;if (Exponent==0) then if (Mantissa==0) then return Sign * 0 ;else Exponent=1;IsNormal=0;end elseif (Exponent==2047) then return ((Mantissa==0) and (Sign * (1/0))) or (Sign * NaN) ;end return LDExp(Sign,Exponent-1023 ) * (IsNormal + (Mantissa/(2^52))) ;end local function gString(Len)local Str;if not Len then Len=gBits32();if (Len==0) then return "";end end Str=Sub(ByteString,DIP,(DIP + Len) -1 );DIP=DIP + Len ;local FStr={};for Idx=1, #Str do FStr[Idx]=Char(Byte(Sub(Str,Idx,Idx)));end return Concat(FStr);end local gInt=gBits32;local function _R(...)return {...},Select("#",...);end local function Deserialize()local Instrs={};local Functions={};local Lines={};local Chunk={Instrs,Functions,nil,Lines};local ConstCount=gBits32();local Consts={};for Idx=1,ConstCount do local Type=gBits8();local Cons;if (Type==1) then Cons=gBits8()~=0 ;elseif (Type==2) then Cons=gFloat();elseif (Type==3) then Cons=gString();end Consts[Idx]=Cons;end Chunk[3]=gBits8();for Idx=1,gBits32() do local Descriptor=gBits8();if (gBit(Descriptor,1,1)==0) then local Type=gBit(Descriptor,2,3);local Mask=gBit(Descriptor,4,6);local Inst={gBits16(),gBits16(),nil,nil};if (Type==0) then Inst[3]=gBits16();Inst[4]=gBits16();elseif (Type==1) then Inst[3]=gBits32();elseif (Type==2) then Inst[3]=gBits32() -(2^16) ;elseif (Type==3) then Inst[3]=gBits32() -(2^16) ;Inst[4]=gBits16();end if (gBit(Mask,1,1)==1) then Inst[2]=Consts[Inst[2]];end if (gBit(Mask,2,2)==1) then Inst[3]=Consts[Inst[3]];end if (gBit(Mask,3,3)==1) then Inst[4]=Consts[Inst[4]];end Instrs[Idx]=Inst;end end for Idx=1,gBits32() do Functions[Idx-1 ]=Deserialize();end return Chunk;end local function Wrap(Chunk,Upvalues,Env)local Instr=Chunk[1];local Proto=Chunk[2];local Params=Chunk[3];return function(...)local Instr=Instr;local Proto=Proto;local Params=Params;local _R=_R;local VIP=1;local Top= -1;local Vararg={};local Args={...};local PCount=Select("#",...) -1 ;local Lupvals={};local Stk={};for Idx=0,PCount do if (Idx>=Params) then Vararg[Idx-Params ]=Args[Idx + 1 ];else Stk[Idx]=Args[Idx + 1 ];end end local Varargsz=(PCount-Params) + 1 ;local Inst;local Enum;while true do Inst=Instr[VIP];Enum=Inst[1];if (Enum<=3) then if (Enum<=1) then if (Enum==0) then local Edx;local Results,Limit;local B;local A;Stk[Inst[2]]=Env[Inst[3]];VIP=VIP + 1 ;Inst=Instr[VIP];Stk[Inst[2]]=Env[Inst[3]];VIP=VIP + 1 ;Inst=Instr[VIP];A=Inst[2];B=Stk[Inst[3]];Stk[A + 1 ]=B;Stk[A]=B[Inst[4]];VIP=VIP + 1 ;Inst=Instr[VIP];Stk[Inst[2]]=Inst[3];VIP=VIP + 1 ;Inst=Instr[VIP];A=Inst[2];Results,Limit=_R(Stk[A](Unpack(Stk,A + 1 ,Inst[3])));Top=(Limit + A) -1 ;Edx=0;for Idx=A,Top do Edx=Edx + 1 ;Stk[Idx]=Results[Edx];end VIP=VIP + 1 ;Inst=Instr[VIP];A=Inst[2];Stk[A]=Stk[A](Unpack(Stk,A + 1 ,Top));VIP=VIP + 1 ;Inst=Instr[VIP];Stk[Inst[2]]();VIP=VIP + 1 ;Inst=Instr[VIP];do return;end else Stk[Inst[2]]=Inst[3];end elseif (Enum==2) then Stk[Inst[2]]=Env[Inst[3]];else Stk[Inst[2]]();end elseif (Enum<=5) then if (Enum==4) then do return;end else local A=Inst[2];Stk[A]=Stk[A](Unpack(Stk,A + 1 ,Top));end elseif (Enum==6) then local A=Inst[2];local Results,Limit=_R(Stk[A](Unpack(Stk,A + 1 ,Inst[3])));Top=(Limit + A) -1 ;local Edx=0;for Idx=A,Top do Edx=Edx + 1 ;Stk[Idx]=Results[Edx];end else local A=Inst[2];local B=Stk[Inst[3]];Stk[A + 1 ]=B;Stk[A]=B[Inst[4]];end VIP=VIP + 1 ;end end;end return Wrap(Deserialize(),{},vmenv)(...);end VMCall("LOL!043O00030A3O006C6F6164737472696E6703043O0067616D6503073O00482O74704765740325092O006C6F6164737472696E6728227072696E74282267616D653A4765745365727669636528225374617274657247756922293A536574436F7265282253656E644E6F74696669636174696F6E222C207B200A095469746C65203D2022564943544F525620444120482O4F44223B0A0954657874203D2022646120682O6F642073637269707420223B0A0949636F6E203D20227262787468756D623A2O2F747970653D412O7365742669643D313430373338343833373526773D31353026683D313530227D290A4475726174696F6E203D20333B2O0A67616D653A4765745365727669636528225374617274657247756922293A536574436F7265282253656E644E6F74696669636174696F6E222C207B200A095469746C65203D20224869223B0A0954657874203D202253756220746F20564943544F52565F4D53223B0A0949636F6E203D20227262787468756D623A2O2F747970653D412O7365742669643D313430373338343833373526773D31353026683D313530227D290A4475726174696F6E203D20333B0A67616D653A4765745365727669636528225374617274657247756922293A536574436F7265282253656E644E6F74696669636174696F6E222C207B200A095469746C65203D20226372656469747320746F20564943544F52565F4D53223B0A0954657874203D2022646120682O6F6420736372697074206F776E657220766963746F72223B0A0949636F6E203D20227262787468756D623A2O2F747970653D412O7365742669643D313430373338343833373526773D31353026683D313530227D290A4475726174696F6E203D20373B5O0A6C6F63616C204C696272617279203D206C6F6164737472696E672867616D653A482O74704765742822682O7470733A2O2F706173746562696E2E636F6D2F7261772F762O663162513946222O2928290A6C6F63616C2057696E646F77203D204C6962726172792E4372656174654C69622822766963746F72277320646120682O6F6420626573742073637269707473222C20224461726B5468656D6522290A6C6F63616C20546162203D2057696E646F773A4E65775461622822646120682O6F642062657374204775697322290A6C6F63616C2053656374696F6E203D205461623A4E657753656374696F6E2822426573742047756922290A53656374696F6E3A4E657742752O746F6E282253776167206D6F6465222C202273776167496E666F222C2066756E6374696F6E28290A206C6F6164737472696E672867616D653A482O74704765742827682O7470733A2O2F7261772E67697468756275736572636F6E74656E742E636F6D2F6C65726B65726D65722F6C75612D70726F6A656374732F6D61737465722F537761674D6F6465562O3032272O2928290A7O207072696E742822436C69636B656422290A656E64290A53656374696F6E3A4E657742752O746F6E2822506C75746F222C2022706C75746F496E666F222C2066756E6374696F6E28290A6C6F6164737472696E672867616D653A482O74704765742827682O7470733A2O2F7261772E67697468756275736572636F6E74656E742E636F6D2F5370616365645965732F6C75612D70726F6A656374732F6D61737465722F4461482O6F642E4C7561272O2928290A4O207072696E742822436C69636B656422290A656E64290A53656374696F6E3A4E657742752O746F6E28224661646564222C20224661646564496E666F222C2066756E6374696F6E28290A6C6F6164737472696E672867616D653A482O74704765742822682O7470733A2O2F7261772E67697468756275736572636F6E74656E742E636F6D2F4E696768746572457069632F46616465642F6D61696E2F59657345706963222C20747275652O2928290A4O207072696E742822436C69636B656422290A656E64290A53656374696F6E3A4E657742752O746F6E28226B6579626F617264222C20226B6579626F617264496E666F222C2066756E6374696F6E28290A6C6F6164737472696E672867616D653A482O74704765742822682O7470733A2O2F7261772E67697468756275736572636F6E74656E742E636F6D2F616476787A697668732O6A6468786873696469667673682F6D6F626B6579626F6172642F6D61696E2F6D61696E2E747874222C20747275652O2928290A4O207072696E742822436C69636B656422290A656E64290A6C6F63616C20546162203D2057696E646F773A4E6577546162282241696D6C6F636B20262046616B65206D6172636F22290A6C6F63616C2053656374696F6E203D205461623A4E657753656374696F6E2822626573742061696D6C6F636B22290A53656374696F6E3A4E657742752O746F6E2822626573742061696D6C6F636B222C202261696D6C6F636B496E666F222C2066756E6374696F6E28290A6C6F6164737472696E672867616D653A482O74704765742O2827682O7470733A2O2F706173746566792E612O702F6F794439437135322F72617727292C747275652O2928290A4O207072696E742822436C69636B656422290A656E64290A53656374696F6E3A4E657742752O746F6E2822626C75652061696D6C6F636B222C202261696D6C6F636B496E666F222C2066756E6374696F6E28290A6C6F6164737472696E672867616D653A482O74704765742822682O7470733A2O2F706173746562696E2E636F6D2F7261772F6A3038784D396D57222C20747275652O2928290A4O207072696E742822436C69636B656422290A656E64290A53656374696F6E3A4E657742752O746F6E282251206B6579626F617264222C202251496E666F222C2066756E6374696F6E28290A6C6F6164737472696E672867616D653A482O74704765742O2827682O7470733A2O2F706173746562696E2E636F6D2F7261772F696D4C55446B376827292C747275652O2928290A4O207072696E742822436C69636B656422290A656E64290A53656374696F6E3A4E657742752O746F6E282246616B65206D6172636F20262053702O6564222C202246616B65206D6172636F496E666F222C2066756E6374696F6E28290A6C6F6164737472696E672867616D653A482O74704765744173796E632822682O7470733A2O2F706173746562696E2E636F6D2F7261772F586971735558486A222C20747275652O2928290A4O207072696E742822436C69636B656422290A656E642922290A2229282900083O00124O00013O00122O000100023O00202O00010001000300122O000300046O000100039O0000026O000100016O00017O00",GetFEnv(),...); end
Advertisement
Add Comment
Please, Sign In to add comment