- --[
- [
- // MegumuSenpai
- In Plain Sight 2 | GodMode
- // Made by Megumu / Mommy Mango <
- 3
- ]
- ]
- local d = string.byte;
- local r = string.char;
- local c = string.sub;
- local N = table.concat;
- local A = math.ldexp;
- local V = getfenv or
- function() return _ENV end;
- local l = setmetatable;
- local h = select;
- local t = unpack;
- local i = tonumber;
- local
- function s(d) local e, o, t = "", "", {}
- local n = 256;
- local a = {}
- for l = 0, n - 1 do a[l] = r(l) end;
- local l = 1;
- local
- function f() local e = i(c(d, l, l), 36) l = l + 1;
- local o = i(c(d, l, l + e - 1), 36) l = l + e;
- return o end;
- e = r(f()) t[1] = e;
- while l < #d do local l = f() if a[l] then o = a[l]
- else o = e..c(e, 1, 1) end;
- a[n] = e..c(o, 1, 1) t[#t + 1], e, n = o, o, n + 1 end;
- return table.concat(t) end;
- local i = s('26V27326V27626T26R27626V24024624A24226T26O27A24N24B24623Y24223P23O26T27027A25724824424624B27J27L27N27827A23K24624E23N26T27227A25024F24623P24624423N28026X27A24X24E24924328K27O23N28A24E24B24326T26P27A25B24227W23N24F27G27A24Z24223O23N23P24823Y26927A26J273171826R27526V26I26V25Z26V26W27A29L25J29O27A26N25Z29G26R29N26V26M27329N29E27626L23R27626P2A723B26G24F29G26I24F26V23B26M26V24N29T2A521R29P26P21R1823S26G21J181826I2AV23S2AJ2AL29P2762A124726V27229J26F25R29G26G25R2B429V26V26H26N2A52332AP2332AS26G22V2AW26I2BQ2B02AK2AM2A02732A726W29J2A123B2B72C126F26F26V26Z2C726V2AC2BR24F2AS26I29J26T29J27A26V');
- local n = bit and bit.bxor or
- function(l, o) local e, n = 1, 0
- while l > 0 and o > 0 do local c, a = l % 2, o % 2
- if
- c~ = a then n = n + e end l, o, e = (l - c) / 2, (o - a) / 2, e * 2 end
- if l < o then l = o end
- while l > 0 do local o = l % 2
- if
- o > 0 then n = n + e end l, e = (l - o) / 2, e * 2 end
- return n end local
- function e(o, l, e) if e then local l = (o / 2 ^ (l - 1)) % 2 ^ ((e - 1) - (l - 1) + 1);
- return l - l % 1;
- else local l = 2 ^ (l - 1);
- return (o % (l + l) >= l) and 1 or 0;
- end;
- end;
- local l = 1;
- local
- function o() local c, o, e, a = d(i, l, l + 3);
- c = n(c, 247) o = n(o, 247) e = n(e, 247) a = n(a, 247) l = l + 4;
- return (a * 16777216) + (e * 65536) + (o * 256) + c;
- end;
- local
- function f() local e = n(d(i, l, l), 247);
- l = l + 1;
- return e;
- end;
- local
- function u() local n = o();
- local l = o();
- local c = 1;
- local n = (e(l, 1, 20) * (2 ^ 32)) + n;
- local o = e(l, 21, 31);
- local l = ((-1) ^ e(l, 32));
- if (o == 0) then
- if (n == 0) then
- return l * 0;
- else o = 1;
- c = 0;
- end;
- elseif(o == 2047) then
- return (n == 0) and(l * (1 / 0)) or(l * (0 / 0));
- end;
- return A(l, o - 1023) * (c + (n / (2 ^ 52)));
- end;
- local a = o;
- local
- function s(e) local o;
- if (not e) then e = a();
- if (e == 0) then
- return '';
- end;
- end;
- o = c(i, l, l + e - 1);
- l = l + e;
- local e = {}
- for l = 1, #o do e[l] = r(n(d(c(o, l, l)), 247)) end
- return N(e);
- end;
- local l = o;
- local
- function i(...) return {...
- }, h('#', ...) end local
- function r() local d = {
- 0,
- 0,
- 0,
- 0,
- 0,
- 0,
- 0,
- 0,
- 0,
- 0,
- 0,
- 0,
- 0,
- 0,
- 0,
- 0,
- 0,
- 0,
- 0,
- 0,
- 0,
- 0
- };
- local t = {};
- local l = {};
- local a = {
- d,
- nil,
- t,
- nil,
- l
- };
- a[4] = f();
- local l = o() local c = {
- 0,
- 0,
- 0,
- 0,
- 0,
- 0,
- 0,
- 0
- };
- for o = 1, l do local e = f();
- local l;
- if (e == 0) then l = (f() ~ = 0);
- elseif(e == 1) then l = u();
- elseif(e == 2) then l = s();
- end;
- c[o] = l;
- end;
- a[2] = c
- for a = 1, o() do local c = n(o(), 29);
- local o = n(o(), 12);
- local n = e(c, 1, 2);
- local l = e(o, 1, 11);
- local l = {
- l,
- e(c, 3, 11),
- nil,
- nil,
- o
- };
- if (n == 0) then l[3] = e(c, 12, 20);
- l[5] = e(c, 21, 29);
- elseif(n == 1) then l[3] = e(o, 12, 33);
- elseif(n == 2) then l[3] = e(o, 12, 32) - 1048575;
- elseif(n == 3) then l[3] = e(o, 12, 32) - 1048575;
- l[5] = e(c, 21, 29);
- end;
- d[a] = l;
- end;
- for l = 1, o() do t[l - 1] = r();
- end;
- return a;
- end;
- local
- function s(l, e, f) local o = l[1];
- local n = l[2];
- local e = l[3];
- local l = l[4];
- return function(...) local s = o;
- local c = n;
- local e = e;
- local o = l;
- local l = i local n = 1;
- local a = -1;
- local r = {};
- local i = {...
- };
- local d = h('#', ...) - 1;
- local l = {};
- local e = {};
- for l = 0, d do
- if (l >= o) then r[l - o] = i[l + 1];
- else e[l] = i[l + 1];
- end;
- end;
- local l = d - o + 1 local l;
- local o;
- while true do l = s[n];
- o = l[1];
- if o <= 9 then
- if o <= 4 then
- if o <= 1 then
- if o == 0 then local o = l[2];
- local c = {};
- local n = 0;
- local l = o + l[3] - 1;
- for l = o + 1, l do n = n + 1;
- c[n] = e[l];
- end;
- e[o](t(c, 1, l - o));
- a = o;
- else local n = l[2];
- local d = {};
- local o = 0;
- local c = n + l[3] - 1;
- for l = n + 1, c do o = o + 1;
- d[o] = e[l];
- end;
- local c = {
- e[n](t(d, 1, c - n))
- };
- local l = n + l[5] - 2;
- o = 0;
- for l = n, l do o = o + 1;
- e[l] = c[o];
- end;
- a = l;
- end;
- elseif o <= 2 then local o = l[2];
- local c = {};
- local n = 0;
- local l = o + l[3] - 1;
- for l = o + 1, l do n = n + 1;
- c[n] = e[l];
- end;
- e[o](t(c, 1, l - o));
- a = o;
- elseif o == 3 then e[l[2]] = e[l[3]][c[l[5]]];
- else local o = l[2];
- local n = e[l[3]];
- e[o + 1] = n;
- e[o] = n[c[l[5]]];
- end;
- elseif o <= 6 then
- if o > 5 then e[l[2]] = c[l[3]];
- else local n = l[2];
- local o = e[l[3]];
- e[n + 1] = o;
- e[n] = o[c[l[5]]];
- end;
- elseif o <= 7 then do return end;
- elseif o > 8 then
- if e[l[2]] then n = n + 1;
- else n = n + l[3];
- end;
- else e[l[2]] = f[c[l[3]]];
- end;
- elseif o <= 14 then
- if o <= 11 then
- if o > 10 then e[l[2]] = e[l[3]][c[l[5]]];
- else if e[l[2]] then n = n + 1;
- else n = n + l[3];
- end;
- end;
- elseif o <= 12 then n = n + l[3];
- elseif o > 13 then do return end;
- else e[l[2]] = f[c[l[3]]];
- end;
- elseif o <= 16 then
- if o > 15 then local o = l[2];
- local c, n = {
- e[o]()
- };
- local n = o + l[5] - 2;
- local l = 0;
- for o = o, n do l = l + 1;
- e[o] = c[l];
- end;
- a = n;
- else local o = l[2];
- local c, n = {
- e[o]()
- };
- local n = o + l[5] - 2;
- local l = 0;
- for o = o, n do l = l + 1;
- e[o] = c[l];
- end;
- a = n;
- end;
- elseif o <= 17 then n = n + l[3];
- elseif o == 18 then local n = l[2];
- local d = {};
- local o = 0;
- local c = n + l[3] - 1;
- for l = n + 1, c do o = o + 1;
- d[o] = e[l];
- end;
- local c = {
- e[n](t(d, 1, c - n))
- };
- local l = n + l[5] - 2;
- o = 0;
- for l = n, l do o = o + 1;
- e[l] = c[o];
- end;
- a = l;
- else e[l[2]] = c[l[3]];
- end;
- n = n + 1;
- end;
- end;
- end;
- return s(r(), {}, V())();
Raw Paste