Java转易语言

1292008122

代码已经逆向出来了,用java测试通过，需要将协议头里的一些参数生成aes的key,然后用key去加密参数，并post发送出去，然后再解析数据，需要大佬帮忙写一下易语言的源码，酬金两包华子

你的猫

  

子程序名	返回值类型	公开	备 注
生成密钥	文本型
参数名	类 型	参考	可空	数组	备 注
appId	文本型
ipayCustomerUrl	文本型
appKey	文本型
dhVideoList_sha256	文本型
length	整数型
timeStepLen	整数型
time	长整数型

变量名	类 型	静态	数组	备 注
组合字符串	文本型
哈希字节集	字节集
hashBase64	文本型
时间步长索引	长整数型
最终哈希	文本型

' 步骤1：构建组合字符串
组合字符串 ＝ appId ＋ ipayCustomerUrl ＋ appKey ＋ 到大写 (dhVideoList_sha256)
' 步骤2：SHA256哈希计算
哈希字节集 ＝ 取数据摘要 (到字节集 (组合字符串))
hashBase64 ＝ 编码_BASE64编码 (哈希字节集)
' 步骤3：扩展长度至50位以上
判断循环首 (取文本长度 (hashBase64) ＜ 50)
哈希字节集 ＝ 取数据摘要 (到字节集 (hashBase64))
hashBase64 ＝ hashBase64 ＋ 编码_BASE64编码 (哈希字节集)
判断循环尾 ()
' 步骤4：生成时间相关密钥
时间步长索引 ＝ (time ÷ 300) ＋ timeStepLen
最终哈希 ＝ 计算时间哈希 (到文本 (时间步长索引))
' 步骤5：生成最终密钥
返回 (生成最终字符 (最终哈希, length, hashBase64))

子程序名	返回值类型	公开	备 注
生成最终字符	文本型
参数名	类 型	参考	可空	数组	备 注
hash	文本型
length	整数型
rootString	文本型

变量名	类 型	静态	数组	备 注
结果	文本型
字符集长度	整数型
i	整数型
索引	整数型

字符集长度 ＝ 取文本长度 (rootString)
计次循环首 (length, i)
索引 ＝ 进制_十六到十 (取文本中间 (hash, i × 2 － 1, 2)) ％ 字符集长度
结果 ＝ 结果 ＋ 取文本中间 (rootString, 索引 ＋ 1, 1)
计次循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备 注
计算时间哈希	文本型
参数名	类 型	参考	可空	数组	备 注
时间文本	文本型

变量名	类 型	静态	数组	备 注
哈希字节集	字节集

哈希字节集 ＝ 取数据摘要 (到字节集 (时间文本))
返回 (字节集_字节集到十六进制 (哈希字节集))
' AES加密子程序

子程序名	返回值类型	公开	备 注
AES加密	文本型
参数名	类 型	参考	可空	数组	备 注
明文	文本型
密钥	文本型

变量名	类 型	静态	数组	备 注
加密对象	加解密对象
加密结果	字节集

加密对象.算法类型 ＝ #对称算法_AES_CBC
加密对象.密钥 ＝ 到字节集 (密钥)
加密对象.初始向量 ＝ 取空白字节集 (16) ' 根据实际情况修改IV
加密对象.填充方式 ＝ #填充方式_PKCS7
加密结果 ＝ 加密对象.加密 (到字节集 (明文), )
返回 (编码_BASE64编码 (加密结果))
' 主程序

子程序名	返回值类型	公开	备 注
发送加密请求

变量名	类 型	静态	数组	备 注
动态密钥	文本型
加密参数	文本型
协议头	文本型
响应文本	文本型

' 生成动态密钥
动态密钥 ＝ 生成密钥 ("your_appid", "https://api.example.com", "your_appkey", "video_hash", 16, 1, 取现行时间戳 ())
' 加密参数
加密参数 ＝ AES加密 ("需要加密的参数", 动态密钥)
' 构建协议头
协议头 ＝ "Content-Type: application/json" ＋ #换行符 ＋"Authorization: Bearer " ＋ 动态密钥 ＋ #换行符 ＋"X-Encrypted: true"
' 发送请求
响应文本 ＝ 到文本 (网页_访问_对象 ("https://目标URL", 1, 加密参数, , , 协议头))
' 解析响应（假设返回base64加密数据）
响应文本 ＝ 编码_URL解码 (响应文本, 真)
响应文本 ＝ 到文本 (编码_BASE64解码 (响应文本))
调试输出 ("解密后的响应：", 响应文本)

子程序名	返回值类型	公开	备 注
取现行时间戳	长整数型

返回 (时间_取现行时间戳 () ÷ 1000)

i支持库列表	支持库注释
dp1	数据操作支持库一
spec	特殊功能支持库
eAPI	应用接口支持库

.版本 2<br /> .支持库 dp1<br /> .支持库 spec<br /> .支持库 eAPI<br /> <br /> .子程序 生成密钥, 文本型<br /> .参数 appId, 文本型<br /> .参数 ipayCustomerUrl, 文本型<br /> .参数 appKey, 文本型<br /> .参数 dhVideoList_sha256, 文本型<br /> .参数 length, 整数型<br /> .参数 timeStepLen, 整数型<br /> .参数 time, 长整数型<br /> <br /> .局部变量 组合字符串, 文本型<br /> .局部变量 哈希字节集, 字节集<br /> .局部变量 hashBase64, 文本型<br /> .局部变量 时间步长索引, 长整数型<br /> .局部变量 最终哈希, 文本型<br /> <br /> ' 步骤1：构建组合字符串<br /> 组合字符串 ＝ appId ＋ ipayCustomerUrl ＋ appKey ＋ 到大写(dhVideoList_sha256)<br /> <br /> ' 步骤2：SHA256哈希计算<br /> 哈希字节集 ＝ 取数据摘要 (到字节集 (组合字符串))<br /> hashBase64 ＝ 编码_BASE64编码 (哈希字节集)<br /> <br /> ' 步骤3：扩展长度至50位以上<br /> .判断循环首 (取文本长度 (hashBase64) ＜ 50)<br />     哈希字节集 ＝ 取数据摘要 (到字节集 (hashBase64))<br />     hashBase64 ＝ hashBase64 ＋ 编码_BASE64编码 (哈希字节集)<br /> .判断循环尾 ()<br /> <br /> ' 步骤4：生成时间相关密钥<br /> 时间步长索引 ＝ (time ÷ 300) ＋ timeStepLen<br /> 最终哈希 ＝ 计算时间哈希 (到文本 (时间步长索引))<br /> <br /> ' 步骤5：生成最终密钥<br /> 返回 (生成最终字符 (最终哈希, length, hashBase64))<br /> <br /> .子程序 生成最终字符, 文本型<br /> .参数 hash, 文本型<br /> .参数 length, 整数型<br /> .参数 rootString, 文本型<br /> <br /> .局部变量 结果, 文本型<br /> .局部变量 字符集长度, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> 字符集长度 ＝ 取文本长度 (rootString)<br /> .计次循环首 (length, i)<br />     索引 ＝ 进制_十六到十 (取文本中间 (hash, i × 2 － 1, 2)) ％ 字符集长度<br />     结果 ＝ 结果 ＋ 取文本中间 (rootString, 索引 ＋ 1, 1)<br /> .计次循环尾 ()<br /> 返回 (结果)<br /> <br /> .子程序 计算时间哈希, 文本型<br /> .参数 时间文本, 文本型<br /> <br /> .局部变量 哈希字节集, 字节集<br /> 哈希字节集 ＝ 取数据摘要 (到字节集 (时间文本))<br /> 返回 (字节集_字节集到十六进制 (哈希字节集))<br /> <br /> ' AES加密子程序<br /> .子程序 AES加密, 文本型<br /> .参数 明文, 文本型<br /> .参数 密钥, 文本型<br /> <br /> .局部变量 加密对象, 加解密对象<br /> .局部变量 加密结果, 字节集<br /> <br /> 加密对象.算法类型 ＝ #对称算法_AES_CBC<br /> 加密对象.密钥 ＝ 到字节集 (密钥)<br /> 加密对象.初始向量 ＝ 取空白字节集 (16) ' 根据实际情况修改IV<br /> 加密对象.填充方式 ＝ #填充方式_PKCS7<br /> 加密结果 ＝ 加密对象.加密 (到字节集 (明文), )<br /> <br /> 返回 (编码_BASE64编码 (加密结果))<br /> <br /> ' 主程序<br /> .子程序 发送加密请求<br /> .局部变量 动态密钥, 文本型<br /> .局部变量 加密参数, 文本型<br /> .局部变量 协议头, 文本型<br /> .局部变量 响应文本, 文本型<br /> <br /> ' 生成动态密钥<br /> 动态密钥 ＝ 生成密钥("your_appid", "https://api.example.com", "your_appkey", "video_hash", 16, 1, 取现行时间戳())<br /> <br /> ' 加密参数<br /> 加密参数 ＝ AES加密("需要加密的参数", 动态密钥)<br /> <br /> ' 构建协议头<br /> 协议头 ＝ "Content-Type: application/json" ＋ #换行符 ＋"Authorization: Bearer " ＋ 动态密钥 ＋ #换行符 ＋"X-Encrypted: true"<br /> <br /> ' 发送请求<br /> 响应文本 ＝ 到文本 (网页_访问_对象 ("https://目标URL", 1, 加密参数, , , 协议头))<br /> <br /> ' 解析响应（假设返回base64加密数据）<br /> 响应文本 ＝ 编码_URL解码 (响应文本, 真)<br /> 响应文本 ＝ 到文本 (编码_BASE64解码 (响应文本))<br /> <br /> 调试输出 ("解密后的响应：", 响应文本)<br /> <br /> .子程序 取现行时间戳, 长整数型<br /> 返回 (时间_取现行时间戳 () ÷ 1000)

z13228604287

就不能源码 截图出来看看

1292008122

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

public static String b(String appId, String ipayCustomerUrl, String appKey, String dhVideoList_sha256, int length, int timeStepLen, long time) throws NoSuchAlgorithmException {
        StringBuilder sb2 = new StringBuilder(appId);
        sb2.append(ipayCustomerUrl);
        sb2.append(appKey);
        StringBuilder combinedStr = sb2.append(dhVideoList_sha256.toUpperCase());
        MessageDigest digest = MessageDigest.getInstance("SHA-256");
        byte[] hashBytes = digest.digest(combinedStr.toString().getBytes(StandardCharsets.UTF_8));
        String hashBase64 = Base64.getEncoder().encodeToString(hashBytes);
        while (hashBase64.length() < 50) {
            byte[] hashBytes2 = digest.digest(hashBase64.getBytes(StandardCharsets.UTF_8));
            hashBase64 = hashBase64 + Base64.getEncoder().encodeToString(hashBytes2);
        }
        return d(length, hashBase64, timeStepLen, time);
    }

    public static String a(String hash, int length, String rootString) {
        StringBuilder result = new StringBuilder();
        hash.length();
        int charsetLength = rootString.length();
        for (int i10 = 0; i10 < length; i10++) {
            int index = Integer.parseInt(hash.substring(i10 * 2, (i10 * 2) + 2), 16) % charsetLength;
            result.append(rootString.charAt(index));
        }
        return result.toString();
    }


    public static String d(int length, String rootString, int index, long time) throws NoSuchAlgorithmException {
        long currentTimeSeconds = time;//Instant.now().getEpochSecond();
        long timeStepIndex = (currentTimeSeconds / 300) + index;
        String hash = c(Long.toString(timeStepIndex));
        return a(hash, length, rootString);
    }

石榴熟了

6包华子 联系~

华庭大哥

写的对不对不知道

  

子程序名	返回值类型	公开	备 注
b	文本型
参数名	类 型	参考	可空	数组	备 注
appId	文本型
ipayCustomerUrl	文本型
appKey	文本型
dhVideoList_sha256	文本型
length	整数型
timeStepLen	整数型
time	长整数型

变量名	类 型	静态	数组	备 注
combinedStr	文本型
hashBytes	字节集
hashBase64	文本型

combinedStr ＝ appId ＋ ipayCustomerUrl ＋ appKey ＋ 到大写 (dhVideoList_sha256)
hashBytes ＝ 取数据摘要 (到字节集 (combinedStr))
hashBase64 ＝ 编码_BASE64编码 (hashBytes)
判断循环首 (取文本长度 (hashBase64) ＜ 50)
hashBytes ＝ 取数据摘要 (到字节集 (hashBase64))
hashBase64 ＝ hashBase64 ＋ 编码_BASE64编码 (hashBytes)
判断循环尾 ()
返回 (d (length, hashBase64, timeStepLen, time))

子程序名	返回值类型	公开	备 注
a	文本型
参数名	类 型	参考	可空	数组	备 注
hash	文本型
length	整数型
rootString	文本型

变量名	类 型	静态	数组	备 注
result	文本型
i	整数型
charsetLength	整数型
index	整数型

charsetLength ＝ 取文本长度 (rootString)
result ＝ “”
计次循环首 (length, i)
index ＝ 十六进制到整数s (取文本中间 (hash, (i － 1) × 2 ＋ 1, 2)) ％ charsetLength
result ＝ result ＋ 取文本中间 (rootString, index ＋ 1, 1)
计次循环尾 ()
返回 (result)

子程序名	返回值类型	公开	备 注
d	文本型
参数名	类 型	参考	可空	数组	备 注
length	整数型
rootString	文本型
index	整数型
time	长整数型

变量名	类 型	静态	数组	备 注
timeStepIndex	长整数型
hash	文本型

timeStepIndex ＝ time ÷ 300 ＋ index
hash ＝ c (到文本 (timeStepIndex))
返回 (a (hash, length, rootString))

子程序名	返回值类型	公开	备 注
c	文本型
参数名	类 型	参考	可空	数组	备 注
input	文本型

变量名	类 型	静态	数组	备 注
digest	字节集
hexHash	文本型

digest ＝ 取数据摘要 (到字节集 (input))
hexHash ＝ 字节集到十六进制s (digest)
返回 (hexHash)

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

变量名	类 型	静态	数组	备 注
i	整数型
结果	文本型
字节值	整数型

结果 ＝ “”
计次循环首 (取字节集长度 (字节集数据), i)
字节值 ＝ 取字节集数据 (字节集数据, 1, i － 1)
结果 ＝ 结果 ＋ 取十六进制文本s (字节值)
计次循环尾 ()
返回 (结果)

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

返回 (取文本右边 (“0” ＋ 取十六进制文本s (字节值), 2))

子程序名	返回值类型	公开	备 注
十六进制到整数s	整数型
参数名	类 型	参考	可空	数组	备 注
hex	文本型

变量名	类 型	静态	数组	备 注
result	整数型
i	整数型

hex ＝ 到大写 (hex)
result ＝ 0
计次循环首 (取文本长度 (hex), i)
result ＝ result × 16 ＋ 寻找文本 (“0123456789ABCDEF”, 取文本中间 (hex, i, 1), , 假) － 1
计次循环尾 ()
返回 (result)

i支持库列表	支持库注释
dp1	数据操作支持库一

.版本 2<br /> .支持库 dp1<br /> <br /> .子程序 b, 文本型, 公开<br /> .参数 appId, 文本型<br /> .参数 ipayCustomerUrl, 文本型<br /> .参数 appKey, 文本型<br /> .参数 dhVideoList_sha256, 文本型<br /> .参数 length, 整数型<br /> .参数 timeStepLen, 整数型<br /> .参数 time, 长整数型<br /> .局部变量 combinedStr, 文本型<br /> .局部变量 hashBytes, 字节集<br /> .局部变量 hashBase64, 文本型<br /> <br /> combinedStr ＝ appId ＋ ipayCustomerUrl ＋ appKey ＋ 到大写 (dhVideoList_sha256)<br /> hashBytes ＝ 取数据摘要 (到字节集 (combinedStr))<br /> hashBase64 ＝ 编码_BASE64编码 (hashBytes)<br /> .判断循环首 (取文本长度 (hashBase64) ＜ 50)<br />     hashBytes ＝ 取数据摘要 (到字节集 (hashBase64))<br />     hashBase64 ＝ hashBase64 ＋ 编码_BASE64编码 (hashBytes)<br /> .判断循环尾 ()<br /> 返回 (d (length, hashBase64, timeStepLen, time))<br /> <br /> .子程序 a, 文本型<br /> .参数 hash, 文本型<br /> .参数 length, 整数型<br /> .参数 rootString, 文本型<br /> .局部变量 result, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 charsetLength, 整数型<br /> .局部变量 index, 整数型<br /> <br /> charsetLength ＝ 取文本长度 (rootString)<br /> result ＝ “”<br /> .计次循环首 (length, i)<br />     index ＝ 十六进制到整数s (取文本中间 (hash, (i － 1) × 2 ＋ 1, 2)) ％ charsetLength<br />     result ＝ result ＋ 取文本中间 (rootString, index ＋ 1, 1)<br /> .计次循环尾 ()<br /> 返回 (result)<br /> <br /> .子程序 d, 文本型<br /> .参数 length, 整数型<br /> .参数 rootString, 文本型<br /> .参数 index, 整数型<br /> .参数 time, 长整数型<br /> .局部变量 timeStepIndex, 长整数型<br /> .局部变量 hash, 文本型<br /> <br /> timeStepIndex ＝ time ÷ 300 ＋ index<br /> hash ＝ c (到文本 (timeStepIndex))<br /> 返回 (a (hash, length, rootString))<br /> <br /> .子程序 c, 文本型<br /> .参数 input, 文本型<br /> .局部变量 digest, 字节集<br /> .局部变量 hexHash, 文本型<br /> <br /> digest ＝ 取数据摘要 (到字节集 (input))<br /> hexHash ＝ 字节集到十六进制s (digest)<br /> 返回 (hexHash)<br /> <br /> .子程序 字节集到十六进制s, 文本型<br /> .参数 字节集数据, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 字节值, 整数型<br /> <br /> 结果 ＝ “”<br /> .计次循环首 (取字节集长度 (字节集数据), i)<br />     字节值 ＝ 取字节集数据 (字节集数据, 1, i － 1)<br />     结果 ＝ 结果 ＋ 取十六进制文本s (字节值)<br /> .计次循环尾 ()<br /> 返回 (结果)<br /> <br /> .子程序 取十六进制文本s, 文本型<br /> .参数 字节值, 整数型<br /> <br /> 返回 (取文本右边 (“0” ＋ 取十六进制文本s (字节值), 2))<br /> <br /> .子程序 十六进制到整数s, 整数型<br /> .参数 hex, 文本型<br /> .局部变量 result, 整数型<br /> .局部变量 i, 整数型<br /> <br /> hex ＝ 到大写 (hex)<br /> result ＝ 0<br /> .计次循环首 (取文本长度 (hex), i)<br />     result ＝ result × 16 ＋ 寻找文本 (“0123456789ABCDEF”, 取文本中间 (hex, i, 1), , 假) － 1<br /> .计次循环尾 ()<br /> 返回 (result)