«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

{LTS}

 

ќписание программы

¬ приложении ј представлен текст программы реализующий алгоритм шифровани€ методом ÷езар€.

Ќа форме расположено три компонента Button: зашифровать (Button1), расшифровать (Button2), ключ (Button3). ѕри нажатии на кнопку ключ (Button3) срабатывает процедура TForm1.Button3Click котора€ осуществл€ет чтение ключа из текстового файла. ¬ этой процедуре используютс€ следующие переменные:

Ц f (тип textfile) Ц примен€етс€ дл€ работы с физическим файлом;

Ц l (тип string) Ц используетс€ как вспомогательна€ переменна€ дл€ работы с элементами файла;

Ц k (тип integer) Ц это переменна€ в которой хранитс€ ключ считанный с файла.

¬ теле процедуры провер€етс€ условие OpenDialog1.Execute=true. ≈сли оно выполн€етс€, то с помощью процедуры AssignFile св€зываетс€ файлова€ переменна€ f с физическим файлом.

ѕосле этого осуществл€етс€ открытие файла дл€ чтени€ с помощью процедуры reset. ѕроцедурой read считываем из файла f символ, который записываем в переменную l, а затем переводим еЄ из строкового типа в целый, и выводим его значение в компонент Edit1. ѕосле того, как считан символ из файла он закрываетс€ с помощью процедуры closefile.

ѕри нажатии на кнопку зашифровать (Button1) срабатывает процедура TForm1.Button1Click. ƒл€ работы используютс€ следующие глобальные переменные:

Ц Buk (тип string) Ц массив констант, в котором записаны заглавные и строчные буквы русского алфавита;

Ц t (тип string) Ц текст используемый дл€ шифровани€;

Ц j , i (тип integer) используютс€ как переменные счетчика;

Ц g (тип integer) Ц количество символов строковой переменной t.

¬ начале процедуры в переменную t записываетс€ текст из компонента Memo1, который необходимо зашифровать. «атем определ€ем длину строки t с помощью функции length. ѕосле этого очищаем компонент Memo2, куда будет вводитьс€ зашифрованный текст с помощью метода Clear. ѕотом организовываем цикл с параметром, цикл от 1 до длинны строки t. ¬нутри цикла провер€етс€ условие (t[i] = ' ') or (t[i] = '.') or (t[i] = ','), если оно выполн€етс€, то в компонент Memo2 выводитс€ i-ый символ строки t. ≈сли условие не выполн€етс€, то увеличиваетс€ значение счетчика j на единицу, при условии t[i]<>Buk[j] (это осуществл€етс€ с помощью цикла while). ”величиваем значение счетчика j на k, т.е. указываем позицию символа, которой необходимо поставить на место данного символа в строке t и выводим полученное значение в компонент Memo2.


”знать как сэкономить в кризис моно на сайте ekonom-it.ru

ќбщие сведени€ об объектно-ориентированном программировании  ќбъекты и классы в объектно-ориентированном программировании ѕринципы объектно-ориентированного программировани€ язык визуального программировани€ Delphi 7  омпоненты программы «аключение »нтерпретатор ѕролог ƒиалог с программами на ѕрологе Ѕазовые пон€ти€ €зыка ѕролог ќписани€ фактов 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом