如何将VB.NET中MD5关联的TripleDES加密逻辑转为PHP并匹配结果？

我有一段朋友编写的VB.NET代码，用来通过MD5生成密钥，再用TripleDES加密输入内容并返回Base64字符串：

Dim md5 As New MD5CryptoServiceProvider
Dim des As New TripleDESCryptoServiceProvider
des.Key = MD5Hash(key)
des.Mode = CipherMode.ECB
Dim buffer As Byte() = ASCIIEncoding.ASCII.GetBytes(input)
Return Convert.ToBase64String(des.CreateEncryptor().TransformFinalBlock(buffer, 0, buffer.Length))

不过我尝试用PHP执行 echo md5('111'); 得到的结果是 698d51a19d8a121ce581499d7b701668，但VB.NET那边生成的密钥结果是 M+wq3Qt9bfg=，明显不匹配。我需要实现对应的PHP逻辑，让两边得到一致的加密结果，请问该怎么处理？

这问题我之前碰到过，核心是VB.NET和PHP对MD5结果的处理方式完全不同：你直接用PHP的md5()函数得到的是十六进制字符串，但VB.NET里的MD5CryptoServiceProvider.ComputeHash()返回的是原始字节数组，后续还适配了TripleDES的密钥要求，最后转成Base64才得到M+wq3Qt9bfg=这样的结果。

要实现一致的逻辑，你需要在PHP里还原VB.NET的处理步骤：

function vbnet_compatible_tripledes($input, $key) {
    // 1. 生成MD5原始字节数组（对应VB.NET的MD5CryptoServiceProvider.ComputeHash）
    $md5_raw_bytes = md5($key, true);
    
    // 2. 配置TripleDES参数：ECB模式、PKCS7填充（VB.NET默认填充方式）
    $cipher = 'des-ede3-ecb';
    $block_size = 8; // TripleDES固定块大小
    
    // 3. 按ASCII编码处理输入（对应VB.NET的ASCIIEncoding.ASCII.GetBytes）
    $input_ascii = mb_convert_encoding($input, 'ASCII');
    
    // 4. 手动做PKCS7填充（因为openssl默认填充可能和VB.NET有差异）
    $pad_length = $block_size - (strlen($input_ascii) % $block_size);
    $padded_input = $input_ascii . str_repeat(chr($pad_length), $pad_length);
    
    // 5. 执行加密并转Base64
    $encrypted = openssl_encrypt(
        $padded_input,
        $cipher,
        $md5_raw_bytes,
        OPENSSL_RAW_DATA | OPENSSL_NO_PADDING
    );
    
    return base64_encode($encrypted);
}

// 测试示例
echo vbnet_compatible_tripledes('test_content', '111');

关键细节说明： #

• md5($key, true)：第二个参数传true才会返回MD5的原始字节数组，这是和你之前用的md5('111')（返回十六进制字符串）最核心的区别
• VB.NET的TripleDESCryptoServiceProvider默认使用PKCS7填充，所以PHP里需要手动实现该填充逻辑，避免openssl默认填充导致的差异
• 严格使用ASCII编码处理输入，和VB.NET的ASCIIEncoding.ASCII.GetBytes行为完全对齐
• ECB模式不需要向量（IV），和VB.NET代码配置一致

你可以用相同的密钥和输入测试，两边应该能得到完全一致的Base64加密结果了。

内容的提问来源于stack exchange，提问作者Wolfzmus