Pascal/Delphi [Урок] Создание шифратора на Delphi 7

[Griphin_Coder]

Привет всем.
Сегодня я покажу вам как создать шифратор в программе Delphi 7

Для начала, нам понадобится сама программа Delphi 7. Устанавливаем ее, и заходим в нее от имени администратора.

Шифратор будет простейший, из стандартных компонентов Delphi 7.
​

Итак, все что нам нужно это 2 кнопки, 2 memo и еще 2 компонента которые и будут шифровать наш текст, о них по подробнее: 1 компонент - IdEncoderXXE - зашифровывает информацию, 2 компонент - IdDecoderXXE - расшифровывает информацию, эти компоненты находятся на вкладке Indy Misc, так же там есть аналогичные:

Для зашифровки:

• IdEncoderQuotedPrintable
• IdEncoderUUE
• IdEncoderMIME

Для расшифровки:

• IdDecoderQuotedPrintable
• IdDecoderUUE
• IdDecoderMIME

Но мы рассмотрим только один.

Наша программа будет работать следующим образом, при нажатии на первую кнопку мы зашифруем текст из memo1 и выведем зашифрованные символы в memo2, а при нажатии на вторую кнопку расшифруем из memo2 и пометим текст в memo1. Приступим, создаем обработчик события OnClick на 1 кнопке:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo2.Clear;
  Memo2.Text:= IdEncoderXXE1.Encode(Memo1.Text);
end;

Ну и также расшифруем, с обработчике события OnClick 2 кнопки пишем:

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Clear;
  Memo1.Text:= IdDecoderXXE1.DecodeString(Memo2.Text);
end;

Вот что примерно должно получится:

Ниже можете скачать мой шифратор. Подробно как изменить иконку файла .exe и не только увидите в следующей теме...

 

[Sire Like]

Для нубов как я подойдет, нормально

 

[Sire Like]

Хорошая прога, только для чего...:blink:

С друзьями когда в солдатики играешь шифроваться))

 

[Griphin_Coder]

Хорошая прога, только для чего...:blink:

Ну подойдет для новичков, и можно скрывать пароли в текстовике, никто не догадается)

 

[Joy]

Норм ещё можно ещё эдит добавить на форме и сделать наоборот ;)