[KGB]

Как зашифровать файл XOR-ом?

Нужно зашифровать каждый байт файла.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var f:file;
i:byte;
begin
AssignFile(f,OpenDialog1.FileName);
reset(f);
while not eof(f) do
read (f,i);
//тут хорим байт по идее...
writeln(f,i);

Admin: Пользуемся тегами!

кто поможет ?

[NIch]

Код:

//XOR алгоритм шифрования
  function C(Text : String):String;
  var
  key, longkey : string;
  i: integer;
  toto : char;
  begin
  longkey := '';
  result := '';
  toto := #0;
  key := 'qaz123wsx456edc789';
  for i := 0 to (length(text) div length(key)) do
  longkey := longkey + key;
  for i := 1 to length(text) do
  begin
  toto := Chr((ord(text[i]) xor ord(longkey[i]))); // XOR алгоритм
  result := result + toto;
  end;
  end

[OnzMill]

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

[KGB]

NIch, это ты привел функцию шифрования строки, если не ошибаюсь ? Но ведь строка не файл.

[NIch]

Смотри глубже...вот алгоритм XOR...

toto := Chr((ord(text[i]) xor ord(longkey[i]))); // XOR алгоритм

Просто бери текущий байт и ксорь его...

Код:

b := b1 xor key

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

[Konrad]

Вопрос: зачем это все?

Или снова появится програ, которая шифpyет мега-стойким алгоритмом собственной сборки?


И если длина ключа будет равна длине сообщения, то ключ нужно где-то хранить. И ясно что не в голове.

[NIch]

И если длина ключа будет равна длине сообщения, то ключ нужно где-то хранить. И ясно что не в голове.

Это все понятно, и ясно что XOR не стойкий метод...Но как "защита от дураков" вполне сойдет...А если длинный ключ, то и профи попотеет...