使用 R 解密 PHP 中加密的消息

我的大脑很痛，我想不出来，我非常感谢你的帮助.我有一个使用PHP在存储中加密的数据库.我需要在R中解密.我感觉我很接近，但我就是无法到达那里.

以下是用于加密的PHP代码:

<?php

function str_encryptaesgcm($plaintext, $password) {
$iv = "1234567890123456";
$ciphertext = openssl_encrypt(
    $plaintext, 
    "AES-256-CBC", 
    hash('sha256', $password, true), 
    OPENSSL_RAW_DATA, 
    $iv);
return base64_encode($ciphertext);
}

function str_decryptaesgcm($ciphertext, $password) {
$iv = "1234567890123456";
return openssl_decrypt(
        base64_decode($ciphertext), 
        "AES-256-CBC", 
        hash('sha256', $password, true), 
        OPENSSL_RAW_DATA, 
        $iv);
}

$enc = str_encryptaesgcm("Hello, world!", "ABCDEFGHIJKLMNOPQRST");
echo $enc . " ";
$enc = "8FT21xlAENs0Q8GTDE5k0A==";
$dec = str_decryptaesgcm($enc, "ABCDEFGHIJKLMNOPQRST");
echo $dec;

这里，"8FT21xlAENs0Q8GTDE5k0A=="是"你好，世界！"我数据库中的信息.如果我运行str_decryptaesgcm函数，它会吐出原始消息.I need to decode this in R.

要在R中复制此过程，需要运行以下代码:

library(openssl)
x <- aes_cbc_encrypt(serialize('Hello, world!', NULL), 
                     key = sha256(charToRaw('ABCDEFGHIJKLMNOPQRST')), 
                     iv = charToRaw('1234567890123456'))
y <- aes_cbc_decrypt(
  data = x, 
  key = sha256(charToRaw('ABCDEFGHIJKLMNOPQRST')), 
  iv = charToRaw('1234567890123456'))
unserialize(y)

unserialize(y)人吐出原始信息.

然而，base64_encode(x)生成的字符串与PHP中生成的字符串完全不同:"1y6CgaY23ap+tQVXQKGsYyZWDMGj/GXEHJYYYFYFONYRJUFBFIERC4AJ7/9UDZRLC21Q7V+1bADtuzEfG83iakBw==".

我得到can个R来生成PHP字符串，但我需要以不同的方式运行加密:

x <- aes_cbc_encrypt(charToRaw('Hello, world!'), 
                     key = sha256(charToRaw('ABCDEFGHIJKLMNOPQRST')), 
                     iv = charToRaw('1234567890123456'))

然后，base64_encode(x)生成"8FT21xlAENs0Q8GTDE5k0A==".然而，将其插入解码器会产生我无法转换的垃圾(请注意，它会解码，不会抛出错误):

> y <- aes_cbc_decrypt(
+   data = x, 
+   key = sha256(charToRaw('ABCDEFGHIJKLMNOPQRST')), 
+   iv = charToRaw('1234567890123456'))
> y
 [1] 48 65 6c 6c 6f 2c 20 77 6f 72 6c 64 21
> unserialize(y)
Error in unserialize(y) : unknown input format

所以问题是，我应该怎么做才能将"8FT21xlAENs0Q8GTDE5k0A=="转换回原始消息？我非常感谢你的建议.