lua function for showing binary representation of a string

tobin.lua

local function tobin(x)
	local t = {}
	for i=0,#x-1 do
		local c = x:byte(i+1)
		for j=0,7 do
			t[i*8+j+1] = (c & 0x80) ~= 0 and "1" or "0"
			c = c << 1
		end
	end
	return table.concat(t)
end