Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

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

Цитата:
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
Репутация: 10
По умолчанию

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

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Куда поступать, не могу определится, либо "Информационная безопасность" либо "Информатика и информационные технологии" 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 17:01


23:45.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru