delphi php 加解密,AES使用DCrypt在Delphi(10 Seattle)中加密字符串,使用PHP / OpenSSL解密...

使用DCrypt在Delphi中使用此代码：

Uses DCPcrypt2, DCPblockciphers, DCPrijndael, DCPbase64;

procedure TForm1.Button1Click(Sender: TObject);

var Cipher : TDCP_rijndael;

ss, k, Data, Key, IV : Ansistring;

const

KeySize = 32; // 32 bytes = 256 bits

BlockSize = 16; // 16 bytes = 128 bits // IV

begin

key := '12345678901234567890123456789012';

iv := '1234567890123456';

Data := 'thisis128bitstxt';

Cipher := TDCP_rijndael.Create(nil);

Cipher.Init(Key[1],128,@IV[1]);

Cipher.EncryptCBC(Data[1],Data[1],Length(Data));

Cipher.Free;

Data := DCPBase64.Base64EncodeStr(Data);

Memo1.Lines.Add(Data);

end;

我得到以下内容：

Eq7iMlVKysMMXdhR0rtrwA ==

使用OpenSSL在PHP中尝试相同：

$s = "thisis128bitstxt";

$s = openssl_encrypt($s, "AES-128-CBC", "12345678901234567890123456789012", 0, "1234567890123456");

echo $s . "";

?>

返回：Eq7iMlVKysMMXdhR0rtrwEbhkypNJyuwGafLILvwpbY =

怎么了？

如果我尝试解密delphi输出,我会得到一个空字符串：

$s = "Eq7iMlVKysMMXdhR0rtrwA==";

$s = openssl_decrypt($s, "AES-128-CBC", "12345678901234567890123456789012", 0, "1234567890123456");

echo $s . "";