Информационная безопасность

          end; if  (InArr[i] )='ь' then

             begin c:='г'; Memo2.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (InArr[i] )='э' then

             begin c:='в'; Memo2.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (InArr[i] )='ю' then

             begin c:='б'; Memo2.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (InArr[i] )='я' then

             begin c:='а'; Memo2.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  ((InArr[i] )=',') or ((InArr[i] )=' ,') or ((InArr[i] )=' .')or ((InArr[i] )='.')

               or ((InArr[i] )='?')  or ((InArr[i] )='1')  or ((InArr[i] )='2') or ((InArr[i] )='3')

               or ((InArr[i] )='4')  or ((InArr[i] )='5')  or ((InArr[i] )='6') or ((InArr[i] )='7')

               or ((InArr[i] )='8')  or ((InArr[i] )='9')  or ((InArr[i] )='10')

               or ((InArr[i] )='2')  then

             begin c:='_'; Memo2.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2end

     //________________конец  сравнений________________________________________

          end

         end;

       //    КОНЕЦ  ЦИКЛА

     end;

      //______________Р А С  Ш И Ф Р О  В К А__________________________________

     procedure TForm1.Button2Click(Sender: TObject);

     var

       k, r, w : integer;

       c : string;

       outArr : array of string ;

     begin Form1.Label6.Caption:=' ' ;

     r:=Form1.Memo1.Lines.Count;

     k:=Form1.Memo2.Lines.Count; //Присваеваем переменной i количество строк в мемо1

       Form1.Memo3.Lines.Clear; // мemo3 clear

          Form1.Label5.Caption:='Зашифрованно символов = ' + IntToStr(k);

        if  k<>r then   // проверка равенства  символов в полях

             begin

            w:=r-k;

            Form1.Label6.Caption:='Пропущено  символов = ' + IntToStr(w);

          end;

        SetLength(outArr, k); // задаем  размер массива

                for k:=0 to k-1 do  // заполняем  массив зашифрованными  двнными

          begin

              try          // Проверка строки на соответствие типу

             outArr[k]:=String(Form1.Memo2.Lines[k]); // преобразование строки в

       //  элемент массива

              except

              end;

              outArr [k]:= String(Memo2.Lines[k]); // строками из Memo_in

          end;

           for k:=0 to k-1 do   // запускаем цыкл от 0 до k

        begin

             if  (outArr[k] )='а'   then    //оопределяем символ

             begin

             c:='я';                          //подмена символа

             Memo2.Lines.Add(String(c)); //вывод  в мемо 2

          end;

             if    (outArr[k]  )='б' then

             begin c:='ю'; Memo3.Lines.Add(String(c))

          end; if  (outArr[k]  )='в' then

             begin c:='э'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='г' then

             begin c:='ь'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='д' then

             begin c:='ы'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='е' then

             begin c:='ъ'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='ё' then

             begin c:='щ'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='ж' then

             begin c:='ш'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='з' then

             begin c:='ч'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='и' then

             begin c:='ц'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k] )='й' then

             begin c:='х'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='к' then

             begin c:='ф'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='л' then

             begin c:='у'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='м' then

             begin c:='т'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='н' then

             begin c:='с'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k] )='о' then

             begin c:='р'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='п' then

             begin c:='п'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='р' then

             begin c:='о'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='с' then

             begin c:='н'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='т' then

             begin c:='м'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='у' then

             begin c:='л'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k] )='ф' then

             begin c:='к'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='х' then

             begin c:='й'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k] )='ц' then

             begin c:='и'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='ч' then

             begin c:='з'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='ш' then

             begin c:='ж'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='щ' then

             begin c:='ё'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='ъ' then

             begin c:='е'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='ы' then

             begin c:='д'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k] )='ь' then

             begin c:='г'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='э' then

             begin c:='в'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k]  )='ю' then

             begin c:='б'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k] )='я' then

             begin c:='а'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end; if  (outArr[k] )='_' then

             begin c:='*'; Memo3.Lines.Add(String(c)); //определяем символ подмена символа вывод в мемо 2

          end

     //__________________конец сравнений______________________________________ 

         end;

     end;

     procedure TForm1.BitBtn1Click(Sender: TObject);

     begin

     close;

     end;

     end. 

      Результат работы программы показан на рисунке 1 

      

      рис. 1