精易模块v11.1.5 版本 编码_BASE64解码 改进建议

南坡

编码_BASE64解码  传入长度不标准的base64文本的时候，之前的版本可以自动处理，现在的版本不能正确解码，会丢失最后几个字符，建议做如下修改，自动补全处理最后的字符：

  

子程序名	返回值类型	公开	备 注
编码_BASE64解码	字节集		BASE64解码处理；成功返回解码后的字节集数据；
参数名	类 型	参考	可空	数组	备 注
编码文本	文本型				待解码的文本
去除右边空白字节集	逻辑型

变量名	类 型	静态	数组	备 注
Alphabets	文本型
aryPhase	字节集
aryBin	字节集
dwSize	整数型
dwMult	整数型
nMaxCount	整数型
aryData	字节集
aryTemp	字节型		4
i	整数型
n	整数型
dwMod	整数型			新增变量

aryBin ＝ 到字节集 (编码文本)
aryBin ＝ 子字节集替换 (aryBin, { 32 }, , , )  ' 空格
aryBin ＝ 子字节集替换 (aryBin, { 13, 10 }, , , )  ' 换行
dwSize ＝ 取字节集长度 (aryBin)
如果真 (dwSize ＝ 0)
返回 ({  })
Alphabets ＝ “ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”
aryPhase ＝ 取空白字节集 (256)
计次循环首 (64, i)
aryPhase [取代码 (Alphabets, i)] ＝ i － 1
计次循环尾 ()
dwMult ＝ dwSize ＼ 4
dwMod ＝ dwSize ％ 4
如果真 (dwMod ≠ 0)
dwMult ＝ dwMult ＋ 1
判断 (倒找字节集 (aryBin, { 61, 61 }, ) ≠ -1)
nMaxCount ＝ 2
判断 (倒找字节集 (aryBin, { 61 }, ) ≠ -1)
nMaxCount ＝ 1


aryData ＝ 取空白字节集 (dwMult × 3)
n ＝ 1
变量循环首 (1, dwSize － dwMod, 4, i)
aryTemp [1] ＝ aryPhase [aryBin [i]]
aryTemp [2] ＝ aryPhase [aryBin [i ＋ 1]]
aryTemp [3] ＝ aryPhase [aryBin [i ＋ 2]]
aryTemp [4] ＝ aryPhase [aryBin [i ＋ 3]]
aryData [n] ＝ 左移 (aryTemp [1], 2) ＋ 位与 (右移 (aryTemp [2], 4), 3)
aryData [n ＋ 1] ＝ 位与 (左移 (aryTemp [2], 4), 240) ＋ 位与 (右移 (aryTemp [3], 2), 15)
aryData [n ＋ 2] ＝ 位与 (左移 (aryTemp [3], 6), 192) ＋ aryTemp [4]
n ＝ n ＋ 3
变量循环尾 ()
如果真 (dwMod ＞ 0)  ' 在存在余数的条件下，补全被循环丢弃字节集
连续赋值 (0, aryTemp [1], aryTemp [2], aryTemp [3], aryTemp [4])
判断 (dwMod ＝ 1)
aryTemp [1] ＝ aryPhase [aryBin [i]]
判断 (dwMod ＝ 2)
aryTemp [1] ＝ aryPhase [aryBin [i]]
aryTemp [2] ＝ aryPhase [aryBin [i ＋ 1]]
aryTemp [1] ＝ aryPhase [aryBin [i]]
aryTemp [2] ＝ aryPhase [aryBin [i ＋ 1]]
aryTemp [3] ＝ aryPhase [aryBin [i ＋ 2]]

aryData [n] ＝ 左移 (aryTemp [1], 2) ＋ 位与 (右移 (aryTemp [2], 4), 3)
aryData [n ＋ 1] ＝ 位与 (左移 (aryTemp [2], 4), 240) ＋ 位与 (右移 (aryTemp [3], 2), 15)
aryData [n ＋ 2] ＝ 位与 (左移 (aryTemp [3], 6), 192) ＋ aryTemp [4]
assignZero (aryData, dwMult × 3 － nMaxCount, 真)
如果真 (去除右边空白字节集)
aryData ＝ 去除右边空字节集 (aryData)
返回 (aryData)

.版本 2<br /> <br /> .子程序 编码_BASE64解码, 字节集, 公开, BASE64解码处理；成功返回解码后的字节集数据；<br /> .参数 编码文本, 文本型, , 待解码的文本<br /> .参数 去除右边空白字节集, 逻辑型, 可空<br /> .局部变量 Alphabets, 文本型<br /> .局部变量 aryPhase, 字节集<br /> .局部变量 aryBin, 字节集<br /> .局部变量 dwSize, 整数型<br /> .局部变量 dwMult, 整数型<br /> .局部变量 nMaxCount, 整数型<br /> .局部变量 aryData, 字节集<br /> .局部变量 aryTemp, 字节型, , "4"<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 dwMod, 整数型, , , 新增变量<br /> <br /> aryBin ＝ 到字节集 (编码文本)<br /> aryBin ＝ 子字节集替换 (aryBin, { 32 }, , , )  ' 空格<br /> aryBin ＝ 子字节集替换 (aryBin, { 13, 10 }, , , )  ' 换行<br /> dwSize ＝ 取字节集长度 (aryBin)<br /> .如果真 (dwSize ＝ 0)<br />     返回 ({  })<br /> .如果真结束<br /> Alphabets ＝ “ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”<br /> aryPhase ＝ 取空白字节集 (256)<br /> .计次循环首 (64, i)<br />     aryPhase [取代码 (Alphabets, i)] ＝ i － 1<br /> .计次循环尾 ()<br /> dwMult ＝ dwSize ＼ 4<br /> dwMod ＝ dwSize ％ 4<br /> .如果真 (dwMod ≠ 0)<br />     dwMult ＝ dwMult ＋ 1<br /> .如果真结束<br /> .判断开始 (倒找字节集 (aryBin, { 61, 61 }, ) ≠ -1)<br />     nMaxCount ＝ 2<br /> .判断 (倒找字节集 (aryBin, { 61 }, ) ≠ -1)<br />     nMaxCount ＝ 1<br /> .默认<br /> <br /> .判断结束<br /> aryData ＝ 取空白字节集 (dwMult × 3)<br /> n ＝ 1<br /> .变量循环首 (1, dwSize － dwMod, 4, i)<br />     aryTemp [1] ＝ aryPhase [aryBin <i>]<br />     aryTemp [2] ＝ aryPhase [aryBin [i ＋ 1]]<br />     aryTemp [3] ＝ aryPhase [aryBin [i ＋ 2]]<br />     aryTemp [4] ＝ aryPhase [aryBin [i ＋ 3]]<br />     aryData [n] ＝ 左移 (aryTemp [1], 2) ＋ 位与 (右移 (aryTemp [2], 4), 3)<br />     aryData [n ＋ 1] ＝ 位与 (左移 (aryTemp [2], 4), 240) ＋ 位与 (右移 (aryTemp [3], 2), 15)<br />     aryData [n ＋ 2] ＝ 位与 (左移 (aryTemp [3], 6), 192) ＋ aryTemp [4]<br />     n ＝ n ＋ 3<br /> .变量循环尾 ()<br /> .如果真 (dwMod ＞ 0)  ' 在存在余数的条件下，补全被循环丢弃字节集<br />     连续赋值 (0, aryTemp [1], aryTemp [2], aryTemp [3], aryTemp [4])<br />     .判断开始 (dwMod ＝ 1)<br />         aryTemp [1] ＝ aryPhase [aryBin <i>]<br />     .判断 (dwMod ＝ 2)<br />         aryTemp [1] ＝ aryPhase [aryBin <i>]<br />         aryTemp [2] ＝ aryPhase [aryBin [i ＋ 1]]<br />     .默认<br />         aryTemp [1] ＝ aryPhase [aryBin <i>]<br />         aryTemp [2] ＝ aryPhase [aryBin [i ＋ 1]]<br />         aryTemp [3] ＝ aryPhase [aryBin [i ＋ 2]]<br />     .判断结束<br /> <br />     aryData [n] ＝ 左移 (aryTemp [1], 2) ＋ 位与 (右移 (aryTemp [2], 4), 3)<br />     aryData [n ＋ 1] ＝ 位与 (左移 (aryTemp [2], 4), 240) ＋ 位与 (右移 (aryTemp [3], 2), 15)<br />     aryData [n ＋ 2] ＝ 位与 (左移 (aryTemp [3], 6), 192) ＋ aryTemp [4]<br /> .如果真结束<br /> assignZero (aryData, dwMult × 3 － nMaxCount, 真)<br /> .如果真 (去除右边空白字节集)<br />     aryData ＝ 去除右边空字节集 (aryData)<br /> .如果真结束<br /> 返回 (aryData)

happyzyh

这个建议不错的

xbtx2425

谢谢楼主的分享

南坡

abc16 发表于 2026-4-13 23:32
是不是还少个 去除右边空字节集 函数？

模块源码里有这个函数

不苦小和尚

的确有问题，编码的时候会少了几个字节，老版本可以

abc16

是不是还少个 去除右边空字节集 函数？

xxhaishixx

已经开源了，自己改一下就成了

lvye

南坡

一尘不染 发表于 2026-4-13 19:06
现在都没人维护了

嗯嗯  就当给大家的参考

一尘不染

现在都没人维护了