وحدة:base64

يمكن إنشاء صفحة توثيق الوحدة في وحدة:base64/شرح

--serves [[template:R:ka:GED]]

local export = {}

local b='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'

function export.R_ka_GED(term)
	local data = [[a:2:{s:12:"word_metauri";s:]] .. string.len(term.args[1]) .. [[:"]].. term.args[1] .. [[";s:11:"word_statia";s:0:"";}]]
	return export.enc(data)
end

function export.enc(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

return export