签名的字节码加载

local function extract_code(data)
   local code = data:sub(1,-33)
   assert(HMAC_SHA256(code, getkey()) == data:sub(-32), "Invalid signature")
   return code
end

local nativeload = load
load = function(chunk, chunkname, mode, ...)
   local targetenv = [[snip]]
   if select('#', ...) ~= 0 then targetenv = ... end
   local new_chunk
   if type(chunk) == "string" then
      new_chunk = chunk:match"^\27Lua" and extract_code(chunk) or chunk
   elseif type(chunk) == "function" then
      local buffer = ""
      repeat
         local next_part = chunk() or ""
         buffer = buffer..next_part
      until next_part == "" or #buffer >= 4
      if buffer:match"^\27Lua" then -- Bytecode can't be very large, collect it in a string
         local t = {buffer}
         while t[#t] ~= "" do t[#t+1] = chunk() or "" end
         new_chunk = extract_code(table.concat(t))
      else                          -- Source code can be very large, use a function
         local function f()
            f = chunk
            return buffer
         end
         function new_chunk()
            return f()
         end
      end
   end
   return nativeload(new_chunk, chunkname, mode, targetenv)
end

这段代码实现了 Lua 脚本的加载和运行，支持对加密脚本的解密和验证签名。

其中 extract_code 函数用于提取加密的脚本内容，并验证签名的有效性。如果签名无效则会触发错误。

load 函数是对 loadin 函数的扩展，在加载脚本前对其进行处理，如果是加密的脚本则先进行解密，否则直接加载。同时支持加载字节码和源代码，如果是字节码则会将其转化为字符串进行解密，如果是源代码则会用一个函数来加载。

这段代码的作用是保护 Lua 脚本的安全性，防止源码泄漏以及篡改。