В програмировании я новичек, занимаюсь им около 2 месяцев(сделал подарок на новый год)..
Купил книжку "Язык Pascal и основы програмирования в Delphi" (автор А.Я Архангельский) и пользуюсь седьмой версией Delphi.. Пока я прошел две главы и у меня воникли пару вопросов..
Один из них это функция "CodeDecode" , состовляющая шифровку и дешифровку строки текста..
Выглядить она так:

function CodeDecode(S: string; Key: word): string;
var i, L: word;
begin
L := Lenght(S);
for i := 1 to L do
S[i] := Chr(Ord(S[i]) xor Key);
Result := S;
end;
Edit1.Text := CodeDecode(Edit1.Text, 10);


Я не понимаю принцип работы.. Приведенный код обеспечивает простейший вариант шифрования с ключом в виде одного целого числа.. Но как я не понимаю.. ПОМОГИТЕ, плиз..
Мой имеил: axel2inbox.ru
Жду помощи...

Это сообщение отредактировал(а) TwisT_X - 16.2.2005, 22:37

ну есть такой метод шифрования
отправителю и получателю известно 8-битное число (ключ)
отправитель при отправке каждого символа делает xor с ключом, получается другой символ, его и отправляют, получатель после приема опять делает xor с ключом, получает исходных символ
тот, кто не знает ключа, не знает, с чем делать xor, а значит, не может получить исходный символ и прочитать сообщение

Но как подобрать сам ключ..
И как (используя этот код) написать программу, которая перебирала все возможные значения ключа (а их всего 255)..

вообще-то хорошим алгоритмом шифрования считается тот, в котором подобрать ключ можно только перебором
а перебором: просто делаешь цикл от 0 до 255, расшифровываешь, показываешь пользователю, спрашиваешь "похоже на правду?"

А как это сделать не подскажешь отредактируй этот код , плиз..

Цитата

просто делаешь цикл от 0 до 255

Цитата

Edit1.Text := CodeDecode(Edit1.Text, 10);

надо поменять на

Код

var  k:word;  s:string; for k:=0 to 255 do begin  s:=CodeDecode(Edit1.Text,k);  if(MessageBox(...s..."правильно?"...))then//тут надо еще у кого-нибудь спросить, т.к. параметров не помню    break; end;

суть в том, что попробовать все ключи можно, но нужно ведь еще и найти среди них правильный результат
не зная исходного сообщения остается только смотреть на результаты расшифровки и отбрасывать те, которые сильно напоминают абракадабру (хорошо, если текст зашифрован, если файл какой-нибудь, вооще ничего не получится), если в конце ничего не осталось, значит, выбросили что-то нужное, если остался один - радуемся, если осталось куча, думаем, как выбрать...

Цитата

if(MessageBox(...s..."правильно?"...))then//тут надо еще у кого-нибудь спросить, т.к. параметров не помню   break; end;

Что то я этого н понел..
А ты не пробовал откомплировать это приложение?

Цитата

Что то я этого н понел.. А ты не пробовал откомплировать это приложение?

нет, оно не откомпилится
я же написал: не помню параметров MessageBox (а Delphi в пределах досягаемости нету)
суть той строки такая: вывести на экран декодированное сообщение и спросить у пользователя, не смахивает ли это на правильный перевод

TwisT_X, ну тебе же надо просто сделать проход с одним ключем запомнить результат в какой-нибудь файл и делать проход со след. ключем. И так 255 раз. Потом окрываешь файл и смотришь. Одна из 255 расшифровок не будет белибердой, а будет твоим текстом (если исходный текст, конечно, не белиберда )...

Как XOR работает уже знаешь?

И ведь необязательно весь текст каждый раз разшифровывать (внекоторых случаях). Взять N символов и прогнать, сохранить в файл перевод и ключ к нему. Но об этом уже написано. Если нужна готовая функ-я перевода, то скажи. Сделаю, может сейчас. Тоже интересно.

У XOR есть свойсво обратимости. То есть А XOR В = С, а потом С XOR В = А.
Шифруем А через ключ В и получаем С, а потом шифруем С через ключ В и получаем А.
А - исходный символ, В - ключевой, С - зашифрованный.

Я тут еще объяснял сам XOR, но нажал послать, когда был отключен от нети и все сообщение потерял...

Fixin XOR - логическое исключающие ИЛИ, возращает true , если значение операндов не равны друг другу..

Цитата

То есть А XOR В = С, а потом С XOR В = А.

А этого я не понел?.

01010011
xor
11110001
=
10100010

10100010
xor
11110001
=
01010011

cardinal то есть 1 и 1 или 0 и 0 то 0 а если 1 и 0 то 1
то есть если разные то всегда 1 , а одинаковые то 0.. Я правильно понел?.

Я просто тебя процитирую, чтобы ответить на твой вопрос

Цитата(TwisT_X @ 22.2.2005, 13:27)

XOR - логическое исключающие ИЛИ, возращает true , если значение операндов не равны друг другу.

=

Цитата(TwisT_X @ 22.2.2005, 14:00)

то есть 1 и 1 или 0 и 0 то 0 а если 1 и 0 то 1 то есть если разные то всегда 1 , а одинаковые то 0