帮忙易算法转一下php

6781913

.版本 2
.支持库 dp1

.子程序 getS2, 文本型
.参数 str1, 文本型
.参数 str2, 文本型
.局部变量 key2_s, 文本型
.局部变量 key1_s, 文本型
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 S, 文本型
.局部变量 z, 整数型

key2_s ＝ 到小写 (校验_取sha512 (到字节集 (取数据摘要 (到字节集 (str2)) ＋ 取数据摘要 (到字节集 (str1)))))
key1_s ＝ 到小写 (校验_取sha512 (到字节集 (“185fa820bc8d329ecee24c3d982cfb41” ＋ 取数据摘要 (到字节集 (str2)) ＋ 取数据摘要 (到字节集 (str1)))))

.计次循环首 (10, z)
    j ＝ 位或 (位异或 (取代码 (key2_s, (z － 1) × 15 ＋ 1 ＋ j ％ 120), 240), 取代码 (key2_s, (z － 1) × 15 ＋ 1 ＋ j ％ 120))
    S ＝ S ＋ 字符 (取代码 (key1_s, 1 ＋ (z － 1) × 15 ＋ j ％ 120))
.计次循环尾 ()


返回 (S)

有没有吊大的帮我这段易语言代码转换成php的代码。我试了gpt翻译不了。好久没写过易语言了，感谢

cobi

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

<?php
error_reporting(0);
echo get32('123','456');
function get32($str1, $str2){
        $j = 0;
        $S = '';
        $key2_s = strtolower(hash('sha512', md5($str2).md5($str1)));
        $key1_s = strtolower(hash('sha512', '185fa820bc8d329ecee24c3d982cfb41'.md5($str2).md5($str1)));
        for($i=0;$i<10;$i++) {
                $j = ord(substr($key2_s, $i*15+1+$j%120-1, 1))^240|ord(substr($key2_s, $i*15+1+$j%120-1, 1));
                $S .= chr(ord(substr($key1_s, 1+$i*15+$j%120-1, 1)));
        }
        return $S;
}
?>

韦贝贝

function getS2($str1, $str2) {
    // 将字符串转换为字节集（用 utf8_encode 模拟）
    function toBytes($str) {
        return utf8_encode($str);
    }

    // 获取 SHA-512 哈希值
    function sha512($data) {
        return hash('sha512', $data);
    }

    // 获取数据摘要
    function getDigest($data) {
        return sha512($data);
    }

    $key2_s = strtolower(sha512(toBytes(getDigest(toBytes($str2)) . getDigest(toBytes($str1)))));
    $key1_s = strtolower(sha512(toBytes("185fa820bc8d329ecee24c3d982cfb41" . getDigest(toBytes($str2)) . getDigest(toBytes($str1)))));

    $j = 0;
    $S = "";

    for ($z = 1; $z <= 10; $z++) {
        $j = ($j ^ ord($key2_s[($z - 1) * 15 + $j % 120])) | 240;
        $S .= chr(ord($key1_s[1 + ($z - 1) * 15 + $j % 120]));
    }

    return $S;
}

晴雯晴雯

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

<?php

function getS2($str1, $str2) {
    // 将str2和str1的内容先取摘要，再计算sha512值，然后转换为小写
    $digest1 = hash('sha256', $str2);
    $digest2 = hash('sha256', $str1);
    $key2_s = strtolower(hash('sha512', $digest1 . $digest2));

    // 根据固定字符串和摘要计算sha512值，然后转换为小写
    $base = "185fa820bc8d329ecee24c3d982cfb41";
    $key1_s = strtolower(hash('sha512', $base . $digest1 . $digest2));

    // 循环处理字符串
    $S = '';
    for ($z = 0; $z < 10; $z++) {
        for ($j = 0; $j < strlen($key2_s); $j++) {
            // 用位操作处理key2_s内部的字符
            $position = ($z * 15 + $j) % 120;
            $charKey2 = substr($key2_s, $position, 1);
            $xorVal = (ord($charKey2) ^ 240) | ord($charKey2);

            // 通过key1_s生成最终的字符串S
            $charKey1 = substr($key1_s, ($z * 15 + $j) % 120, 1);
            $S .= $charKey1;
        }
    }

    return $S;
}

?>

时髦猪

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

<?php
$j=0;
$str1 = "1";$str2 = "2";
$key2_s = hash('sha512', md5($str2) . md5($str1));
$key1_s = hash('sha512', "185fa820bc8d329ecee24c3d982cfb41" . md5($str2) . md5($str1));
for ($z = 0;$z < 10; $z++) {
//$j = ord($key2_s[$z*15+1+$j%120-1]);
$j = ord($key2_s[$z*15+1+$j%120-1]) ^ 240 | ord($key2_s[$z*15+1+$j%120-1]);
$S = $S . chr(ord($key1_s[1+$z*15+$j%120-1]));
}
echo $S . "\n";
?>

每个代码都是百度一句句翻译的  测试正常

时髦猪

1.rar (289 Bytes, 下载次数: 0)

2024-11-28 14:54 上传

点击文件名下载附件
发代码要审核  给你发个附件



补充内容 (2024-11-28 14:57):
最下面掉了结尾 ?>

6781913

下午有事没来看。谢谢吊大的你们哈

6781913

韦贝贝 发表于 2024-11-28 10:14
function getS2($str1, $str2) {
    // 将字符串转换为字节集（用 utf8_encode 模拟）
    function toByt ...

计算结果不符合预期。应该哪里还不对。谢谢哈

6781913

晴雯晴雯 发表于 2024-11-28 10:29

计算结果也不符合预期。谢谢哈。

6781913

cobi 发表于 2024-11-28 11:27

谢谢大哥。结果相符，算法没毛病。我就说我原来的hash512都对不上。原来还有个md5操作。