другое шифрование-дешифрование Delphi / PHP с использованием Rijndael

Я пытаюсь зашифровать / расшифровать строку с помощью Rijndael от php до Delphi и обратно.

Если я расшифрую строку PHP из Delphi … работает нормально.

Если я зашифрую строку с Delphi, результирующая строка в порядке, но короче

для теста я использовал строку из 62 символов. зашифрованная строка с delphi длиннее на 4 символа меньше PHP

эти строки … последние символы:

PHP: GyLWj1anBJRmE8mBsaO5cvTrcbvvA ==

Delphi: GyLWj1anBJRmE8mBsaO5cvTrcbv

спасибо за любые советы

Я использую этот пример исходного кода:

PHP:

function encrypt ($key, $value)
{
$padSize = 16 - (strlen ($value) % 16) ;
$value = $value . str_repeat (chr ($padSize), $padSize) ;
$output = mcrypt_encrypt (MCRYPT_RIJNDAEL_128, $key, $value, MCRYPT_MODE_CBC, 'xxxxxxx') ;
return base64_encode ($output) ;
}

Delphi шифрует:

function EncryptData3(Data: string; AKey: AnsiString; AIv: AnsiString): string;
var
cipher: TDCP_rijndael;
key, iv, src, dest, b64: TBytes;
index, slen, bsize, pad: integer;
begin
//key := Base64DecodeBytes(TEncoding.UTF8.GetBytes(AKey));
//iv := Base64DecodeBytes(TEncoding.UTF8.GetBytes(AIv));
key := TEncoding.ASCII.GetBytes(AKey);
iv := TEncoding.ASCII.GetBytes(AIv);

src := TEncoding.ascii.GetBytes(Data);

cipher := TDCP_rijndael.Create(nil);
try
cipher.CipherMode := cmCBC;
// Add padding.
// Resize the Value array to make it a multiple of the block length.
// If it's already an exact multiple then add a full block of padding.
slen := Length(src);
bsize := (cipher.BlockSize div 8);
pad := bsize - (slen mod bsize);
Inc(slen, pad);
SetLength(src, slen);

for index := pad downto 1 do
begin
src[slen - index] := pad;
end;

SetLength(dest, slen);
cipher.Init(key[0], 256, @iv[0]); // DCP uses key size in BITS not BYTES
cipher.Encrypt(src[0], dest[0], slen);

b64 := Base64EncodeBytes(dest);
result := TEncoding.Default.GetString(b64);
finally
cipher.Free;
end;
end;

Delphi расшифровывать … не работает

function DecryptData3(Data: string; AKey: AnsiString; AIv: AnsiString): string;
var
key, iv, src, dest: TBytes;
cipher: TDCP_rijndael;
slen, pad: integer;
begin
//key := Base64DecodeBytes(TEncoding.UTF8.GetBytes(AKey));
//iv := Base64DecodeBytes(TEncoding.UTF8.GetBytes(AIv));
key := TEncoding.ASCII.GetBytes(AKey);
iv := TEncoding.ASCII.GetBytes(AIv);

src := Base64DecodeBytes(TEncoding.UTF8.GetBytes(Data));

cipher := TDCP_rijndael.Create(nil);
try
cipher.CipherMode := cmCBC;
slen := Length(src);
SetLength(dest, slen);
cipher.Init(key[0], 256, @iv[0]); // DCP uses key size in BITS not BYTES
cipher.Decrypt(src[0], dest[0], slen);
// Remove the padding. Get the numerical value of the last byte and remove
// that number of bytes
pad := dest[slen - 1];
SetLength(dest, slen - pad);

// Base64 encode it
result := TEncoding.Default.GetString(dest);
finally
cipher.Free;
end;
end;