精易模块优化

神女软件定制 · 发表于 2020-9-14 16:36:59

十几秒的东西，优化成0毫秒……

————————————————————
前天弄个东西，网页返回的图片，解密后是hex形式的，需要用到精易模块的“字节集_十六进制到字节集”，要几十秒，还以为是解密的方法太慢了，后面发现罪魁祸首在“字节集_十六进制到字节集”。
不应该啊，就优化了下，达到了0毫秒，顺便把“字节集_字节集到十六进制”也优化了，都比模块带的快很多……

子程序名	返回值类型	公开	备注
字节集转十六进制_old	文本型		用下面那个查表法，更优化
参数名	类型	参考	可空	数组	备注
cs_bin	字节集

变量名	类型	静态	数组	备注
i	整数型
out	文本型

变量循环首 (0, 取字节集长度 (cs_bin) ＼ 16 － 1, 1, i)

i ＝ i × 16

' temp ＝ temp ＋格式化文本 (“%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X”, cs_数据 [i ＋ 1], cs_数据 [i ＋ 2], cs_数据 [i ＋ 3], cs_数据 [i ＋ 4], cs_数据 [i ＋ 5], cs_数据 [i ＋ 6], cs_数据 [i ＋ 7], cs_数据 [i ＋ 8], cs_数据 [i ＋ 9], cs_数据 [i ＋ 10], cs_数据 [i ＋ 11], cs_数据 [i ＋ 12], cs_数据 [i ＋ 13], cs_数据 [i ＋ 14], cs_数据 [i ＋ 15], cs_数据 [i ＋ 16])

out ＝ out ＋格式化文本 (“%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X”, 取字节集数据 (cs_bin, #字节型, i ＋ 1), 取字节集数据 (cs_bin, #字节型, i ＋ 2), 取字节集数据 (cs_bin, #字节型, i ＋ 3), 取字节集数据 (cs_bin, #字节型, i ＋ 4), 取字节集数据 (cs_bin, #字节型, i ＋ 5), 取字节集数据 (cs_bin, #字节型, i ＋ 6), 取字节集数据 (cs_bin, #字节型, i ＋ 7), 取字节集数据 (cs_bin, #字节型, i ＋ 8), 取字节集数据 (cs_bin, #字节型, i ＋ 9), 取字节集数据 (cs_bin, #字节型, i ＋ 10), 取字节集数据 (cs_bin, #字节型, i ＋ 11), 取字节集数据 (cs_bin, #字节型, i ＋ 12), 取字节集数据 (cs_bin, #字节型, i ＋ 13), 取字节集数据 (cs_bin, #字节型, i ＋ 14), 取字节集数据 (cs_bin, #字节型, i ＋ 15), 取字节集数据 (cs_bin, #字节型, i ＋ 16))

变量循环尾 ()

变量循环首 (i × 16 ＋ 1, 取字节集长度 (cs_bin), 1, i)

out ＝ out ＋格式化文本 (“%02X”, 取字节集数据 (cs_bin, #字节型, i))

变量循环尾 ()
返回 (out)

子程序名	返回值类型	公开	备注
字节集转十六进制	文本型
参数名	类型	参考	可空	数组	备注
cs_bin	字节集

变量名	类型	静态	数组	备注
map	文本型		0
temp	字节集
p	整数型
i	整数型

map ＝ { “00”, “01”, “02”, “03”, “04”, “05”, “06”, “07”, “08”, “09”, “0A”, “0B”, “0C”, “0D”, “0E”, “0F”, “10”, “11”, “12”, “13”, “14”, “15”, “16”, “17”, “18”, “19”, “1A”, “1B”, “1C”, “1D”, “1E”, “1F”, “20”, “21”, “22”, “23”, “24”, “25”, “26”, “27”, “28”, “29”, “2A”, “2B”, “2C”, “2D”, “2E”, “2F”, “30”, “31”, “32”, “33”, “34”, “35”, “36”, “37”, “38”, “39”, “3A”, “3B”, “3C”, “3D”, “3E”, “3F”, “40”, “41”, “42”, “43”, “44”, “45”, “46”, “47”, “48”, “49”, “4A”, “4B”, “4C”, “4D”, “4E”, “4F”, “50”, “51”, “52”, “53”, “54”, “55”, “56”, “57”, “58”, “59”, “5A”, “5B”, “5C”, “5D”, “5E”, “5F”, “60”, “61”, “62”, “63”, “64”, “65”, “66”, “67”, “68”, “69”, “6A”, “6B”, “6C”, “6D”, “6E”, “6F”, “70”, “71”, “72”, “73”, “74”, “75”, “76”, “77”, “78”, “79”, “7A”, “7B”, “7C”, “7D”, “7E”, “7F”, “80”, “81”, “82”, “83”, “84”, “85”, “86”, “87”, “88”, “89”, “8A”, “8B”, “8C”, “8D”, “8E”, “8F”, “90”, “91”, “92”, “93”, “94”, “95”, “96”, “97”, “98”, “99”, “9A”, “9B”, “9C”, “9D”, “9E”, “9F”, “A0”, “A1”, “A2”, “A3”, “A4”, “A5”, “A6”, “A7”, “A8”, “A9”, “AA”, “AB”, “AC”, “AD”, “AE”, “AF”, “B0”, “B1”, “B2”, “B3”, “B4”, “B5”, “B6”, “B7”, “B8”, “B9”, “BA”, “BB”, “BC”, “BD”, “BE”, “BF”, “C0”, “C1”, “C2”, “C3”, “C4”, “C5”, “C6”, “C7”, “C8”, “C9”, “CA”, “CB”, “CC”, “CD”, “CE”, “CF”, “D0”, “D1”, “D2”, “D3”, “D4”, “D5”, “D6”, “D7”, “D8”, “D9”, “DA”, “DB”, “DC”, “DD”, “DE”, “DF”, “E0”, “E1”, “E2”, “E3”, “E4”, “E5”, “E6”, “E7”, “E8”, “E9”, “EA”, “EB”, “EC”, “ED”, “EE”, “EF”, “F0”, “F1”, “F2”, “F3”, “F4”, “F5”, “F6”, “F7”, “F8”, “F9”, “FA”, “FB”, “FC”, “FD”, “FE”, “FF” }
temp ＝取空白字节集 (取字节集长度 (cs_bin) × 2)
p ＝取变量数据地址 (temp)

计次循环首 (取字节集长度 (cs_bin), i)

写到内存 (map [cs_bin [i] ＋ 1], p �� (i － 1) × 2, 2)

计次循环尾 ()
返回 (到文本 (temp))

子程序名	返回值类型	公开	备注
十六进制转字节集	字节集
参数名	类型	参考	可空	数组	备注
cs_hex	文本型				0-Z不区分大小写，其他识别为0，长度为奇数，抛弃末尾字符

变量名	类型	静态	数组	备注
map	整数型		0
temp	字节集
out	字节集
i	整数型
p	整数型

map ＝ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 0, 0, 0, 0, 0, 0, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 0, 0, 0, 0, 0, 0, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }
temp ＝到字节集 (cs_hex)
out ＝取空白字节集 (取字节集长度 (temp) ＼ 2)

计次循环首 (取字节集长度 (out), i)

out [i] ＝位或 (左移 (map [temp [ (i － 1) × 2 ＋ 1]], 4), map [temp [ (i － 1) × 2 ＋ 2]])

计次循环尾 ()
返回 (out)

i支持库列表	支持库注释
eAPI	应用接口支持库
spec	特殊功能支持库

.版本 2<br />
.支持库 eAPI<br />
.支持库 spec<br />
<br />
.子程序 字节集转十六进制_old, 文本型, , 用下面那个查表法，更优化<br />
.参数 cs_bin, 字节集<br />
.局部变量 i, 整数型<br />
.局部变量 out, 文本型<br />
<br />
.变量循环首 (0, 取字节集长度 (cs_bin) ＼ 16 － 1, 1, i)<br />
    i ＝ i × 16<br />
    ' temp ＝ temp ＋ 格式化文本 (“%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X”, cs_数据 [i ＋ 1], cs_数据 [i ＋ 2], cs_数据 [i ＋ 3], cs_数据 [i ＋ 4], cs_数据 [i ＋ 5], cs_数据 [i ＋ 6], cs_数据 [i ＋ 7], cs_数据 [i ＋ 8], cs_数据 [i ＋ 9], cs_数据 [i ＋ 10], cs_数据 [i ＋ 11], cs_数据 [i ＋ 12], cs_数据 [i ＋ 13], cs_数据 [i ＋ 14], cs_数据 [i ＋ 15], cs_数据 [i ＋ 16])<br />
    out ＝ out ＋ 格式化文本 (“%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X”, 取字节集数据 (cs_bin, #字节型, i ＋ 1), 取字节集数据 (cs_bin, #字节型, i ＋ 2), 取字节集数据 (cs_bin, #字节型, i ＋ 3), 取字节集数据 (cs_bin, #字节型, i ＋ 4), 取字节集数据 (cs_bin, #字节型, i ＋ 5), 取字节集数据 (cs_bin, #字节型, i ＋ 6), 取字节集数据 (cs_bin, #字节型, i ＋ 7), 取字节集数据 (cs_bin, #字节型, i ＋ 8), 取字节集数据 (cs_bin, #字节型, i ＋ 9), 取字节集数据 (cs_bin, #字节型, i ＋ 10), 取字节集数据 (cs_bin, #字节型, i ＋ 11), 取字节集数据 (cs_bin, #字节型, i ＋ 12), 取字节集数据 (cs_bin, #字节型, i ＋ 13), 取字节集数据 (cs_bin, #字节型, i ＋ 14), 取字节集数据 (cs_bin, #字节型, i ＋ 15), 取字节集数据 (cs_bin, #字节型, i ＋ 16))<br />
.变量循环尾 ()<br />
.变量循环首 (i × 16 ＋ 1, 取字节集长度 (cs_bin), 1, i)<br />
    out ＝ out ＋ 格式化文本 (“%02X”, 取字节集数据 (cs_bin, #字节型, i))<br />
.变量循环尾 ()<br />
返回 (out)<br />
<br />
.子程序 字节集转十六进制, 文本型<br />
.参数 cs_bin, 字节集<br />
.局部变量 map, 文本型, 静态, "0"<br />
.局部变量 temp, 字节集<br />
.局部变量 p, 整数型<br />
.局部变量 i, 整数型<br />
<br />
map ＝ { “00”, “01”, “02”, “03”, “04”, “05”, “06”, “07”, “08”, “09”, “0A”, “0B”, “0C”, “0D”, “0E”, “0F”, “10”, “11”, “12”, “13”, “14”, “15”, “16”, “17”, “18”, “19”, “1A”, “1B”, “1C”, “1D”, “1E”, “1F”, “20”, “21”, “22”, “23”, “24”, “25”, “26”, “27”, “28”, “29”, “2A”, “2B”, “2C”, “2D”, “2E”, “2F”, “30”, “31”, “32”, “33”, “34”, “35”, “36”, “37”, “38”, “39”, “3A”, “3B”, “3C”, “3D”, “3E”, “3F”, “40”, “41”, “42”, “43”, “44”, “45”, “46”, “47”, “48”, “49”, “4A”, “4B”, “4C”, “4D”, “4E”, “4F”, “50”, “51”, “52”, “53”, “54”, “55”, “56”, “57”, “58”, “59”, “5A”, “5B”, “5C”, “5D”, “5E”, “5F”, “60”, “61”, “62”, “63”, “64”, “65”, “66”, “67”, “68”, “69”, “6A”, “6B”, “6C”, “6D”, “6E”, “6F”, “70”, “71”, “72”, “73”, “74”, “75”, “76”, “77”, “78”, “79”, “7A”, “7B”, “7C”, “7D”, “7E”, “7F”, “80”, “81”, “82”, “83”, “84”, “85”, “86”, “87”, “88”, “89”, “8A”, “8B”, “8C”, “8D”, “8E”, “8F”, “90”, “91”, “92”, “93”, “94”, “95”, “96”, “97”, “98”, “99”, “9A”, “9B”, “9C”, “9D”, “9E”, “9F”, “A0”, “A1”, “A2”, “A3”, “A4”, “A5”, “A6”, “A7”, “A8”, “A9”, “AA”, “AB”, “AC”, “AD”, “AE”, “AF”, “B0”, “B1”, “B2”, “B3”, “B4”, “B5”, “B6”, “B7”, “B8”, “B9”, “BA”, “BB”, “BC”, “BD”, “BE”, “BF”, “C0”, “C1”, “C2”, “C3”, “C4”, “C5”, “C6”, “C7”, “C8”, “C9”, “CA”, “CB”, “CC”, “CD”, “CE”, “CF”, “D0”, “D1”, “D2”, “D3”, “D4”, “D5”, “D6”, “D7”, “D8”, “D9”, “DA”, “DB”, “DC”, “DD”, “DE”, “DF”, “E0”, “E1”, “E2”, “E3”, “E4”, “E5”, “E6”, “E7”, “E8”, “E9”, “EA”, “EB”, “EC”, “ED”, “EE”, “EF”, “F0”, “F1”, “F2”, “F3”, “F4”, “F5”, “F6”, “F7”, “F8”, “F9”, “FA”, “FB”, “FC”, “FD”, “FE”, “FF” }<br />
temp ＝ 取空白字节集 (取字节集长度 (cs_bin) × 2)<br />
p ＝ 取变量数据地址 (temp)<br />
.计次循环首 (取字节集长度 (cs_bin), i)<br />
    写到内存 (map [cs_bin <i> ＋ 1], p ＋ (i － 1) × 2, 2)<br />
.计次循环尾 ()<br />
返回 (到文本 (temp))<br />
<br />
.子程序 十六进制转字节集, 字节集<br />
.参数 cs_hex, 文本型, , 0-Z不区分大小写，其他识别为0，长度为奇数，抛弃末尾字符<br />
.局部变量 map, 整数型, 静态, "0"<br />
.局部变量 temp, 字节集<br />
.局部变量 out, 字节集<br />
.局部变量 i, 整数型<br />
.局部变量 p, 整数型<br />
<br />
map ＝ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 0, 0, 0, 0, 0, 0, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 0, 0, 0, 0, 0, 0, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }<br />
temp ＝ 到字节集 (cs_hex)<br />
out ＝ 取空白字节集 (取字节集长度 (temp) ＼ 2)<br />
.计次循环首 (取字节集长度 (out), i)<br />
    out <i> ＝ 位或 (左移 (map [temp [(i － 1) × 2 ＋ 1]], 4), map [temp [(i － 1) × 2 ＋ 2]])<br />
.计次循环尾 ()<br />
返回 (out)

字节集转换优化.e (855.4 KB, 下载次数: 59)

なす随风ぬね · 发表于 2024-10-24 13:19:01

支持开源~！感谢分享

zx83508218 · 发表于 2022-7-22 01:21:25

厉害！！！！！！！！！！！

ghost12 · 发表于 2022-2-1 16:00:52

此处应该有鼓励~

kantal · 发表于 2020-10-1 09:47:22

支持一下

pewin · 发表于 2020-9-26 12:40:39

66666666666666666666666666666666666666

9970120 · 发表于 2020-9-20 19:57:23

ynf88 · 发表于 2020-9-18 23:36:32

可以提交给管理，优化一下模块

heyulinok · 发表于 2020-9-18 21:18:31

起点不管多低，起步无论多晚，重要的是，你可以坚持多久。

bianyuan456 · 发表于 2020-9-18 08:36:03

@项目部03 来看看优化，加进新版吧！

		自动登录	找回密码
密码			注册

[易语言纯源码] 精易模块优化

点评

评分

本帖被以下淘专辑推荐: