1 Star 0 Fork 2

yohaa0/tkinter-designer

加入 Gitee
与超过 1200万 开发者一起发现、参与优秀开源项目,私有仓库也完全免费 :)
免费加入
文件
该仓库未声明开源许可证文件(LICENSE),使用请关注具体项目描述及其代码上游依赖。
克隆/下载
Base64.bas 3.05 KB
一键复制 编辑 原始数据 按行查看 历史
cdhigh 提交于 2015-08-18 10:17 . 1.5
Attribute VB_Name = "Base64"
'BASE64编码模块
Option Explicit
'外部直接调用此函数即可
Public Sub Base64Encode(ByRef pbAInput() As Byte, ByRef sOut As String, Optional ByRef sPrexSpace As String = "", Optional ByRef charsPerLine As Integer = 68)
Dim abOut() As Byte, i As Long, s As String
Encode pbAInput, abOut
ByteArrayToString abOut, s
sOut = ""
If Len(s) = 0 Then Exit Sub
'转换为合适的换行模式
If charsPerLine > 0 Then
For i = 1 To Len(s) Step charsPerLine
sOut = sOut & sPrexSpace & Mid(s, i, charsPerLine) & vbCrLf
Next
sOut = Mid(sOut, 1, Len(sOut) - 3)
Else
sOut = s
End If
End Sub
Public Sub ByteArrayToString(ByRef pbArrayInput() As Byte, ByRef strOut As String)
strOut = StrConv(pbArrayInput, vbUnicode)
End Sub
Public Sub Encode(ByRef pbArrayInput() As Byte, ByRef pbArrayOutput() As Byte)
Dim iSizeMod As Integer, lSizeIn As Long, lSizeOut As Long, Index As Long
Dim lIndex2 As Long, lTotal As Long, bBuffer(2) As Byte
Dim mvB64Enc(63) As Byte
Dim iIndex As Integer
For iIndex = 65 To 90
mvB64Enc(iIndex - 65) = iIndex
Next
For iIndex = 97 To 122
mvB64Enc(iIndex - 71) = iIndex
Next
For iIndex = 48 To 57
mvB64Enc(iIndex + 4) = iIndex
Next
mvB64Enc(62) = 43
mvB64Enc(63) = 47
lSizeIn = UBound(pbArrayInput) + 1
iSizeMod = lSizeIn Mod 3
lSizeOut = ((lSizeIn - iSizeMod) \ 3) * 4
If iSizeMod > 0 Then lSizeOut = lSizeOut + 4
ReDim pbArrayOutput(lSizeOut - 1)
If lSizeIn >= 3 Then
lTotal = lSizeIn - iSizeMod - 1
For Index = 0 To lTotal Step 3
bBuffer(0) = pbArrayInput(Index)
bBuffer(1) = pbArrayInput(Index + 1)
bBuffer(2) = pbArrayInput(Index + 2)
pbArrayOutput(lIndex2) = mvB64Enc((bBuffer(0) And &HFC) \ 4)
pbArrayOutput(lIndex2 + 1) = mvB64Enc((bBuffer(0) And &H3) * 16 Or (bBuffer(1) And &HF0) \ 16)
pbArrayOutput(lIndex2 + 2) = mvB64Enc((bBuffer(1) And &HF) * 4 Or (bBuffer(2) And &HC0) \ 64)
pbArrayOutput(lIndex2 + 3) = mvB64Enc((bBuffer(2) And &H3F))
lIndex2 = lIndex2 + 4
Next
End If
Select Case iSizeMod
Case 1
bBuffer(0) = pbArrayInput(lSizeIn - 1)
bBuffer(1) = 0
pbArrayOutput(lIndex2) = mvB64Enc((bBuffer(0) And &HFC) \ 4)
pbArrayOutput(lIndex2 + 1) = mvB64Enc((bBuffer(0) And &H3) * 16 Or (bBuffer(1) And &HF0) \ 16)
pbArrayOutput(lIndex2 + 2) = 61
pbArrayOutput(lIndex2 + 3) = 61
Case 2
bBuffer(0) = pbArrayInput(lSizeIn - 2)
bBuffer(1) = pbArrayInput(lSizeIn - 1)
bBuffer(2) = 0
pbArrayOutput(lIndex2) = mvB64Enc((bBuffer(0) And &HFC) \ 4)
pbArrayOutput(lIndex2 + 1) = mvB64Enc((bBuffer(0) And &H3) * 16 Or (bBuffer(1) And &HF0) \ 16)
pbArrayOutput(lIndex2 + 2) = mvB64Enc((bBuffer(1) And &HF) * 4 Or (bBuffer(2) And &HC0) \ 64)
pbArrayOutput(lIndex2 + 3) = 61
End Select
End Sub
马建仓 AI 助手
尝试更多
代码解读
代码找茬
代码优化
1
https://gitee.com/yohaa0/tkinter-designer.git
git@gitee.com:yohaa0/tkinter-designer.git
yohaa0
tkinter-designer
tkinter-designer
master

搜索帮助

0d507c66 1850385 C8b1a773 1850385