imam jedan fajl i trebam ga pročitati, svaki znak posebno, i pisati izmjenjene znakove u novi fajl.
Čitaj(fajl1,znak)
Enkiptuj(znak)
Piši(fajl2,znak)
Radim enkripciju i dekripciju.
pokušao sam ovako ali radi samo za textualne datoteke
AssignFile(file1,FileName);
Reset(file1);
AssignFile(file2,EncryptionFileName);
Rewrite(file2);
while not eof(file1) do
begin
Readln(file1,FileLine);
LengthOfLine:=Length(FileLine);
for i:=1 to LengthOfLine do
begin
writeln(file2,enkriptuj(FileLine[i]));
end;
writeln(file2);
end;
CloseFile(file1);
CloseFile(file2);