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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.05.2018, 00:30   #1
Маруся09
 
Регистрация: 23.02.2016
Сообщений: 3
По умолчанию Pascal ABC Дешифровка теста. Метод простой замены

Здравствуйте! Подскажите пожалуйста, как в паскале написать программу дешифровки текста. Тест зашифрован методом простой замены. Нужно провести частотный анализ, после чего взять любой другой текст и сопоставить их.
Есть текст:
Ёифевсщ ёявшщззфмч бъшъы, бщбщ Евизъз ёвиейш бвяъш ъдъжичя у звэъ евпо еъятвжзйы пмчиж — угвжзфмф, ёчяъгму, шчздфц ф швдяу зъевытвы шъбвяф «Зфшжуп-2000». Епв кдъ ъдёичефяъпо е гуячз ёъб явпдзфавы ф жйяъ счёвидъ зч счшъм. Буипящш зчёявечдо, гдъ Ячииф зв ейёъязфд явдзвэъ бъшчтзвэъ счбчзфщ, ч жвс дивзфиъеъм вэъ фпмяцгчд фс мъшчзбй ючмуяодвдч. Ъжйгзйл яцбвы, е гофл рфячл звд зф мчёяф еъятвжзъы миъеф, шчэф зчсйечцд «шчэяй», гдъ зч фл щсймв сзчгфд «ёиъпдчмф». Бящ ёиъпдчмъе — зв бящ епвл, мъзвгзъ — еъятвжзфм е пвшов — ёъсъи. Ф гдъжй ёивпвго епщмуц пещсо п шфиъш гчиъбвыпдеч ф мъябъепдеч, бщбщ Евизъз бчрв пъеу Жумяц ёъпчбфя ёъб счшъм.

С чего начать, какие операторы/переменные? Может где-то пособие есть, никак не могу найти. ХЕЛП!!!
Маруся09 вне форума Ответить с цитированием
Старый 09.05.2018, 17:45   #2
Black Fregat
Программист
Участник клуба
 
Аватар для Black Fregat
 
Регистрация: 23.06.2009
Сообщений: 1,772
По умолчанию

Автоматический перевод - это несерьезно. На таких коротких текстах частотный анализ будет врать безбожно. Да и на текстах побольше однозначного соответствия букв он не даёт. Нужно привлекать анализ биграмм, проверки по словарю. Морока..

На этом тексте, поскольку он разбит на слова, гораздо перспективнее анализ коротких слов, не так уж их много в языке. И перебор вариантов, конечно.
Black Fregat вне форума Ответить с цитированием
Старый 09.05.2018, 17:47   #3
Black Fregat
Программист
Участник клуба
 
Аватар для Black Fregat
 
Регистрация: 23.06.2009
Сообщений: 1,772
По умолчанию

Код:
Ёифевсщ ёявшщззфмч бъшъы, бщбщ Евизъз ёвиейш
Привезя племянника домой, дядя Вернон первым

бвяъш ъдъжичя у звэъ евпо еъятвжзйы пмчиж -
делом отобрал у него весь волшебный скарб -

угвжзфмф, ёчяъгму, шчздфц ф швдяу зъевытвы
учебники, палочку, мантию и метлу новейшей

шъбвяф "Зфшжуп-2000".
модели "Нимбус-2000".

Епв кдъ ъдёичефяъпо е гуячз ёъб явпдзфавы
Все это отправилось в чулан под лестницей

ф жйяъ счёвидъ зч счшъм.
и было заперто на замок.

Буипящш зчёявечдо, гдъ Ячииф зв ейёъязфд
Дурслям наплевать, что Ларри не выполнит

явдзвэъ бъшчтзвэъ счбчзфщ,
летнего домашнего задания,

ч жвс дивзфиъеъм вэъ фпмяцгчд
а без тренировок его исключат

фс мъшчзбй ючмуяодвдч.
из команды факультета.

Ъжйгзйл яцбвы, е гофл рфячл звд зф мчёяф
Обычных людей, в чьих жилах нет ни капли

еъятвжзъы миъеф, шчэф зчсйечцд "шчэяй",
волшебной крови, маги называют "маглы",

гдъ зч фл щсймв сзчгфд "ёиъпдчмф".
что на их языке значит "простаки".

Бящ ёиъпдчмъе - зв бящ епвл, мъзвгзъ -
Для простаков - не для всех, конечно -

еъятвжзфм е пвшов - ёъсъи.
волшебник в семье - позор.

Ф гдъжй ёивпвго епщмуц пещсо п шфиъш
И чтобы пресечь всякую связь с миром

гчиъбвыпдеч ф мъябъепдеч,
чародейства и колдовства,

бщбщ Евизъз бчрв пъеу Жумяц ёъпчбфя ёъб счшъм.
дядя Вернон даже сову Буклю посадил под замок.
Black Fregat вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Метод Шелла - Pascal ABC Korban Помощь студентам 0 21.03.2017 21:22
Метод Монте Карло / Pascal ABC Veronika_13 Помощь студентам 0 02.07.2014 20:45
Дешифровка (Метод цезаря) httpapple Общие вопросы C/C++ 0 26.11.2013 21:52
дешифровка метод Уинтстона for_tuna Паскаль, Turbo Pascal, PascalABC.NET 0 13.12.2012 17:32
метод Фора-Мальгранжа (Pascal ABC) artemjke Помощь студентам 0 18.06.2012 15:55