开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 2009|回复: 10
收起左侧

[求助] 求PHP代码转译e语言

[复制链接]
发表于 2022-5-28 15:55:52 | 显示全部楼层 |阅读模式   河南省郑州市
这是一段加解密函数求大牛转译易语言

[PHP] 纯文本查看 复制代码
<?php
echo authcode("abcdefg","ENCODE","123",60);
echo "<br/>";
echo authcode("c634bdbULXcBn0rN8iKrxwPvoTCzYeCxBB83o9dxLQyVzZfv","DECODE","123",60);

function authcode($string, $operation = 'DECODE', $key = '', $expiry = 3600) {
    $ckey_length = 4;
    // 随机密钥长度 取值 0-32;
    // 加入随机密钥,可以令密文无任何规律,即便是原文和密钥完全相同,加密结果也会每次不同,增大破J难度。
    // 取值越大,密文变动规律越大,密文变化 = 16 的 $ckey_length 次方
    // 当此值为 0 时,则不产生随机密钥
    $key = md5($key ? $key : 'default_key');
    //这里可以填写默认key值
    $keya = md5(substr($key, 0, 16));
    $keyb = md5(substr($key, 16, 16));
    $keyc = $ckey_length ? ($operation == 'DECODE' ? substr($string, 0, $ckey_length): substr(md5(microtime()), -$ckey_length)) : '';
    $cryptkey = $keya.md5($keya.$keyc);
    $key_length = strlen($cryptkey);
    $string = $operation == 'DECODE' ? base64_decode(substr($string, $ckey_length)) : sprintf('%010d', $expiry ? $expiry + time() : 0).substr(md5($string.$keyb), 0, 16).$string;
    $string_length = strlen($string);
    $result = '';
    $box = range(0, 255);
    $rndkey = array();
    for ($i = 0; $i <= 255; $i++) {
        $rndkey[$i] = ord($cryptkey[$i % $key_length]);
    }
    for ($j = $i = 0; $i < 256; $i++) {
        $j = ($j + $box[$i] + $rndkey[$i]) % 256;
        $tmp = $box[$i];
        $box[$i] = $box[$j];
        $box[$j] = $tmp;
    }
    for ($a = $j = $i = 0; $i < $string_length; $i++) {
        $a = ($a + 1) % 256;
        $j = ($j + $box[$a]) % 256;
        $tmp = $box[$a];
        $box[$a] = $box[$j];
        $box[$j] = $tmp;
        $result .= chr(ord($string[$i]) ^ ($box[($box[$a] + $box[$j]) % 256]));
    }
    if($operation == 'DECODE') {
        if((substr($result, 0, 10) == 0 || substr($result, 0, 10) - time() > 0) && substr($result, 10, 16) == substr(md5(substr($result, 26).$keyb), 0, 16)) {
            return substr($result, 26);
        } else {
            return '';
        }
    } else {
        return $keyc.str_replace('=', '', base64_encode($result));
    }
}




补充内容 (2022-5-28 21:00):
已经自行解决

结帖率:99% (392/395)

签到天数: 22 天

发表于 2022-5-28 16:23:42 | 显示全部楼层   湖南省株洲市
太长~~~~~~~~~~~~了,应该没人愿意
回复 支持 反对

使用道具 举报

结帖率:98% (131/134)

签到天数: 11 天

发表于 2022-5-28 16:26:38 | 显示全部楼层   重庆市重庆市
看起来不难 就是太长了
回复 支持 反对

使用道具 举报

签到天数: 3 天

 楼主| 发表于 2022-5-28 16:28:09 | 显示全部楼层   河南省郑州市
53770zhang 发表于 2022-5-28 16:26
看起来不难 就是太长了

主要的加解密代码就两段循环无奈php能力有限
回复 支持 反对

使用道具 举报

签到天数: 3 天

 楼主| 发表于 2022-5-28 16:28:34 | 显示全部楼层   河南省郑州市
Autism 发表于 2022-5-28 16:23
太长~~~~~~~~~~~~了,应该没人愿意

主要的加解密代码就两段循环无奈php能力有限
回复 支持 反对

使用道具 举报

结帖率:99% (392/395)

签到天数: 22 天

发表于 2022-5-28 16:36:29 | 显示全部楼层   湖南省株洲市
chuh 发表于 2022-5-28 16:28
主要的加解密代码就两段循环无奈php能力有限

回复 支持 反对

使用道具 举报

结帖率:97% (67/69)

签到天数: 23 天

发表于 2022-5-28 16:48:35 | 显示全部楼层   安徽省合肥市
这个也不难,就是有点长了= =
回复 支持 反对

使用道具 举报

签到天数: 3 天

 楼主| 发表于 2022-5-28 17:14:01 | 显示全部楼层   河南省郑州市
气质征服一切 发表于 2022-5-28 16:48
这个也不难,就是有点长了= =

怎么都是这句话
回复 支持 反对

使用道具 举报

结帖率:97% (67/69)

签到天数: 23 天

发表于 2022-5-28 17:15:02 | 显示全部楼层   安徽省合肥市
chuh 发表于 2022-5-28 17:14
怎么都是这句话

因为真的不难,但是没接触过php的确定看不懂
回复 支持 反对

使用道具 举报

签到天数: 3 天

 楼主| 发表于 2022-5-28 17:26:34 | 显示全部楼层   河南省郑州市
已自行解决
回复 支持 反对

使用道具 举报

  高级模式
B Color Image Link Quote Code Smilies |上传

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表