Использование библиотеки DcpCrypt

[ComAlex]

Уважаемые знатоки, не подскажите ли, как при помощи библиотеки DcpCrypt решить задачу:
Зашифровать (расшифровать) данные по алгоритму DEC-CBC c ключом ="0000000000000000" (используется только 56 бит)
и вектором "0000000000000000" (8 байт - используется все 64 бит)
Используется ANSII кодировка

Делаю расшифровку так:

function DoDecrypt: string;
var
  Cipher: TDCP_des;
  KeyStr: string;
  TextIn, TextOut: string;
  Vector: array of Byte;
  src, enc, b64: TBytes;
  I, index, lunghezza, blocksize, paddingsize: integer;

begin
  SetLength(Vector, 8);
  for i := 0 to 7 do Vector[i] := 0;
  KeyStr := '00000000';
  Cipher := TDCP_des.Create(nil);
  Cipher.Init(keystr, Length(keystr) * 8, addr(Vector[0]));
  TextIn := 'pve%`,n_><Y,RH$nphZd)? K JSN\2';
  Cipher.InitStr(TextIn, TDCP_sha1);
  lunghezza := Length(TextIn);
  index := SizeOf(TextIn);
  blocksize := Cipher.BlockSize div 8;
  paddingsize := blocksize - (lunghezza mod blocksize);
  Inc(lunghezza, paddingsize);
  SetLength(TextIn, lunghezza);
  for index := paddingsize downto 1 do
  begin
    TextIn[lunghezza - index] := char(0);
  end;
  index := Length(TextOut);
  SetLength(TextOut, lunghezza);
  Cipher.DecryptCBC(TextIn[1], TextOut[1], length(TextIn));
  Result := Cipher.DecryptString(TextOut);
end;

Но получается абракадабра

P.S.: Знаю, что слово 'pve%`,n_><Y,RH$nphZd)? K JSN\2' вполне читаемо должно расшифроваться

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

какая у Вас Delphi?
если unicode, тогда попробуйте все String заменить на AnsiString

Сообщение от ComAlex

Знаю, что слово 'pve%`,n_><Y,RH$nphZd)? K JSN\2' вполне читаемо должно расшифроваться

откуда такая уверенность?
обычно правильность проверяют так - сначала шифруют данные, потом полученный шифротекст расшифровывают и сравнивают полученные данные с исходными.
а просто так вставить в исходный код шифротекст (да ещё непонятно в какой кодировке, да ещё неизвестно, возможно содержающую НЕПЕЧАТНЫЕ символы) - это верх самонадеянности.

[ComAlex]

У меня: Delphi XE 10.1 (Berlin)

[ComAlex]

Параллельно работает С-программа, написанная давно, которая показывает коды символов, т.е. я сверяюсь с ней.
У меня задача - переписать её на Delphi

[Serge_Bliznykov]

Сообщение от ComAlex

У меня: Delphi XE 10.1 (Berlin)

это unicode.

пробуйте заменить все String на AnsiString
и

Сообщение от Serge_Bliznykov

обычно правильность проверяют так - сначала шифруют данные, потом полученный шифротекст расшифровывают и сравнивают полученные данные с исходными.

[ComAlex]

Спасибо, проверю, но меня больше интересует, правильно ли я переложил текст задания в алгоритм

Задание: "Алгоритм реализация des и cbc -стандартный.
Алгоритм des работает с блоками данных по 8 байт.
Соответственно, ключ и вектор имеют размер 8 байт.
Это 8 символов или 16 шестнадцатеричных знаков (от 0 до F) или 64 бита.
У вектора используются все 64 бита, а у ключа только 56 бит используются.
Кодировка сообщений – win-1251"

Правильно ли я ввел в процедуры все параметры, исходя из описания.
Правильно ли всё написано?

Опыта в этом нет

2. Есть ли в природе компонента DcpCrypt для Delphi XE10.1 или еще не написали. Если есть, киньте ссылку

[Serge_Bliznykov]

Сообщение от ComAlex

Спасибо, проверю

попробуйте. но не факт, что это поможет.

я погуглил.
и, судя по страничке на GitHub, поддерживаются unicode версии Delphi (включая Delphi XE7 -
DCP_XE7.dpk)

попробуйте ещё шифровать не строки (где возможны проблемы из-за unicode) и бинарные массивы (array of byte или TStream).

Сообщение от ComAlex

Правильно ли я ввел в процедуры все параметры, исходя из описания.

с этим я ничем не помогу, это за рамками моей компетенции.