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

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

Форум программистов > Delphi: Для новичков > использование DCPCrypt

Автор: GreedyFly 6.8.2013, 03:44

Ночи доброй!!

Код


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.

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