Побитовое шифрование

[demon31]

Помогите пожалуйста. Есть вот такое шифрование файлов, всё работает, но мне нужно сделать шифрование побитовым, ибо вот данный код не выдерживает больших объемов данных, если будет файлов на 1гб она просто умрёт, а мне нужно именно много файлов шифровать, т.е. нужно побитовое шифрование.
Как сделать из данного примера такое? Например, XOR шифрование файлов .

procedure TForm1.Button2Click(Sender: TObject); 
var
 filetoopen , filetowriteto : string;
 file1 , file2 : tfilestream;
 buff , readbuff : char;
 dummy1, n, i : integer;
begin
 n:=Memo1.Lines.Count;
for i := 0 to n-1 do
 begin
    filetoopen := Memo1.Lines[i];
    filetowriteto :=Memo1.Lines[i]+ ' PROTECTED';
     begin
      file1 :=tfilestream.Create(filetoopen,fmopenread);
        file2 := tfilestream.Create(filetowriteto,fmopenwrite or fmcreate or fmsharedenywrite);
        for dummy1 := 0 to file1.Size -1 do
          begin
           file1.Read(buff,sizeof(buff));
            readbuff := char(pchar(buff)+ $20);
            file2.Write(readbuff,sizeof(readbuff));
          end;
        end;
        file1.Free;
        file2.Free;
      DeleteFile(Memo1.Lines[i]);
      RenameFile(Memo1.Lines[i]+ ' PROTECTED',Memo1.Lines[i]);
    end;
end;

Код шифрует все файлы, которые считались в Memo, т.е. в нем прямой адрес к файлу.

Можно и другое шифрование, но побитовое, чтоб как и сказал, выдерживало большие объемы данных.
Я не смог найти примеры шифрования файлов, чтоб побитовым сдвигов, так что приходится спрашивать.

[Аватар]

Если по байту читать и писать то заморишься ждать на 1Гб. Читай и пиши блоком, для такого файла можно и несколько мегабайТ. А шифрование как такового у тебя считай и нет, сложно это назвать шифрованием.

[demon31]

Файлов много и общий вес большой.
Так вопрос в этом и был, как это сделать.
Я знаю, что данный, эм, просто сдвиг, не есть шифрование, мне нужно что-то нормальное, но я ничего не нашел из примеров.

[northener]

Сообщение от demon31

Файлов много и общий вес большой.
Так вопрос в этом и был, как это сделать.
Я знаю, что данный, эм, просто сдвиг, не есть шифрование, мне нужно что-то нормальное, но я ничего не нашел из примеров.

Из примеров Trojan.Encoder'ов?
Другого смысла в данной теме просто не вижу.

[demon31]

Сообщение от northener

Из примеров Trojan.Encoder'ов?
Другого смысла в данной теме просто не вижу.

Не понимаю о чем вы вообще ... Мне XOR шифрование нужно.

[Serge_Bliznykov]

Вы это ищете?

http://www.programmersforum.ru/showp...22&postcount=4

http://www.programmersforum.ru/showp...7&postcount=13

[demon31]

Сообщение от Serge_Bliznykov

Вы это ищете?

Не важно ...

[Serge_Bliznykov]

Сообщение от demon31

Не важно ...

Согласен.