Введение.
Привет, я Lex Luthor!Сегодня нам предстоит написать собственный криптогроф, что бы нам облегчить труд мы заюзаем компанент под названием DCPcrypt Cryptographic Component Library v2.Очень хороший компанент для создания хэшей и шифрования файлов.Приступим...
Для начала нам нужно скачать этот компанент вот ссылка.Ставим очень просто,заходим в папку с компанентом и запускаем *.dpk файл с вашей версией Делфи.Например вот так:

Теперь когда компаненты поставлены идём на самую последнюю закладку:

Всё компаненты поставлены.Начинаем делать криптограф.Кидай на форму:
1)2Label -название первого Label-a "Слово",у второго "Хэш";
2)2Edita;
3)1Button -название Button-a "Зашифровать"; Вот так я сделал форму:

Теперь самая оснавная часть кодинг,нажми два раза мышкой на компаненте Button1 и вставляй вот этот код:

procedure TForm1.Button1Click(Sender: TObject);
var
Hash: TDCP_md5;
Digest: array[0..128] of byte;
i: integer;
s: string;
begin
Hash:= TDCP_md5.Create(Self);
Hash.Init;
Hash.UpdateStr(Edit1.Text);
Hash.Final(Digest);
for i:= 0 to 15 do
s:= s + IntToHex(Digest[i],-1);
Edit2.Text:=s;
end;
Ну вот и всё,хочу сказать сразу что это не подробное описание, а простой мануал.Скоро напишу действительно полную статью.Потому что применение этих компанентов большое и над ними нужно лучше разобратся.
С уважением,Lex Luthor

Скачать:Исходник
Автор : Lex Luthor
Статья : 27.09.2006