盒子论坛 v2.1

<?php
//**********加密解密**********/
/*
* $string：明文或密文
* $operation：DECODE表示解密,其它表示加密
* $key：密匙
* $expiry：密文有效期
* */
function authcode($string, $operation = 'DECODE', $key = '', $expiry = 0)
{
    // 动态密匙长度，相同的明文会生成不同密文就是依靠动态密匙
    $ckey_length = 4;

    // 密匙
    $key = md5($key ? $key : 'livcmsencryption ');
    // 密匙a会参与加解密
    $keya = md5(substr($key, 0, 16));
    // 密匙b会用来做数据完整性验证
    $keyb = md5(substr($key, 16, 16));
    // 密匙c用于变化生成的密文
    $keyc = $ckey_length ? ($operation == 'DECODE' ? substr($string, 0, $ckey_length): substr(md5(microtime()), -$ckey_length)) : '';
    // 参与运算的密匙
    $cryptkey = $keya.md5($keya.$keyc);
    $key_length = strlen($cryptkey);
    // 明文，前10位用来保存时间戳，解密时验证数据有效性，10到26位用来保存$keyb(密匙b)，解密时会通过这个密匙验证数据完整性
    // 如果是解码的话，会从第$ckey_length位开始，因为密文前$ckey_length位保存动态密匙，以保证解密正确
    $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') {
        // substr($result, 0, 10) == 0 验证数据有效性
        // substr($result, 0, 10) - time() > 0 验证数据有效性
        // substr($result, 10, 16) == substr(md5(substr($result, 26).$keyb), 0, 16) 验证数据完整性
        // 验证数据有效性，请看未加密明文的格式
        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 {
        // 把动态密匙保存在密文里，这也是为什么同样的明文，生产不同密文后能解密的原因
        // 因为加密后的密文可能是一些特殊字符，复制过程可能会丢失，所以用base64编码
        return $keyc.str_replace('=', '', base64_encode($result));
    }
}
//**********加密解密结束**********/
?>

这是PHP代码。Discuz的Authcode算法。

翻译到Delphi我翻译下来  考虑到编码问题老是不对。

希望能有大哥帮个忙感谢！
----------------------------------------------
-

作者：

bahamut8348 (leonna)	★☆☆☆☆	-
	普通会员

2021/4/28 8:55:26

1楼：

php默认utf-8，你转成utf8string再加解密
----------------------------------------------
--

作者：

xiaobaosoft (小宝软件)	▲▲△△△	-
	普通会员

2021/4/28 11:50:15

2楼：

@bahamut8348
不对吧，ord取得是ascii吗
----------------------------------------------
-

作者：

xiaobaosoft (小宝软件)	▲▲△△△	-
	普通会员

2021/4/28 16:08:00

3楼：

Delphi的字符串是位置1开始也是个问题
----------------------------------------------
-

作者：

xiaobaosoft (小宝软件)	▲▲△△△	-
	普通会员

2021/4/29 0:27:04

4楼：

没有大哥帮忙么。

找了些分析资料。本质是一个RC4+xor异或+校验头、
----------------------------------------------
-

作者：

bahamut8348 (leonna)	★☆☆☆☆	-
	普通会员

2021/4/29 9:02:25

5楼：

兰州都这么笃定了还帮什么
----------------------------------------------
--

作者：

xiaobaosoft (小宝软件)	▲▲△△△	-
	普通会员

2021/4/30 14:06:32

6楼：

@bahamut8348
我断断续续改了N个版本了。都不行。

所以需要猜测各种可能的问题

UTF8 ansi 编码问题

下标问题。都已经试过。当然我水平比较差。没搞定
----------------------------------------------
-

作者：

wang_80919 (Flying Wang)	★☆☆☆☆	-
	普通会员

2021/4/30 14:36:44

7楼：

1楼的答案仅仅适合旧版本。
新版本请不要用 string 用 Tbytes 。爱信不信。
----------------------------------------------
(C)(P)Flying Wang

信息

登陆以后才能回复