Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Шифрование/дешифрование Делфи - ПХП

Автор: chiffa 1.2.2011, 00:24

Добрый вечер. Использую библиотеку dcpcrypt2 (алгоритм cast256) в результате получаю строку в виде абры-кадабры: 灥堸㡵剅䄯癭愫慪睸㴰

Шифруя в ПХП, понятное дело получаю другое... Скорее всего что то с кодировкой в Делфи... Использую Delphi XE. Вот код:

Код


function sCrypt(st, key: string): String;
var
  Cipher: TDCP_cast256;
  StrR: string;
begin
  Cipher:= TDCP_cast256.Create(nil);
  Cipher.CipherMode := cmCBC;
  Cipher.InitStr(key,TDCP_md5);
  StrR:= Cipher.EncryptString(st);
  Cipher.Burn;
  Cipher.Free;
  Result := StrR;
end;

прошу вашей помощи что не так? Заранее всем спасибо!

Автор: Snowy 1.2.2011, 01:19

Ну так выбери одну и ту же кодировку.
В XE дефолтовая UTF-16LE. Используя TEncoding, сконвертируй в то, что желаешь.
В PHP - голый бинарный формат - что напишешь, то и съест.

Автор: chiffa 1.2.2011, 01:30

А не подскажешь как сконвертить? В Делфи только начинаю разбираться....

Автор: Snowy 1.2.2011, 02:47

Я же написал - класс TEncoding.
Справка Delphi или http://lmgtfy.com/?q=TEncoding+1251 в помощь.
Примеры есть и там и там...

Автор: klyaksa 13.7.2011, 14:27

Кстати, dcpcrypt2 может какое-либо асимметричное шифрование делать? Если нет, то что можете посоветовать? Разрешено ли использовать такое шифрование законом?