¡@
php Programming Glossary: slenhow to sync encryption between delphi and php using dcpcrypt http://stackoverflow.com/questions/14995052/how-to-sync-encryption-between-delphi-and-php-using-dcpcrypt string var des TDCP_des src enc b64 TBytes index slen bsize padsize integer begin des tdcp_des.Create nil try des.InitStr.. tdcp_sha1 src TEncoding.UTF8.GetBytes 'this is a test' slen Length src Add padding bsize des.BlockSize div 8 padsize bsize.. src Add padding bsize des.BlockSize div 8 padsize bsize slen mod bsize Inc slen padsize SetLength src slen for index padsize..
|