我认为有几个问题:-)
des.InitStr() 在内部从 8 个空字节创建一个 IV,然后对其进行加密。您需要在 PHP 中使用相同的 IV。
sha1($key) 生成一个十六进制字符串,而不是密码的实际字节。你需要像 mhash 这样的东西。
我无法使用给定的 Delphi 函数重现您的 $enc 字符串。
Unicode 问题 - 密码和源文本在 Delphi 中将被视为 unicode。
您似乎在 Delphi 例程中对源代码进行了两次 Base 64 编码。 des.EncryptString 和 des.DecryptString 生成并使用 Base 64 编码字符串,因此无需再次执行此操作。
Padding
根据我之前的回答here https://stackoverflow.com/a/7078230/197962- 这是我的建议:
function EncryptStringDES: string;
var
des: TDCP_des;
src, enc, b64: TBytes;
index, slen, bsize, padsize: integer;
begin
des:=tdcp_des.Create(nil);
try
des.InitStr(AnsiString('test'), tdcp_sha1);
src := TEncoding.UTF8.GetBytes('this is a test');
slen := Length(src);
// Add padding
bsize := des.BlockSize div 8;
padsize := bsize - (slen mod bsize);
Inc(slen, padsize);
SetLength(src, slen);
for index := padsize downto 1 do
begin
src[slen - index] := padsize;
end;
SetLength(enc, slen);
des.EncryptCBC(src[0], enc[0], slen);
result := EncdDecd.EncodeBase64(@enc[0], Length(enc));
finally
des.Free;
end;
end;
function DecryptStringDES(ASource: string): string;
var
des: TDCP_des;
key, src, dec, b64: TBytes;
pad, slen: integer;
begin
des := TDCP_des.Create(nil);
try
des.InitStr(AnsiString('test'), tdcp_sha1);
src := EncdDecd.DecodeBase64(AnsiString(ASource));
slen := Length(src);
SetLength(dec, slen);
des.DecryptCBC(src[0], dec[0], slen);
// Remove padding
pad := dec[slen - 1];
SetLength(dec, slen - pad);
result := TEncoding.UTF8.GetString(dec);
finally
des.Free;
end;
end;
和 PHP:
<?php
function decrypt_SO($str, $key)
{
//$ivsize = mcrypt_get_iv_size(MCRYPT_DES, MCRYPT_MODE_CBC);
//$blocksize = mcrypt_get_block_size(MCRYPT_DES, MCRYPT_MODE_CBC);
$keysize = mcrypt_get_key_size(MCRYPT_DES, MCRYPT_MODE_CBC);
// Need to use the SAME IV as the Delphi function. By default
// this is (0,0,0,0,0,0,0,0) encrypted using ECB mode and gives the
// following bytes:
$ivbytes = array(72, 163, 99, 62, 219, 111, 163, 114);
$iv = implode(array_map("chr", $ivbytes));
$enc = base64_decode($str);
$k = mhash(MHASH_SHA1, $key);
$dec = mcrypt_decrypt(MCRYPT_DES, substr($k, 0, $keysize), $enc, MCRYPT_MODE_CBC, $iv);
$pad = ord($dec[strlen($dec) - 1]);
return substr($dec, 0, strlen($dec) - $pad);
}
$enc = 'WRaG/8xlxqqcTAJ5UAk4DA==';
$dec = decrypt_SO($enc, 'test');
echo "$dec\n";
?>