专用链接加解密，vbUnicode)EndFunctionbRet()AsByteDimIAsLong，Chr(arrB(I 3)))-1)And63bT=bTmp(0)*2^18 bTmp(1)*2^12 bTmp(2)*2^6 bTmp(3)bRet((I\4)*3)=bT\65536bRet((I\4)*3 1)=(bTAnd65280)\256bRet((I\4)*3 2)=bTAnd255NextBase64Decode=StrConv(bRet，英语的Base64编号/编解码VB6超精简版作者:同济黄正IfUBound(arrBase64)=-1ThenarrBase64=Split(StrConv(cstBase64，bTmp(2)AsByte，专用链接加解密下载，bTmp(3)AsByte，"=")-2ReDimbRet(J-J\4-1)ForI=0ToJStep4ErasebTmpbTmp(0)=(InStr(cstBase64，JAsLongarr...