base64

В очередной раз надоело разбираться в "скрытых особенностях" общедоступного внешнего модуля для Lua. На этот раз раздражителем стал простецкий Base64, выполняющий одноимённые преобразования. Хочешь сделать хорошо - сделай сам.

base64 = {}
local b = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
-- encoding ----------------------------------------------------------
function base64.encode(data)
   return ((data:gsub(".", function(x) 
      local r,b= "",x:byte()
      for i = 8,1,-1 do
         r = r..(b%2^i-b%2^(i-1) > 0 and "1" or "0")
      end
      return r;
   end).."0000"):gsub("%d%d%d?%d?%d?%d?", function(x)
      if (#x < 6) then return "" end
      local c = 0
      for i = 1,6 do
         c = c+(x:sub(i,i)== "1" and 2^(6-i) or 0)
      end
      return b:sub(c+1,c+1)
   end)..({ "", "==", "=" })[#data%3+1])
end

-- decoding --------------------------------------------------------------
function base64.decode(data)
   data = string.gsub(data, "[^" .. b .. "=]","")
   return (data:gsub(".", function(x)
      if (x == "=") then
         return "" 
      end
      local r,f = "",(b:find(x)-1)
      for i = 6,1,-1 do
         r = r .. (f%2^i-f%2^(i-1) > 0 and "1" or "0")
      end
      return r;
   end):gsub("%d%d%d?%d?%d?%d?%d?%d?", function(x)
      if (#x ~= 8) then
         return ""
      end
      local c = 0
      for i = 1,8 do
         c = c+(x:sub(i,i)== "1" and 2^(8-i) or 0)
      end
      return string.char(c)
   end))
end