用asp实现base64编码
来源:互联网 发布:化工仿真软件步骤 编辑:程序博客网 时间:2024/05/01 17:03
<%
function bin2dec(binStr)
towPow=1
numLen=len(binStr)
bin2Dec=0
decPos=numLen
do while decPos>0
cChar=mid(binStr,decPos,1)
nChar=Cint(cChar)
bin2Dec=bin2Dec+nChar*towPow
towPow=towPow*2
decPos=decPos-1
Loop
end function
function dec2bin(octNumber)
vara=octNumber
do
dec2bin=cstr(vara mod 2) & dec2bin
vara=vara / 2
loop until vara=0
end function
Bstr_base64="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/="
function enCode_base64(strBin)
bins=""
for i=1 to lenB(strBin)
varTm=AscB(midB(strBin,i,1))
bins=bins & right("00000000" & dec2bin(varTm),8)
if i mod 3=0 then
for w=0 to 3
sixBin=mid(bins,w*6+1,6)
nChar=bin2Dec(sixBin)+1
enCode_base64=enCode_base64 & mid(Bstr_base64,nChar,1)
next
bins=""
end if
next
if bins<>"" then
pads=3-len(bins) / 8
exitLoop=false
do while not exitLoop
nChar=left(bins,6)
if len(nChar)<6 then
nChar=left(nChar & "000000",6)
exitLoop=true
end if
nNum=bin2dec(nChar)+1
enCode_base64=enCode_base64 & mid(Bstr_base64,nNum,1)
bins=mid(bins,7)
Loop
enCode_base64=enCode_base64 & String(pads,"=")
end if
end function
function deCode_base64(baseStr)
if len(baseStr) mod 4 <>0 then
exit function
end if
bins=""
for i=1 to Len(baseStr)
nChar=mid(baseStr,i,1)
if nChar="=" then
exit for
end if
oldValue=inStr(Bstr_base64,nChar)-1
binValue=right("000000" & dec2bin(oldValue),6)
bins=bins & binValue
if len(bins)>=8 then
deChar=left(bins,8)
bins=mid(bins,9)
deCode_base64=deCode_base64 & chrB(bin2Dec(deChar))
end if
next
end function
%>
function bin2dec(binStr)
towPow=1
numLen=len(binStr)
bin2Dec=0
decPos=numLen
do while decPos>0
cChar=mid(binStr,decPos,1)
nChar=Cint(cChar)
bin2Dec=bin2Dec+nChar*towPow
towPow=towPow*2
decPos=decPos-1
Loop
end function
function dec2bin(octNumber)
vara=octNumber
do
dec2bin=cstr(vara mod 2) & dec2bin
vara=vara / 2
loop until vara=0
end function
Bstr_base64="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/="
function enCode_base64(strBin)
bins=""
for i=1 to lenB(strBin)
varTm=AscB(midB(strBin,i,1))
bins=bins & right("00000000" & dec2bin(varTm),8)
if i mod 3=0 then
for w=0 to 3
sixBin=mid(bins,w*6+1,6)
nChar=bin2Dec(sixBin)+1
enCode_base64=enCode_base64 & mid(Bstr_base64,nChar,1)
next
bins=""
end if
next
if bins<>"" then
pads=3-len(bins) / 8
exitLoop=false
do while not exitLoop
nChar=left(bins,6)
if len(nChar)<6 then
nChar=left(nChar & "000000",6)
exitLoop=true
end if
nNum=bin2dec(nChar)+1
enCode_base64=enCode_base64 & mid(Bstr_base64,nNum,1)
bins=mid(bins,7)
Loop
enCode_base64=enCode_base64 & String(pads,"=")
end if
end function
function deCode_base64(baseStr)
if len(baseStr) mod 4 <>0 then
exit function
end if
bins=""
for i=1 to Len(baseStr)
nChar=mid(baseStr,i,1)
if nChar="=" then
exit for
end if
oldValue=inStr(Bstr_base64,nChar)-1
binValue=right("000000" & dec2bin(oldValue),6)
bins=bins & binValue
if len(bins)>=8 then
deChar=left(bins,8)
bins=mid(bins,9)
deCode_base64=deCode_base64 & chrB(bin2Dec(deChar))
end if
next
end function
%>
- 用asp实现base64编码
- ASP.NET----Base64编码
- 教你用Perl 实现Base64编码
- 用C++实现Base64编码解码
- Base64编码java实现
- java实现base64编码
- Base64编码----C++实现
- Base64编码实现-3
- python 实现base64编码
- BASE64编码 C实现
- java实现base64编码
- Asp:base64编码、解码函数
- Asp:base64编码、解码函数
- 用ASP写Base64编码数据到文件
- VB6实现Base64编码/解码
- Base64编码解码与实现
- Base64编码、解码的实现
- base64编码原理与实现
- 交换提单SWITCH B/L
- 看书+思考=智慧
- 1-04 C++起步: 数据与代码的集成 —— C++对结构的扩充
- 【一棵开花的树】 席慕容
- 为treeview添加客户端事件
- 用asp实现base64编码
- asp彩色验证码图像生成脚本
- ASP.NET 开发人员应当始终坚持的做法
- 连接各种数据库写法
- 给技术人员的一些忠告
- 嵌入式系统与嵌入式操作系统
- struts解决中文乱码和国际化问题
- 第七課
- 加密算法之DES算法