¡@
php Programming Glossary: setlengthhow to sync encryption between delphi and php using dcpcrypt http://stackoverflow.com/questions/14995052/how-to-sync-encryption-between-delphi-and-php-using-dcpcrypt div 8 padsize bsize slen mod bsize Inc slen padsize SetLength src slen for index padsize downto 1 do begin src slen index.. index padsize downto 1 do begin src slen index padsize end SetLength enc slen des.EncryptCBC src 0 enc 0 slen result EncdDecd.EncodeBase64.. EncdDecd.DecodeBase64 AnsiString ASource slen Length src SetLength dec slen des.DecryptCBC src 0 dec 0 slen Remove padding pad..
Convert this php digital signing to Delphi http://stackoverflow.com/questions/1792541/convert-this-php-digital-signing-to-delphi docs state should be 120 bytes var err TBytes begin SetLength err BUFF_SIZE ERR_error_string ERR_get_error @err 0 result string.. ctx EVP_MD_CTX begin keysize EVP_PKEY_size APrivateKey SetLength result keysize EVP_MD_CTX_init @ctx try EVP_SignInit @ctx EVP_sha1.. Length ASource EVP_SignFinal @ctx @result 0 ks APrivateKey SetLength result ks finally EVP_MD_CTX_cleanup @ctx end end function Base64EncodeBytes..
|