双色球杀一红十五期排行榜双色球走视图

应用介绍

程序源码：

OptionExplicit
PrivateConstcstBase64="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
PrivatearrBase64()AsString
"001000010010000100100001 --源码
"00001000000100100000010000100001 --Base64码World War in Pacific太平洋世界大战手机版1.0.4 安卓版

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说明

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

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

用户评论

新版阿拉德手游下载-新版阿拉德正版1.0 最新版

2025/10/26 23:27更新

新版阿拉德元宝神装满地爆，全新地下城闯关玩法，升级打怪极为有趣哦。精彩福利免费解锁，深渊副本刷图体验自由闯关。双龙魔影剑，天空支配者这样的神级装备，更是无压力获...

移动宽带网友 qwe123 黄金盈家app下载-黄金盈家app1.21 安卓版: 黄金盈家app下载-黄金盈家app1.21 安卓版
支持 ( 193 ) 盖楼(回复)
移动宽带网友 qwe123 破碎机大师(Master Breaker)1.0 安卓版: 破碎机大师(Master Breaker)1.0 安卓版
支持 ( 191 ) 盖楼(回复)
移动宽带网友 qwe123 DTH户户通app下载-DTH户户通app最新版1.0.5 安卓版: DTH户户通app下载-DTH户户通app最新版1.0.5 安卓版
支持 ( 59 ) 盖楼(回复)
移动宽带网友 qwe123 ok高尔夫官方免费下载-ok高尔夫游戏2.3.3 最新版: ok高尔夫官方免费下载-ok高尔夫游戏2.3.3 最新版
支持 ( 5 ) 盖楼(回复)
移动宽带网友 qwe123 天天韩剧app免费版-天天韩剧app2.5.5 安卓最新版: 天天韩剧app免费版-天天韩剧app2.5.5 安卓最新版
支持 ( 84 ) 盖楼(回复)
移动宽带网友 qwe123 淘宝护肤品广告海报模板下载-淘宝护肤品广告海报素材psd免费版: 淘宝护肤品广告海报模板下载-淘宝护肤品广告海报素材psd免费版
支持 ( 173 ) 盖楼(回复)
移动宽带网友 qwe123 云下载手机客户端(云下载app)1.12.4 安卓最新版: 云下载手机客户端(云下载app)1.12.4 安卓最新版
支持 ( 65 ) 盖楼(回复)
移动宽带网友 qwe123 去哪儿保险客户端下载-去哪儿保险(保险展业神器app)1.0安卓版: 去哪儿保险客户端下载-去哪儿保险(保险展业神器app)1.0安卓版
支持 ( 165 ) 盖楼(回复)
移动宽带网友 qwe123 吉林移动手机看店1.0.0 苹果最新版: 吉林移动手机看店1.0.0 苹果最新版
支持 ( 161 ) 盖楼(回复)
移动宽带网友 qwe123 神奇训练家手游下载-神奇训练家官网版2.0.100安卓版: 神奇训练家手游下载-神奇训练家官网版2.0.100安卓版
支持 ( 190 ) 盖楼(回复)
移动宽带网友 qwe123 鱼丸免费小说平台下载-鱼丸免费小说app2.3.0最新版: 鱼丸免费小说平台下载-鱼丸免费小说app2.3.0最新版
支持 ( 133 ) 盖楼(回复)
移动宽带网友 qwe123 农贸市场摊位租赁合同免费下载-市场摊位租赁合同免费版: 农贸市场摊位租赁合同免费下载-市场摊位租赁合同免费版
支持 ( 172 ) 盖楼(回复)
移动宽带网友 qwe123 惠普PCL文件查看工具下载-PCL查看转换打印工具(PCLReader)15.10 最新免费版: 惠普PCL文件查看工具下载-PCL查看转换打印工具(PCLReader)15.10 最新免费版
支持 ( 16 ) 盖楼(回复)
移动宽带网友 qwe123 长矛兵狂欢(lancer spree)1.0.1 安卓版: 长矛兵狂欢(lancer spree)1.0.1 安卓版
支持 ( 128 ) 盖楼(回复)
移动宽带网友 qwe123 U盘数据恢复软件-U盘备份工具(USB Image Tool)1.66 绿色汉化版: U盘数据恢复软件-U盘备份工具(USB Image Tool)1.66 绿色汉化版
支持 ( 17 ) 盖楼(回复)
移动宽带网友 qwe123 黄金急救app下载-黄金急救app2.0.247 安卓手机版: 黄金急救app下载-黄金急救app2.0.247 安卓手机版
支持 ( 42 ) 盖楼(回复)
移动宽带网友 qwe123 宠物冒险家下载-宠物冒险家手游1.0.41 安卓版: 宠物冒险家下载-宠物冒险家手游1.0.41 安卓版
支持 ( 67 ) 盖楼(回复)
移动宽带网友 qwe123 悠悠江湖传手游1.0安卓版: 悠悠江湖传手游1.0安卓版
支持 ( 9 ) 盖楼(回复)
移动宽带网友 qwe123 鼎鼎办公app下载-鼎鼎办公软件1.0 最新版: 鼎鼎办公app下载-鼎鼎办公软件1.0 最新版
支持 ( 83 ) 盖楼(回复)
移动宽带网友 qwe123 多彩八步app下载-多彩八步软件1.0.1 安卓最新版: 多彩八步app下载-多彩八步软件1.0.1 安卓最新版
支持 ( 69 ) 盖楼(回复)

查看更多评论

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

程序源码：

Base64说明