Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Нужна помощь с XOR

Автор: GuruA 13.7.2011, 11:35

Привет всем. Имеется файл в нем закриптованное ядро двумя таблицами. Нужно расшифровать его, но не знаю как. Кто может подсказать.

Автор: Snowy 13.7.2011, 14:31

1. Открываешь файл.
2. Расшифровываешь.
Как - зависит от того, как он зашифрован.

Автор: GuruA 14.7.2011, 06:18

У меня проблема с расшифровкой. С xor не сталкивался ни разу.

Автор: Snowy 14.7.2011, 10:35

XOR - исключающее или .
Примитивное шифрование, основано на той особенности, что повторное применение XOR возвращает биты к изначальному значению.

Код


var
  a, b, x: byte;
begin
  a := 42; // исходное число
  b := 127; // ключ
  x := a xor b; // в x зашифрованный a
  WriteLn(x);
  x := x xor b; // в x расшифрованный a
  WriteLn(x);
end;

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