const crypto = require('crypto');怎么用易语言执行

world

一段md5和sha1的js加密代码，开头是引入这个库，易语言该怎么实现啊，如果全都自己改写成易语言代码的话太麻烦了，有没有能用直接执行js的方式可以运行的，最好是给个例子，万分感谢，在线等

HEZ小白

MD5_SHA1.txt (75.53 KB, 下载次数: 9)

2024-6-12 15:18 上传

点击文件名下载附件

  

变量名	类 型	静态	数组	备 注
脚本	类_脚本组件

脚本.执行 (到文本 (读入文件 (“D:\Downloads\MD5_SHA1.txt”)))
调试输出 (脚本.运行 (“MD5_Encrypt”, “123456”, , , , , ))
调试输出 (脚本.运行 (“SHA1_Encrypt”, “123456”, , , , , ))

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 脚本, 类_脚本组件<br /> <br /> 脚本.执行 (到文本 (读入文件 (“D:\Downloads\MD5_SHA1.txt”)))<br /> 调试输出 (脚本.运行 (“MD5_Encrypt”, “123456”, , , , , ))<br /> 调试输出 (脚本.运行 (“SHA1_Encrypt”, “123456”, , , , , ))

world

function getSign(e, t) {
  let a = ""
    , n = t ? Object.keys(e).filter(e => !t.includes(e)) : Object.keys(e);
  n.sort().map(t => {
    "object" == typeof e[t] ? e[t] && 0 != e[t].length && void 0 != e[t] && (a += t) : void 0 != e[t] && (a += e[t])
  }
  );
  let hmac = crypto.createHmac('sha1', '');
  hmac.update(a);
  return hmac.digest('hex');
}

wanwdbb

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
v8	RS_V8引擎

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
str	文本型

RS_V8创建虚拟机 (0, )
str ＝ rsGetValue (“mod=forum&searchid=2942&orderby=lastpost&ascdesc=desc&searchsubmit=yes&kw=城南”, “”)
调试输出 (校验_取sha1 (到字节集 (str)))
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
rsGetValue	文本型		本程序由[城南Post助手生成]，依赖于Rs支持库！
参数名	类 型	参考	可空	数组	备 注
e	文本型
t	文本型

变量名	类 型	静态	数组	备 注
value	文本型

' // 请自行在软件启动后，调用 rsV8CreateIsolate 命令创建虚拟机！
v8.运行脚本 ( #常量2, 假, 0, 0, )
value ＝ v8.运行脚本 (“getSign('” ＋ e ＋ “','” ＋ t ＋ “')”, 真, 0, 0, )
返回 (value)

i支持库列表	支持库注释
RSCProject	(未知支持库)
spec	特殊功能支持库

.版本 2<br /> .支持库 RSCProject<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> .程序集变量 v8, RS_V8引擎<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 str, 文本型<br /> <br /> RS_V8创建虚拟机 (0, )<br /> str ＝ rsGetValue (“mod=forum&searchid=2942&orderby=lastpost&ascdesc=desc&searchsubmit=yes&kw=城南”, “”)<br /> 调试输出 (校验_取sha1 (到字节集 (str)))<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 rsGetValue, 文本型, 公开, 本程序由[城南Post助手生成]，依赖于Rs支持库！<br /> .参数 e, 文本型<br /> .参数 t, 文本型<br /> .局部变量 value, 文本型<br /> <br /> ' // 请自行在软件启动后，调用 rsV8CreateIsolate 命令创建虚拟机！<br /> v8.运行脚本 (#常量2, 假, 0, 0, )<br /> value ＝ v8.运行脚本 (“getSign('” ＋ e ＋ “','” ＋ t ＋ “')”, 真, 0, 0, )<br /> 返回 (value)

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

function getSign(e, t) {
    let a = "",
        n = t ? Object.keys(e).filter(e => !t.includes(e)) : Object.keys(e);
    n.sort().map(t => {
        "object" == typeof e[t] ? e[t] && 0 != e[t].length && void 0 != e[t] && (a += t) : void 0 != e[t] && (a += e[t])
    });
    return a;
}

石榴熟了

不麻烦啊
精易模块有 sha1  易语言自带支持库有md5
md5 = 取数据摘要（到字节集（））
sha1 =校验_取sha1（到字节集（））

逍遥一仙LSG

使用E2EE实现：

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
a	存取键值表
b	文本型		0
temp	文本型
加解密	加解密对象
i

a.创建 (“b”, 2, “a”, 1, “c”, 创建键值表 (“a”, 1))
b ＝ a.取键数组 (1)  ' 正向排序
temp ＝ “”
计次循环首 (取数组成员数 (b), i)
如果真 (a.取类型 (b [i]) ＝ #存取类型_存取键值表 或 a.取类型 (b [i]) ＝ #存取类型_存取列表 )  ' 如果值为对象，则拼接键名
temp ＝ temp ＋ b [i]
到循环尾 ()
temp ＝ temp ＋ a.取文本 (b [i])
计次循环尾 ()
调试输出 (加解密.取HMAC值 ( #哈希算法_SHA1, temp, “”, #文本内容类型_十六进制_小写 ))  ' HMAC SHA1 HEX

i支持库列表	支持库注释
e2ee	E2EE互联网服务器套件
spec	特殊功能支持库

.版本 2<br /> .支持库 e2ee<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 a, 存取键值表<br /> .局部变量 b, 文本型, , "0"<br /> .局部变量 temp, 文本型<br /> .局部变量 加解密, 加解密对象<br /> .局部变量 i<br /> <br /> a.创建 (“b”, 2, “a”, 1, “c”, 创建键值表 (“a”, 1))<br /> b ＝ a.取键数组 (1)  ' 正向排序<br /> temp ＝ “”<br /> .计次循环首 (取数组成员数 (b), i)<br />     .如果真 (a.取类型 (b <i>) ＝ #存取类型_存取键值表 或 a.取类型 (b <i>) ＝ #存取类型_存取列表)  ' 如果值为对象，则拼接键名<br />         temp ＝ temp ＋ b <i><br />         到循环尾 ()<br />     .如果真结束<br />     temp ＝ temp ＋ a.取文本 (b <i>)<br /> .计次循环尾 ()<br /> 调试输出 (加解密.取HMAC值 (#哈希算法_SHA1, temp, “”, #文本内容类型_十六进制_小写))  ' HMAC SHA1 HEX

补充内容 (2024-6-12 14:44):
getSign的参数t为排除列表，如果e对象中有键名为t中存在的项时，则跳过

world

HEZ小白 发表于 2024-6-12 15:18
[e=0].版本 2
.支持库 spec

你好，能麻烦把二楼的js代码改成可以执行的么，好像不用v8引擎加载就报错，感谢感谢

HEZ小白

world 发表于 2024-6-12 20:41
你好，能麻烦把二楼的js代码改成可以执行的么，好像不用v8引擎加载就报错，感谢感谢 ...

直接用精易模块的类_脚本组件就行了