JS简单算法复现自写低效率

易语言的数组/字节集第一个元素下标是1

str_bin ＝ ToBin (Bin)
str_len ＝ 取文本长度 (str_bin)
.' 计次循环首 (32 － str_len, n)
' str_bin ＝ “0” ＋ str_bin
.' 计次循环尾 ()
' 调试输出 (“补足32位==>>” ＋ str_bin)
' str_len ＝ 取文本长度 (str_bin)
str_bin ＝ 取文本左边 (str_bin, str_len － 位移数)
.计次循环首 (位移数, n)
str_bin ＝ “0” ＋ str_bin
.计次循环尾 ()
' 调试输出 (“左移” ＋ 到文本 (位移数) ＋ “位==>>” ＋ str_bin)
.计次循环首 (str_len, n)
Int_bin ＝ Int_bin ＋ 到整数 (取文本中间 (str_bin, str_len ＋ 1 － n, 1)) × 求次方 (2, n － 1)
' 调试输出 (取文本中间 (str_bin, str_len ＋ 1 － n, 1), Int_bin)
.计次循环尾 ()

' CoInitialize (0)‘线程中使用 加载COM
js.创建 (“ScriptControl”, )
js.写属性 (“Language”, “JScript”)
' 如果调试结果与工具不符，有可能是编码问题，尝试加入： 【 编码_Utf8到Ansi (到字节集 (script)) 】
js.逻辑方法 (“AddCode”, #js)
eval ＝ js.通用方法 (“Eval”, “C(” ＋ #引号 ＋ n ＋ #引号 ＋ “)”)
ret ＝ eval.取文本 ()
js.清除 ()
' CoUninitialize () ‘线程中使用 卸载COM
返回 (ret)