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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 13.02.2010, 16:49   #1
maikuduk
Новичок
Джуниор
 
Регистрация: 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.
maikuduk вне форума Ответить с цитированием
Старый 13.02.2010, 20:54   #2
Aristarh Dark
Форумчанин
 
Регистрация: 07.08.2007
Сообщений: 154
По умолчанию

Сделаю на Delphi.
Цена 500 р. Оплата webmoney
Контакты:
icq: 218413697
e-mail: aristarh.dark@gmail.com
---
С уважением
Иусов Сергей Николаевич aka Aristarh Dark
Aristarh Dark вне форума Ответить с цитированием
Старый 13.02.2010, 20:59   #3
Petrovi4
Новичок
Джуниор
 
Регистрация: 16.06.2007
Сообщений: 0
По умолчанию

ICQ - 324-783-266
Сделаю быстро, качественно, недорого.
Предоплаты не требую!!!
Petrovi4 вне форума Ответить с цитированием
Старый 13.02.2010, 21:00   #4
пауэрлифтинг
Заблокирован
 
Регистрация: 11.12.2009
Сообщений: 133
По умолчанию

icq: 136665509
100р

Последний раз редактировалось пауэрлифтинг; 13.02.2010 в 21:40.
пауэрлифтинг вне форума Ответить с цитированием
Старый 13.02.2010, 22:28   #5
freest
Пользователь
 
Регистрация: 26.09.2009
Сообщений: 10
По умолчанию

308 895 241 быстро и качественно
ICQ: 308 895 241
программы под заказ
freest вне форума Ответить с цитированием
Старый 14.02.2010, 18:11   #6
semenovmixan
Заблокирован
 
Регистрация: 08.01.2010
Сообщений: 0
По умолчанию

Готов взяться за проект
номер ICQ: 565460353 или 480964456
mikefreelance@rambler.ru
semenovmixan вне форума Ответить с цитированием
Старый 15.02.2010, 09:40   #7
Loky
Пользователь
 
Регистрация: 02.10.2008
Сообщений: 14
По умолчанию

Сделаю быстро и недорого стучись 255234три
Loky вне форума Ответить с цитированием
Старый 16.02.2010, 19:10   #8
Gapro
Форумчанин
 
Регистрация: 30.07.2009
Сообщений: 256
По умолчанию

Сделаю быстро и качественно.
Pascal или Delphi.
Срок - в день заказа.

Контакты:
ICQ: 452-608-390
e-mail: celov@mail.ru
Gapro вне форума Ответить с цитированием
Старый 19.02.2010, 21:59   #9
Vitall
Новичок
Джуниор
 
Регистрация: 27.03.2008
Сообщений: 0
По умолчанию

1 день, 100р, icq 432-503-332
Vitall вне форума Ответить с цитированием
Старый 04.04.2010, 17:18   #10
Gray_Jagger
Пользователь
 
Аватар для Gray_Jagger
 
Регистрация: 04.04.2010
Сообщений: 29
По умолчанию

Сделаю на Delphi за 50р шифр цезаря. Также предоставлю исходники. ICQ 5-888-777-64
Пока будущее туманно, оно в твоих руках.
Gray_Jagger вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сцепление текстов 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