编码_BASE64解码() 改进优化

帅气与大侠

模块版本：11.1.0
所用系统：win10
命令名称：编码_BASE64解码()
BUG描述：代码写法需要优化，原先10MB文件编码后进行解码需要十来分钟左右，我能力有限优化后也要4秒左右
api版本速度很快，编码解码都是毫秒级。
我的联系QQ：455930188、2700433330

@项目部004

  

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

变量名	类 型	静态	数组	备 注
局_字节集长度	整数型
局_整倍数	整数型
局_三字节组	字节集
局_四字节组	字节集
局_编码值	整数型
X	整数型
N	整数型
局_二进制数据	字节集
字节集	字节集
字符集	字节集
指针	整数型

字节集 ＝ 到字节集 (编码文本)
字节集 ＝ 子字节集替换 (字节集, 到字节集 (“ ”), {  }, , )
字节集 ＝ 子字节集替换 (字节集, 到字节集 ( #换行符 ), {  }, , )
局_字节集长度 ＝ 取字节集长度 (字节集)
局_整倍数 ＝ 局_字节集长度 ＼ 4
如果真 (局_字节集长度 ％ 4 ≠ 0)
局_整倍数 ＝ 局_整倍数 ＋ 1

字符集 ＝ 到字节集 (“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”)
局_三字节组 ＝ 取空白字节集 (3)
局_四字节组 ＝ 取空白字节集 (4)
指针 ＝ 申请内存 (局_整倍数 × 3, 真)
计次循环首 (局_整倍数, X)
计次循环首 (4, N)
局_四字节组 [N] ＝ 字节集 [ (X － 1) × 4 ＋ N]
计次循环首 (64, 局_编码值)  ' 10mb，这个过程耗时4s
如果真 (字符集 [局_编码值] ＝ 局_四字节组 [N])
跳出循环 ()

计次循环尾 ()
如果真 (局_编码值 ＞ 64)
跳出循环 ()
局_四字节组 [N] ＝ 局_编码值 － 1
计次循环尾 ()
局_三字节组 [1] ＝ 位或 (局_四字节组 [1] × 4, 局_四字节组 [2] ÷ 16)
局_三字节组 [2] ＝ 位或 (局_四字节组 [2] × 16, 局_四字节组 [3] ÷ 4)
局_三字节组 [3] ＝ 位或 (局_四字节组 [3] × 64, 局_四字节组 [4])
写到内存 (局_三字节组, 指针, )
指针 ＝ 指针 ＋ 3
' 处理事件 ()
计次循环尾 ()
如果真 (N ＜ 5)  ' 最后一组4字符是提前退出的,截取字节集
N ＝ 5 － N
局_二进制数据 ＝ 指针到字节集 (指针 － 局_整倍数 × 3, 局_整倍数 × 3 － N)
如果真 (去除右边空白字节集)
局_二进制数据 ＝ 删除Unicode结尾空白字节 (局_二进制数据, 假)
释放内存 (指针)
返回 (局_二进制数据)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 编码_BASE64解码, 字节集, , BASE64解码处理；成功返回解码后的字节集数据；<br /> .参数 编码文本, 文本型, , 待解码的文本<br /> .参数 去除右边空白字节集, 逻辑型, 可空<br /> .局部变量 局_字节集长度, 整数型<br /> .局部变量 局_整倍数, 整数型<br /> .局部变量 局_三字节组, 字节集<br /> .局部变量 局_四字节组, 字节集<br /> .局部变量 局_编码值, 整数型<br /> .局部变量 X, 整数型<br /> .局部变量 N, 整数型<br /> .局部变量 局_二进制数据, 字节集<br /> .局部变量 字节集, 字节集<br /> .局部变量 字符集, 字节集<br /> .局部变量 指针, 整数型<br /> <br /> 字节集 ＝ 到字节集 (编码文本)<br /> 字节集 ＝ 子字节集替换 (字节集, 到字节集 (“ ”), {  }, , )<br /> 字节集 ＝ 子字节集替换 (字节集, 到字节集 (#换行符), {  }, , )<br /> 局_字节集长度 ＝ 取字节集长度 (字节集)<br /> 局_整倍数 ＝ 局_字节集长度 ＼ 4<br /> .如果真 (局_字节集长度 ％ 4 ≠ 0)<br />     局_整倍数 ＝ 局_整倍数 ＋ 1<br /> .如果真结束<br /> <br /> 字符集 ＝ 到字节集 (“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”)<br /> 局_三字节组 ＝ 取空白字节集 (3)<br /> 局_四字节组 ＝ 取空白字节集 (4)<br /> 指针 ＝ 申请内存 (局_整倍数 × 3, 真)<br /> .计次循环首 (局_整倍数, X)<br />     .计次循环首 (4, N)<br />         局_四字节组 [N] ＝ 字节集 [(X － 1) × 4 ＋ N]<br />         .计次循环首 (64, 局_编码值)  ' 10mb，这个过程耗时4s<br />             .如果真 (字符集 [局_编码值] ＝ 局_四字节组 [N])<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         .如果真 (局_编码值 ＞ 64)<br />             跳出循环 ()<br />         .如果真结束<br />         局_四字节组 [N] ＝ 局_编码值 － 1<br />     .计次循环尾 ()<br /> <br />     局_三字节组 [1] ＝ 位或 (局_四字节组 [1] × 4, 局_四字节组 [2] ÷ 16)<br />     局_三字节组 [2] ＝ 位或 (局_四字节组 [2] × 16, 局_四字节组 [3] ÷ 4)<br />     局_三字节组 [3] ＝ 位或 (局_四字节组 [3] × 64, 局_四字节组 [4])<br />     写到内存 (局_三字节组, 指针, )<br />     指针 ＝ 指针 ＋ 3<br />     ' 处理事件 ()<br /> .计次循环尾 ()<br /> .如果真 (N ＜ 5)  ' 最后一组4字符是提前退出的,截取字节集<br />     N ＝ 5 － N<br />     局_二进制数据 ＝ 指针到字节集 (指针 － 局_整倍数 × 3, 局_整倍数 × 3 － N)<br /> .如果真结束<br /> .如果真 (去除右边空白字节集)<br />     局_二进制数据 ＝ 删除Unicode结尾空白字节 (局_二进制数据, 假)<br /> .如果真结束<br /> 释放内存 (指针)<br /> 返回 (局_二进制数据)

adroot

支持！支持支持！支持支持！支持支持！支持支持！支持支持！支持

Rainly

支持开源~！感谢分享

气东来

支持！支持支持！支持支持！

helinyan

APIHOOK 发表于 2023-11-3 10:50
我刚试了试，无法解码，但是精易的可以正常解码，不知道是什么问题，附件给你看看。
...

我也一样

项目部004

优化了下，目前10M解码在500~600毫秒之间！

我爱你啊

有的时候会解码空

renzhanxin

66666666666666学习学习。。

携易

支持大神

lm88818

支持开源~！感谢分享

轻描淡写zzz

支持！支持支持！支持支持！