Шифрование данных

Автор: Пользователь скрыл имя, 02 Декабря 2011 в 18:34, курсовая работа

Описание работы

Шифрование — способ преобразования открытой информации в закрытую и обратно. Применяется для хранения важной информации в ненадёжных источниках или передачи её по незащищённым каналам связи. Согласно ГОСТ 28147-89, шифрование подразделяется на процесс зашифровывания и расшифровывания.

Содержание

ВВЕДЕНИЕ 2
1. ОСНОВНЫЕ ПОНЯТИЯ ЗАЩИТЫ ИНФОРМАЦИИ 4
1.1. Принципы ООП 5
2. АНАЛИЗ ТЕХНИЧЕСКОГО ЗАДАНИЯ И ПОСТАНОВКА ЗАДАЧИ ПРОЕКТИРОВАНИЯ. 12
2.1. Постановка задачи. 12
2.2. Разработка экранных форм и алгоритма программы 13
2.3. Описание программы. 14
Заключение. 16
Список использованной литературы. 17
Приложение 1. 18

Скачать полностью (68.46 Кб) Сколько стоит заказать работу?
Работа содержит 1 файл

Основными понятиями объектно.docx

— 92.26 Кб (Скачать)
l>

Form2.Label1.Caption:='Выполнено.';

    Form2.ProgressBar1.Visible:=false;

    Form2.Hide;

     Form2.Label1.Caption:='Выполняется кодирование-декодирование. Ждите...';

    end; 

    procedure TForm1.Button2Click(Sender: TObject);

    var

    md: PChar;

    um: string;

    sm,m,d: integer;

    begin

    sm:=length(Form1.RichEdit1.Text);

    um:=Richedit1.Text;

    Form2.Show;

    Form2.Update;

    Form2.ProgressBar1.Visible:=true;

    Form2.ProgressBar1.Max:=sm;

    for m:=1 to sm do

      begin

       if um[m]=Edit1.Text

       then

        begin

         md:=StrPCopy(md,Edit2.Text);

         um[m]:=chr(ord(';'));

        end;

      end;

    end; 

    end.

Информация о работе Шифрование данных