---------------------------------------------------------
--- base64 library in pure lua
--- credits go to the original creator
---------------------------------------------------------

-- Luvit libraries
local string = require('string')

---------------------------------------------------------

-- Lua 5.1+ base64 v3.0 (c) 2009 by Alex Kloss <alexthkloss@web.de>
-- licensed under the terms of the LGPL2

local base64 = {}

-- character table string
local b='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'

-- encoding
base64.encode = function(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
base64.decode = function(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

base64.encodeTable = function(t, newt)
  if type(t) == "table" then
    for k,v in pairs(t) do
      if type(v) == "string" or type(v) == "number" or type(v) == "bool" then
        newt[base64.encode(tostring(k))] =  base64.encode(tostring(v))
      elseif type(v) == "table" then
        newt[base64.encode(tostring(k))] =  {}
        base64.encodeTable(v, newt[base64.encode(tostring(k))])
      end
    end
  end
end

base64.decodeTable = function(t, newt)
  if type(t) == "table" then
    for k,v in pairs(t) do
      if type(v) == "string" or type(v) == "number" or type(v) == "bool" then
        newt[base64.decode(tostring(k))] =  base64.decode(tostring(v))
      elseif type(v) == "table" then
        newt[base64.decode(tostring(k))] =  {}
        base64.decodeTable(v, newt[base64.decode(tostring(k))])
      end
    end
  end
end

return base64