钓鱼台美高梅宋家庄 mgm美高梅登陆

应用介绍

Base64说明

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

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

程序源码：

OptionExplicit
PrivateConstcstBase64="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
PrivatearrBase64()AsString
"001000010010000100100001 --源码
"00001000000100100000010000100001 --Base64码茅屋为秋风所破歌ppt课件-语文茅屋为秋风所破歌ppt精选版

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

用户评论

重阳节手抄报图片大全一等奖免费下载-2017重阳节手抄报图片大全一等奖素材高清无水印版

2025/11/03 00:25更新

重阳节到了，有很多的学生都是需要各种各样的素材以及手抄报的图片的，那么现在就可以直接的在本站免费的下载最新的高清无水印的重阳节手抄报一等奖图片吧！内含大量高清无...

移动宽带网友 xyzwap 率土之滨网易版下载-率土之滨网易官服8.1.8 最新版: 率土之滨网易版下载-率土之滨网易官服8.1.8 最新版
支持 ( 196 ) 盖楼(回复)
移动宽带网友 xyzwap 叔叔不约正版安卓下载-叔叔不约匿名聊天软件1.0.0最新版: 叔叔不约正版安卓下载-叔叔不约匿名聊天软件1.0.0最新版
支持 ( 115 ) 盖楼(回复)
移动宽带网友 xyzwap 闪音交友app2.5 安卓版: 闪音交友app2.5 安卓版
支持 ( 161 ) 盖楼(回复)
移动宽带网友 xyzwap 米读小说app下载-米读小说免费听书版5.91.0.1023.1200 手机版: 米读小说app下载-米读小说免费听书版5.91.0.1023.1200 手机版
支持 ( 26 ) 盖楼(回复)
移动宽带网友 xyzwap 鸿蒙大陆8.1下载-鸿蒙大陆8.1破解版【破解英雄+礼包+会员】: 鸿蒙大陆8.1下载-鸿蒙大陆8.1破解版【破解英雄+礼包+会员】
支持 ( 97 ) 盖楼(回复)
移动宽带网友 xyzwap 明星祝福生日快乐AE模板下载-全明星生日快乐AE模板完整免费下载: 明星祝福生日快乐AE模板下载-全明星生日快乐AE模板完整免费下载
支持 ( 46 ) 盖楼(回复)
移动宽带网友 xyzwap 国王Kings.io1.3 手机版: 国王Kings.io1.3 手机版
支持 ( 183 ) 盖楼(回复)
移动宽带网友 xyzwap 叮咚汽车抵押估值下载-汽车抵押估值软件1.0.7专业版: 叮咚汽车抵押估值下载-汽车抵押估值软件1.0.7专业版
支持 ( 5 ) 盖楼(回复)
移动宽带网友 xyzwap 碧蓝档案繁中服官方正版下载-碧蓝档案繁中服(Blue Archive)1.53.222673 最新版: 碧蓝档案繁中服官方正版下载-碧蓝档案繁中服(Blue Archive)1.53.222673 最新版
支持 ( 102 ) 盖楼(回复)
移动宽带网友 xyzwap 蛋糕英语app免费下载-蛋糕英语app0.3.2 小学版: 蛋糕英语app免费下载-蛋糕英语app0.3.2 小学版
支持 ( 177 ) 盖楼(回复)
移动宽带网友 xyzwap 影美下载-影美app1.0.0官方安卓版: 影美下载-影美app1.0.0官方安卓版
支持 ( 167 ) 盖楼(回复)
移动宽带网友 xyzwap imcart 插件-IMCART开源商城系统1.6.0 官方版: imcart 插件-IMCART开源商城系统1.6.0 官方版
支持 ( 65 ) 盖楼(回复)
移动宽带网友 xyzwap 移动一键免流软件下载-安卓移动一键免流软件2.3 【教程】鑫哥一键免流版: 移动一键免流软件下载-安卓移动一键免流软件2.3 【教程】鑫哥一键免流版
支持 ( 53 ) 盖楼(回复)
移动宽带网友 xyzwap fun globe下载-fun globe地球仪app1.8.0 安卓版: fun globe下载-fun globe地球仪app1.8.0 安卓版
支持 ( 151 ) 盖楼(回复)
移动宽带网友 xyzwap 虚拟化学家手机游戏安卓版下载-虚拟化学家化学实验室1000.212 安卓版: 虚拟化学家手机游戏安卓版下载-虚拟化学家化学实验室1000.212 安卓版
支持 ( 174 ) 盖楼(回复)
移动宽带网友 xyzwap 3D手持弹幕app-3D手持弹幕(接人应援神器)1.0 最新手机版: 3D手持弹幕app-3D手持弹幕(接人应援神器)1.0 最新手机版
支持 ( 25 ) 盖楼(回复)
移动宽带网友 xyzwap 曹操快递app下载-曹操快递app1.03安卓版: 曹操快递app下载-曹操快递app1.03安卓版
支持 ( 49 ) 盖楼(回复)
移动宽带网友 xyzwap 微快递ios版2.9.0 苹果版: 微快递ios版2.9.0 苹果版
支持 ( 78 ) 盖楼(回复)
移动宽带网友 xyzwap Iced五项修改器下载-Iced五项修改器1.0 最新免费版: Iced五项修改器下载-Iced五项修改器1.0 最新免费版
支持 ( 90 ) 盖楼(回复)
移动宽带网友 xyzwap 传说之下星火复燃6.0.0下载汉化版-地域传说星火复燃中文版v6.0.0 官方正版: 传说之下星火复燃6.0.0下载汉化版-地域传说星火复燃中文版v6.0.0 官方正版
支持 ( 12 ) 盖楼(回复)

查看更多评论

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

Base64说明

程序源码：