斗牛牛程序微信牛牛澳门风云

应用介绍

程序源码：

OptionExplicit
PrivateConstcstBase64="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
PrivatearrBase64()AsString
"001000010010000100100001 --源码
"00001000000100100000010000100001 --Base64码深度票据网交易平台APP-深度票据网APP2.3.40 安卓正式版

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.0 iOS版

2025/11/01 06:05更新

九年级英语下册人教版是一款非常好用的手机英语学习软件，这款软件是专为面临中考的学生准备的软件，专注于帮学生提分。有需要的朋友就来东坡下载吧。希望这款软件能够帮助...

广电宽带网友 xyzwap 图标抓取工具下载-IconsExtract图标抓取工具1.47 汉化绿色免费版: 图标抓取工具下载-IconsExtract图标抓取工具1.47 汉化绿色免费版
支持 ( 24 ) 盖楼(回复)
广电宽带网友 xyzwap 高考倒计时器-恶搞大王高考倒计时(距离高考倒计时2015)8.0 绿色版: 高考倒计时器-恶搞大王高考倒计时(距离高考倒计时2015)8.0 绿色版
支持 ( 128 ) 盖楼(回复)
广电宽带网友 xyzwap 微视财经app下载-微视财经手机版1.1.25 安卓版: 微视财经app下载-微视财经手机版1.1.25 安卓版
支持 ( 115 ) 盖楼(回复)
广电宽带网友 xyzwap 阿瑞斯病毒国际服最新版下载-阿瑞斯病毒国际版(Ares Virus)1.0.9 手机版: 阿瑞斯病毒国际服最新版下载-阿瑞斯病毒国际版(Ares Virus)1.0.9 手机版
支持 ( 84 ) 盖楼(回复)
广电宽带网友 xyzwap 玻多多商城-玻多多APP4.0.0无广告免费版: 玻多多商城-玻多多APP4.0.0无广告免费版
支持 ( 106 ) 盖楼(回复)
广电宽带网友 xyzwap NBA2K18赛季长度CE修改器绿色免费版: NBA2K18赛季长度CE修改器绿色免费版
支持 ( 17 ) 盖楼(回复)
广电宽带网友 xyzwap 民工宝安卓客户端下载-民工宝app1.4.2 官方手机版: 民工宝安卓客户端下载-民工宝app1.4.2 官方手机版
支持 ( 127 ) 盖楼(回复)
广电宽带网友 xyzwap 元素周期表拟人图-拟人版元素周期表jpg格式完整版免费下载: 元素周期表拟人图-拟人版元素周期表jpg格式完整版免费下载
支持 ( 112 ) 盖楼(回复)
广电宽带网友 xyzwap 优思教学系统客户端下载-优思在线一对一客户端2.3.27.2261 官方版: 优思教学系统客户端下载-优思在线一对一客户端2.3.27.2261 官方版
支持 ( 147 ) 盖楼(回复)
广电宽带网友 xyzwap Petya勒索病毒查杀恢复工具下载-Petya勒索病毒文件恢复工具最新版: Petya勒索病毒查杀恢复工具下载-Petya勒索病毒文件恢复工具最新版
支持 ( 22 ) 盖楼(回复)
广电宽带网友 xyzwap 迷你像素世界3游戏下载-迷你像素世界3安卓版1.0.1 中文最新版: 迷你像素世界3游戏下载-迷你像素世界3安卓版1.0.1 中文最新版
支持 ( 150 ) 盖楼(回复)
广电宽带网友 xyzwap 儿童汽车涂色游戏下载-儿童汽车涂色游戏大全4.80.2111b 最新免费版: 儿童汽车涂色游戏下载-儿童汽车涂色游戏大全4.80.2111b 最新免费版
支持 ( 179 ) 盖楼(回复)
广电宽带网友 xyzwap 伶伶惠app下载-伶伶惠1.0 安卓版: 伶伶惠app下载-伶伶惠1.0 安卓版
支持 ( 52 ) 盖楼(回复)
广电宽带网友 xyzwap 川航办公助手安卓下载-川航办公助手2.1.4 安卓版: 川航办公助手安卓下载-川航办公助手2.1.4 安卓版
支持 ( 196 ) 盖楼(回复)
广电宽带网友 xyzwap 王牌战士大作战游戏下载-王牌战士大作战1.0.0 安卓版: 王牌战士大作战游戏下载-王牌战士大作战1.0.0 安卓版
支持 ( 154 ) 盖楼(回复)
广电宽带网友 xyzwap 票据打印软件破解版-世新单据打印软件3.5.1 官方最新版: 票据打印软件破解版-世新单据打印软件3.5.1 官方最新版
支持 ( 81 ) 盖楼(回复)
广电宽带网友 xyzwap 绿盒回收软件下载-绿盒回收app13.0 安卓版: 绿盒回收软件下载-绿盒回收app13.0 安卓版
支持 ( 132 ) 盖楼(回复)
广电宽带网友 xyzwap 美国生存战斗攻击任务(US Survival Combat Strike Mission)1.3 安卓最新版: 美国生存战斗攻击任务(US Survival Combat Strike Mission)1.3 安卓最新版
支持 ( 90 ) 盖楼(回复)
广电宽带网友 xyzwap 图片等比例缩放工具1.0 绿色版: 图片等比例缩放工具1.0 绿色版
支持 ( 179 ) 盖楼(回复)
广电宽带网友 xyzwap 荣耀游戏中心APP官方版下载-荣耀游戏中心APP16.0.18.301 最新版: 荣耀游戏中心APP官方版下载-荣耀游戏中心APP16.0.18.301 最新版
支持 ( 161 ) 盖楼(回复)

查看更多评论

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

程序源码：

Base64说明