Создание компонента для шифрования-дешифрования текста

var s:string; //дешифрование текста  алгоритмом "Скитала";

begin

if (Memo4.Text<>'')and(SpinEdit1.Text<>'') then

  begin

  Memo7.Text:=ShifText1.DeAlgSkit(Memo4.Text,SpinEdit1.Text); //применаем алгоритм дешифрации к тексту;

  end else   //иначе выводим  сообщение об ошибке;

  begin

  s:='Сначало введите  текст или откройте текстовый  файл!!!'#13#10;

  MessageBox(handle,PChar(S),'Ошибка!',MB_OK or MB_ICONWARNING);

  end;

end;

 

procedure TForm1.Button8Click(Sender: TObject);

begin

Memo1.Clear; Memo2.Clear; Memo3.Clear; Memo4.Clear; Memo5.Clear; Memo6.Clear; Memo7.Clear;  

SpinEdit1.Value:=1; //очистка всех окон и установление в поле ключ значения ‘1’

end;

 

end.

 

 

 

 

 

 

 

 

 

6. Приложение 1

Рис. 1. Внешний вид программы

 

Рис. 2. Открыть файл

Рис. 3. Демонстрация зашифрованного текста

 

Рис. 4. Предупреждение

 

Рис. 5. Демонстрация дешифрованного текста

 

Рис. 6. Раздел «Справка»

Рис. 7. Раздел «О программе…»

 

Рис. 8. «Пояснение» к алгоритмам шифрования

 

 

 

Список литературы

1. Христосенко М. Пособие по написанию своих компонентов на Дельфи для начинающих    // http://www.delphiplus.org/articles/delphi/m_compgauge.html#%D0%A8%D0%B0%D0%B3%201.%20%D0%9F%D1%80%D0%B8%D0%B4%D1%83%D0%BC%D1%8B%D0%B2%D0%B0%D0%BD%D0%B8%D0%B5%20%D0%B8%D0%B4%D0%B5%D0%B8
2. Акулов Н.  Пособие по написанию компонентов  // http://www.delphisources.ru/pages/faq/base/components_creating_allowance.html
3. Роцкий  Т. Статья «Шифрование в DELPHI» //  http://www.realcoding.net/articles/shifrovanie-v-delphi.html-1