【关键编码如下所示】
'(注:自己用的并不是这个方式,我讨厌For循环系统.)
OptionExplicit
PrivateConstcstBase64="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 /"
PrivatearrBase64()AsString
'作者:同济黄正
'001000010010000100100001--源代码
'00001000000100100000010000100001--Base64码
PublicFunctionBase64Encode(strSourceAsString)AsString
OnErrorResumeNext
'适用于中、英语的Base64编号/编解码VB6超精简版作者:同济黄正
IfUBound(arrBase64)=-1Then
arrBase64=Split(StrConv(cstBase64,vbUnicode),vbNullChar)
EndIf
DimarrB()AsByte,bTmp(2)AsByte,bTAsByte
DimIAsLong,JAsLong
arrB=StrConv(strSource,vbFromUnicode)
J=UBound(arrB)
ForI=0ToJStep3
ErasebTmp
bTmp(0)=arrB(I 0)
bTmp(1)=arrB(I 1)
bTmp(2)=arrB(I 2)
bT=(bTmp(0)And252)/4
Base64Encode=Base64EncodearrBase64(bT)
bT=(bTmp(0)And3)*16
bT=bT bTmp(1)\16
Base64Encode=Base64EncodearrBase64(bT)
bT=(bTmp(1)And15)*4
bT=bT bTmp(2)\64
IfI 1=JThen
Base64Encode=Base64EncodearrBase64(bT)
Else
Base64Encode=Base64Encode"="
EndIf
bT=bTmp(2)And63
IfI 2=JThen
Base64Encode=Base64EncodearrBase64(bT)
Else
Base64Encode=Base64Encode"="
EndIf
Next
EndFunction
PublicFunctionBase64Decode(strEncodedAsString)AsString
'适用于中、英语的Base64编号/编解码VB6超精简版作者:同济黄正
OnErrorResumeNext
DimarrB()AsByte,bTmp(3)AsByte,bT,bRet()AsByte
DimIAsLong,JAsLong
arrB=StrConv(strEncoded,vbFromUnicode)
J=InStr(strEncoded"=","=")-2
ReDimbRet(J-J\4-1)
ForI=0ToJStep4
ErasebTmp
bTmp(0)=(InStr(cstBase64,Chr(arrB(I)))-1)And63
bTmp(1)=(InStr(cstBase64,Chr(arrB(I 1)))-1)And63
bTmp(2)=(InStr(cstBase64,Chr(arrB(I 2)))-1)And63
bTmp(3)=(InStr(cstBase64,Chr(arrB(I 3)))-1)And63
bT=bTmp(0)*2^18 bTmp(1)*2^12 bTmp(2)*2^6 bTmp(3)
bRet((I\4)*3)=bT\65536
bRet((I\4)*3 1)=(bTAnd65280)\256
bRet((I\4)*3 2)=bTAnd255
Next
Base64Decode=StrConv(bRet,vbUnicode)
EndFunction
多特软件专题为您提供反黄软件,戒色软件,戒色app排行,安卓苹果版软件app一应俱全。
多特软件专题为您提供链接转换工具,专用链接转换工具,xfplay链接转换工具;安卓苹果版软件app一应俱全。多特软件站只提供绿色、无毒、无插件、无木马的纯绿色工具下载
帮助家长检查计算机,迅速检查、搜索计算机中是否有不健康图像、图片、Flash、音乐和视频电影文件的专门工具。本软件可迅速搜索计算机中所有图像、Flash和影音文件,并通过放电影的方式自动快速的显示出来,方便家长在短时间内完成检查。同时,本软件具有强大的日志和搜索结果标记、导出功能。使用本软件,将极大的方便家长检查计算机,及时了解孩子使用计算机的情况。本软件同时可以作为学校、网吧和公安人员迅速检查计算机的得力工具。
磁力链接大全汇集了所有的磁力链接下载资源,不断更新最新最热门的h磁力链接信息,包括最好玩的磁力链接前十名排行,玩家们可以在这个专题找到自己喜欢的游戏,众多磁力链接优质资源,欢迎免费下载!