求大神把易语言代码改成PHP代码

zaozi

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

调试输出 (encryption (“/a/api/share/download/info”, “web”, “3”))

子程序名	返回值类型	公开	备 注
encryption	文本型
参数名	类 型	参考	可空	数组	备 注
url	文本型
way	文本型
version	文本型

变量名	类 型	静态	数组	备 注
y	文本型
a	长整数型
l	长整数型
u	文本型		0
time	日期时间型
m	文本型
g	文本型
b	整数型
tiemText	文本型		0

a ＝ 四舍五入 (10000000 × 取随机数 (1, 10000000) ÷ 10000, )
l ＝ 四舍五入 ( (到长整数 (时间_取北京时间戳 ()) ＋ 60 × -480 × 1000 ＋ 28800000) ÷ 1000, )
u ＝ 分割文本 (“a,d,e,f,g,h,l,m,y,i,j,n,o,p,k,q,r,s,t,u,b,c,v,w,s,z”, “,”, )
time ＝ 到时间 (时间_时间戳转文本 (到文本 (k (l))))
m ＝ 到文本 (取年份 (time))
如果 (取月份 (time) ＜ 10)
m ＝ m ＋ “0” ＋ 到文本 (取月份 (time))
m ＝ m ＋ 到文本 (取月份 (time))

如果 (取日 (time) ＜ 10)
m ＝ m ＋ “0” ＋ 到文本 (取日 (time))
m ＝ m ＋ 到文本 (取日 (time))

如果 (取小时 (time) ＜ 10)
m ＝ m ＋ “0” ＋ 到文本 (取小时 (time))
m ＝ m ＋ 到文本 (取小时 (time))

如果 (取分钟 (time) ＜ 10)
m ＝ m ＋ “0” ＋ 到文本 (取分钟 (time))
m ＝ m ＋ 到文本 (取分钟 (time))

文本_逐字分割 (m, tiemText)
计次循环首 (取数组成员数 (tiemText), b)
如果 (tiemText [b] ＝ “0”)
g ＝ g ＋ u [1]
g ＝ g ＋ u [到整数 (tiemText [b]) ＋ 1]

计次循环尾 ()
y ＝ 到文本 (o (g))
y ＝ y ＋ “=” ＋ 到文本 (l) ＋ “-” ＋ 到文本 (a) ＋ “-” ＋ 到文本 (o (到文本 (l) ＋ “|” ＋ 到文本 (a) ＋ “|” ＋ url ＋ “|” ＋ way ＋ “|” ＋ version ＋ “|” ＋ y))
返回 (y)

子程序名	返回值类型	公开	备 注
k	长整数型
参数名	类 型	参考	可空	数组	备 注
e	长整数型

变量名	类 型	静态	数组	备 注
o	长整数型
i	长整数型
time	日期时间型
result	文本型

如果真 (取文本长度 (到文本 (e)) ＝ 10)
e ＝ 1000 × e

o ＝ e ＋ 60000 × -480
i ＝ o ＋ 3600000 × 8
返回 (i)

子程序名	返回值类型	公开	备 注
o	长整数型
参数名	类 型	参考	可空	数组	备 注
data	文本型

变量名	类 型	静态	数组	备 注
o	文本型		0
i	文本型
a	长整数型
c	整数型
s	整数型

r (o)
i ＝ n (data)
a ＝ -1
计次循环首 (取文本长度 (i), c)
a ＝ 位异或 (右移_SHR_asm (a, 8), 到整数 (o [位与 (255, 位异或 (a, 取代码 (i, c))) ＋ 1]))
计次循环尾 ()
a ＝ 右移_SHR_asm (位异或 (-1, a), 0)
如果真 (a ＜ 0)
a ＝ 求次方 (2, 32) － 取绝对值 (a)
返回 (a)

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

变量名	类 型	静态	数组	备 注
e	长整数型
n	整数型
r	整数型

计次循环首 (256, n)
e ＝ n － 1
计次循环首 (8, r)
如果 (位与 (1, e) ＝ 1)
e ＝ 位异或 (3988292384, 右移_SHR_asm (e, 1))
e ＝ 右移_SHR_asm (e, 1)

计次循环尾 ()
加入成员 (t, 到文本 (e))
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
index	整数型
r	整数型
t	文本型

计次循环首 (取文本长度 (data), index)
r ＝ 取代码 (data, index)
如果 (r ＜ 128)
t ＝ t ＋ 字符 (r)
如果 (r ＞ 127 且 r ＜ 2084)
t ＝ t ＋ 字符 (位或 (右移 (r, 6), 192))
t ＝ t ＋ 字符 (位或 (位与 (63, r), 128))
t ＝ t ＋ 字符 (位或 (右移 (r, 12), 224))
t ＝ t ＋ 字符 (位或 (位与 (右移 (r, 6), 63), 128))
t ＝ t ＋ 字符 (位或 (位与 (63, r), 128))


计次循环尾 ()
返回 (t)

子程序名	返回值类型	公开	备 注
右移_SAR_asm	整数型		(Shift Arithmetic Right)（算术右移） 每位右移, 低位进 CF, 高位不变
参数名	类 型	参考	可空	数组	备 注
欲移动的整数	整数型
欲被移动的位数	字节型

置入代码 ({ 81, 139, 69, 8, 138, 77, 12, 211, 248, 89, 137, 236, 93, 194, 8, 0 })
返回 (-1)
' push ecx
' mov eax, dword ptr [ebp+08h]
' mov cl, byte ptr [ebp+0Ch]
' sar eax, cl
' pop ecx
' mov esp, ebp
' pop ebp
' retn 0008h

子程序名	返回值类型	公开	备 注
右移_SHR_asm	整数型		(Shift Right)（逻辑右移） 每位右移, 低位进 CF, 高位补 0
参数名	类 型	参考	可空	数组	备 注
欲移动的整数	整数型
欲被移动的位数	字节型

置入代码 ({ 81, 139, 69, 8, 138, 77, 12, 211, 232, 89, 139, 229, 93, 194, 8, 0 })
返回 (-1)
' push ecx
' mov eax, dword ptr [ebp+08h]
' mov cl, byte ptr [ebp+0Ch]
' shr eax, cl
' pop ecx
' mov esp, ebp
' pop ebp
' retn 0008h

子程序名	返回值类型	公开	备 注
右移_ROR_asm	整数型		(Rotate Right)(循环右移)
参数名	类 型	参考	可空	数组	备 注
欲移动的整数	整数型
欲被移动的位数	字节型

置入代码 ({ 81, 139, 69, 8, 138, 77, 12, 211, 200, 89, 139, 229, 93, 194, 8, 0 })
返回 (-1)
' push ecx
' mov eax, dword ptr [ebp+08h]
' mov cl, byte ptr [ebp+0Ch]
' ror eax, cl
' pop ecx
' mov esp, ebp
' pop ebp
' retn 0008h

子程序名	返回值类型	公开	备 注
右移_RCR_asm	整数型		(Rotate through Carry Right)(带进位循环右移)
参数名	类 型	参考	可空	数组	备 注
欲移动的整数	整数型
欲被移动的位数	字节型

置入代码 ({ 81, 139, 69, 8, 138, 77, 12, 211, 216, 89, 139, 229, 93, 194, 8, 0 })
返回 (-1)
' push ecx
' mov eax, dword ptr [ebp+08h]
' mov cl, byte ptr [ebp+0Ch]
' rcr eax, cl
' pop ecx
' mov esp, ebp
' pop ebp
' retn 0008h

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 调试输出 (encryption (“/a/api/share/download/info”, “web”, “3”))<br /> <br /> .子程序 encryption, 文本型<br /> .参数 url, 文本型, 参考<br /> .参数 way, 文本型, 参考<br /> .参数 version, 文本型, 参考<br /> .局部变量 y, 文本型<br /> .局部变量 a, 长整数型<br /> .局部变量 l, 长整数型<br /> .局部变量 u, 文本型, , "0"<br /> .局部变量 time, 日期时间型<br /> .局部变量 m, 文本型<br /> .局部变量 g, 文本型<br /> .局部变量 b, 整数型<br /> .局部变量 tiemText, 文本型, , "0"<br /> <br /> a ＝ 四舍五入 (10000000 × 取随机数 (1, 10000000) ÷ 10000, )<br /> l ＝ 四舍五入 ((到长整数 (时间_取北京时间戳 ()) ＋ 60 × -480 × 1000 ＋ 28800000) ÷ 1000, )<br /> u ＝ 分割文本 (“a,d,e,f,g,h,l,m,y,i,j,n,o,p,k,q,r,s,t,u,b,c,v,w,s,z”, “,”, )<br /> time ＝ 到时间 (时间_时间戳转文本 (到文本 (k (l))))<br /> m ＝ 到文本 (取年份 (time))<br /> .如果 (取月份 (time) ＜ 10)<br />     m ＝ m ＋ “0” ＋ 到文本 (取月份 (time))<br /> .否则<br />     m ＝ m ＋ 到文本 (取月份 (time))<br /> .如果结束<br /> <br /> .如果 (取日 (time) ＜ 10)<br />     m ＝ m ＋ “0” ＋ 到文本 (取日 (time))<br /> .否则<br />     m ＝ m ＋ 到文本 (取日 (time))<br /> .如果结束<br /> <br /> .如果 (取小时 (time) ＜ 10)<br />     m ＝ m ＋ “0” ＋ 到文本 (取小时 (time))<br /> .否则<br />     m ＝ m ＋ 到文本 (取小时 (time))<br /> .如果结束<br /> <br /> .如果 (取分钟 (time) ＜ 10)<br />     m ＝ m ＋ “0” ＋ 到文本 (取分钟 (time))<br /> .否则<br />     m ＝ m ＋ 到文本 (取分钟 (time))<br /> .如果结束<br /> <br /> 文本_逐字分割 (m, tiemText)<br /> .计次循环首 (取数组成员数 (tiemText), b)<br />     .如果 (tiemText <strong> ＝ “0”)<br />         g ＝ g ＋ u [1]<br />     .否则<br />         g ＝ g ＋ u [到整数 (tiemText <strong>) ＋ 1]<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> y ＝ 到文本 (o (g))<br /> y ＝ y ＋ “=” ＋ 到文本 (l) ＋ “-” ＋ 到文本 (a) ＋ “-” ＋ 到文本 (o (到文本 (l) ＋ “|” ＋ 到文本 (a) ＋ “|” ＋ url ＋ “|” ＋ way ＋ “|” ＋ version ＋ “|” ＋ y))<br /> 返回 (y)<br /> <br /> .子程序 k, 长整数型<br /> .参数 e, 长整数型<br /> .局部变量 o, 长整数型<br /> .局部变量 i, 长整数型<br /> .局部变量 time, 日期时间型<br /> .局部变量 result, 文本型<br /> <br /> .如果真 (取文本长度 (到文本 (e)) ＝ 10)<br />     e ＝ 1000 × e<br /> .如果真结束<br /> <br /> o ＝ e ＋ 60000 × -480<br /> i ＝ o ＋ 3600000 × 8<br /> 返回 (i)<br /> <br /> .子程序 o, 长整数型<br /> .参数 data, 文本型<br /> .局部变量 o, 文本型, , "0"<br /> .局部变量 i, 文本型<br /> .局部变量 a, 长整数型<br /> .局部变量 c, 整数型<br /> .局部变量 s, 整数型<br /> <br /> r (o)<br /> i ＝ n (data)<br /> a ＝ -1<br /> .计次循环首 (取文本长度 (i), c)<br />     a ＝ 位异或 (右移_SHR_asm (a, 8), 到整数 (o [位与 (255, 位异或 (a, 取代码 (i, c))) ＋ 1]))<br /> .计次循环尾 ()<br /> a ＝ 右移_SHR_asm (位异或 (-1, a), 0)<br /> .如果真 (a ＜ 0)<br />     a ＝ 求次方 (2, 32) － 取绝对值 (a)<br /> .如果真结束<br /> 返回 (a)<br /> <br /> .子程序 r<br /> .参数 t, 文本型, 参考 数组<br /> .局部变量 e, 长整数型<br /> .局部变量 n, 整数型<br /> .局部变量 r, 整数型<br /> <br /> .计次循环首 (256, n)<br />     e ＝ n － 1<br />     .计次循环首 (8, r)<br />         .如果 (位与 (1, e) ＝ 1)<br />             e ＝ 位异或 (3988292384, 右移_SHR_asm (e, 1))<br />         .否则<br />             e ＝ 右移_SHR_asm (e, 1)<br />         .如果结束<br /> <br />     .计次循环尾 ()<br />     加入成员 (t, 到文本 (e))<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 n, 文本型<br /> .参数 data, 文本型<br /> .局部变量 index, 整数型<br /> .局部变量 r, 整数型<br /> .局部变量 t, 文本型<br /> <br /> .计次循环首 (取文本长度 (data), index)<br />     r ＝ 取代码 (data, index)<br />     .如果 (r ＜ 128)<br />         t ＝ t ＋ 字符 (r)<br />     .否则<br />         .如果 (r ＞ 127 且 r ＜ 2084)<br />             t ＝ t ＋ 字符 (位或 (右移 (r, 6), 192))<br />             t ＝ t ＋ 字符 (位或 (位与 (63, r), 128))<br />         .否则<br />             t ＝ t ＋ 字符 (位或 (右移 (r, 12), 224))<br />             t ＝ t ＋ 字符 (位或 (位与 (右移 (r, 6), 63), 128))<br />             t ＝ t ＋ 字符 (位或 (位与 (63, r), 128))<br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 返回 (t)<br /> <br /> .子程序 右移_SAR_asm, 整数型, 公开, (Shift Arithmetic Right)（算术右移） 每位右移, 低位进 CF, 高位不变<br /> .参数 欲移动的整数, 整数型<br /> .参数 欲被移动的位数, 字节型<br /> <br /> 置入代码 ({ 81, 139, 69, 8, 138, 77, 12, 211, 248, 89, 137, 236, 93, 194, 8, 0 })<br /> 返回 (-1)<br /> ' push ecx<br /> ' mov eax, dword ptr [ebp+08h]<br /> ' mov cl, byte ptr [ebp+0Ch]<br /> ' sar eax, cl<br /> ' pop ecx<br /> ' mov esp, ebp<br /> ' pop ebp<br /> ' retn 0008h<br /> <br /> .子程序 右移_SHR_asm, 整数型, 公开, (Shift Right)（逻辑右移） 每位右移, 低位进 CF, 高位补 0<br /> .参数 欲移动的整数, 整数型<br /> .参数 欲被移动的位数, 字节型<br /> <br /> 置入代码 ({ 81, 139, 69, 8, 138, 77, 12, 211, 232, 89, 139, 229, 93, 194, 8, 0 })<br /> 返回 (-1)<br /> ' push ecx<br /> ' mov eax, dword ptr [ebp+08h]<br /> ' mov cl, byte ptr [ebp+0Ch]<br /> ' shr eax, cl<br /> ' pop ecx<br /> ' mov esp, ebp<br /> ' pop ebp<br /> ' retn 0008h<br /> <br /> <br /> .子程序 右移_ROR_asm, 整数型, 公开, (Rotate Right)(循环右移)<br /> .参数 欲移动的整数, 整数型<br /> .参数 欲被移动的位数, 字节型<br /> <br /> 置入代码 ({ 81, 139, 69, 8, 138, 77, 12, 211, 200, 89, 139, 229, 93, 194, 8, 0 })<br /> 返回 (-1)<br /> ' push ecx<br /> ' mov eax, dword ptr [ebp+08h]<br /> ' mov cl, byte ptr [ebp+0Ch]<br /> ' ror eax, cl<br /> ' pop ecx<br /> ' mov esp, ebp<br /> ' pop ebp<br /> ' retn 0008h<br /> <br /> <br /> .子程序 右移_RCR_asm, 整数型, 公开, (Rotate through Carry Right)(带进位循环右移)<br /> .参数 欲移动的整数, 整数型<br /> .参数 欲被移动的位数, 字节型<br /> <br /> 置入代码 ({ 81, 139, 69, 8, 138, 77, 12, 211, 216, 89, 139, 229, 93, 194, 8, 0 })<br /> 返回 (-1)<br /> ' push ecx<br /> ' mov eax, dword ptr [ebp+08h]<br /> ' mov cl, byte ptr [ebp+0Ch]<br /> ' rcr eax, cl<br /> ' pop ecx<br /> ' mov esp, ebp<br /> ' pop ebp<br /> ' retn 0008h

kk4648

function encryption($url, $way, $version) {
    $a = round(mt_rand(1, 10000000) / 10000);
    $l = round((strtotime(date("Y-m-d H:i:s")) + 60 * -480 * 1000 + 28800000) / 1000);
    $u = explode(",", "a,d,e,f,g,h,l,m,y,i,j,n,o,p,k,q,r,s,t,u,b,c,v,w,s,z");
    $time = date("YmdHis", $l);
    $m = '';
    $g = '';
    $tiemText = str_split($time);
   
    foreach ($tiemText as $b) {
        if ($b === "0") {
            $g .= $u[0];
        } else {
            $g .= $u[intval($b)];
        }
    }
   
    $y = customHash($g);
    $y = $y . "=" . $l . "-" . $a . "-" . customHash($l . "|" . $a . "|" . $url . "|" . $way . "|" . $version . "|" . $y);
    return $y;
}


function customHash($data) {
    $hash = crc32($data); // 使用CRC32作为替代示例
    return sprintf("%u", $hash); // 返回无符号的哈希值
}


echo encryption("/a/api/share/download/info", "web", "3");

风度猫

纯脚本语言的PHP 你让他执行汇编置入代码命令? 臣妾做不到!!!!!

阿白不爱吃菜

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

<?php
function _button1_click() {
    debug_output(encryption("/a/api/share/download/info", "web", "3"));
}

function encryption($url, $way, $version) {
    // ... PHP代码实现加密逻辑 ...
    return $encryptedString;
}

function debug_output($text) {
    // ... PHP代码实现调试输出 ...
}

// 调用按钮点击事件
_button1_click();
?>

补充内容 (2024-2-18 01:30):
ai他只给我翻译个按钮调试输出的/doge

zaozi

kk4648 发表于 2024-2-18 00:53
function encryption($url, $way, $version) {
    $a = round(mt_rand(1, 10000000) / 10000);
    $l = r ...

运行不了，有错误

zaozi

kk4648 发表于 2024-2-18 00:53
function encryption($url, $way, $version) {
    $a = round(mt_rand(1, 10000000) / 10000);
    $l = r ...

试过了，不行，签名错误

https://xiaozao.lanzn.com/iElMD1ol6k6j

zaozi

kk4648 发表于 2024-2-18 00:53
function encryption($url, $way, $version) {
    $a = round(mt_rand(1, 10000000) / 10000);
    $l = r ...

这是修复后的代码，不行


echo encryption('/a/api/share/download/info', 'web', '3');

function encryption($url, $way, $version) {
        $a = round(mt_rand(1,10000000) / 10000);
        $l = round((strtotime(date("Y-m-d H:i:s")) + 60 * -480 * 1000 + 28800000) / 1000);
        $u = explode(",", "a,d,e,f,g,h,l,m,y,i,j,n,o,p,k,q,r,s,t,u,b,c,v,w,s,z");
        $time = date("YmdHis", $l);
        $m = '';
        $g = '';
        $tiemText = str_split($time);
        foreach ($tiemText as $b) {
                if ($b === "0") {
                        $g .= $u[0];
                } else {
                        $g .= $u[intval($b)];
                }
        }
       
        $y = customHash($g);
        $y = $y . "=" . $l . "-" . $a . "-" . customHash($l . "|" . $a . "|" . $url . "|" . $way . "|" . $version . "|" . $y);
        return $y;
}
function customHash($data) {
        $hash = crc32($data); // 使用CRC32作为替代示例
        return sprintf("%u", $hash); // 返回无符号的哈希值
}