|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.02.2010, 16:49 | #1 |
Новичок
Джуниор
Регистрация: 29.11.2009
Сообщений: 1
|
КОДИРОВКА ТЕКСТОВ
люди помогите пожалуйста))
нужны прогаи которые умеют кодировать по методу гронсфельда и по методу цезаря... Шифр Гронсфельда Этот шифр сложной замены, называемый шифром Гронсфельда, представляет собой модификацию шифра Цезаря числовым ключом. Для этого под буквами исходного сообщения записывают цифры числового ключа. Если ключ короче сообщения, то его запись циклически повторяют. Шифртекст получают примерно, как в шифре Цезаря, но отсчитывают по алфавиту не третью букву (как это делается в шифре Цезаря), а выбирают ту букву, которая смещена по алфавиту на соответствующую цифру ключа. Например, применяя в качестве ключа группу из четырех начальных цифр числа e (основания натуральных логарифмов), а именно 2718, получаем для исходного сообщения ВОСТОЧНЫЙ ЭКСПРЕСС следующий шифртекст: Сообщение ВОСТОЧ НЫЙ ЭКСПРЕСС Ключ 2718271827 1827182 Шифртекст ДХТЬРЮОГЛ ДЛЩСЧЖЩУ Чтобы зашифровать первую букву сообщения В, используя первую цифру ключа 2, нужно отсчитать вторую по порядку букву от В в алфавите В Г Д 1 2 получается первая буква шифртекста Д. метод цезаря При шифровании каждый символ заменяется другим, отстоящим от него в алфавите на фиксированное число позиций. например если шаг равен 4 то A будет кодироваться в E и так далее можно паскаль или делфи вот есть прога которая шифрует текст по методу цезаря.. мне нужно сделать так чтобы был один файлик ин в котором я заранее помещу текст и потом файлик оут в которум будем уже находиться результат шифровки. помогите пожалуйста! проверти на баги uses crt; const n = 3; function CaesarEncipher(toCode: string): string; var i, T: integer; f,g:text; begin assign(f,'C:\in.txt'); reset(input); assign(g,'C:\out.txt'); rewrite(output); for i := 1 to length(toCode) do begin T := (Ord(toCode[ i ]) + n); if T >= 256 then dec(T, 256); toCode[ i ] := Chr(T); end; CaesarEncipher := toCode; end; function CaesarDecipher(toDecode: string): string; var i, T: integer; begin for i := 1 to length(toDecode) do begin T := (Ord(toDecode[ i ]) - n); if T < 0 then Inc(T, 256); toDecode[ i ] := Chr(T); end; CaesarDecipher := toDecode; end; { primenenie: } var s2,s3,s1,s: string; begin clrscr; writeln('Vvedite stroku'); readln(s); s1 := CaesarEncipher(s); writeln('Cryptovaya stroka: ',s1); writeln('Uncrypt: ',s); readkey; writeln; writeln('Vvediter stroku dl9 raskodirovki'); readln(s2); s3:=CaesarDecipher(s2); writeln('Dekodiravanaya stroka: ',s3); writeln('Isxodnaya stroka: ',s2); readkey; close(f); close(g); end. |
13.02.2010, 20:54 | #2 |
Форумчанин
Регистрация: 07.08.2007
Сообщений: 154
|
Сделаю на Delphi.
Цена 500 р. Оплата webmoney Контакты: icq: 218413697 e-mail: aristarh.dark@gmail.com --- С уважением Иусов Сергей Николаевич aka Aristarh Dark |
13.02.2010, 20:59 | #3 |
Новичок
Джуниор
Регистрация: 16.06.2007
Сообщений: 0
|
ICQ - 324-783-266
Сделаю быстро, качественно, недорого. Предоплаты не требую!!! |
13.02.2010, 21:00 | #4 |
Заблокирован
Регистрация: 11.12.2009
Сообщений: 133
|
icq: 136665509
100р Последний раз редактировалось пауэрлифтинг; 13.02.2010 в 21:40. |
13.02.2010, 22:28 | #5 |
Пользователь
Регистрация: 26.09.2009
Сообщений: 10
|
308 895 241 быстро и качественно
ICQ: 308 895 241
программы под заказ |
14.02.2010, 18:11 | #6 |
Заблокирован
Регистрация: 08.01.2010
Сообщений: 0
|
Готов взяться за проект
номер ICQ: 565460353 или 480964456 mikefreelance@rambler.ru |
15.02.2010, 09:40 | #7 |
Пользователь
Регистрация: 02.10.2008
Сообщений: 14
|
Сделаю быстро и недорого стучись 255234три
|
16.02.2010, 19:10 | #8 |
Форумчанин
Регистрация: 30.07.2009
Сообщений: 256
|
Сделаю быстро и качественно.
Pascal или Delphi. Срок - в день заказа. Контакты: ICQ: 452-608-390 e-mail: celov@mail.ru |
19.02.2010, 21:59 | #9 |
Новичок
Джуниор
Регистрация: 27.03.2008
Сообщений: 0
|
1 день, 100р, icq 432-503-332
|
04.04.2010, 17:18 | #10 |
Пользователь
Регистрация: 04.04.2010
Сообщений: 29
|
Сделаю на Delphi за 50р шифр цезаря. Также предоставлю исходники. ICQ 5-888-777-64
Пока будущее туманно, оно в твоих руках.
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сцепление текстов | Igor001 | Microsoft Office Excel | 3 | 13.02.2010 16:27 |
Цифры текстов | Maruff | Microsoft Office Excel | 1 | 10.12.2009 18:16 |
Удаление текстов ссылок | PeterMinin | Microsoft Office Word | 11 | 22.10.2009 12:45 |
Чтение текстов голосом | Chi | Софт | 4 | 19.10.2008 14:07 |
Сравнение текстов на схожесть | PUH | Общие вопросы Delphi | 7 | 21.02.2008 22:18 |