这段JS脚本如何翻译成E语言可用呢？

tink

[JavaScript] 纯文本查看 复制代码

var ngxCrc32Short = [
    0x00000000, 0x1DB71064, 0x3B6E20C8, 0x26D930AC,
    0x76DC4190, 0x6B6B51F4, 0x4DB26158, 0x5005713C,
    0xEDB88320, 0xF00F9344, 0xD6D6A3E8, 0xCB61B38C,
    0x9B64C2B0, 0x86D3D2D4, 0xA00AE278, 0xBDBDF21C];
    
var crc32Update = function (str) {
    var crc = 0, i = 0, len = str.length, c;
    if (len > 0) {
        while (i < len) {
            c = str[i++].charCodeAt() >>> 0;
            crc = (ngxCrc32Short[((crc ^ c) >>> 0 & 0xf) & 0xf] ^ (crc >>> 4)) >>> 0;
            crc = (ngxCrc32Short[(crc ^ (c >>> 4)) & 0xf] ^ (crc >>> 4)) >>> 0;
        }
    }
    return crc;
}

var shortenCrc = function (crc) {
    var shortCrc = 0, salt = 0x6f;
    var flag = (crc % 1000000) >>> 0;
    do
    {
        shortCrc = (flag % 100 * 289 % 397 * 33 + salt) % 100 + shortCrc * 100;
        salt += 7;
        flag = (flag - flag % 100) / 100;
    } while (flag != 0);
    return shortCrc;
}

var hashTimestamp = function (ts) {
    var hash = ts + -0x589d6766;
    return ((hash - hash % 10) / 10) % 1000000;
}

var split = function (i) {
    var i3 = i % 100, i2 = (i - i3) / 100 % 100, i1 = (i - i % 10000) / 10000 % 100;
    return [i1, i2, i3];
}

var getPassCheck = function (b) {
    b += '';
    var check = 5;
    for (var i = 0; i < b.length; i++) {
        check += parseInt(b);
    }
    return check % 10;
} 

var getPassword = function (serialNumber, offset) {
    var a = 999999 - shortenCrc(crc32Update(serialNumber)),
        c = hashTimestamp(new Date().setHours(0, 0, 0, 0) / 1000) + offset;
    var aSplit = split(a), cSplit = split(c);
    var b = (aSplit[0] - cSplit[0] + 100) % 100 + (aSplit[1] - cSplit[1] + 100) % 100 * 100 + (aSplit[2] - cSplit[2] + 100) % 100 * 10000;
    return b * 100 + getPassCheck(b);
}

tink

最后那个“</i>”是编辑器bug，删除即可

陽陽陽

如果是我的话我宁愿用：
脚本组件
或者是写到文件执行脚本（不推荐，可以用精易模块里面的执行脚本）

tink

陽陽陽 发表于 2023-2-10 09:24
如果是我的话我宁愿用：
脚本组件
或者是写到文件执行脚本（不推荐，可以用精易模块里面的执行脚 ...

脚本组件调用来个例子吧大佬！

陽陽陽

tink 发表于 2023-2-10 09:25
脚本组件调用来个例子吧大佬！

   脚本组件1.运行 ()的参数和返回值：

调用格式： 〈文本型〉 对象．运行 （文本型 过程或函数名，［通用型数组/非数组 参数］，... ） - 脚本语言支持组件->脚本组件
    英文名称：Run
    运行指定的过程，如有返回值返回相应文本，否则返回空文本。本命令为初级对象成员命令。命令参数表中最后一个参数可以被重复添加。
    参数<1>的名称为“过程或函数名”，类型为“文本型（text）”。所要运行的过程或函数名。
    参数<2>的名称为“参数”，类型为“通用型（all）”，可以被省略，提供参数数据时可以同时提供数组或非数组数据。要执行过程或函数的参数。

    操作系统需求： Windows

补充内容 (2023-2-10 09:32):
文本那个直接放常量就行了

kentien

陽陽陽 发表于 2023-2-10 09:24
如果是我的话我宁愿用：
脚本组件
或者是写到文件执行脚本（不推荐，可以用精易模块里面的执行脚 ...

我赞同你的观点

柠檬汽水

.版本 2

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行

调试输出 (WT_JS_Eval (#常量1))

返回 (0)  ' 可以根据您的需要返回任意数值


.子程序 WT_JS_Eval, 文本型, , WT-JS_DEBUG
.参数 script, 文本型, , 常量JS脚本
.参数 serialNumber, 文本型, 可空, 参数1
.参数 offset, 文本型, 可空, 参数2
.局部变量 js, 对象
.局部变量 eval, 变体型
.局部变量 ret, 文本型

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

空竹

wt–js
鬼鬼js

这些工具你值得拥有