Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.11.2012, 11:35   #1
Train-GT
Пользователь
 
Регистрация: 22.11.2012
Сообщений: 26
По умолчанию Информационная безопасность. Delphi 7

Здравствуйте! Мне дали задание написать Шифр Виженера на Delphi. У меня уже есть наработка, но она работает некорректно. Т.к. если вводите буквы текста не по алфавиту - программа неправильно выдаёт зашифрованный и расшифрованный текст. Подскажите, пожалуйста, где у меня ошибка.
Вложения
Тип файла: txt 111.txt (1.5 Кб, 130 просмотров)
Train-GT вне форума Ответить с цитированием
Старый 23.11.2012, 12:11   #2
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,515
По умолчанию

Цитата:
s:=Edit1.Text;
s2:=Edit1.Text;
И исходный текст и ключ это один и тот же текст?
особенно если учесть
Цитата:
Edit3.Text:=Result;
Цитата:
Edit4.Text:=c;
Цитата:
Код:
    P2:=pos(Result[i],RusB)-pos(s2[i],Key)+1;
    if P<=0 then P2:=P2+SizeA;
читаем очень-очень внимательно!
программа — запись алгоритма на языке понятном транслятору
evg_m вне форума Ответить с цитированием
Старый 01.12.2012, 16:09   #3
Train-GT
Пользователь
 
Регистрация: 22.11.2012
Сообщений: 26
По умолчанию

if P2[/U]<=0 then P2:=P2+SizeA; - Вы это имели в виду?
Но если так будет верно, то зашифрованное слово некорректно.
Train-GT вне форума Ответить с цитированием
Старый 03.12.2012, 10:55   #4
Train-GT
Пользователь
 
Регистрация: 22.11.2012
Сообщений: 26
По умолчанию

Ура, заработала! Нашел еще одну ошибку!
Train-GT вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Куда поступать, не могу определится, либо "Информационная безопасность" либо "Информатика и информационные технологии" St1K Помощь студентам 15 27.07.2012 23:17
чем отличается Информационная безопасность автоматизированных систем от Организация и технология защиты информации? Chemist_8 Свободное общение 12 21.07.2012 01:19
Поступление. Информационная безопасность или программирование? Что выбрать? guest0147 Свободное общение 8 12.05.2011 16:05
информационная безопасность mafusha Безопасность, Шифрование 3 13.11.2008 16:01