local s, t = string, table local ss = s.sub -------------------------------------------------------------------------------- local POS_BITS = 12 local LEN_BITS = 16 - POS_BITS local POS_SIZE = 1 << POS_BITS local LEN_SIZE = 1 << LEN_BITS local LEN_MIN = 3 local function lzss_decompress(input) local offset, output = 1, {} local window = '' while offset <= #input do local flags = s.byte(input, offset) offset = offset + 1 for i = 1, 8 do local str = nil if (flags & 1) ~= 0 and offset <= #input then str = ss(input, offset, offset) offset = offset + 1 elseif offset + 1 <= #input then local tmp = s.unpack('>I2', input, offset) offset = offset + 2 local pos = (tmp >> LEN_BITS) + 1 local len = (tmp & (LEN_SIZE - 1)) + LEN_MIN str = ss(window, pos, pos + len - 1) end flags = flags >> 1 if str then output[#output + 1] = str window = ss(window .. str, -POS_SIZE) end end end return t.concat(output) end return print(lzss_decompress("local a=..._BIOS=\"Zorya NEO\"_ZVSTR=\"2.0ER=@;_ZPwAT=GIT a9eec0\"b={}b.libsc=3;b.searchd0;function krequire(e)if c[e]then return end;for f=1,#d do g=d[f] g \n\" =g()\n{  ! = ;c[\"thd\"]=M(u()'ij=1computer=unpack=C ~ ptable.CVroutine@.creatl8yielm8resumn8statusgh.add(o,ptq=assert(k(p))i[#i+1]={o,q,{},0,\".+\"}i[q]=\"a rsF.pullSignalutosleepet=math.huge Wi  i [4]a,*0\rsu=0xv={s(u)}if/1v^/r[#r\"vrv=r[1]Sremove(r,C1) !\nt3w6ruPw=')+d%./pw1 n(*2])~=\"7ning`\n@_x,y=m<,C(w\"@lkpPOUVopiQZUjDAs5ha0R3'oϞ/_o4¾G5x( roymUDataea6=a51,36)4Ua7tT!a6,\"open\",am7\")Ea3!T<4.exs\nu?,\"C5RP=a6]a8h V$4)B\\27ZLS=V=a(5lcz !Mx;xp Qp])&\".zy2/vs/?a2 ?0`8((fǰt /initoh@oMI2_ZLNoW0^\"_od59=cfg.lu=f2=a0,Pm,_BOOTADDR1cQ9_9_98e:Xa9:@zy_:#,ˇa)x=aa US\".tracCeb a x(\n"), "=bios.lua")(lzss_decompress)