[DA54]

Var
f1,f2:file of longword;L:longword;
begin
assignfile(f1,'1.dat');
assignfile(f2,'2.dat');
reset(f1);
reset(f2);
for i:=1 to 1000000000000 do
begin
read(f1,L);
L:=crypt(L,PASS);
write(f2,L);
end;
closefile(f1);
closefile(f2);

функция crypt реализованна почти вся,за исключением двух строк,в асемблере.

Pass Можно считать константой.Не в этом суть. Мне нужно ускорить этот процесс.Получается файл длинной 100мб шифруется минут 7 как минимум,мне надо гораздо быстрей. В функции ускорять нечего. Посмотрите пожалуйста,что можно ускорить в этом коде. Соответственно,в цикле 1000000000 я написал на бум,но там очень большое число :-)


Заранее благодарен...