шифруем файл

[AET]

есть 2 файла 1 ключ а 2-ой сам файл который надо шифровать в xor как пустить файл ключа по циклу пока не закончится сам файл исходный

[Serge_Bliznykov]

а в чём, собственно проблема то?!

примерно так:

  k := 1;
  for i := 1 to SizeArray do
    begin
      sResult[i] := sResult[i] XOR key[k];
      inc(k);
      if k>SizeKey then k := 1;
    end;

key - это буфер, куда прочитать полностью файл ключа....

[AET]

чтото никак

procedure TForm2.Button1Click(Sender: TObject);
var key,f2,f3 :File of byte ;
buf1,buf2,buf3 : byte;
FName3: string;
SizeArray,k:integer;
begin
 AssignFile(key,OpenDialog1.FileName);
 AssignFile(f2,OpenDialog2.FileName);
 Savedialog1.Execute ;
 AssignFile(f3,SaveDialog1.FileName);
 reset(key);
 reset(f2);
 SizeArray:=Filesize(f2);
 rewrite(f3);
while not eof(f2) do
begin
read (f2,buf2);
read (key,buf1);
buf3:= buf2 xor buf1;
write (f3,buf3);
end;
 closefile(key);
 closefile(f2);
 closefile(f3);

end;

[Serge_Bliznykov]

ну вы же не используете структуры... совсем..
читаете побайтно.. да ещё и используете древний как мир file of byte что такое массивы (особенно динамические) вы не знаете?
А для чтения/записи ГОРАЗДО лучше воспользоваться компонентом TFileStream ...

впрочем, хозяин - барин.... Хотите получить тормозную программу - воля Ваша...

вот так тогда:

var key, f2, f3: file of byte;
  buf1, buf2, buf3: byte;
  k: integer;
begin
  AssignFile(key, OpenDialog1.FileName);
  AssignFile(f2,  OpenDialog2.FileName);
  if  Savedialog1.Execute then begin
    AssignFile(f3, SaveDialog1.FileName);
    reset(key);
    reset(f2);
    rewrite(f3);
    while not eof(f2) do
    begin
      read(f2, buf2);
      read(key, buf1);
      buf3 := buf2 xor buf1;
      write(f3, buf3);
      if eof(key) then Seek(key, 0);
    end;
    closefile(key);
    closefile(f2);
    closefile(f3);
  end;
end;

[AET]

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

[AET]

procedure TForm2.Button3Click(Sender: TObject);
var Streaml, Stream2, Stream3: TFileStream;
begin
if  Savedialog1.Execute then try
  Streaml := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
  Stream2 := TFileStream.Create(OpenDialog2.FileName, fmOpenRead);
  Stream3 := TFileStream.Create(Savedialog1.FileName, fmCreate);
finally

Streaml.Free;
Stream2.Free;
Stream3.Free;

end;
end;

как дальше мне сделать можете подскозать
ни как не смог разобратся зделал так

procedure TForm2.Button4Click(Sender: TObject);
var key, f2, f3: file of byte;
  buf1, buf2, buf3: byte;
  k: integer;
begin
  AssignFile(key, OpenDialog1.FileName);
  AssignFile(f2,  OpenDialog2.FileName);
  if  Savedialog1.Execute then
  begin
    AssignFile(f3, SaveDialog1.FileName);
    reset(key);
    reset(f2);
    rewrite(f3);
    while not eof(f2) do
    begin
      read(f2, buf2);
      k := buf2;
      seek (key, k);
      read(key, buf1);
      buf3 := buf1;
      write(f3, buf3);

    end;
    closefile(key);
    closefile(f2);
    closefile(f3);
  end;

[AET]

привет всем подскажите как можно зделать обратное этого

procedure TForm2.Button4Click(Sender: TObject);
var key, f2, f3: file of byte;
  buf1, buf2, buf3: byte;
  k: integer;
begin
  AssignFile(key, OpenDialog1.FileName);
  AssignFile(f2,  OpenDialog2.FileName);
  if  Savedialog1.Execute then
  begin
    AssignFile(f3, SaveDialog1.FileName);
    reset(key);
    reset(f2);
    rewrite(f3);
    while not eof(f2) do
    begin
      read(f2, buf2);
      k := buf2;
      seek (key, k);
      read(key, buf1);
      buf3 := buf1;
      write(f3, buf3);

    end;
    closefile(key);
    closefile(f2);
    closefile(f3);
  end;

надо считать из файла байт и сравнить его с таблицеи если байты совподают то записываем в 3 файл адрес совпадении таблицы

procedure TForm2.Button3Click(Sender: TObject);
var key, f2, f3: file of byte;
  buf1, buf2, buf3: byte;
  k: integer;
begin
  AssignFile(key, OpenDialog1.FileName);
  AssignFile(f2,  OpenDialog2.FileName);
  if  Savedialog1.Execute then
  begin
    AssignFile(f3, SaveDialog1.FileName);
    reset(key);
    reset(f2);
    rewrite(f3);
    while not eof(f2) do
    begin
      read(f2, buf2);
      k := 0;
    while buf2 <> buf1 do  begin
      read(key, buf1);
      k := k + 1;
      end;
      write(f3, k);
      if eof(key) then Seek(key, 0);

    end;
    closefile(key);
    closefile(f2);
    closefile(f3);
  end;

end;

[AET]

в чем ошибка можете подсказать