42 lines
3.3 KiB
Lua
42 lines
3.3 KiB
Lua
|
||
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.0±÷ER=@;_ZPwAT=GIT a9eec0\" ÿb={}b.li³bs c=3;ÿb.searchò–d0Ó;funÿction krÿequire(eÿ)if c[e]ÿthen ret÷urn Òend;ÿfor f=1,¿#d do gß=d[f] ƒg ¼\n\" á=g()\n{ Ð ! = ;cÿ[\"thd\"]=M(u() 'i–÷j=1´compŸuter=Å´u¿npack=C ~ ptable.CþVroutineð@¤µ.creëat¥l8yieõl¥m8resuõm¥n8statûusgh.addï(o,ptq=aÿssert(k(ÿp))i[#i+ÿ1]={o,q,ÿ{},0,\".+\"}i[q]=\"aÔ r–sF.pÿullSignaýl êutosleûepet=mat¿h.huge Wiô °i Ð[4]a,*¤<t\rst$*ÂÞKu=t-%Öupßtime( ¡u<½0#r>0\rsuû=0xv={s(Ÿu)}if/—1<E28094>v^/µr[#r\"¡vr¿v=r[1]Srÿemove(r,C1) !\nt3“ w 6 øruPw='ª)ŸÐ+d%Ç.…/pw1× ný(*¢2])~=\" 7Àning`\n@ _x,y=m<µ,Có(w\"@<€ot x¾\rserror<³1ÿ]..\": \".ó.y5R °y==\"ùk=ã*¢6]=trëuery:Ÿ+(yp(ö\"P*Â=y;3.100)}q6á)ªÒ z,R<rz=de'ad\"+@QzCÐ\n\"ïq[#q\"¡z;qå[K± Mð6i=qÆ5”#i/° \" ki<6B>ll(fFÓCé øsŸched_ 5#ïi==jPMget·_thðds6i PK%ßl(qEY!5hh1)e%¿&Ñ… ðbt6Ñ@syst»em¯l A6éAü q!à)whileÈ7• KBpa(prŸotectS 7ÁC¿,o)o=o\"¿lkprc$B Bú´DI”E,z iÿn pairs(»_GcD[EN¤;ÿD._ENV=DòjGjr&nil;¼ …!¤loadeà\"ý=B o,\"t\",GD))5Ra( _Pÿ(F,G)c[FÇ]=GPKo#Ó(H_)d[#d\"¡Hr\ntAZÔ_ _]^()I]xÀl^UA]xt1|tÁonentBøzB_zJ=falõs¥K6élog(r €)zexy(Wÿlist(\"ocoemu\"[).~Õ\"‡Lp vM\" ƒ¿\"zyneofñL´ ð‡N N.wÑsõ=íO6éO.deObug_~Õ Pz—:€äs+box<6F>¡ pÈ€_<E282AC>t °P\rtfinvoke(P,€çg\",‚DPKO.bî r(QtQ=Qÿ:gsub(\"- \",\"\",DtÝ\" fQ,2 R=ëR. pr=°.chÿar(tonumëbe‘Ð:’Áf,f?+1),16n3\ntéR<EFBFBD><EFBFBD>V1fb`(S,9T“¸ U,gŠx<C5A0>4÷S,\"V1\",T,ŒFH@3U +\rdAg^5RR=U;bCU °›¯œÏFƒ•b(Ufa\"”ž7\n\"bðk6›ï,?\"close<EFBFBD>`Eú˜Îd( copy(V,W)W=Wþ¥X={[V]=½W´Y={V´Zo={W}bB#Y/°Ä gþY4 c °ty<74>pe(z=1R=ãZp4 it}`*aX[z\nౕ²±²2I'±•q;Y÷[#YMÓZ[#Z6\"¡q;²±=q5rR4ZZ504ZY5;WrÉÙOro'\"z1\",ZÞ_–a0¾G16éûa0<61>ðadmod÷(a2 ¡a1[aQ2\nÁs *_ g—P'#_,Á E_ ÑÁ,\rdÁs=g5•g·:¿Ýëere¢pn p(DànKÀ`oAÀÐq•p)_×[#_\"¡p°g(#_Ê>lkpPO¤U²VÍopiQ€ZUÏjDAs5ha0R<30>± 3‡' šo›<6F>œ¯<C593>Ïžï ¡/œ_€£o¤<6F>¥¯›ï§ï˜Ã 4¾G5Šxÿ<7F>( roym<79>£UÐDataeßa6=a5—1,—36)¿×4UÁšaå7tT!•Žža6,ÿ\"open\",am7<6D> \")Ea3î!½TÊ<4.ex<65> sëñ\nuí?,\"ñCî±5RÜëP‘¡=a6ƒ]a8hª<68> °Vê$4)Bð¿\\27ZLS=ãV=a(öó5—úlòöcz !MÞx;xp Qpü¾Ð]‡¼³)Ë æüÀ„ð&\".zy2/v¾às/?àa2 ?0þÑå`¾š8(ç(ü¿ü¶€fÀúïúåÇ°tÐøø /init÷¿÷¿üoüh@÷oúM¾ÂI2_ZíLNÝ þòüoé¯éW0é»^ é¿é»üÏéÇû\"éÿø_ê ÷ÿá¯üoæd÷¯ýÿê5–´û9=Ûîcfg.lñuÔð=f’2=a0,À•„ÿP”ÕþÒm‘ûˆ,_ÿBOOTADDR ú1cQ9_9_9å8ä<38>e:Xa9:@zyö _<>:#ú›ò,ˇa)x=aùa US\".tracCebñ aÑ xÙ(Ä\n"), "=bios.lua")(lzss_decompress) |