Jadidchilik

  • 28 февр. 2012 г.
  • 442 Слова
CODER

Сайт о программировании, взломе, защите и администрировании

Главная



Навигация

Web

Взлом

Программирование на Delphi

Архив записей

Октябрь 2011 (6)

Ссылки

Allfor gamers

Вы находитесь здесь : CODER » Программирование на Delphi » Шифратор текста на Delphi

Шифратор текста на Delphi

Опубликовал admin - Октябрь 12th, 2011 10:13 ДП. В рубрикеПрограммирование на Delphi



Привет, программисты, эта статья для вас, в ней я приведу пример создания простого шифратора текста на Delphi.



Сразу приступим к делу. Создаём новое приложение и кидаем на форму2 компонента “Memo”, в одном из которых будет простой текст, а в другом – зашифрованный. 2 компонента “Button”. Очищаем содержимое компонентов “Memo”. Изменяем свойство “Caption” У кнопок на“Зашифровать” и “Расшифровать”. Можно кинуть на форму 2 компонента “label”. После этого ваша программа должна выглядеть так:



Так форма у нас есть, теперь определимся с алгоритмом шифрования. Я предлагаюалгоритм, суть которого – сдвиг кода символа на 3 знака вперёд в его десятке. То есть мы получаем код символа и увеличиваем его единицы на 3. Например: мы получили код символа 13, после шифрования будет 16, аесли код символа 18, то после шифрования будет 11. Не знаю как понятней объяснить просто нарисую схему:









Думаю с алгоритмом понятно. Теперь определимся с переменными, которые нампонадобятся в нашем шифраторе. Это переменные типа “String”: “sstring” – в ней будем хранить простой текст, “zstring” – зашифрованный текст. Переменные типа “Char”: “schar” и “zchar” – символ, и зашифрованныйсимвол соответственно. И переменные типа “Integer”: “des” – десятки и “ed” – единицы.

var

Form1: TForm1;

schar,zchar:char;

sstring,zstring: string;

des,ed:integer;



У нас всёготово для написания шифратора. Создаем обработчик щелчка на кнопке “Зашифровать” и пишем следующий код:

var

i: Integer; //Щетчик для цикла

begin...
tracking img