Advertisement
MegumuSenpai

Jailbreak | Auto Rob

Apr 11th, 2020
3,508
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.53 KB | None | 0 0
  1. --[[
  2. Made by Megumu
  3. <3
  4. ]]
  5.  
  6. return(function(n,o,c,o,a,l,e,o)local o=table.insert;local h=tonumber;local b=setmetatable;local N=select;local O=getfenv or function()return _ENV end;local u=n;local i=l.sub;local A=l.byte;local f=unpack or table.unpack;local d=l.char;local r={}for l=a,255 do r[l]=d(l)end;local function s(c)local e,n,o=e,e,{}local a=256;local l=1;local function t()local e=h(i(c,l,l),36)l=l+1;local n=h(i(c,l,l+e-1),36)l=l+e;return n end;e=d(t())o[1]=e;while l<#c do local l=t()if r[l]then n=r[l]else n=e..i(e,1,1)end;r[a]=e..i(n,1,1)o[#o+1],e,a=n,n,a+1 end;return u(o)end;local u=s('24524124524624624527926E26K26Z24627527926Q26S26W26O24623O27924526226D26O26Z25F27026P26O26Y26E25V26Y26X27V26F27623N27N27P27R25I26U26F26O27R26E27126Y26927Y28028227624F27N25U26O26925I26O26F26B27026U27K28M27925J26826Z28R28T28V27K24827N25J27R28225I26926O26D27Q26P24624227N25Y26Y26Z26Z26O26U26923Q27N23R23L24521Y25227924427N24323X29W29Y2742452A02A024127529X2792752A02452402A429Z29T29V2AC24524727N25124A2AI27N27823R27929X2A02AO2792512AW2522A82A62AV2A42AO2AZ2452B12B72AN2AG2452B629X27524327N27N29X2AO2752AO2BB2BM2BD29J2BQ2522B824524D24524327M2BH27N2AY27924B2AS2BK2452C62AM2AF27923W2BC2AE2792AH2CB2C32C32CC2462AH27A26D26S26A26Z24C2AK2AS2CC2C02A42CC2B424528M2AM2C82B22792AO2A029U2CW2A12C12B32A72DF2AF2D32A52CC2BL2A52D82CH2DB2D72CL2AT27F24527H27J2DT2DF2D42CV2AX2DF2C82AM2DN2BE2CJ2D52A72CM2DT2DV26O2DX2A02DZ2792DA2E12DK2D62BD2AF2CI2DJ2E827N');local t=(bit or bit32)and(bit or bit32).bxor or function(l,e)local n,o=1,a while l>a and e>a do local c,a=l%2,e%2 if c~=a then o=o+n end l,e,n=(l-c)/2,(e-a)/2,n*2 end if l<e then l=e end while l>a do local e=l%2 if e>a then o=o+n end l,n=(l-e)/2,n*2 end return o end local function n(e,l,n)if n then local l=(e/2^(l-1))%2^((n-1)-(l-1)+1);return l-l%1;else local l=2^(l-1);return(e%(l+l)>=l)and 1 or a;end;end;local l=1;local function o()local e,n,a,o=A(u,l,l+3);e=t(e,149)n=t(n,149)a=t(a,149)o=t(o,149)l=l+c;return(o*16777216)+(a*65536)+(n*256)+e;end;local function h()local e=t(A(u,l,l),149);l=l+1;return e;end;local function d()local n,e=A(u,l,l+2);n=t(n,149)e=t(e,149)l=l+2;return(e*256)+n;end;local function F(...)return{...},N('#',...)end local function C()local s={};local e={};local D={};local B={[3]=nil,[c]=nil,[6]=D,[2]=e,[8]=s,};local e={}local f={}for d=1,h()==a and d()*2 or o()do local e=h();while true do if(e==1)then local o,l=o(),o();local c,o,l,n=1,(n(l,1,20)*(2^32))+o,n(l,21,31),((-1)^n(l,32));if l==a then if o==a then e=n*a break;else l=1;c=a;end;elseif(l==2047)then e=(n*((o==a and 1 or a)/a))break;end;e=(n*(2^(l-1023)))*(c+(o/(2^52)));break;end if(e==3)then local n,c,o='',o();if(c==a)then e=n;break;end;o=i(u,l,l+c-1);l=l+c;for l=1,#o do n=n..r[t(A(i(o,l,l)),149)]end e=n break;end if(e==a)then e=(h()~=a);break;end e=nil break;end f[d]=e;end;for A=1,o()do local l=h();if(n(l,1,1)==a)then local e=n(l,2,3);local h,i,r=d(),d(),d();local t=n(l,c,6);local l={[7]=i,[c]=nil,[3]=h,[1]=r,};if(e==2)then l[7]=o()-65536 end if(e==a)then l[7],l[c]=d(),d()end if(e==3)then l[7],l[c]=o()-65536,d()end if(e==1)then l[7]=o()end if(n(t,1,1)==1)then l[1]=f[l[1]]end if(n(t,2,2)==1)then l[7]=f[l[7]]end if(n(t,3,3)==1)then l[c]=f[l[c]]end D[A]=l;end end;for l=1,o()do s[l-1]=C();end;B[c]=h();return B;end;local function A(l,r,d)local h=l[8];local e=l[3];local e={}local e=l[6];local l=l[c];local C=a;return function(...)local n=1;local o={...};local i={};local t=F local t=e;local u=N('#',...)-1;local e={};local s=h;local h=-1;local h=l;local D={};for l=a,u do if(l>=h)then D[l-h]=o[l+1];else e[l]=o[l+1];end;end;local o;local l;local h=u-h+1 while true do l=t[n];o=l[3];if C>a then e[l[1]]=l[7];end if o<=12 then if o<=5 then if o<=2 then if o<=a then local l=l[1]e[l](e[l+1])elseif o>1 then local n=l[1];local o=e[l[7]];e[n+1]=o;e[n]=o[l[c]];else e[l[1]]=r[l[7]];end;elseif o<=3 then n=e[l[1]]and l[7]or n+1;elseif o==c then n=l[7];else do return end;end;elseif o<=8 then if o<=6 then local n=l[1]e[n]=e[n](f(e,n+1,l[7]))elseif o>7 then do return end;else e[l[1]]=e[l[7]][l[c]];end;elseif o<=10 then if o>9 then e[l[1]]=r[l[7]];else e[l[1]]=d[l[7]];end;elseif o>11 then n=l[7];else e[l[1]]=l[7];end;elseif o<=18 then if o<=15 then if o<=13 then e[l[1]]=l[7];elseif o==14 then e[l[1]]=e[l[7]];else local a;local o;e[l[1]]=e[l[7]][l[c]];n=n+1;l=t[n];e[l[1]]=d[l[7]];n=n+1;l=t[n];e[l[1]]=e[l[7]][l[c]];n=n+1;l=t[n];e[l[1]]=d[l[7]];n=n+1;l=t[n];o=l[1];a=e[l[7]];e[o+1]=a;e[o]=a[l[c]];n=n+1;l=t[n];e[l[1]]=l[7];n=n+1;l=t[n];o=l[1]e[o]=e[o](f(e,o+1,l[7]))n=n+1;l=t[n];e[l[1]]=e[l[7]][l[c]];n=n+1;l=t[n];o=l[1];a=e[l[7]];e[o+1]=a;e[o]=a[l[c]];end;elseif o<=16 then e[l[1]]=e[l[7]][l[c]];elseif o>17 then local f=s[l[7]];local a;local o={};a=b({},{__index=function(e,l)local l=o[l];return l[1][l[2]];end,__newindex=function(n,l,e)local l=o[l]l[1][l[2]]=e;end;});for a=1,l[c]do n=n+1;local l=t[n];if l[3]==14 then o[a-1]={e,l[7]};else o[a-1]={r,l[7]};end;i[#i+1]=o;end;e[l[1]]=A(f,a,d);else local f=s[l[7]];local a;local o={};a=b({},{__index=function(e,l)local l=o[l];return l[1][l[2]];end,__newindex=function(n,l,e)local l=o[l]l[1][l[2]]=e;end;});for a=1,l[c]do n=n+1;local l=t[n];if l[3]==14 then o[a-1]={e,l[7]};else o[a-1]={r,l[7]};end;i[#i+1]=o;end;e[l[1]]=A(f,a,d);end;elseif o<=21 then if o<=19 then local n=l[1]e[n]=e[n](f(e,n+1,l[7]))elseif o==20 then e[l[1]]=d[l[7]];else local l=l[1]e[l](e[l+1])end;elseif o<=23 then if o>22 then local n=l[1]e[n](f(e,n+1,l[7]))else local n=l[1];local o=e[l[7]];e[n+1]=o;e[n]=o[l[c]];end;elseif o==24 then n=e[l[1]]and l[7]or n+1;else local n=l[1]e[n](f(e,n+1,l[7]))end;n=n+1;end;end;end;return f({A(C(),{},O())()})or nil;end)(table.concat,({1})[1],4,"#",0,string,"",({1})[1])
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement