использование DCPCrypt2

[Greedy_Fly]

Доброй ночи!!!

program Test;

uses
  Windows, SysUtils, DCPserpent;


var
Data, Res: string;
key: array[0..15] of Byte = ($C1, $FD, $D3, $D2, $A9, $B4, $87, $94,
                            $69, $71, $4B, $57, $2D, $3C, $0F, $1E);
TSerpent: TDCP_serpent;
begin
Data:='qwerty';
with TSerpent.Create(nil) do
begin
Init(Key, SizeOf(Key) * 8, nil);
SetLength(Res, Length(Data));
Encrypt(Data[1], Res[1], Length(Data));
Burn; 
Free; 
end;
end.

Что я делаю неправильно? хочу использовать свой ключ ... программа вылетает и всё!

[Larboss]

Доброй.

Давайте начнем с того, что это форум программистов, а не телепатов. Поэтому здесь нужна конкретика. Что вылетает, при каких услових, ошибка какая, что ожидалось получить?

По коду: подозрительно выглядит вызов Encrypt, вернее переданные в него параметры. Шифруете 1 символ из Data, а 3й параметр - указываете размерность всей строки Data. Не знаю, может быть так и должно быть...

[phomm]

Обычная ошибка:

TSerpent: TDCP_serpent;
begin
Data:='qwerty';
with TSerpent.Create(nil) do

Приглядитесь - и зарубите себе, где класс, а где объект (экземпляр класса)
и что конструктор вызывается через класс, а не объект.
Да и отладкой данный "вылет" вычисляется за секунды, приучайтесь пользоваться.

Судя по исходнику на гитхабе для получения рабочего варианта надо лишь повторить (подогнать под себя) функцию

class function TDCP_serpent.SelfTest: boolean;

Larboss, это не один символ передаётся, а указатель на начало блока - типичная в дельфи операция (взятие первого символа - он является указателем на начало блока памяти) для работы со строками как с областями памяти.

[Greedy_Fly]

Спасибо! вот я чёрт слепой!)