Как зашифровать файл 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: Пользуемся тегами!
кто поможет ?