![]() |
Модераторы: Snowy, MetalFan, bems, Poseidon |
![]() ![]() ![]() |
|
kupall |
|
|||
Новичок Профиль Группа: Участник Сообщений: 10 Регистрация: 25.5.2010 Репутация: нет Всего: нет |
да , думаю завтра смогу и скайп установлю наконец-то)
|
|||
|
||||
PsiMagistr |
|
|||
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 479 Регистрация: 31.12.2009 Репутация: 1 Всего: 1 |
Давай до завтра. А я пока подумаю, что можно сделать.
-------------------- "Арфы нет? Возьмите бубен! Ребята, будем жить!" (с) "В бой идут одни старики" --- "ИЕ" - один из самых сумасшедших браузеров в нашей галактике. |
|||
|
||||
kupall |
|
|||
Новичок Профиль Группа: Участник Сообщений: 10 Регистрация: 25.5.2010 Репутация: нет Всего: нет |
до завтра)
|
|||
|
||||
PsiMagistr |
|
||||
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 479 Регистрация: 31.12.2009 Репутация: 1 Всего: 1 |
kupall, Кое что я вам придумал. Запишите:
Киньте на форму кнопку. И два текстовых поля. T и T2. Т будет хранить смещение. Т2 сам ключ. Запишите в обработчике: procedure TForm1.Button1Click(Sender: TObject); begin Preobrazovanie(StrToInt(T.Text), T2.Text); end; И вы увидите шифроалфавит. Обращайтесь. Это сообщение отредактировал(а) PsiMagistr - 3.6.2010, 13:49 -------------------- "Арфы нет? Возьмите бубен! Ребята, будем жить!" (с) "В бой идут одни старики" --- "ИЕ" - один из самых сумасшедших браузеров в нашей галактике. |
||||
|
|||||
kupall |
|
|||
Новичок Профиль Группа: Участник Сообщений: 10 Регистрация: 25.5.2010 Репутация: нет Всего: нет |
круто) спасибо большое))
|
|||
|
||||
PsiMagistr |
|
|||
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 479 Регистрация: 31.12.2009 Репутация: 1 Всего: 1 |
В принципе можно даже внутренний цикл убрать. Он для того, чтобы даже если в алфавит закралась лишняя буква (дублер), она бы удалилась (если бы входила в ключ)
Добавлено @ 14:45
Вот я убрал внутренний цикл. Это сообщение отредактировал(а) PsiMagistr - 3.6.2010, 14:45 -------------------- "Арфы нет? Возьмите бубен! Ребята, будем жить!" (с) "В бой идут одни старики" --- "ИЕ" - один из самых сумасшедших браузеров в нашей галактике. |
|||
|
||||
PsiMagistr |
|
|||
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 479 Регистрация: 31.12.2009 Репутация: 1 Всего: 1 |
Алекс-Юстасу или программа "Юный Штирлиц" (для шифровальщиков).
Шифратор Вижинера (тот же шифратор Цезаря но с переменной позицией ключа). Что-то подобное я писал на ВБ, а теперь решился повторить на Дельфи Шифратор Вижинера используется для шифрования текста по ключевому слову. Объясняю принцип действия "прибора": 1) Представим себе русский алфавит, замкнутый как бы в кольцо. То есть за буквой "я" идет "а". 2) Нам нужно зашифровать открытый текст: "гора" по ключевому слову: "дева" 3) Мы берем первый символ открытого текста: "г". Буква "г" занимает 4 позицию в алфавите. 4) Теперь берем первый символ ключа букву "д". Буква "д" занимает 5 позициую в алфавите. 5) Плюсуем позиции открытого текста и ключа. 4+5 := 9; Девятую позицию в русском алфавите занимает буква "3". 6) Значит "З" - первая буква шифровки. Выйти за пределы алфавита нельзя - он замкнут в кольцо. Точно так же нельзя выйти за пределы слова ключа (за последней буквой ключа идет первая и т.д.). Создайте проект и совершите необходимые приготовления: 1) Добавьте на форму два одинаковых поля класса TMemo с именами (Name) - txtOriginal и txtCode. В первом поле храним оригинальный текст, во втором получаем шифровку. Текстовое поле класса TEdit с именем (Name) - T. Здесь держим ключ. Добавьте также две кнопки. Не меняйте имен. Первая будет шифровать, вторая расшифровывать. Задайте соответствующие Caption Расположите компоненты аккуратно, по своему вкусу. Внимание код:
![]() Разработано и тестировано мною в среде Дельфи 6. P.S. Для начинающих прогммеров: не вздумайте шифровать "Войну и мир," "Три мушкетера" и все другие большие по объему тексты. Зависание в цикле гарантирую. Это сообщение отредактировал(а) PsiMagistr - 6.6.2010, 16:55 -------------------- "Арфы нет? Возьмите бубен! Ребята, будем жить!" (с) "В бой идут одни старики" --- "ИЕ" - один из самых сумасшедших браузеров в нашей галактике. |
|||
|
||||
Shreder |
|
|||
Новичок Профиль Группа: Участник Сообщений: 1 Регистрация: 14.5.2012 Репутация: нет Всего: нет |
Помогите пожалуйста. Препод в универе задал разработать Delphi-проект шифрования данных методом Цезаря. Алфавит - ЛАТИНСКИЕ СТРОЧНЫЕ БУКВЫ, ключ "yes", сдвиг +5. Предусмотреть автоматическую передачу фокуса и очистку редакционных полей после выполнения программы. И вообще не понятно как делать... если сможете помогите чем сможете ) будет достаточно всего лишь кода программы(желательно с комментариями) . форму в Delphi оформить смогу.
Это сообщение отредактировал(а) Shreder - 14.5.2012, 17:11 |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Delphi: Для новичков" | |
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Delphi: Для новичков | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |