Помогите решить курсовая горит 9 сдавать...

[smoke007]

Необходимо написать программу которая шифрует\дешифрует текст. (метод шифрования не важен). Помогите плз...

[smoke007]

Поюзал поиск на форуме нашел вот что:

program lw7;
uses crt;
const n=255;
var s:string;
i,b:byte;
begin
clrscr;
writeln('Введите предложение:');
readln(s);
for i:=1 to n do
begin
b:=ord(s[i]);
if ((b>=160) and (b<175)) or ((b>=224) and (b<233))
or ((b>=128) and (b<159)) then
b:=b+1
else
begin
if b=175 then b:=224;
if b=239 then b:=160;
if b=159 then b:=128;
end;
s[i]:=chr(b);
end;
writeln('Зашифрованное предложение:');
writeln(s);
readln;
end.

Терь вопрос как сделать обратную прогу т.е. которая будет расшифровывать???

[Alar]

Доброго времени суток. Наверно все читали мою предыдущую статью «Шифруем файл с помощью пароля» (рекомендую прочитать перед прочтением этой статьи). В ней я описал методику шифрования файлов с помощью пароля. Это конечно довольно-таки простая методика. В этой статье я расскажу про более сложную методику шифрования с помощью пароля. Итак, приступим.

В чём уязвимость старого алгоритма? Допустим в файле будет некоторая последовательность одинаковых байт. После шифрования будет видно повторение одной и той же последовательности, которая имеет длину равную длине пароля. Будет видно, на сколько отличаются символы в пароле (например, второй символ на 3 «больше» чем первый, третий на 20 «меньше» чем второй и т.д.). После этого нам только останется перебрать все 256 вариантов пароля, и в итоге файл будет расшифрован в считанные минуты.
Отсюда вывод: не надо обрабатывать данные в файле «данными» пароля, т.е. при шифровании не надо использовать пароль в чистом виде. Один из множества выходов заключается в том, что бы использовать при шифровании некую контрольную сумму пароля. В качестве контрольной суммы будем использовать CRC32 пароля. CRC32 - это урезанный вариант «хеша», который имеет размер не 16 байт, а 4 байта. Следовательно, шаг у нас будет на 1 байт как в прошлом случае, а 4 байта. Вместо прибавления/убавления, по-моему, использовать взаимно обратную логическую операцию XOR (это только моё мнение, возможно, она мне понравилась из-за того, что для неё не надо писать дешифратор, поскольку шифратор также является дешифратором). Использовать одну и ту CRC32 слишком просто, потому что можно подобрать такое слово, у которого CRC32 будет такой же что и у пароля. Поэтому надо будет видоизменять пароль после очередной операции XOR. У видоизменённого пароля CRC32 будет уже совсем другим. Правило изменения пароля будет таким:
1. Текущее смещение в файле делится 4, и делится на длину пароля -1, остаток от деления будет числом K.
2. Символ в пароле, который находится на позиции K, перемещается в конец пароля.
Довольно-таки незамысловатое правило. Но если следовать этому правилу, мы получим исходный пароль после N*(N-1) модификаций. Если использовать пароль длиной 8 символов (средняя длины пароля) то количество модификаций будет 56. Подобрать слово такой же длины, у которого все 56 модификаций имеют такую же CRC32 почти невозможно. Если длина файла не кратна 4 то остаток (1,2 или 3 байта), «ксорится» побайтово с CRC32 текущей модификации пароля.

http://pblog.ru/?p=86 - статья Руслана. там есть ссылки на ранние статьи.

[smoke007]

Написал вот так вот по методу цезаря

program Crypter;
uses crt;
const
  n = 3;

function CaesarEncipher(toCode: string): string;
var i, T: integer;
begin
  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;

var
  s: string;
begin
  s := CaesarEncipher('just a Caesar');
 writeln('Enter text:');
readln(s);

  writeln('Crypt text = ', CaesarDecipher(s));
end.

Но есть проблема в турбо паскале он вылетает после ввода текста (как нажмешь Enter)? а в Pascal ABC все нормально как исправить?

[puporev]

В Турбо Паскале после writeln('Crypt text = ', CaesarDecipher(s));
нужно написать readln; и нажать Enter или readkey; и нажать любую клавишу.

[smoke007]

puporev . Alar
Спасибо