Delphi Can

PHP'den gelen şifreli veriyi Delphi decrypt yapmayı başaramadım

Şifresiz Veri :

{"tag":"register","success":1,"error":0,"uid":"5e2809e1f3a6a5.89171007","user":{"name":"asd","email":"asdasdas","hwid":"04C1-8F6F-C181-71F7","phone":"sadas","accessright":"1","status":"0","created_at":"2020-01-22","end_at":null}}

Şifreli veri PHP Tarafından :

qygdpwUmLBu8gd5fOqV5OPBw9w71VVx+Az/USz7MoYEV2bMZ05ZG7VMtdOeLEFkEnZBOPAhZE+fKFS9XFH1nbe3/8XYDm+xE4Km489It4ePc5T5R2vvnvcqILdIWTBm1gn8Y5GyJ/GEzGU7nBQY7UpwQ6uUtF8XsSF+nbb+XbZS8TDPwyufm+j+5/1bbg9DUMsRiASrAUil9cNsoodGybK4D9jn72QSYrxCoGFVtr9GHUTCw7+ejrixt/iUOE9/WT2c6CnbOzJOqWGuBkzkmQTFY8lyzoIalQSqv+Bv6F7CCDBGeLbg1Bba5LznLyQV9

PHP Kodları :

PHP Kod:

function AES256CBCEnc($encData, $encPassword, $encIVKey){
return openssl_encrypt($encData, "aes-256-cbc", $encPassword, 0, $encIVKey);
}

 

function AES256CBCDec($decData, $decPassword, $decIVKey){
return openssl_decrypt($decData, "aes-256-cbc", $decPassword, 0, $decIVKey);
}

 

echo json_encode($response);
$response = json_encode($response);
$response = AES256CBCEnc($response, "12345678123456781234567812345678", "1234567812345678");
echo ($response); 

Delphi Kodları :

Kod:

var

crypt: HCkCrypt2;

ivHex: PWideChar;

keyHex: PWideChar;

encStr: PWideChar;

decStr: PWideChar;

   s : string;

begin

crypt := CkCrypt2_Create();

// AES is also known as Rijndael.

CkCrypt2_putCryptAlgorithm(crypt,'aes');

CkCrypt2_putCipherMode(crypt,'cbc');

// KeyLength may be 128, 192, 256

CkCrypt2_putKeyLength(crypt,256);

CkCrypt2_putPaddingScheme(crypt,0);

CkCrypt2_putEncodingMode(crypt,'hex');

ivHex := '1234567812345678';

CkCrypt2_SetEncodedIV(crypt,ivHex,'hex');

keyHex := '12345678123456781234567812345678';

CkCrypt2_SetEncodedKey(crypt,keyHex,'hex');

s:= Trim(Memo1.Text);

StringToWideChar(s, encStr, 320);

decStr := CkCrypt2__decryptStringENC(crypt,encStr);

Memo1.Lines.Add(decStr);

CkCrypt2_Dispose(crypt);

end;

dicle_gsm