зашифровать файл

[Tycuk]

Считать байты в файле в виде массива mas[i], создать новый файл, в который записали переставленные местами байты из первого файла.

program xjkfd;
var
F, F1: file of byte;
mas: array[1..4] of byte;
z: array[1..4] of byte;
i: integer;
begin

assign(F, 'c:\in.jpg');
assign(F1, 'c:\code.jpg');
reset(F);
rewrite(F1);

while not eof(f) do
begin

read(F, mas[4]);
z[1]:= mas[4];
write(F1, z[1]);

read(F, mas[3]);
z[2]:= mas[3];
write(F1, z[2]);

read(F, mas[2]);
z[3]:= mas[2];
write(F1, z[3]);

read(F, mas[1]);
z[4]:= mas[1];
write(F1, z[4]);

end;

close(F);
close(F1);

end.

Выдаёт абсолютно идентичный исходному файл. А нужно зашифрованный

[shock-in]

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

read(F, mas[3]);
z[2]:= mas[3];
write(F1, z[2]);

исходя из этой строки

z[2]:= mas[3];

ты что считал, то и записал - потому и файл выходит идентичный

[Tycuk]

Почему же? первому элементу массива Z присваиваем значение четвёртого элемента массива mas, записываем его в файл. Или может я чё то не понимаю?

[WinApi]

read(F, mas[4]);
z[1]:= mas[4];
write(F1, z[1]);

Вы считываете байт из файла F в элемент массива mas, затем этот же байт вы заносите в элемент массива z, затем этот же байт записываете в файл F1 -> вы просто копируете побайтно файл.

нужно сделать так:
....
read(F, mas[1]);
read(F, mas[2]);
read(F, mas[3]);
read(F, mas[4]);
write(F1, mas[4]);
write(F1, mas[3]);
write(F1, mas[2]);
write(F1, mas[1]);
....

[Serge_Bliznykov]

WinApi, абсолютно верно!
___________________________________ _________

для чтения файла в массив лучше воспользоваться командой BlockRead
потом вызвать процедурку перестановки байт по Вашему алгоритму.
Потом записать новый массив командой BlockWrite

[Tycuk]

Огромное вам спасибо. Всё работает.
p.s. Странно, что сама не догадалась. Так всё просто