Konuyu Oyla:
  • Derecelendirme: 3/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
PHP'den gelen şifreli veriyi Delphi decrypt yapmak
#1
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: (Select All)
function AES256CBCEnc($encData$encPassword$encIVKey){
return 
openssl_encrypt($encData"aes-256-cbc"$encPassword0$encIVKey);
}

 

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

 

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


Delphi Kodları : 

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;
- Namyelus
WWW
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi'de Out Parametresi Halil Han Badem 3 70 3 dakika önce
Son Yorum: Fesih ARSLAN
  çözüldü-screenshot yapmak hk. sadikacar60 8 373 27-03-2020, Saat: 21:11
Son Yorum: sadikacar60
  delphi vcl responsive erdogan 6 217 23-03-2020, Saat: 16:47
Son Yorum: erdogan
  Delphi güncellemesi ve JVMemoryData bileşeninde aynı anda birden çok kayıt boreas 0 82 10-03-2020, Saat: 18:03
Son Yorum: boreas
  Delphi MVC Framework Tuğrul HELVACI 6 490 05-03-2020, Saat: 15:50
Son Yorum: OldyCoder



Konuyu Okuyanlar: 1 Ziyaretçi