--Lua--十进制转二进制functiondec_to_binary (data)

local dst= ""local remainder, quotient--异常处理if not data then return dst end --源数据为空if not tonumber(data) then return dst end --源数据无法转换为数字--如果源数据是字符串转换为数字if "string" ==type(data) then

data=tonumber(data)

endwhile true doquotient= math.floor(data / 2)

remainder= data % 2dst=dst..remainder

data=quotientif 0 ==quotient thenbreakend

end--翻转

dst=string.reverse(dst)--补齐8位if 8 >#dst thenfor i = 1, 8 - #dst, 1 dodst= '0'..dst

end

endreturndst

end--Lua--二进制转十进制functionbinary_to_dec (data)

local dst= 0local tmp= 0

--异常处理if not data then return dst end --源数据为空if not tonumber(data) then return dst end --源数据无法转换为数字--如果源数据是字符串去除前面多余的0if "string" ==type(data) then

data=tostring(tonumber(data))

end--如果源数据是数字转换为字符串if "number" ==type(data) then

data=tostring(data)

end--转换for i = #data, 1, -1 dotmp= tonumber(data:sub(-i, -i))if 0 ~=tmp thenfor j = 1, i - 1, 1 dotmp= 2 *tmp

end

end

dst= dst +tmp

endreturndst

end--Lua--base64加密functionbase64encode(data)

local basecode= "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"local code= ""local dst= ""local tmp

local encode_num= 0 --base64编码后的分组数，6字节为一组

local num= 0 --编码后后缀"="的个数

local len= 1 --用于统计编码个数，76个编码字符换行--异常处理if not data then return dst end --源数据为空--转换为二进制for i = 1, #data, 1 dotmp= data:byte(i)if 0 > tmp or 255

end

code=code..dec_to_binary(tmp)

end--字符串长度不能被3整除的情况

num= 3 - #data % 3

if 0

end

encode_num= #code / 6

--开始编码for i = 1, #code, 6 dotmp= binary_to_dec(code:sub(i, i + 5))

tmp= tmp + 1 --Lua下标从1开始，切记if 0 == num then --无"="后缀的情况

dst=dst..basecode:sub(tmp, tmp)

len= len + 1encode_num= encode_num - 1

--每76个字符换行if 76 ==len then

dst= dst.."\n"len= 1end

endif 0 < num then --有"="后缀的情况if encode_num == num and 1 ==tmp then

dst= dst..'='len= len + 1encode_num= encode_num - 1num= num - 1

--每76个字符换行if 76 ==len then

dst= dst.."\n"len= 1endelsedst=dst..basecode:sub(tmp, tmp)

len= len + 1encode_num= encode_num - 1

--每76个字符换行if 76 ==len then

dst= dst.."\n"len= 1end

end

end

endreturndst

end--Lua--base64解密functionbase64decode(data)

local basecode= "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"local dst= ""local code= ""local tmp, index--异常处理if not data then return dst end --源数据为空

data= data:gsub("\n", "") --去除换行符

data= data:gsub("=", "") --去除'='

for i = 1, #data, 1 dotmp=data:sub(i, i)

index=basecode:find(tmp)if nil ==index thenreturndst

end

index= index - 1tmp=dec_to_binary(index)

code= code..tmp:sub(3) --去除前面多余的两个'00'end--开始解码for i = 1, #code, 8 dotmp= string.char(binary_to_dec(code:sub(i, i + 7)))if nil ~=tmp then

dst=dst..tmp

end

endreturndst

end