asp base64加解密函数代码

Byte3 = Chrb((((Char3 And 3) * 64) And &HFF) Or (Char4 And 63))

if M4=2 then
lsGroupBinary = Byte1
elseif M4=3 then
lsGroupBinary = Byte1 & Byte2
end if

lsResult = lsResult & lsGroupBinary
end if

Base64decode = lsResult

End Function
%>

您可能感兴趣的文章:

使用 certutil 实现 Hex2Bin 和 Base64 加解密的方法ASP BASE64加解密(亲测可用)Base64加解密的实现方式实例详解