小投资店做什么生意好做什么赚钱投资小

应用介绍

这是一个Base64编码、解码小工具（可破解迅雷下载地址）。采用本站原创的VB6下Base64编码解码算法。红袖添香作者怎么赚钱

Base64说明

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

程序源码：

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=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

用户评论

天王霸业能赚钱吗

2025/09/21 02:47更新

休闲的模拟游戏，樱花小镇好朋友采用了水果卡通的角色，自由性很高，玩家可以在游戏里任意发挥，故事线十分完善，能够让玩家感受到沉浸式游戏的快乐。樱花小镇好朋友游戏内...

移动宽带网友 xyzwap 许昌棋牌室怎么赚钱: 许昌棋牌室怎么赚钱
支持 ( 38 ) 盖楼(回复)
移动宽带网友 xyzwap it培训兼职讲师: it培训兼职讲师
支持 ( 69 ) 盖楼(回复)
移动宽带网友 xyzwap 赢发棋牌官网: 赢发棋牌官网
支持 ( 194 ) 盖楼(回复)
移动宽带网友 xyzwap 送天猫超市快递赚钱吗: 送天猫超市快递赚钱吗
支持 ( 7 ) 盖楼(回复)
移动宽带网友 xyzwap 棋牌下载率: 棋牌下载率
支持 ( 36 ) 盖楼(回复)
移动宽带网友 xyzwap 在家玩什么网游赚钱吗: 在家玩什么网游赚钱吗
支持 ( 151 ) 盖楼(回复)
移动宽带网友 xyzwap 他趣兼职主播能赚多少: 他趣兼职主播能赚多少
支持 ( 129 ) 盖楼(回复)
移动宽带网友 xyzwap 棋牌追款: 棋牌追款
支持 ( 107 ) 盖楼(回复)
移动宽带网友 xyzwap 棋牌为什么这么赚钱: 棋牌为什么这么赚钱
支持 ( 66 ) 盖楼(回复)
移动宽带网友 xyzwap 绿色棋牌是不是假的: 绿色棋牌是不是假的
支持 ( 33 ) 盖楼(回复)
移动宽带网友 xyzwap 黑桃棋牌apk: 黑桃棋牌apk
支持 ( 166 ) 盖楼(回复)
移动宽带网友 xyzwap 哈喽出行做顺风车赚钱吗兼职: 哈喽出行做顺风车赚钱吗兼职
支持 ( 155 ) 盖楼(回复)
移动宽带网友 xyzwap 手机赚钱的项目有哪些: 手机赚钱的项目有哪些
支持 ( 166 ) 盖楼(回复)
移动宽带网友 xyzwap 2015无本赚钱的好方法: 2015无本赚钱的好方法
支持 ( 22 ) 盖楼(回复)
移动宽带网友 xyzwap 2017赚钱计划: 2017赚钱计划
支持 ( 88 ) 盖楼(回复)
移动宽带网友 xyzwap 买手妈妈赚钱怎么提现: 买手妈妈赚钱怎么提现
支持 ( 18 ) 盖楼(回复)
移动宽带网友 xyzwap 如何一天赚30块钱: 如何一天赚30块钱
支持 ( 183 ) 盖楼(回复)
移动宽带网友 xyzwap 棋牌游戏源码分享: 棋牌游戏源码分享
支持 ( 21 ) 盖楼(回复)
移动宽带网友 xyzwap 波克棋牌2.32版: 波克棋牌2.32版
支持 ( 140 ) 盖楼(回复)
移动宽带网友 xyzwap 手机日赚10元兼职: 手机日赚10元兼职
支持 ( 118 ) 盖楼(回复)

查看更多评论