API tools faq
paste
DylanD2003

Untitled

DylanD2003
Sep 24th, 2017
148
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 11.39 KB | None | 0 0
raw download clone embed print report
  1. -- it's obfuscated so its harder to patch
  2. -- make sure to buy a segway gamepass for the game you want to exploit to make this work
  3. -- only the real segway script will work if the real segway script is not inside the
  4. -- segway gear then this wont work
  5. -- do not hold the segway in ur hands after executing
  6. -- works in every game that has the orginial roblox segway gear as gamepass
  7. -- for example in hilton hotels lol
  8. -- made by Avn for the AvR Discord discord.gg/7SzPNUx
  9.  
  10. local a;local b={"ABC","ABC","ABC","ABC","ABC","ABC","ABx","ABC","ABC","ABC","ABC","ABC","ABC","AsBx","ABC","ABC","ABC","ABC","ABC","ABC","ABx","ABx","ABC","ABC","AsBx","ABC","ABC","ABC","AsBx","ABC","ABC","ABC","ABC","ABC","ABC","ABx","ABC","ABC"}g_a={g_b=0,g_bk=0,g_ck=0,g_c=function(c,d)return c%(d*2)>=d end,g_d=function(e,f)local g=0;for h=0,31 do g=g+(g_a.g_c(e,2^h)~=g_a.g_c(f,2^h)and 2^h or 0)end;return g end}local function i(j,k,l)if l then local m=0;local n=0;for h=k,l do m=m+2^n*i(j,h)n=n+1 end;return m else local o=2^(k-1)return j%(o+o)>=o and 1 or 0 end end;local function p(q)local r=""for h=1,#q do local s=q:sub(h,h)r=r..string.char(g_a.g_d(string.byte(s),g_a.g_b))end;return r end;local function t(u)local v=1;local w=false;local x;local y;local z,A;local B,C,D,E,F;do function B()local G=u:byte(v,v)v=v+1;return G end;function C()local G,H,s,I=u:byte(v,v+3)v=v+4;return I*16777216+s*65536+H*256+G end;function D()local G=C()local H=C()return H*4294967296+G end;function E()local G=C()local H=C()if G==0 and H==0 then return 0 end;return(-2*i(H,32)+1)*2^(i(H,21,31)-1023)*((i(H,1,20)*2^32+G)/2^52+1)end;function F(J)local q;if J then q=u:sub(v,v+J-1)v=v+J else J=A()if J==0 then return end;q=u:sub(v,v+J-1)v=v+J end;return q end end;local function K()local L;local M={}local N={}local O={}local P={lines={}}L={instructions=M,constants=N,prototypes=O,debug=P}local Q;L.name=F()L.last_line=z()L.first_line=z()if L.name then L.name=L.name:sub(1,-2)end;L.arguments=B()L.varg=B()L.upvalues=B()L.stack=B()do Q=z()for h=1,Q do local R={}local S=C()local T=i(S,1,6)local U=b[T+1]R.opcode=T;R.type=U;R.A=i(S,7,14)if U=="ABC"then R.B=i(S,15,23)R.C=i(S,24,32)elseif U=="ABx"then R.Bx=i(S,15,32)elseif U=="AsBx"then R.sBx=i(S,15,32)-131071 end;M[h]=R end end;do Q=z()for h=1,Q do local V={}local U=B()V.type=U;if U==1 then V.data=B()~=0 elseif U==3 then V.data=E()elseif U==4 then V.data=p(F()):sub(1,-2)end;N[h-1]=V end end;do Q=z()for h=1,Q do O[h-1]=K()end end;do local S=P.lines;Q=z()for h=1,Q do S[h]=C()end;Q=z()for h=1,Q do F():sub(1,-2)C()C()end;Q=z()for h=1,Q do F()end end;return L end;do assert(F(4)=="\27LVC","Invalid (error 1).")assert(B()==0xC1,"Invalid (error 2).")B()w=B()==0;x=B()y=B()if x==4 then z=C elseif x==8 then z=D else error("Invalid (error 3).")end;if y==4 then A=C elseif y==8 then A=D else error("Invalid (error 4).")end;assert(F(3)=="\4\8\0","Invalid (error 5).")g_a.g_b=B()end;return K()end;local function W(...)local s=select("#",...)local X={...}return s,X end;local function Y(Z,_)local M=Z.instructions;local N=Z.constants;local O=Z.prototypes;local a0,a1;local a2=getfenv(0)local a3=1;local a4,a5;local a6={}local a7={[30]=function(R)a0[R.A]=a0[R.B]end,[35]=function(R)a0[R.A]=N[R.Bx].data end,[23]=function(R)a0[R.A]=R.B~=0;if R.C~=0 then a3=a3+1 end end,[0]=function(R)local a0=a0;for h=R.A,R.B do a0[h]=nil end end,[36]=function(R)a0[R.A]=_[R.B]end,[20]=function(R)local a8=N[R.Bx].data;a0[R.A]=a2[a8]end,[7]=function(R)local a9=R.C;local a0=a0;a9=a9>255 and N[a9-256].data or a0[a9]a0[R.A]=a0[R.B][a9]end,[21]=function(R)local a8=N[R.Bx].data;a2[a8]=a0[R.A]end,[33]=function(R)_[R.B]=a0[R.A]end,[22]=function(R)local aa=R.B;local a9=R.C;local a0,N=a0,N;aa=aa>255 and N[aa-256].data or a0[aa]a9=a9>255 and N[a9-256].data or a0[a9]a0[R.A][aa]=a9 end,[32]=function(R)a0[R.A]={}end,[12]=function(R)local ab=R.A;local aa=R.B;local a9=R.C;local a0=a0;aa=a0[aa]a9=a9>255 and N[a9-256].data or a0[a9]a0[ab+1]=aa;a0[ab]=aa[a9]end,[11]=function(R)local aa=R.B;local a9=R.C;local a0,N=a0,N;aa=aa>255 and N[aa-256].data or a0[aa]a9=a9>255 and N[a9-256].data or a0[a9]a0[R.A]=aa+a9 end,[14]=function(R)local aa=R.B;local a9=R.C;local a0,N=a0,N;aa=aa>255 and N[aa-256].data or a0[aa]a9=a9>255 and N[a9-256].data or a0[a9]a0[R.A]=aa-a9 end,[26]=function(R)local aa=R.B;local a9=R.C;local a0,N=a0,N;aa=aa>255 and N[aa-256].data or a0[aa]a9=a9>255 and N[a9-256].data or a0[a9]a0[R.A]=aa*a9 end,[19]=function(R)local aa=R.B;local a9=R.C;local a0,N=a0,N;aa=aa>255 and N[aa-256].data or a0[aa]a9=a9>255 and N[a9-256].data or a0[a9]a0[R.A]=aa/a9 end,[15]=function(R)local aa=R.B;local a9=R.C;local a0,N=a0,N;aa=aa>255 and N[aa-256].data or a0[aa]a9=a9>255 and N[a9-256].data or a0[a9]a0[R.A]=aa%a9 end,[29]=function(R)local aa=R.B;local a9=R.C;local a0,N=a0,N;aa=aa>255 and N[aa-256].data or a0[aa]a9=a9>255 and N[a9-256].data or a0[a9]a0[R.A]=aa^a9 end,[5]=function(R)a0[R.A]=-a0[R.B]end,[31]=function(R)a0[R.A]=not a0[R.B]end,[3]=function(R)a0[R.A]=#a0[R.B]end,[1]=function(R)local aa=R.B;local ac=a0[aa]for h=aa+1,R.C do ac=ac..a0[h]end;a0[R.A]=ac end,[13]=function(R)a3=a3+R.sBx end,[10]=function(R)local ab=R.A;local aa=R.B;local a9=R.C;local a0,N=a0,N;ab=ab~=0;if aa>255 then aa=N[aa-256].data else aa=a0[aa]end;if a9>255 then a9=N[a9-256].data else a9=a0[a9]end;if aa==a9~=ab then a3=a3+1 end end,[2]=function(R)local ab=R.A;local aa=R.B;local a9=R.C;local a0,N=a0,N;ab=ab~=0;aa=aa>255 and N[aa-256].data or a0[aa]a9=a9>255 and N[a9-256].data or a0[a9]if aa<a9~=ab then a3=a3+1 end end,[18]=function(R)local ab=R.A;local aa=R.B;local a9=R.C;local a0,N=a0,N;ab=ab~=0;aa=aa>255 and N[aa-256].data or a0[aa]a9=a9>255 and N[a9-256].data or a0[a9]if aa<=a9~=ab then a3=a3+1 end end,[34]=function(R)local ab=a0[R.A]if not not ab==(R.C==0)then a3=a3+1 end end,[8]=function(R)local a0=a0;local aa=a0[R.B]if not not aa==(R.C==0)then a3=a3+1 else a0[R.A]=aa end end,[17]=function(R)local ab=R.A;local aa=R.B;local a9=R.C;local ad,ae;local af,ag;local ah;local ai,aj;ad={}if aa~=1 then if aa~=0 then ah=ab+aa-1 else ah=a1 end;ag=0;for h=ab+1,ah do ag=ag+1;ad[ag]=a0[h]end;ai=a3;aj=a0;af,ae=W(a0[ab](unpack(ad,1,ah-ab)))else ai=a3;aj=a0;af,ae=W(a0[ab]())end;a3=ai;a0=aj;a1=ab-1;if a9~=1 then if a9~=0 then af=a9-1 end;for h=0,af-1 do a0[ab+h]=ae[h+1]end end end,[25]=function(R)local ab=R.A;local aa=R.B;local a9=R.C;local a0=a0;local ad,ae,af;local a1,ah,ag=a1;ad={}if aa~=1 then if aa~=0 then ah=ab+aa-1 else ah=a1 end;ag=0;for h=ab+1,ah do ag=ag+1;ad[#ad+1]=a0[h]end;af,ae=W(a0[ab](unpack(ad,1,ah-ab)))else af,ae=W(a0[ab]())end;return true,ae,af end,[4]=function(R)for ak=0,a1 do for h,al in next,a6 do for am,an in next,al do local ao=an.segment[an.offset]if a0[ak]==ao then al[am]={segment={ao},offset=1}break end end end end;local ab=R.A;local aa=R.B;local a0=a0;local ah;local ag,ap;if aa==1 then return true end;if aa==0 then ah=a1 else ah=ab+aa-2 end;ap={}local ag=0;for h=ab,ah do ag=ag+1;ap[ag]=a0[h]end;return true,ap,ag end,[28]=function(R)local ab=R.A;local a0=a0;local aq=a0[ab+2]local v=a0[ab]+aq;a0[ab]=v;if aq>0 then if v<=a0[ab+1]then a3=a3+R.sBx;a0[ab+3]=v end else if v>=a0[ab+1]then a3=a3+R.sBx;a0[ab+3]=v end end end,[24]=function(R)local ab=R.A;local a0=a0;a0[ab]=a0[ab]-a0[ab+2]a3=a3+R.sBx end,[27]=function(R)local ab=R.A;local aa=R.B;local a9=R.C;local a0=a0;local ar=ab+2;local ac={a0[ab](a0[ab+1],a0[ab+2])}for h=1,a9 do a0[ar+h]=ac[h]end;if a0[ab+3]~=nil then a0[ab+2]=a0[ab+3]else a3=a3+1 end end,[16]=function(R)local ab=R.A;local aa=R.B;local a9=R.C;local a0=a0;if a9==0 then error("Invalid (error 6).")else local ar=(a9-1)*50;local X=a0[ab]if aa==0 then aa=a1 end;for h=1,aa do X[ar+h]=a0[ab+h]end end end,[9]=function(R)for ak=R.A,a1 do for h,al in next,a6 do for am,an in next,al do local ao=an.segment[an.offset]if a0[ak]==ao then al[am]={segment={ao},offset=1}break end end end end end,[6]=function(R)local as=O[R.Bx]local M=M;local a0=a0;local al={}local at=setmetatable({},{__index=function(X,am)local an=al[am]return an.segment[an.offset]end,__newindex=function(X,am,ao)local an=al[am]an.segment[an.offset]=ao end})for h=1,as.upvalues do local au=M[a3]if au.opcode==30 then al[h-1]={segment=a0,offset=au.B}elseif au.opcode==36 then al[h-1]={segment=_,offset=au.B}end;a3=a3+1 end;a6[#a6+1]=al;local av,aw=Y(as,at)a0[R.A]=aw end,[37]=function(R)local ab=R.A;local aa=R.B;local a0,a4=a0,a4;for h=ab,ab+(aa>0 and aa-1 or a5)do a0[h]=a4[h-ab]end end}local ax={get_stack=function()return a0 end,get_IP=function()return a3 end}local function aw(...)local ay={}local az={}a1=-1;a0=setmetatable(ay,{__index=az,__newindex=function(X,am,ao)if am>a1 then a1=am end;az[am]=ao end})local ad={...}a4={}a5=select("#",...)-1;for h=0,a5 do ay[h]=ad[h+1]a4[h]=ad[h+1]end;a3=1;local G,H,k;while true do local R=M[a3]a3=a3+1;G,H,k=a7[R.opcode](R)if G then break end end;if G then if H and k then return unpack(H,1,k)end;return else if a then else if not H then error()end;local aA=Z.name;local aB=Z.debug.lines[a3]local aC=H:gsub("(.-:)","")local ap=""ap=ap..(aA and aA..":"or"")ap=ap..(aB and aB..":"or"")ap=ap..H;error("LVMP Internal Error.")end end end;return ax,aw end;local aD=function(u,aE)local Z=t(u)local av,aw=Y(Z)return aw end;local aF={decode_bytecode=t,create_wrapper=Y,debug_bytecode=function(u)local Z=t(u)return Y(Z)end}aD("\27\76\86\67\193\0\1\4\4\4\8\0\55\6\0\0\0\76\86\77\80\50\0\0\0\0\0\0\0\0\0\0\2\0\10\27\0\0\0\84\0\0\0\148\64\0\0\135\128\0\129\140\128\128\129\145\128\128\1\13\192\1\128\135\65\1\130\140\129\129\130\35\130\1\0\87\66\0\0\145\1\1\1\162\1\0\0\13\0\0\128\30\128\1\0\91\0\0\1\13\64\253\127\84\192\1\0\140\0\0\132\145\128\0\0\81\0\128\0\70\0\0\0\30\0\0\0\85\64\2\0\84\64\2\0\148\128\2\0\81\128\128\0\4\64\0\0\11\0\0\0\4\5\0\0\0\89\82\79\67\0\4\5\0\0\0\80\86\90\82\0\4\8\0\0\0\103\91\86\78\82\69\68\0\4\11\0\0\0\112\82\67\103\91\86\78\82\69\68\0\4\9\0\0\0\117\86\84\92\71\86\84\92\0\4\15\0\0\0\113\94\89\83\113\94\69\68\67\116\95\94\91\83\0\4\13\0\0\0\118\89\84\95\88\69\100\82\80\64\86\78\0\4\6\0\0\0\71\69\94\89\67\0\4\12\0\0\0\112\82\67\113\66\91\91\121\86\90\82\0\4\2\0\0\0\68\0\4\10\0\0\0\64\88\69\92\68\71\86\84\82\0\1\0\0\0\6\0\0\0\76\86\77\80\50\0\18\0\0\0\11\0\0\0\1\0\1\10\20\0\0\0\84\0\0\0\140\0\128\128\145\128\128\1\13\0\3\128\140\65\1\129\35\194\0\0\145\193\0\1\162\1\0\0\13\0\1\128\164\1\0\0\140\129\1\130\30\66\1\0\87\2\0\0\145\1\129\0\148\65\1\0\222\65\1\0\145\129\128\0\91\0\0\1\13\0\252\127\4\64\0\0\6\0\0\0\4\5\0\0\0\89\82\79\67\0\4\12\0\0\0\112\82\67\116\95\94\91\83\69\82\89\0\4\4\0\0\0\126\68\118\0\4\9\0\0\0\117\86\68\82\103\86\69\67\0\4\11\0\0\0\113\94\69\82\100\82\69\65\82\69\0\4\2\0\0\0\68\0\0\0\0\0\20\0\0\0\12\0\0\0\12\0\0\0\12\0\0\0\12\0\0\0\13\0\0\0\13\0\0\0\13\0\0\0\13\0\0\0\13\0\0\0\14\0\0\0\14\0\0\0\14\0\0\0\14\0\0\0\14\0\0\0\16\0\0\0\16\0\0\0\16\0\0\0\12\0\0\0\16\0\0\0\18\0\0\0\6\0\0\0\7\0\0\0\76\86\77\80\95\88\0\0\0\0\0\19\0\0\0\7\0\0\0\76\86\77\80\95\88\0\3\0\0\0\19\0\0\0\7\0\0\0\76\86\77\80\95\88\0\3\0\0\0\19\0\0\0\7\0\0\0\76\86\77\80\95\88\0\3\0\0\0\19\0\0\0\7\0\0\0\76\86\77\80\95\88\0\4\0\0\0\17\0\0\0\7\0\0\0\76\86\77\80\95\88\0\4\0\0\0\17\0\0\0\1\0\0\0\8\0\0\0\76\86\77\80\95\88\50\0\27\0\0\0\3\0\0\0\3\0\0\0\3\0\0\0\3\0\0\0\3\0\0\0\3\0\0\0\4\0\0\0\4\0\0\0\4\0\0\0\4\0\0\0\4\0\0\0\5\0\0\0\5\0\0\0\6\0\0\0\3\0\0\0\7\0\0\0\10\0\0\0\10\0\0\0\10\0\0\0\10\0\0\0\18\0\0\0\18\0\0\0\11\0\0\0\19\0\0\0\19\0\0\0\19\0\0\0\19\0\0\0\7\0\0\0\7\0\0\0\76\86\77\80\95\88\0\0\0\0\0\26\0\0\0\7\0\0\0\76\86\77\80\95\88\0\5\0\0\0\16\0\0\0\7\0\0\0\76\86\77\80\95\88\0\5\0\0\0\16\0\0\0\7\0\0\0\76\86\77\80\95\88\0\5\0\0\0\16\0\0\0\7\0\0\0\76\86\77\80\95\88\0\6\0\0\0\14\0\0\0\7\0\0\0\76\86\77\80\95\88\0\6\0\0\0\14\0\0\0\7\0\0\0\76\86\77\80\95\88\0\11\0\0\0\14\0\0\0\0\0\0\0")()
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!