Binary API for CC [COMPRESSED]

local function split(str,reg)local tbl={}for match in string.gmatch(str,reg)do
table.insert(tbl,match)end
return tbl
end
function fillString(bin,length)local output=bin
while#bin<length do
table.insert(bin,"0000000")end
return output
end
function fillChar(bin)local c=bin
if(#c~=7)then
while#c~=7do
c="0"..c
end
end
return c
end
function numberToBinary(number)local s=""repeat
local remainder=number%2s=remainder..s
number=(number-remainder)/2until number==0return s
end
function binaryToNumber(bin)return tonumber(bin,2)end
function charToBinary(ch)return numberToBinary(string.byte(string.sub(ch,1,1)))end
function binaryToChar(bin)return string.char(binaryToNumber(bin))end
function stringToBinary(str)local tbl={}for char in string.gmatch(str,".")do
tbl[#tbl+1]=charToBinary(char)end
return tbl
end
function binaryToString(bin)str=""for k,v in pairs(bin)do
str=str..binaryToChar(v)end
return str
end
function bnot(bin)local bin=split(bin,".")local output=""for k,v in pairs(bin)do
output=output..(v=="1"and"0"or"1")end
return output
end
function bor(first,second)local f,s=split(first,"."),split(second,".")local output=""if(#first~=#second)then error("binaries are not of the same length")end
for i=1,#first do
output=output..((f[i]=="1"or s[i]=="1")and"1"or"0")end
return output
end
function band(first,second)local f,s=split(first,"."),split(second,".")local output=""if(#first~=#second)then error("binaries are not of the same length")end
for i=1,#first do
output=output..((f[i]=="1"and s[i]=="1")and"1"or"0")end
return output
end
function bxand(first,second)local f,s=split(first,"."),split(second,".")local output=""if(#first~=#second)then error("binaries are not of the same length")end
for i=1,#first do
output=output..((f[i]==s[i])and"1"or"0")end
return output
end
function bxor(first,second)local f,s=split(first,"."),split(second,".")local output=""if(#first~=#second)then error("binaries are not of the same length")end
for i=1,#first do
output=output..((f[i]~=s[i])and"1"or"0")end
return output
end
function btnot(bin)local output={}for k,v in pairs(bin)do
table.insert(output,bnot(v))end
return output
end
function btor(first,second)local output={}for k,v in pairs(first)do
table.insert(output,bor(v,second[k]))end
return output
end
function btand(first,second)local output={}for k,v in pairs(first)do
table.insert(output,band(v,second[k]))end
return output
end
function btxand(first,second)local output={}for k,v in pairs(first)do
table.insert(outp,bxand(v,second[k]))end
return output
end
function btxor(first,second)local output={}for k,v in pairs(first)do
table.insert(output,bxor(v,second[k]))end
return output
end