天空彩天下彩票兔废料天下彩黄金马①肖中特

应用介绍

程序源码：

OptionExplicit
PrivateConstcstBase64="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
PrivatearrBase64()AsString
"001000010010000100100001 --源码
"00001000000100100000010000100001 --Base64码手机计算软件-华为手机快捷计算器app5.4.60 安卓版

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=Base64Encode&arrBase64(bT)

   bT=(bTmp(0)And3)*16
   bT=bT+bTmp(1)/16
   Base64Encode=Base64Encode&arrBase64(bT)

   bT=(bTmp(1)And15)*4
   bT=bT+bTmp(2)/64
   IfI+1<=JThen
       Base64Encode=Base64Encode&arrBase64(bT)
   Else
       Base64Encode=Base64Encode&"="
   EndIf

   bT=bTmp(2)And63
   IfI+2<=JThen
       Base64Encode=Base64Encode&arrBase64(bT)
   Else
       Base64Encode=Base64Encode&"="
   EndIf
Next
EndFunction

PublicFunctionBase64Decode(strEncodedAsString)AsString
"适用于中、英文的Base64编码/解码VB6超精简版
OnErrorResumeNext
DimarrB()AsByte,bTmp(3) AsByte,bTAsLong,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

这是一个Base64编码、解码小工具（可破解迅雷下载地址）。采用本站原创的VB6下Base64编码解码算法。

Base64说明

Base64是网络上最常见的用于传输8Bit字节代码的编码方式之一，可用于在HTTP环境下传递较长的标识信息。在其他应用程序中，也常常需要把二进制数据编码为适合放在URL（包括隐藏表单域）中的形式。此时，采用Base64编码不仅比较简短，同时也具有不可读性，即所编码的数据不会被人用肉眼所直接看到。

用户评论

手机信息弹幕软件-弹幕通知xposed插件0.002 安卓最新版

2025/10/27 21:46更新

现在看视频很多人都快习惯看弹幕，玩弹幕的人也越来越多，想不想自己手机的信息通知也是以弹幕的形式出现呢？弹幕通知xposed插件是网友自已制作的一个安卓xpose...

移动宽带网友 zavbib 真三国无双霸手游正式版-真三国无双霸公测版1.3.2 安卓版: 真三国无双霸手游正式版-真三国无双霸公测版1.3.2 安卓版
支持 ( 180 ) 盖楼(回复)
移动宽带网友 zavbib 爱情鸟手机版下载安装-爱情鸟手机版8.8.8 安卓版: 爱情鸟手机版下载安装-爱情鸟手机版8.8.8 安卓版
支持 ( 65 ) 盖楼(回复)
移动宽带网友 zavbib 平安寮步app下载-平安寮步app1.1.0 苹果版: 平安寮步app下载-平安寮步app1.1.0 苹果版
支持 ( 170 ) 盖楼(回复)
移动宽带网友 zavbib 足球大师黄金一代九游版下载-足球大师黄金一代九游版11.4.0 安卓版: 足球大师黄金一代九游版下载-足球大师黄金一代九游版11.4.0 安卓版
支持 ( 68 ) 盖楼(回复)
移动宽带网友 zavbib VIVA畅读手机版下载-VIVA畅读7.2.3 官方苹果版: VIVA畅读手机版下载-VIVA畅读7.2.3 官方苹果版
支持 ( 83 ) 盖楼(回复)
移动宽带网友 zavbib 键盘打字哒哒声mp3-键盘音效mp3: 键盘打字哒哒声mp3-键盘音效mp3
支持 ( 169 ) 盖楼(回复)
移动宽带网友 zavbib 南丰网app1.0.20 安卓官方版: 南丰网app1.0.20 安卓官方版
支持 ( 158 ) 盖楼(回复)
移动宽带网友 zavbib 火影浏览器下载安装手机版-火影浏览器3.1.3 手机版: 火影浏览器下载安装手机版-火影浏览器3.1.3 手机版
支持 ( 35 ) 盖楼(回复)
移动宽带网友 zavbib 睿思云测电脑客户端下载-睿思云测PC版6.3.10632.0官方版: 睿思云测电脑客户端下载-睿思云测PC版6.3.10632.0官方版
支持 ( 143 ) 盖楼(回复)
移动宽带网友 zavbib IE加加浏览器(具有IE7的清爽外观的新型迷你浏览器)V1.0 绿色版: IE加加浏览器(具有IE7的清爽外观的新型迷你浏览器)V1.0 绿色版
支持 ( 95 ) 盖楼(回复)
移动宽带网友 zavbib 扫描王app下载安装到手机-思汉扫描王HD3.5.51 苹果版: 扫描王app下载安装到手机-思汉扫描王HD3.5.51 苹果版
支持 ( 48 ) 盖楼(回复)
移动宽带网友 zavbib 40部韩剧心动镜头下载-40部韩剧心动镜头视频高清免费下载: 40部韩剧心动镜头下载-40部韩剧心动镜头视频高清免费下载
支持 ( 168 ) 盖楼(回复)
移动宽带网友 zavbib 焚梦QQ空间说说删除助手1.0 绿色版: 焚梦QQ空间说说删除助手1.0 绿色版
支持 ( 13 ) 盖楼(回复)
移动宽带网友 zavbib 新商水app1.2.2 安卓版: 新商水app1.2.2 安卓版
支持 ( 67 ) 盖楼(回复)
移动宽带网友 zavbib 飞翔的锦鲤(New Flaying Koi Fish)1.3 安卓版: 飞翔的锦鲤(New Flaying Koi Fish)1.3 安卓版
支持 ( 156 ) 盖楼(回复)
移动宽带网友 zavbib 狸米课堂官网下载手机版-狸米课堂app手机版2.8.8安卓最新版: 狸米课堂官网下载手机版-狸米课堂app手机版2.8.8安卓最新版
支持 ( 196 ) 盖楼(回复)
移动宽带网友 zavbib 秘蜜软件下载下载-秘蜜苹果版1.6.5 最新版: 秘蜜软件下载下载-秘蜜苹果版1.6.5 最新版
支持 ( 156 ) 盖楼(回复)
移动宽带网友 zavbib 加速汽车(speed of cars)1.2.0 安卓版: 加速汽车(speed of cars)1.2.0 安卓版
支持 ( 23 ) 盖楼(回复)
移动宽带网友 zavbib 91踢球官网app下载-91踢球1.2.2安卓最新版: 91踢球官网app下载-91踢球1.2.2安卓最新版
支持 ( 162 ) 盖楼(回复)
移动宽带网友 zavbib 成语值千金赚钱版下载-成语值千金红包版游戏1.0.1 手机版: 成语值千金赚钱版下载-成语值千金红包版游戏1.0.1 手机版
支持 ( 94 ) 盖楼(回复)

查看更多评论

Base64编码解码小工具1.0 绿色免费版

程序源码：

Base64说明