BASE64

LYForever

应该之前从论坛里找来或者精易模块提取的，随去随用。

  

子程序名	返回值类型	公开	备 注
文本_BASE64编码	文本型
参数名	类 型	参考	可空	数组	备 注
待编码数据	字节集

变量名	类 型	静态	数组	备 注
余数
临时	字节型		3
变量
集合	字节集
长度	整数型
字符	字节集
i

长度 ＝ 取字节集长度 (待编码数据)
如果真 (长度 ＜ 1)
返回 (“”)
余数 ＝ 长度 ％ 3
如果真 (余数 ＞ 0)
待编码数据 ＝ 待编码数据 ＋ 取空白字节集 (3 － 余数)
长度 ＝ 取字节集长度 (待编码数据)
字符 ＝ 取空白字节集 (长度 × 4 ÷ 3)
i ＝ 1
集合 ＝ 到字节集 (“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”)
变量循环首 (1, 长度, 3, 变量)
临时 [1] ＝ 待编码数据 [变量]
临时 [2] ＝ 待编码数据 [变量 ＋ 1]
临时 [3] ＝ 待编码数据 [变量 ＋ 2]
字符 [i] ＝ 集合 [右移 (临时 [1], 2) ＋ 1]
字符 [i ＋ 1] ＝ 集合 [左移 (位与 (临时 [1], 3), 4) ＋ 右移 (临时 [2], 4) ＋ 1]
字符 [i ＋ 2] ＝ 集合 [左移 (位与 (临时 [2], 15), 2) ＋ 右移 (临时 [3], 6) ＋ 1]
字符 [i ＋ 3] ＝ 集合 [位与 (临时 [3], 63) ＋ 1]
i ＝ i ＋ 4
变量循环尾 ()
如果真 (余数 ＞ 0)
长度 ＝ 取字节集长度 (字符)
如果 (余数 ＝ 1)
字符 [长度 － 1] ＝ 取代码 (“=”, )
字符 [长度] ＝ 取代码 (“=”, )
字符 [长度] ＝ 取代码 (“=”, )

返回 (到文本 (字符))

子程序名	返回值类型	公开	备 注
文本_BASE64解码	字节集
参数名	类 型	参考	可空	数组	备 注
编码文本	文本型

变量名	类 型	静态	数组	备 注
文本长度
整倍数
三字节组	字节型		3
四字节组	字节型		4
编码值
X
n
二进制数据	字节集

编码文本 ＝ 删全部空 (编码文本)
编码文本 ＝ 子文本替换 (编码文本, #换行符, , , , 真)
文本长度 ＝ 取文本长度 (编码文本)
整倍数 ＝ 文本长度 ＼ 4
如果真 (文本长度 ％ 4 ≠ 0)
整倍数 ＝ 整倍数 ＋ 1
计次循环首 (整倍数, X)
计次循环首 (4, n)
四字节组 [n] ＝ 取代码 (编码文本, (X － 1) × 4 ＋ n)
编码值 ＝ 寻找文本 (“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”, 字符 (四字节组 [n]), , 假)
如果真 (编码值 ＝ -1)
跳出循环 ()
四字节组 [n] ＝ 编码值 － 1
计次循环尾 ()
三字节组 [1] ＝ 位或 (四字节组 [1] × 4, 四字节组 [2] ÷ 16)
三字节组 [2] ＝ 位或 (四字节组 [2] × 16, 四字节组 [3] ÷ 4)
三字节组 [3] ＝ 位或 (四字节组 [3] × 64, 四字节组 [4])
二进制数据 ＝ 二进制数据 ＋ 到字节集 (三字节组)
处理事件 ()
计次循环尾 ()
如果真 (n ＜ 5)  ' 最后一组4字符是提前退出的,截取字节集
n ＝ 5 － n
二进制数据 ＝ 取字节集左边 (二进制数据, 取字节集长度 (二进制数据) － n)
返回 (二进制数据)

.版本 2<br /> <br /> .子程序 文本_BASE64编码, 文本型, 公开<br /> .参数 待编码数据, 字节集<br /> .局部变量 余数<br /> .局部变量 临时, 字节型, , "3"<br /> .局部变量 变量<br /> .局部变量 集合, 字节集<br /> .局部变量 长度, 整数型<br /> .局部变量 字符, 字节集<br /> .局部变量 i<br /> <br /> 长度 ＝ 取字节集长度 (待编码数据)<br /> .如果真 (长度 ＜ 1)<br />     返回 (“”)<br /> .如果真结束<br /> 余数 ＝ 长度 ％ 3<br /> .如果真 (余数 ＞ 0)<br />     待编码数据 ＝ 待编码数据 ＋ 取空白字节集 (3 － 余数)<br /> .如果真结束<br /> 长度 ＝ 取字节集长度 (待编码数据)<br /> 字符 ＝ 取空白字节集 (长度 × 4 ÷ 3)<br /> i ＝ 1<br /> 集合 ＝ 到字节集 (“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”)<br /> .变量循环首 (1, 长度, 3, 变量)<br />     临时 [1] ＝ 待编码数据 [变量]<br />     临时 [2] ＝ 待编码数据 [变量 ＋ 1]<br />     临时 [3] ＝ 待编码数据 [变量 ＋ 2]<br />     字符 <i> ＝ 集合 [右移 (临时 [1], 2) ＋ 1]<br />     字符 [i ＋ 1] ＝ 集合 [左移 (位与 (临时 [1], 3), 4) ＋ 右移 (临时 [2], 4) ＋ 1]<br />     字符 [i ＋ 2] ＝ 集合 [左移 (位与 (临时 [2], 15), 2) ＋ 右移 (临时 [3], 6) ＋ 1]<br />     字符 [i ＋ 3] ＝ 集合 [位与 (临时 [3], 63) ＋ 1]<br />     i ＝ i ＋ 4<br /> .变量循环尾 ()<br /> .如果真 (余数 ＞ 0)<br />     长度 ＝ 取字节集长度 (字符)<br />     .如果 (余数 ＝ 1)<br />         字符 [长度 － 1] ＝ 取代码 (“=”, )<br />         字符 [长度] ＝ 取代码 (“=”, )<br />     .否则<br />         字符 [长度] ＝ 取代码 (“=”, )<br />     .如果结束<br /> <br /> .如果真结束<br /> 返回 (到文本 (字符))<br /> <br /> .子程序 文本_BASE64解码, 字节集, 公开<br /> .参数 编码文本, 文本型, 参考<br /> .局部变量 文本长度<br /> .局部变量 整倍数<br /> .局部变量 三字节组, 字节型, , "3"<br /> .局部变量 四字节组, 字节型, , "4"<br /> .局部变量 编码值<br /> .局部变量 X<br /> .局部变量 n<br /> .局部变量 二进制数据, 字节集<br /> <br /> 编码文本 ＝ 删全部空 (编码文本)<br /> 编码文本 ＝ 子文本替换 (编码文本, #换行符, , , , 真)<br /> 文本长度 ＝ 取文本长度 (编码文本)<br /> 整倍数 ＝ 文本长度 ＼ 4<br /> .如果真 (文本长度 ％ 4 ≠ 0)<br />     整倍数 ＝ 整倍数 ＋ 1<br /> .如果真结束<br /> .计次循环首 (整倍数, X)<br />     .计次循环首 (4, n)<br />         四字节组 [n] ＝ 取代码 (编码文本, (X － 1) × 4 ＋ n)<br />         编码值 ＝ 寻找文本 (“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”, 字符 (四字节组 [n]), , 假)<br />         .如果真 (编码值 ＝ -1)<br />             跳出循环 ()<br />         .如果真结束<br />         四字节组 [n] ＝ 编码值 － 1<br />     .计次循环尾 ()<br />     三字节组 [1] ＝ 位或 (四字节组 [1] × 4, 四字节组 [2] ÷ 16)<br />     三字节组 [2] ＝ 位或 (四字节组 [2] × 16, 四字节组 [3] ÷ 4)<br />     三字节组 [3] ＝ 位或 (四字节组 [3] × 64, 四字节组 [4])<br />     二进制数据 ＝ 二进制数据 ＋ 到字节集 (三字节组)<br />     处理事件 ()<br /> .计次循环尾 ()<br /> .如果真 (n ＜ 5)  ' 最后一组4字符是提前退出的,截取字节集<br />     n ＝ 5 － n<br />     二进制数据 ＝ 取字节集左边 (二进制数据, 取字节集长度 (二进制数据) － n)<br /> .如果真结束<br /> 返回 (二进制数据)

阿凡地方23

这才是真正的开源！必须给个赞

圆圈

错误(10126): 指定命令“大于或等于”不能直接在语句首部使用。

LYForever

qwerrrrr 发表于 2023-8-5 00:46
从哪抠出来的？

应该是老版本的精易模块

qwerrrrr

从哪抠出来的？

xiaosep123

支持开源~！感谢分享

亿万

支持开源~！感谢分享

1184798949

支持开源~！感谢分享

pipicool

学习一下

396384183

支持开源~！感谢分享