Module:base64

Hello, you have come here looking for the meaning of the word Module:base64. In DICTIOUS you will not only get to know all the dictionary meanings for the word Module:base64, but we will also tell you about its etymology, its characteristics and you will know how to say Module:base64 in singular and plural. Everything you need to know about the word Module:base64 you have here. The definition of the word Module:base64 will help you to be more precise and correct when speaking or writing your texts. Knowing the definition ofModule:base64, as well as those of other words, enriches your vocabulary and provides you with more and better linguistic resources.
The following documentation is located at Module:base64/documentation.
Useful links: subpage list • links • transclusions • testcases • sandbox

This module implements the base64 encoding scheme. 


local export = {}
-- use ] for bitwise operations
local bit32 = require("Module:bit32")

do local chr, ord, gsub, sub, band, lshift, rshift = string.char, string.byte, string.gsub, string.sub, bit32.band, bit32.lshift, bit32.rshift

local b64t = {
	 =
	'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z',
	'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z',
	'0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '+', '/'
}
local b64r = {}
for k, v in pairs(b64t) do b64r = k end

function export.encode(data)
	return (gsub(data, '..?.?', function (m)
		local b0, b1, b2 = ord(m, 1, 3)

		if not b1 then
			local c0 = rshift(b0, 2)
			local c1 = lshift(band(b0,  3), 4)
			return b64t .. b64t .. '=='
		elseif not b2 then
			local c0 = rshift(b0, 2)
			local c1 = lshift(band(b0,  3), 4) + rshift(b1, 4)
			local c2 = lshift(band(b1, 15), 2)
			return b64t .. b64t .. b64t .. '='
		else
			local c0 = rshift(b0, 2)
			local c1 = lshift(band(b0,  3), 4) + rshift(b1, 4)
			local c2 = lshift(band(b1, 15), 2) + rshift(b2, 6)
			local c3 = band(b2, 63)
			return b64t .. b64t .. b64t .. b64t
		end
	end))
end

function export.decode(data)
    local padding = false
    if #data % 4 ~= 0 then
        error('Invalid base64')
    end
	return (gsub(data, '(.)(.)(.)(.)', function (c0, c1, c2, c3)
        local t0, t1, t2, t3 = b64r, b64r, b64r, b64r

        if padding then
            error('Invalid base64')
        end
        if c2 == '=' and c3 == '=' then
            if not t0 or not t1 then error('Invalid base64') end
            local b0 = lshift(t0, 2) + rshift(t1, 4)
            padding = true
            return chr(b0)
        elseif c3 == '=' then
            if not t0 or not t1 or not t2 then error('Invalid base64') end
            local b0 = lshift(t0, 2) + rshift(t1, 4)
            local b1 = band(lshift(t1, 4) + rshift(t2, 2), 255)
            padding = true
            return chr(b0) .. chr(b1)
        else
            if not t0 or not t1 or not t2 or not t3 then error('Invalid base64') end
            local b0 = lshift(t0, 2) + rshift(t1, 4)
            local b1 = band(lshift(t1, 4) + rshift(t2, 2), 255)
            local b2 = band(lshift(t2, 6) + t3, 255)
            return chr(b0) .. chr(b1) .. chr(b2)
        end
	end))
end

end

export.enc = export.encode
export.dec = export.decode

return export
Wikious
Boobota
Sagapedia