![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 21.01.2008
Сообщений: 28
|
![]()
Здравствуйте!
Сейчас делаю программу "Шифрование Виженера" на "Borland Delphi 7.0". Цель: сделать программу, которая шифрует и дешифрует методом Виженера. Может у кого-нибудь есть готовая программа или кто-нибудь знает, где можно найти исходник программы? А так, возникла такая проблема: На поле 3 компонента: TStringGrid (для ввода ключа, для ввода слова, для зашифрованного или дешифрованного слова); 2 компонента: TButton (для шифрования, для дефифрования). Нужно сделать так, чтобы при каждой введенной букве в поле "TString", курсор переводился на следующее поле. Вот код, что у меня получился, но он не так, как надо работает, т.е. при вводе первой буквы в поле, буква в первое поле не вводится, а вводится во второе поле и при переходе в другой компонент "TStringGrid", в последнее поле первого компонента вводится 2 буквы: Код:
Последний раз редактировалось Cubar; 09.02.2008 в 23:13. Причина: Поправочка |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
![]()
Посмотри, эдесь что-то есть.
http://programmersforum.ru/showthrea...E8%ED%E5%F0%E0 |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 27.01.2008
Сообщений: 51
|
![]()
А я на VBA писал, сам, алфавит русский заглавный, пробел это - "_", такой замутный код:
Код:
"Программисты - это люди, которые решают методами, которые вы не понимаете проблемы, о которых даже не подозревали"
Последний раз редактировалось Insainer; 10.02.2008 в 15:36. |
![]() |
![]() |
![]() |
#4 |
Пользователь
Регистрация: 21.01.2008
Сообщений: 28
|
![]()
Спасибо всем, кто помогал мне.
Puporev, в общем, ничего я там не нашел (там описывается "Шифрование Цезаря"). А программу я все-таки сделал: Шифрование: Код:
Код:
|
![]() |
![]() |
![]() |
#5 | |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
![]() Цитата:
|
|
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 17.02.2008
Сообщений: 53
|
![]()
Помогите, с алгоритмом тем что выше, так же с тем что и щас выложу проблема возникла, незнаю что делать.. всётоже, только текст пишется в мемо, вообщем при вводе некоторых символов, например буква ц в ключе, урезает число строк, которые шифруются, например вместо 10 строчек 1-3
вот алгоритм по которому шифруется: procedure TForm1.Button1Click(Sender: TObject); Var i:integer;s,k:string; begin S:=memo1.Text; k:=Edit2.Text; for i := 1 to Length(s) do s[i]:=Chr( Ord(s[i])+Ord(k[i mod length(k)+1])); memo2.Text:=s end; причем он глючит не всегда а только иногда и если текст длинный, в коротких текстах иногда не глючит.. вот например ввел длиннющий текст, и сделал ключ солне и все прекрасно работает.. а если добавить ц, будет уже обрезаться... например если сделать солнце, то он зашифрует только 1 строчку.. (всего их там около 40+пробелы между ними) |
![]() |
![]() |
![]() |
#7 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
![]()
Метод вижинера
http://www.programmersforum.ru/showthread.php?t=10763 http://www.programmersforum.ru/showthread.php?t=7853 У вас, видимо, поиск по форуму ну ни в какую? |
![]() |
![]() |
![]() |
#8 |
Пользователь
Регистрация: 07.06.2008
Сообщений: 19
|
![]()
Подскажите пожалуйста с задачей :чтобы зашифровать текст из 121 букв, его можно записать в квадратную матрицу порядка 11 по строкам, а затем прочитать по спирали, начиная с центра (т.е. с элемента, имеющего индексы 6,6).
• Зашифровать данный текст. • Расшифровать данный текст с чего начать? |
![]() |
![]() |
![]() |
#9 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
![]()
ой, преподы придумывают одно и то же...
Это я уже когда-то писал. Ниже программа шифрации, результат помещает в файл SpirOut.txt разбирайтесь: Код:
|
![]() |
![]() |
![]() |
#10 |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
![]()
Без исходника, потому-как там достаточно просто, обычное сканирования матрицы: http://www.programmersforum.ru/attac...9&d=1213033151
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Алгоритм шифрования методом Виженера(теория) | beegl | Помощь студентам | 6 | 30.10.2014 23:27 |
шифрование | Stanislav | Свободное общение | 10 | 04.03.2008 05:09 |